Code:
Private Sub DBCombo1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim recSource As String recSource = "SELECT * FROM car WHERE car_id = " & _ DBCombo1.BoundText Data1.RecordSource = recSource Data1.Refresh End Sub
Private Sub DBCombo1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim recSource As String recSource = "SELECT * FROM car WHERE car_id = " & _ DBCombo1.BoundText Data1.RecordSource = recSource Data1.Refresh End Sub