type mismatch problem Help!!!!!!!!!

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • THEAF
    New Member
    • Mar 2007
    • 52

    type mismatch problem Help!!!!!!!!!

    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!!!!
    Last edited by debasisdas; Mar 11 '08, 11:21 AM. Reason: added code=vb tags
  • debasisdas
    Recognized Expert Expert
    • Dec 2006
    • 8119

    #2
    That is because you are passing a string to a number filed in the database for search.

    Comment

    Working...