• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tìm kiếm mã NV từ subform bằng ADODB

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Tìm kiếm mã NV từ subform bằng ADODB
• Tìm kiếm mã NV từ subform bằng ADODB

• Tìm kiếm mã NV từ subform bằng ADODB

  tvn_hut > 06-07-13, 07:20 PM

  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

• RE: Tìm kiếm mã NV từ subform bằng ADODB

  paulsteigel > 06-07-13, 09:14 PM

  Vì bạn không có file đính kèm nên tôi không nắm được là bạn đã tham chiếu đến thư viện ADODB chưa. Trên thực tế, bạn không cần phải phức tạp đến thế, dùng ngay query cho tiện!
  Tôi sửa lại đoạn code của bạn như dưới đây nhé!!
  

  Mã PHP:

  Private Sub CmdSearch_Click()
    Dim rst As New ADODB.Recordset
    Dim strSql As String
    
    'rst.Open "SubNV", Staffcode, adOpenDynamic, adLockBatchOptimistic
    'vbookmark = rst.Bookmark
    ' Ban can chu y la doi tuong Staffcode phai duoc khoi tao, day la ket noi du lieu cua thu tuc
    ' Ban co the bonhwng doan toi da comment
    If FraSearch.Value = 1 Then
        If nz(TextMaNV, "") = "" Then
            ' nen thay IsNull(TextMaNV) bang nz(), day la ham kha hay cua Access
            MsgBox "Ma nhan vien khong the de tronh...", vbInformation + vbOKOnly, "Can't find"
            Exit Sub
        End If
        strSql = "Select * from SubNV where Staffcode ='" & TextMaNV & "'"
        'rst.Find "Staffcode ='" & TextMaNV & "'", , , adBookmarkFirst
        rst.Open strSql, Staffcode, adOpenDynamic, adLockBatchOptimistic
        'hoac thay bang doan nay
        'rst.Open strsql, currentproject.Connection, adOpenDynamic, adLockBatchOptimistic
        If rst.EOF Then
            MsgBox "Khong co ma nhan vien nao nhu vay"
            'rst.Bookmark = vbookmark
        Else
            MsgBox "Da tim thay [" & rst.RecordCount & "] nhan vien.."
        End If
        rst.Close
    End If
    Set rst = Nothing
End Sub 

• Bài trước Bài tiếp