Tạo ra một alert khi không có ký tự nhập vào

[duong quang]

Cho mình hỏi là khi nhâpj giá trị vào ô text box, nếu ta mặc định là : bắt buộc phải nhập một ký tự bất kỳ, ko nhập ký tự là số or ko để ký tự trắng, ko cho nhập ký tự là chữ thường chẳng hạn, thì phải làm thế nào để xuất hiện ra hộp cảnh báo Msgbox - để nhắc nhở người dùng ?

 

[hoangdanh282vn]

Cho mình hỏi là khi nhâpj giá trị vào ô text box, nếu ta mặc định là : bắt buộc phải nhập một ký tự bất kỳ, ko nhập ký tự là số or ko để ký tự trắng, ko cho nhập ký tự là chữ thường chẳng hạn, thì phải làm thế nào để xuất hiện ra hộp cảnh báo Msgbox - để nhắc nhở người dùng ?

Bạn xem VD minh họa nha

Private Sub CommandButton1_Click()
dulieu = TextBox1.Value
If Trim(dulieu) = "" Then
MsgBox "Du lieu phai khac rong !"
ElseIf IsNumeric(dulieu) Then
MsgBox "Du lieu phai khac con so !"
ElseIf dulieu <> UCase(dulieu) Then
MsgBox "Du lieu phai la chu in hoa !"
End If
TextBox1.Value = ""
End Sub

 

[duong quang]

Mình đã làm như bạn mà ko đuọc:
code của mình:

Private Sub y_Click()
dulieu = x.Value
If Trim(dulieu) = "" Then
MsgBox "Du lieu phai khac rong !"
End If
End Sub

Mình chỉ muốn tạo như sau:

 

[rollover79]

Mình đã làm như bạn mà ko đuọc:
code của mình:
Mình chỉ muốn tạo như sau:

Đây là Form của Access mà, đâu phải form của excel? Bạn phải hỏi chính xác thì mọi người mới trả lời cho bạn được chứ, nếu có thể thì bạn cũng nên gửi file lên mọi người sẽ trả lời cho bạn nhanh mà chính xác hơn. Còn trong Access thì khi bạn không nhập dữ liệu vào 1 TextBox hoặc nhập toàn dấu cách(space) thì khi đó giá trị trong TextBox không phải là giá trị kiểu chuỗi(string) mà là giá trị NULL, nên đoạn code của bạn không đáp ứng được yêu cầu của bạn là đúng rồi. Trên Form Access để kiểm tra textbox không nhập liệu người ta kiểm tra như sau:

      If IsNull(txtTest) then
           MsgBox "Du lieu nhap phai khac rong."
      End If

Còn bạn muốn kiểm tra giống như code của bạn thì phải viết thế này

      If Trim(txtTest & "") then
           MsgBox "Du lieu nhap phai khac rong."
      End If

 

[duong quang]

Bạn ui vẫn chưa chạy đựoc, mình làm theo kiểu Trim:
Mình đặt textbox trên là x
Đặt tên của nút test là y
Mình muốn Click vào nút test ( nếu chỗ text box để chống ) sẽ xuất hiện ra một msgbox " báo là phải nhập kí tự. Mình mới học VBA - chỉ có ít tài liệu sơ sài về VBA, bạn có tài liệu nào tổng quan và đầy đủ về VBA thì share cho mình với ?
Bởi mình còn muốn làm rất nhiêu ứng dụng thông qua VBA như: không cho nhập chữ,không cho nhập số, hay giới hạn số ký tự nhập vào...và xuất hiện các alert ra để nhắc nhở chẳng hạn
Thank mọi ngươì !

 

[Macrosoft]

Bạn đang làm việc với MS Access mà, đúng không!

Bạn có thể tham khảo các thuộc tính: Input Mask, Validation Rule, Validation Text. Rất đơn giản, ở chế độ thiết kế, bạn chọn Text Box, ấn F4 để hiện cửa sổ thuộc tính, tại Tab Data, chọn thuộc tính cần tham khảo rồi ấn F1. Mình nghĩ hầu hết mọi người đều đọc từ nguồn tài liệu này hết (để dành bộ nhớ vào làm việc khác).

Với tài liệu trên, mã Input Mask phù hợp là "?". Bạn muốn người dùng nhập tối đa bao nhiêu ký tự thì lập bấy nhiêu dấu "?". Ví dụ muốn người dùng nhập tối đa 6 ký tự thì mã Input Mask là: "??????" (không bao gồm dấu ngoặc kép).

Để Text Box là mục bắt buộc nhập và hiện thông điệp nhắc nhở, bạn định nghĩa cho thuộc tính Validation Rule là: Is Not Null. Để có thông điệp theo ý muốn bạn nhập vào Validation Text là: Mục nhập liệu không được rỗng!

Như vậy không có liên quan một chút gì đến VBA - Macro đúng không!

 

[rollover79]

To duong quang: Bạn xem lại code của tôi phía dưới sẽ làm được thôi.
To Macrosoft: Cái Validation chỉ dùng cho Bound Control thôi thì phải, hơn nữa viết code VBA thì còn có thể thực hiện được các thao tác phụ khác như setfocus.

 

[duong quang]

Bạn đang làm việc với MS Access mà, đúng không!

Bạn có thể tham khảo các thuộc tính: Input Mask, Validation Rule, Validation Text. Rất đơn giản, ở chế độ thiết kế, bạn chọn Text Box, ấn F4 để hiện cửa sổ thuộc tính, tại Tab Data, chọn thuộc tính cần tham khảo rồi ấn F1. Mình nghĩ hầu hết mọi người đều đọc từ nguồn tài liệu này hết (để dành bộ nhớ vào làm việc khác).

Với tài liệu trên, mã Input Mask phù hợp là "?". Bạn muốn người dùng nhập tối đa bao nhiêu ký tự thì lập bấy nhiêu dấu "?". Ví dụ muốn người dùng nhập tối đa 6 ký tự thì mã Input Mask là: "??????" (không bao gồm dấu ngoặc kép).

Để Text Box là mục bắt buộc nhập và hiện thông điệp nhắc nhở, bạn định nghĩa cho thuộc tính Validation Rule là: Is Not Null. Để có thông điệp theo ý muốn bạn nhập vào Validation Text là: Mục nhập liệu không được rỗng!

Như vậy không có liên quan một chút gì đến VBA - Macro đúng không!

Mình có bài tập liên quan đến vấn đề trên, nên muốn viết bằng lệnh VBA bạn ạ !