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

Sửa giúp em đoạn VB tìm kiếm này với!!!

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Sửa giúp em đoạn VB tìm kiếm này với!!!
• Sửa giúp em đoạn VB tìm kiếm này với!!!

• Sửa giúp em đoạn VB tìm kiếm này với!!!

  huyencodon > 19-08-11, 07:08 PM

  Mã:

  Private Sub tIM_Click()
Dim t As Integer
Dim r As Recordset
Set r = Me.RecordsetClone
t = InputBox("Nhap ma DB GLV can tim")
r.FindFirst "[DBGLVID]='" & t & "'"
If r.NoMatch Then
  MsgBox "Khong co ma DB GLV nay"
Else
  Me.Bookmark = r.Bookmark
End If
r.Close
End Sub

  
  
  
  Hiện tại thì đoạn code này chạy rất tốt nếu cột [DBGLVID] của em là dạng text ... nhưng em đổi thành AutoNumber thì đoạn code này báo lỗi "data type mismatch in criteria expression"
  
  Mong các anh sửa lại giúp em cho đoạn code này chạy được khi cột [DBGLV] là dạng AutoNumber
  
  Cám ơn các anh rất nhiều

• RE: Sửa giúp em đoạn VB tìm kiếm này với!!!

  NguyenHai81 > 19-08-11, 10:51 PM

  (19-08-11, 07:08 PM)huyencodon Đã viết: Hiện tại thì đoạn code này chạy rất tốt nếu cột [DBGLVID] của em là dạng text ... nhưng em đổi thành AutoNumber thì đoạn code này báo lỗi "data type mismatch in criteria expression"
  
  Mong các anh sửa lại giúp em cho đoạn code này chạy được khi cột [DBGLV] là dạng AutoNumber

  
  
  Sửa đoạn này lại thành như vầy xem : r.FindFirst "[DBGLVID]=" & t
  
  

• RE: Sửa giúp em đoạn VB tìm kiếm này với!!!

  huyencodon > 20-08-11, 09:10 AM

  hj ... nó chạy được rồi
  
  Cám ơn anh NguyenHai81 rất nhiều
  
  Àh, nó còn 1 vấn đề mới phát sinh là
  
  nếu người dùng nhập số thì không vấn đề
  
  nhưng người dùng nhập chữ thì nó báo lỗi và đòi debug
  
  vậy làm cách nào để nó không báo là debug mà báo là "Khong co ma DB GLV nay"
  
  Mong các anh giúp đỡ

• RE: Sửa giúp em đoạn VB tìm kiếm này với!!!

  huynguyenbd > 30-10-11, 08:56 AM

  Rất dê:
  Private Sub tIM_Click()
  On error goto Loi:
  ''''''''''''''''''''''
  Noi dung Code
  ''''''''''''''''''''''''''''''''''
  
  Loi:
  Select case Err
  Case 13
  Msgbox "Nhap sai kieu du lieu, chi dc nhap so", Vbinformation, "Thong Bao"
  Exit sub
  end select
  End Sub

• RE: Sửa giúp em đoạn VB tìm kiếm này với!!!

  huynguyenbd > 30-10-11, 09:09 AM

  Đây là đoạn code tìm của mình, mình thất rất đầy đủ
  
  Private Sub cmdtim_Click()
  On Error GoTo Loi:
  Dim Ma As Integer
  Dim Bang As Recordset
  Ma = Me.txtDBGLVID
  Set Bang = CurrentDb.OpenRecordset("Select * from Tên_Table")
  Bang.FindFirst ("DBGLVID = '" & Ma & "'")
  If Not Bang.NoMatch Then
  If MsgBox ("Da tim thay DBGLVID " & Ma & ". Ban co muon in thong tin khong?", vbQuestion + vbYesNo, "Thong bao!") = vbYes Then
  'KHi nhan ok thì xuất thông tin ra Report
  DoCmd.OpenReport "Thongtin", acViewPreview, , "DBGLVID=forms.capnhatdshv.txtDBGLVID"
  Else
  Bang.Close
  End If
  Else
  MsgBox "Khong tim thay thong tin can tim", vbInformation, "Thong bao!"
  Bang.Close
  End If
  Thoat:
  Exit Sub
  Loi:
  Select Case Err:
  Case 94
  MsgBox "Ban chua nhap DBGLVID can tim", vbInformation, "Thong bao!"
  Exit Sub
  Case 13
  Msgbox "Ban chi dc nhap gia tri la so",Vbinformation,"Thong bao!"
  Exit sub
  End Select
  End Sub
  
  
  Tùy theo yêu mà mà bạn có thể xuất ra 1 text box kết quả hay gì đó, ở đây mình xuất thông báo và in luôn
• Bài trước Bài tiếp