Sort Order Combo box for report not working

[RZ15]

Hi guys,

I have made a form with a combo box listing fields that a user can sort by. I have a code that works for this when i have 4 levels to sort by. It is the following:

Private Sub cmdOK_Click()
 
Dim strSQL As String, intCounter As Integer
For intCounter = 1 to 4
 If Me("cboSort" & intCounter) <> "" Then
  strSQL = strSQL & Me("cboSort" & intCounter)
 If Me("Chk" & intCounter) = True Then
  strSQL = strSQL & " DESC"
 End If
strSQL = strSQL & ", "
End If
Next
 If cboSupplier <> "" Then
  DoCmd.OpenReport "rptProdPerSupp", acViewPreview
  DoCmd.Maximize
 If strSQL <> "" Then
  strSQL = Left(strSQL, (Len(strSQL) - 2))
  Reports![rptProdPerSupp].OrderBy = strSQL
  Reports![rptProdPerSupp].OrderByOn = True
 Else
  Reports![rptProdPerSupp].OrderByOn = False
 End If
 Else
  MsgBox "Please choose a supplier whose products you would like to see."
 End If
 
End Sub
 

This code works fine for multiple sorting levels. Now I have another form that has a single combo box in which you can choose a field to sort by. I tried translating the above code into one that uses just one combo box for sorting. Here is what I did:

Private Sub cmdOK_Click()
 
Dim strSQL As String
If Me.cboSort1 <> "" Then
 strSQL = strSQL & Me.cboSort1
 If Me.Chk1 = True Then
  strSQL = strSQL & " DESC"
 End If
 strSQL = strSQL & ", "
 DoCmd.OpenReport "rptTopSuppliers", acViewPreview
 DoCmd.Maximize
If strSQL <> "" Then
 strSQL = Left(strSQL, (Len(strSQL) - 2))
 Reports![rptTopSuppliers].OrderBy = strSQL
 Reports![rptTopSuppliers].OrderByOn = False
Else
 Reports![rptTopSuppliers].OrderByOn = True
End If
Else
 MsgBox "Please choose a field to sort by.", vbOKOnly, "Missing Information"
End If
End Sub
 

Needless to say, it does not sort. Can anyone pinpoint where I went wrong? The problem must lie in the first If statement in the code, since that is the only thing I changed.

[RZ15]

can anyone help me with this?

[RZ15]

For the life of me I can't figure this out, can someone try taking a look at this please?

[MMcCarthy]

Try this ...

Private Sub cmdOK_Click()
Dim strSQL As String
 
    If Me.cboSort1 <> "" Then
        strSQL = Me.cboSort1
        If Me.Chk1 = True Then
            strSQL = strSQL & " DESC"
        End If
        DoCmd.OpenReport "rptTopSuppliers", acViewPreview
        DoCmd.Maximize
        If strSQL <> "" Then
            Reports![rptTopSuppliers].OrderBy = strSQL
            Reports![rptTopSuppliers].OrderByOn = True
        Else
            Reports![rptProdPerSupp].OrderByOn = False
        End If
    Else
        MsgBox "Please choose a field to sort by.", vbOKOnly, "Missing Information"
    End If
 
End Sub