Em tải 1 file access, trong form "Tim kiem theo ma" có đoạn code như sau
Mã:
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à:
Mã:
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:
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?