Hi guys i have this code:
Private Sub DataCombo2_Change()
Dim sql As String
sql = "select * from creditcard where CUSTOMERID = '" & DataCombo2.Text & "'"
Set RS = New ADODB.Recordset
RS.Open sql, CON
DataCombo3.ListField = RS2!creditcardnum
When the customerID is selected from datacombo2, i want the second datacombo to populate all the credit card numbers of that customer. Currently its producing an error. Any suggestions
Private Sub DataCombo2_Change()
Dim sql As String
sql = "select * from creditcard where CUSTOMERID = '" & DataCombo2.Text & "'"
Set RS = New ADODB.Recordset
RS.Open sql, CON
DataCombo3.ListField = RS2!creditcardnum
When the customerID is selected from datacombo2, i want the second datacombo to populate all the credit card numbers of that customer. Currently its producing an error. Any suggestions