Dear mọi người
Sau khi nghiên cứu về ADO, mình thử lập trình để tìm kiếm mã NV từ subform. kết quả là không chạy được code. Không biết mình sai hay hiểu sai ở chỗ nào. Rất mong các bạn cũng như BQT có thể gợi ý giúp mình nút thắt này.
Đây là đoạn code mình xây dựng
Private Sub CmdSearch_Click()
Dim rst As New ADODB.Recordset
rst.Open "SubNV", Staffcode, adOpenDynamic, adLockBatchOptimistic
vbookmark = rst.Bookmark
If FraSearch.Value = 1 Then
If IsNull(TextMaNV) Then
MsgBox "Please enter employee code", vbInformation + vbOKOnly, "Can't find"
Exit Sub
End If
rst.Find "Staffcode ='" & TextMaNV & "'", , , adBookmarkFirst
If rst.EOF Then
MsgBox "Can't find"
rst.Bookmark = vbookmark
Else
MsgBox "Found it"
End If
End If
End Sub
Mình xin chân thành cảm ơn