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

code thông báo khi không nhập dữ liệu vào textbox

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] code thông báo khi không nhập dữ liệu vào textbox
• code thông báo khi không nhập dữ liệu vào textbox

• RE: code thông báo khi không nhập dữ liệu vào textbox

  khanghychu > 28-01-16, 01:44 PM

  (27-01-16, 09:08 PM)paulsteigel Đã viết: Về thứ tự các sự kiện của một textbox thì nó theo lộ trình sau
  Enter>GotFocus
  Exit>LostFocus
  Tình huống của bạn xảy ra thế này:
  Khi bạn chuyển Focus, sự kiện Exit sẽ thực hiện (lúc này vẫn còn Focus). Sau đó LostFocus sẽ thực hiện và đối tượng sẽ mất Focus và kích hoạt Enter/GotFocus của điều khiển khác.
  Và nếu bạn thực hiện việc SetFocus về nó thì lệnh đấy được thực hiện trước khi điều khiển sau nhận được Focus vì thế nó sẽ mất focus.
  Do đó cách làm đơn giản thôi. Hãy sử dụng lệnh SetFocus vào đối tượng sau để 2 thủ tục đó kích hoạt và bật lại SetFocus vào Textbox bạn muốn đặt Focus.
  Cái như sau thì đều được cả
  

  Mã:

  Private Sub txtDate_Exit(Cancel As Integer)
    If Not IsNull(txtDate) Then Exit Sub
    MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
    'Chuyển Focus sang đối tượng sau
    Text2.SetFocus
    ' chuyển lại focus về đối tượng của bạn
    txtDate.SetFocus
    DoCmd.CancelEvent
End Sub
'Hoặc
Private Sub txtDate_LostFocus()
    If Not IsNull(txtDate) Then Exit Sub
    MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
    Text2.SetFocus
    txtDate.SetFocus
    DoCmd.CancelEvent
End Sub

  Trên thực tế với vấn đề này, cần phân tích lô gic một chút bạn sẽ tự giải thích được lý do

  
  Cảm Ơn [b]paulsteigel thật nhiều. Mình làm như bạn quá OK. Vậy mà mình tìm hoài bấy lâu nay không được. tưởng chừng chương trình của mình đành bỏ dở, hôm nay mình rất vui để tiếp tục niềm đam mê. Chúc bạn năm mới nhiều niềm vui và hạnh phúc![/b]

• RE: code thông báo khi không nhập dữ liệu vào textbox

  khải nguyên > 30-01-16, 09:21 AM

  Cảm ơn A Ngọc nhiều không có gì đâu anh ạ .Trao đổi diễn đàn mà , chứ đâu phải chiến trường ..hi hi   có câu  Học Học nữa học mãi ....mà mình càng học thì càng thấy mình ...NGU , tức là chưa thể hiểu hết đc trong cuộc sống ,XH càng phát triển ,thay đổi bao nhiêu thì càng phải học thêm nhiều .nếu như không chịu tìm tòi tham khảo thì không bao giờ phát triển kịp thời đại 
  Chúc A Ngọc và cả nhà có một ngày tốt đẹp
  Thân chào All !

• RE: code thông báo khi không nhập dữ liệu vào textbox

  zinzin8x > 01-02-16, 04:52 PM

  Access nó làm gì có lỗi hỏng chẳng qua là ý đồ của nó ko đúng ý đồ cuả mình thôi.

• RE: code thông báo khi không nhập dữ liệu vào textbox

  paulsteigel > 01-02-16, 05:31 PM

  (01-02-16, 04:52 PM)zinzin8x Đã viết: Access nó làm gì có lỗi hỏng chẳng qua là ý đồ của nó ko đúng ý đồ cuả mình thôi.

  
  
  Gọi là lỗi một cách NÔM NA thôi vì phát triển phần mềm thì việc có lỗi là đương nhiên. Và Lỗi hay không còn tùy cách định nghĩa lỗi của chúng ta là gì.
  Ví dụ với Office 2007, chức năng Range.ExportFragment làm việc cực tốt nhưng lên Office 2010 bản nguyên thủy, chức năng này không làm được nữa và được coi là lỗi và Microsoft đã phải dùng đến bản vá cho nó.
  Ngoài ra với Access, việc Access 2003 chuyển bản ghi khi chúng ta xoay bánh xe chuột được xếp là một bug của Access trong khi với Access 2007 không làm được việc đó nữa.
  Túm lại - không có gì, là đúng/ sai một cách hoàn toàn mà có chăng là cách chúng ta giải thích điều đó một cách tường minh để mọi người cùng hiểu được một cách dễ nhất. Thế mới là việc quan trọng.
  Chúc các cụ năm mới mạnh khỏe, vui vẻ, nhiều thành công và đóng góp hơn nữa!
  Đặng Đình Ngọc

