Hello there Good Day!
I need your expertise in VB6 i have an assignment we made a small program with search button with combobox. I have a code with almost working. My problem is i want my search button enter any fiels to search with the combo box list. I have my list in combo box the fields of my database: Employee ID, Firstname, Middlename, Lastname, homeaddress, emailaddress, contactnumber, birthdate, age. What i want is what ever i select in the combo list i can search in my search input box....
Here's my almost working code:
Private Sub cmdsearch_Click() Dim dok As String dok = InputBox(" Enter Any Fields to Search") Adodc1.Recordset.Find "firstname = '" & dok & "'" If Adodc1.Recordset.EOF Then MsgBox "No Record Found!", vbInformation End If End Sub
But this code only firstname fields will work, the other fields are error. Because of line4 statement..