Loops

[tbassngal]

Can someone help me by adding do while looping code for 3 cboDesc boxes, cboDesc1, cboDesc2, cboDesc3? Seems I am not having luck with anyone helping - is it super difficult for most? While I don't know how to do it, I though it was a fairly simple task - I guess not =( Please help if you can~!!




Private Sub cboApplication_AfterUpdate()
Dim sSQL As String
'MsgBox "The Code is Executing!"

'clear cboDesc1
Me.cboDesc1 = Null

sSQL = "SELECT Desc1 FROM tblApplicationDescription"
sSQL = sSQL & " WHERE [Application] = '" & Me.[cboApplication] & "' "
sSQL = sSQL & " ORDER BY Desc1"

'for debugging
'Debug.Print sSQL

Me.cboDesc1.RowSource = sSQL

'check if txtDesc1 has values
If IsNull(Me.cboDesc1.ItemData(0)) Then
Me.cboDesc1.Enabled = False
Else
Me.cboDesc1.Enabled = True
Me.cboDesc1 = Me.cboDesc1.ItemData(0)

'optional
Me.cboDesc1.SetFocus
Me.cboDesc1.Dropdown
End If

End Sub

[ssanfu]

If your combo boxes are really named cboDesc1, cboDesc2, cboDesc3, then it is easy to do looping.

What are the row sources for cboDesc2, cboDesc3?

[rpeare]

What are you attempting to do with your code?

If you're just trying to see if a recordset has values you can do something like with dcount or, since you already have the SQL statement you can do this:

dim db as database
dim rst as recordset

set db = currentdb
set rst = db.openrecordset(ssql)

if rst.recordcount <> 0 then
    <set the enabled property of your combo box to true>
else
   <set the enabled property of your combo box to false>
endif

rst.close
set db = nothing

You'd just have to fit it into your existing code after you establish the SQL string.

Or are you trying to build a SQL statement using 1 or more combo boxes as input and are trying to adjust your WHERE statement accordingly? You reference cboDesc2 and cboDesc3 but they appear nowhere in your code.