xin giúp đỡ về VBA

[kukenwa]

Em tải 1 file access, trong form "Tim kiem theo ma" có đoạn code như sau

Private Sub cmdtimdgtheoma_Click()
    txtmadg = ""
    txthoten = ""
    txtphai = ""
    txtngaysinh = ""
    txtnghenghiep = ""
    txtdiachi = ""
    txtdienthoai = ""
    Dim db As Database
    Set db = CurrentDb
    Dim rd As DAO.Recordset
    Set rd = db.OpenRecordset("DOCGIA", dbOpenDynaset)
    Dim HOI As String
    Dim dk As String, I As Integer
    HOI = InputBox("Nhap Ma Doc gia can tim:")
    dk = "madocgia='" & HOI & "'"
    If HOI = "" Then
      MsgBox "Ban chua nhap Ma doc gia can tim!"
    Else
     I = 0
    rd.MoveFirst
    rd.FindFirst dk
    Do Until rd.NoMatch
        txtmadg = rd!Madocgia
        txthoten = rd!Hoten
        txtphai = rd!Phai
        txtngaysinh = rd!Ngaysinh
        txtdiachi = rd!Diachi
        txtdienthoai = rd!Dienthoai
        txtnghenghiep = rd!Nghenghiep
        I = I + 1
        rd.FindNext dk
    Loop
    If I = 0 Then MsgBox "Khong co Doc gia nao mang Ma " & HOI, 0 + 64, "Thong bao"
End If
End Sub

Em sửa lại là:

Private Sub cmdtimdgtheoma_Click()
    mahv = ""
    hoten = ""
    phai = ""
    ngaysinh = ""
    chucvu = ""
    diachi = ""
    dienthoai = ""
    Dim db As Database
    Set db = CurrentDb
    Dim rd As DAO.Recordset
    Set rd = db.OpenRecordset("[B][COLOR="blue"]HOIVIEN[/COLOR][/B]", dbOpenDynaset)
    Dim HOI As String
    Dim dk As String, I As Integer
    HOI = InputBox("Nhap Ma hoi vien can tim:")
    dk = "[COLOR="blue"][B]mahoivien[/B][/COLOR]='" & HOI & "'"
    If HOI = "" Then
      MsgBox "Ban chua nhap Ma hoi vien can tim!"
    Else
     I = 0
    rd.MoveFirst
[B][COLOR="red"]    rd.FindFirst dk[/COLOR][/B]
    Do Until rd.NoMatch
        mahv = rd!mahv
        hoten = rd!hoten
        phai = rd!phai
        ngaysinh = rd!ngaysinh
        chucvu = rd!chucvu
        diachi = rd!diachi
        dienthoai = rd!dienthoai
        I = I + 1
        rd.FindNext dk
    Loop
    If I = 0 Then MsgBox "Khong co Hoi vien co ma " & HOI, 0 + 64, "Thong bao"
End If
End Sub

Nó bị lỗi "3464":"Data type mismatch criteria expression" ở chỗ màu đỏ, các anh/chị giúp em với ạ, em gà cái này

 

[haquocquan]

Ðề: xin giúp đỡ về VBA

Bạn xem lại data type của field MAHOIVIEN.
Kiểu text thì sẽ chạy được