I have always built my selection criteria code based on 2 or more combo box or check box selections. I always use a query as source and add the tables ID or 0,-1 respectively.

This time I want to use 3rd combo boxes, one of which a field in the main table(so I cant use and ID), and I am trying figure how to use the selected value(which is Text) in the 3 combo box. My code gets a parameter Box asking for a value.

I am just mentally unable to handle this. I researched the best I could and am coming up blank.

The code will follow, but this is for a personal Database for me to track all videos' and training I watch on this web site, which was becoming difficult to remember when I wanted relook at something. Here is the Code (which I developed in 1995):

Details

Private Sub EditRecordBtn_Click()
On Error GoTo Err_EditRecordBtn_Click
    Dim xAnd As String
    Dim SelCrit As String
    Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName1 = "TechHelpFrm"
  
    'Selection Criteria
    'Intialization
    xAnd = ""
    SelCrit = ""
    
    'This Section Processes Audio Items for a specific Subject
    If IsNull(Me![cboSubject]) = False Then
        SelCrit = SelCrit & xAnd & "[SubjectAreaID] =" & Me![cboSubject]
        xAnd = " And "
    End If
    'This Section Processes Audio Items for Specific Level
    If IsNull(Me![cboLevel]) = False Then
        SelCrit = SelCrit & xAnd & "[TrainingLevelID] =" & Me![cboLevel]
        xAnd = " And "
    End If
    'This Section Processes Audio Items for Specific TechHelp
    If IsNull(Me![cboTechHelp]) = False Then
    SelCrit = SelCrit & xAnd & "[HelpTechName] =" & Me![cboTechHelp]
    xAnd = " And "
    End If

    DoCmd.OpenForm stDocName1, , , SelCrit
Exit_EditRecordBtn_Click:
    Exit Sub
Err_EditRecordBtn_Click:
    MsgBox Err.Description
    Resume Exit_EditRecordBtn_Click

End Sub

It's the TechHelp section that's not working. Any input would apricated.