• RE: code thông báo khi không nhập dữ liệu vào textbox

  Ntrongnghia79 > 06-10-21, 12:55 PM

  (27-01-16, 09:08 PM)paulsteigel Đã viết: Về thứ tự các sự kiện của một textbox thì nó theo lộ trình sau
  Enter>GotFocus
  Exit>LostFocus
  Tình huống của bạn xảy ra thế này:
  Khi bạn chuyển Focus, sự kiện Exit sẽ thực hiện (lúc này vẫn còn Focus). Sau đó LostFocus sẽ thực hiện và đối tượng sẽ mất Focus và kích hoạt Enter/GotFocus của điều khiển khác.
  Và nếu bạn thực hiện việc SetFocus về nó thì lệnh đấy được thực hiện trước khi điều khiển sau nhận được Focus vì thế nó sẽ mất focus.
  Do đó cách làm đơn giản thôi. Hãy sử dụng lệnh SetFocus vào đối tượng sau để 2 thủ tục đó kích hoạt và bật lại SetFocus vào Textbox bạn muốn đặt Focus.
  Cái như sau thì đều được cả
  

  Mã:

  Private Sub txtDate_Exit(Cancel As Integer)
    If Not IsNull(txtDate) Then Exit Sub
    MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
    'Chuyển Focus sang đối tượng sau
    Text2.SetFocus
    ' chuyển lại focus về đối tượng của bạn
    txtDate.SetFocus
    DoCmd.CancelEvent
End Sub
'Hoặc
Private Sub txtDate_LostFocus()
    If Not IsNull(txtDate) Then Exit Sub
    MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao"
    Text2.SetFocus
    txtDate.SetFocus
    DoCmd.CancelEvent
End Sub

  Trên thực tế với vấn đề này, cần phân tích lô gic một chút bạn sẽ tự giải thích được lý do

  
  
  Theo code trên thì các button đều không sử dụng được. Ví dụ như em đang tạo phiếu bán hàng khách hàng 1 là form đang xử lý. Khách hàng 2 là form cần tạo mới nhưng bấm Button ko được ạ. Và tắt form thì cũng phải thông qua 2 lần thông báo nhắc lại của code trên mới thoát được.
  
  Mong muốn: khi dữ liệu là isnull tắt form code đó sẽ cho thông qua không cần hỏi ạ?
  Và làm sao để button chạy được thông qua ạ?

• RE: code thông báo khi không nhập dữ liệu vào textbox

  ongke0711 > 06-10-21, 03:09 PM

  (06-10-21, 12:55 PM)Ntrongnghia79 Đã viết: Theo code trên thì các button đều không sử dụng được. Ví dụ như em đang tạo phiếu bán hàng khách hàng 1 là form đang xử lý. Khách hàng 2 là form cần tạo mới nhưng bấm Button ko được ạ. Và tắt form thì cũng phải thông qua 2 lần thông báo nhắc lại của code trên mới thoát được.
  
  Mong muốn: khi dữ liệu là isnull tắt form code đó sẽ cho thông qua không cần hỏi ạ?
  Và làm sao để button chạy được thông qua ạ?

  
  Bạn mô tả rõ lại qui trình thao tác xử lý của bạn xem. 
  Form bán hàng: đang tạo phiếu bán hàng cho khách hàng 1 thì tại sao lại xử lý Khách hàng 2? và đối với khách hàng 2 thì bạn thao tác cái gì? mở Form gì khác hay như thế nào?
  Không có file, không hình ảnh thì bạn phải mô tả kỹ để người ngoài hiểu được cái Form, cái trường hợp phát sinh lỗi.

