hi,
i'm creating a search button. When i click the button an input box shows up where i then enter the name of the employee and the result is show on a list box. Im using vb 6 and access.
my form load
[code=vb]
Private Sub Form_Load()
'
Set GR_Database = OpenDatabase(Ap p.Path & "\GR_database.m db")
Set rsEmployee = GR_Database.Ope nRecordset("Emp loyee", dbOpenDynaset)
If Not rsEmployee.EOF Then rsEmployee.Move First
Do While Not rsEmployee.EOF
lstEmployee.Add Item rsEmployee!Firs tname & vbTab & vbTab & rsEmployee!Empl oyeeNo
lstEmployee.Ite mData(lstEmploy ee.NewIndex) = rsEmployee!Empl oyeeNo
rsEmployee.Move Next
Loop
End Sub[/code]
the problem i get is a type mismatch on the firstline in my listbox
My Listbox[code=vb]
Private Sub lstEmployee2_Cl ick()
rsEmployee.Find First "EmployeeNo =" & Str(Split(lstEm ployee2.List(ls tEmployee2.List Index), vbTab)(0))
txtEmployeeNo.T ext = rsEmployee!Empl oyeeNo
txtFirstName.Te xt = rsEmployee!Firs tname
txtSurname.Text = rsEmployee!Surn ame
'i cut the rest out
End Sub[/code]
And this is my search button[code=vb]
Private Sub CmdSearch_Click ()
Set GR_Database = OpenDatabase(Ap p.Path & "\GR_database.m db")
Set rsEmployee = GR_Database.Ope nRecordset("Emp loyee", dbOpenDynaset)
Dim Name As String
Name = InputBox("Pleas e insert name", "Name") 'Enter the name to search for
If Not rsEmployee.EOF Then rsEmployee.Move First
Call cmdClear_Click
lstEmployee2.Cl ear
Do While Not rsEmployee.EOF
If LCase(rsEmploye e!Firstname) = LCase(Name) Then
lstEmployee2.Ad dItem rsEmployee!Firs tname & " " & rsEmployee!Surn ame
End If
rsEmployee.Move Next
Loop
End Sub[/code]
i don't know why i get this problem on rsEmployee.Find First "EmployeeNo =" & Str(Split(lstEm ployee2.List(ls tEmployee2.List Index), vbTab)(0))
i used the same code on a similar project and it worked well, this piece of code was form a friend so i don't really know how it works.
PLEASE HELP!!!!
i'm creating a search button. When i click the button an input box shows up where i then enter the name of the employee and the result is show on a list box. Im using vb 6 and access.
my form load
[code=vb]
Private Sub Form_Load()
'
Set GR_Database = OpenDatabase(Ap p.Path & "\GR_database.m db")
Set rsEmployee = GR_Database.Ope nRecordset("Emp loyee", dbOpenDynaset)
If Not rsEmployee.EOF Then rsEmployee.Move First
Do While Not rsEmployee.EOF
lstEmployee.Add Item rsEmployee!Firs tname & vbTab & vbTab & rsEmployee!Empl oyeeNo
lstEmployee.Ite mData(lstEmploy ee.NewIndex) = rsEmployee!Empl oyeeNo
rsEmployee.Move Next
Loop
End Sub[/code]
the problem i get is a type mismatch on the firstline in my listbox
My Listbox[code=vb]
Private Sub lstEmployee2_Cl ick()
rsEmployee.Find First "EmployeeNo =" & Str(Split(lstEm ployee2.List(ls tEmployee2.List Index), vbTab)(0))
txtEmployeeNo.T ext = rsEmployee!Empl oyeeNo
txtFirstName.Te xt = rsEmployee!Firs tname
txtSurname.Text = rsEmployee!Surn ame
'i cut the rest out
End Sub[/code]
And this is my search button[code=vb]
Private Sub CmdSearch_Click ()
Set GR_Database = OpenDatabase(Ap p.Path & "\GR_database.m db")
Set rsEmployee = GR_Database.Ope nRecordset("Emp loyee", dbOpenDynaset)
Dim Name As String
Name = InputBox("Pleas e insert name", "Name") 'Enter the name to search for
If Not rsEmployee.EOF Then rsEmployee.Move First
Call cmdClear_Click
lstEmployee2.Cl ear
Do While Not rsEmployee.EOF
If LCase(rsEmploye e!Firstname) = LCase(Name) Then
lstEmployee2.Ad dItem rsEmployee!Firs tname & " " & rsEmployee!Surn ame
End If
rsEmployee.Move Next
Loop
End Sub[/code]
i don't know why i get this problem on rsEmployee.Find First "EmployeeNo =" & Str(Split(lstEm ployee2.List(ls tEmployee2.List Index), vbTab)(0))
i used the same code on a similar project and it worked well, this piece of code was form a friend so i don't really know how it works.
PLEASE HELP!!!!
Comment