i hv an interface sumthing like this. i/m using VB6 and i wanna find record in MS Access using find command button. firstly user will key in an employee number as a key to find that user record in MS Access. after that, the data will appear in the form above the search frame. im new with VB6'so i need some help.. thanks.. :)
Jump to PostYou can do this ata database level using SQL queries.
if the employee number is a number use emp_number=number
if the employee number is a string use emp_number like '%string%'
Jump to PostPrivate Sub cmdfind_Click() Dim a As String Dim b As String a = text1.text 'employee number If Len(a) = 0 Then Exit Sub b = "Employee Number Like """ & a & "*""" Data1.Recordset.FindNext b If Data1.Recordset.NoMatch Then MsgBox "No record found", vbExclamation end If Exit Sub
You can do this ata database level using SQL queries.
if the employee number is a number use emp_number=number
if the employee number is a string use emp_number like '%string%'
Private Sub cmdfind_Click()
Dim a As String
Dim b As String
a = text1.text 'employee number
If Len(a) = 0 Then Exit Sub
b = "Employee Number Like """ & a & "*"""
Data1.Recordset.FindNext b
If Data1.Recordset.NoMatch Then
MsgBox "No record found", vbExclamation
end If
Exit Subwhen i put dis coding, there was an error.
Run-time error '3077'
Syntax error (missing operator) in expression.
when i debug, the error was at:
Data1.Recordset.FindNext b
please correct this
b = "Employee Number Like """ & a & "*"""
b = "Employee Number Like ' " & a & " ' "
this will help u i think
:)
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.