VB Code:
Application.DoCmd.OpenReport "TestQuestions", acViewPreview, ,"WHERE Something = 'Somethingelse'", acWindowNormal
VB Code:
Option Explicit
Private Sub Combo1_Click()
Call PopulateCBO
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Call PopulateCBO
End Sub
Private Function PopulateCBO()
'Using your previously populated recordset from database
With Combo2
DoEvents
.Clear
Do While RS.EOF = False
.AddItem RS.Fields("Field1").Value
RS.MoveNext
Loop
End With
End Function