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

Thông báo tìm kiếm trên Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Thông báo tìm kiếm trên Form
• Thông báo tìm kiếm trên Form

• Thông báo tìm kiếm trên Form

  feeling > 18-10-20, 11:02 AM

  Em đang tạo 1 form tìm kiếm. Em muốn khi nhập thông tin tìm kiếm mà không tồn tại thì nó sẽ thông báo "Dữ liệu tìm kiếm không có".
  
  Link: http://www.mediafire.com/file/y4kfmb6ogg...accdb/file
  
  Cám ơn mọi người nhiều!

• RE: Thông báo tìm kiếm trên Form

  hungacc > 18-10-20, 11:37 AM

  Bạn tham khảo nhé!
  
  Private Sub txtTim_AfterUpdate()
      Me.sfrmCuaNhua.Form.Requery
  
      If Me.sfrmCuaNhua.Form.RecordsetClone.RecordCount = 0 Then
          MsgBox "Gia tri tim kiem: " & Me.txtTim & Chr(13) & _
              "Khong tim thay", vbInformation, "Thong bao ket qua tim kiem"
      Exit Sub
      End If
  
  End Sub

• RE: Thông báo tìm kiếm trên Form

  feeling > 18-10-20, 11:48 AM

  (18-10-20, 11:37 AM)hungacc Đã viết: Bạn tham khảo nhé!
  
  Private Sub txtTim_AfterUpdate()
      Me.sfrmCuaNhua.Form.Requery
  
      If Me.sfrmCuaNhua.Form.RecordsetClone.RecordCount = 0 Then
          MsgBox "Gia tri tim kiem: " & Me.txtTim & Chr(13) & _
              "Khong tim thay", vbInformation, "Thong bao ket qua tim kiem"
      Exit Sub
      End If
  
  End Sub

  
  Ok, đúng ý của mình luôn!
  
  Cám ơn bạn nhiều!
• Bài trước Bài tiếp