• RE: code thông báo khi không nhập dữ liệu vào textbox

  Ntrongnghia79 > 06-10-21, 04:34 PM

  (06-10-21, 03:09 PM)ongke0711 Đã viết:

  (06-10-21, 12:55 PM)Ntrongnghia79 Đã viết: Theo code trên thì các button đều không sử dụng được. Ví dụ như em đang tạo phiếu bán hàng khách hàng 1 là form đang xử lý. Khách hàng 2 là form cần tạo mới nhưng bấm Button ko được ạ. Và tắt form thì cũng phải thông qua 2 lần thông báo nhắc lại của code trên mới thoát được.
  
  Mong muốn: khi dữ liệu là isnull tắt form code đó sẽ cho thông qua không cần hỏi ạ?
  Và làm sao để button chạy được thông qua ạ?

  
  Bạn mô tả rõ lại qui trình thao tác xử lý của bạn xem. 
  Form bán hàng: đang tạo phiếu bán hàng cho khách hàng 1 thì tại sao lại xử lý Khách hàng 2? và đối với khách hàng 2 thì bạn thao tác cái gì? mở Form gì khác hay như thế nào?
  Không có file, không hình ảnh thì bạn phải mô tả kỹ để người ngoài hiểu được cái Form, cái trường hợp phát sinh lỗi.

  
  em bấm vào chèn hình nhưng không biết đưa ảnh lên bằng cách nào ạ.
  thầy kết bạn zalo em gửi ảnh được không ạ? số em 0909571133
  
  cái tạo phiếu bán hàng cho nhiều đối tượng 1 lúc em dùng: nhưng button trong form không thực hiện được vì vướng code thông báo nhập dữ liệu phía trên ạ.
  
  đây là Button của em:
  Private Sub Command45_Click()
  Call Mothem
  End Sub
  
  Option Compare Database
  Option Explicit
  
  Dim colForms As New Collection
  Dim mintForm As Integer
  
  Const ahtcOffsetHoriz = 75
  Const ahtcOffsetVert = 375
  
  Sub Mothem()
      Dim frm As Form
     
      Set frm = New Form_HoaDon
  DoCmd.GoToRecord , , acNewRec
  
      colForms.Add Item:=frm, KEY:=frm.Hwnd & ""
     
      mintForm = mintForm + 1
      frm.Caption = frm.Caption & " " & mintForm
  
      frm.SetFocus
      DoCmd.MoveSize mintForm * ahtcOffsetHoriz, _
      mintForm * ahtcOffsetVert
      frm.Visible = True
  End Sub
  
  Sub DongForm(frm As Form)
      On Error Resume Next
      colForms.Remove frm.Hwnd & ""
      On Error GoTo 0
  End Sub
  
  Sub Dongtatca()
      Dim varForm As Variant
      mintForm = 0
      For Each varForm In colForms
          colForms.Remove 1
      Next varForm
  End Sub

• RE: code thông báo khi không nhập dữ liệu vào textbox

  ongke0711 > 06-10-21, 04:55 PM

  Bạn up hình lên các trang public rồi bán BBcode vào đây. Trang: imgur, flick...
  
  Ứng dụng bạn đang viết làm bán hàng cho máy POS hay gì mà thực hiện thao tác nhập liệu (mở cùng lúc nhiều Form)? Tại không nhập liệu tuần tự, mỗi lần chỉ mở 1 Form?
  Nếu Form hiện tại đang mở ở dạng Modal thì chỉ khi đóng nó mới di chuột qua Form khác được.

• RE: code thông báo khi không nhập dữ liệu vào textbox

  Ntrongnghia79 > 07-10-21, 03:00 PM

  (06-10-21, 04:55 PM)ongke0711 Đã viết: Bạn up hình lên các trang public rồi bán BBcode vào đây. Trang: imgur, flick...
  
  Ứng dụng bạn đang viết làm bán hàng cho máy POS hay gì mà thực hiện thao tác nhập liệu (mở cùng lúc nhiều Form)? Tại không nhập liệu tuần tự, mỗi lần chỉ mở 1 Form?
  Nếu Form hiện tại đang mở ở dạng Modal thì chỉ khi đóng nó mới di chuột qua Form khác được.

  
  
  
  Dạ em thiết kế như này ạ. E thấy mọi người viết code mở nhiều form hay nên em đưa vào phần thiết kế luôn ạ.

• RE: code thông báo khi không nhập dữ liệu vào textbox

  Ntrongnghia79 > 08-10-21, 12:03 AM

  Em hiểu vấn đề rồi ạ. E đã làm được. Em cám ơn mọi người nhiều ạ!
• Bài trước Bài tiếp