xin giúp đỡ về VBA

[tuyla123]

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("HOIVIEN", dbOpenDynaset)
    Dim HOI As String
    Dim dk As String, I As Integer
    HOI = InputBox("Nhap Ma hoi vien can tim:")
    dk = "mahoivien='" & HOI & "'"
    If HOI = "" Then
      MsgBox "Ban chua nhap Ma hoi vien can tim!"
    Else
     I = 0
    rd.MoveFirst
    rd.FindFirst dk
    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 :kinhhoang:

View more random threads:

• Lỗi Run-time error '3011'
• phần mềm quản lý nhân sự
• nho huong dan sua loi code va huong dan lam do an lap trinh access
• Có sự khác nhau không giữa Font Tahoma trên XP và trên Win 7 ?
• giúp e 1 bài VBA này cái
• Xin giúp đỡ về code tìm ngày ạ!
• Làm sao để sắp xếp cố định các trường xuống dòng trong 1 Textbox của Report
• So sánh Access 2003 với Access 2007,Access 2010
• Setup khổ giấy máy in kim
• Giúp Đỡ

[kientrogia24h]

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

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