I am using a search button to locate entry based on ID. I am getting and Else If error.
Private Sub btnSearchform_Click()
'Create Variable
Dim strID As String
Dim strSql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
'Get Specimen ID
strID = InputBox("Please enter a Specimen ID.", "Specimen ID")
Set dbs = CurrentDb
strSql = "SELECT FormUsed FROM tblBodyFluidMain WHERE [Specimen ID Number] = '" & strID & "';"
Set rst = dbs.OpenRecordset(strSql)
If Not rst.RecordCount = 0 Then
'This is a body fluid!
Select Case rst("FormUsed").Value
Case "BFDilution"
DoCmd.OpenForm "frmBodyFluidDilutions2", acNormal, , "[Specimen ID Number] = '" & strID & "'"
Case "Recovery"
DoCmd.OpenForm "frmBodyFluidRecoveries", acNormal, , "[Specimen ID Number] = '" & strID & "'"
Case "PTHFN"
DoCmd.OpenForm "frmBodyFluidPTHFN2", acNormal, , "[Specimen ID Number] = '" & strID & "'"
Case "Remedy"
DoCmd.OpenForm "frmRemedyBodyFluids", acNormal, , "[Specimen ID Number] = '" & strID & "'"
End Select
Else
strSql = "SELECT FormUsed FROM tblSerum WHERE [Specimen ID Number] = '" & strID & "';"
Set rst = dbs.OpenRecordset(strSql)
If rst.RecordCount = 0 Then
MsgBox ("This specimen ID does not exists as Body Fluid or Serum.")
Exit Sub
End If
'This is a serum!
Select Case rst("FormUsed").Value
Case "Dilution"
DoCmd.OpenForm "frmSerumDilutions1-2", acNormal, , "[Specimen ID Number] = '" & strID & "'"
Case "Heterophile"
DoCmd.OpenForm "frmSerumHeterophile1", acNormal, , "[Specimen ID Number] = '" & strID & "'"
Case "Miscellaneous"
DoCmd.OpenForm "frmSerumMiscellaneous2", acNormal, , "[Specimen ID Number] = '" & strID & "'"
End Select
Else
strSql = "SELECT FormUsed FROM tblHeterophileA WHERE [Specimen ID Number] = '" & strID & "';"
Set rst = dbs.OpenRecordset(strSql)
If rst.RecordCount = 0 Then
MsgBox ("This specimen ID does not exists as Heterophile.")
Exit Sub
End If
'This is a heterophile!
Select Case rst("FormUsed").Value
Case "Heterophile"
DoCmd.OpenForm "frmSerumHeterophile1", acNormal, , "[Specimen ID Number] = '" & strID & "'"
End Select
End If
End Sub
