Giúp em chỉnh lại lệnh tìm kiếm
audition > 12-03-12, 10:39 AM
Em tạo 1 nút tìm kiếm trên form với câu lệnh như bên dưới, em muốn khi nó tìm thấy thông tin thì di chuyển đến record chứa thông tin đó, hiển thị số liệu trên form, nhưng làm không được, anh/chị giúp em. Cám ơn nhiều!
Private Sub tim_Click()
On Error GoTo Loi:
Dim macc As String
Dim bnhanvien As Recordset
macc = Me.macc
Set bnhanvien = CurrentDb.OpenRecordset("Select * From bnhanvien Where Macc = '" & macc & "'")
bnhanvien.FindFirst ("MAcc = '" & macc & "'")
If bnhanvien.NoMatch Then
MsgBox "Khong tim thay Khach hang" & " " & MAKH & " co mavt " & mavt, vbInformation, "Thong bao!"
bnhanvien.Close
Exit Sub
Else
If MsgBox ("DA TIM THAY THONG TIN KHACH HANG " & MAKH & " BAN CO MUON xem KHONG?", vbInformation + vbYesNo, "Thong bao") = vbYes Then
Me.Form.RecordSource = "SELECT * FROM bnhanvien WHERE macc like ('me.macc'=macc)"
Me.bnhanvienQuery.Requery
End If
End If
Loi:
Select Case Err:
Case 94
MsgBox "Ban vui long dien day du thong tin", vbInformation, "Thong bao"
Exit Sub
Case 13
MsgBox "nhap sai kieu du lieu", vbInformation, "Thong bao"
Exit Sub
End Select
End Sub