Tùy chọn
CÁCH VIẾT CODE
- CÁCH VIẾT CODE
-
CÁCH VIẾT CODE
anhtuan > 12-08-19, 11:17 PM
Em chào anh, chị, em trong group,
Em là dân newbie ạ
Các pro cho em hỏi là trong form em có text1, và 2 button: command1, command2
Em để sự kiện on click là
if isnull(me.text1) = true then
msgbox"nhap du lieu vao text1"
end if
Vậy các pro cho em hỏi làm sao để gán text1 = isnull vào sự kiện onclick cho command2 ạ
em đã thử me.text1 = nothing và me.text1 = ""
sau đó ấn button command 2 rồi command 1
Nhưng không hiện ra hộp thoại thông báo
Mong các pro hướng dẫn em viết code, em xin cảm ơn ạ -
RE: CÁCH VIẾT CODE
ongke0711 > 12-08-19, 11:40 PM
- Me.text1="" -> nó không phải có giá trị "Null" mà là "Empty string" - Chuỗi rỗng.
- Textbox nó có thể có 3 trạng thái: Không có trị (Null), chuỗi rỗng và có trị. Chuỗi rỗng là khi bạn bấm phím Backspace để xoá chuỗi ký tự trong textbox hoặc khi gán textbox ="".
- Khi muốn giải phóng biến thì mới dùng "Nothing" cho biến đối tượng, còn cho biến chuỗi bình thường thì dùng "vbNullString" hoặc "Empty".
strText = Empty --> strText là biến
strText = vbNullString
Set objRecordset = Nothing --> objRecordset là biến đối tượng
Thường khi xét textbox có rỗng hay không có trị thì phải dùng kết hợp hàm mới chính xác.
Vd: If Len(Nz(Me.text1,"") = 0 Then ....
Nếu muốn gán trị rỗng cho textbox thì dùng:
Me.text1=Null
Me.text1="" -
RE: CÁCH VIẾT CODE
tranthanhan1962 > 13-08-19, 07:32 PM
Không thấy ký tự trên txtbox có ba dạng:
1/ IsNull: (Là Null) là giá trị KHÔNG TỒN TẠI, các Software writers thường gọi Giá trị chưa khởi tạo.
2/ IsEmpty (= Empty) là TỒN TẠI CÁI KHÔNG CÓ GÌ, thường gọi Giá trị đã bị xóa.
3/ Tồn tại giá trị khoảng trắng (1 hoặc nhiều khoảng trắng)
Vì vậy cần dùng hàm Trim để xóa các khoảng trắng rồi mới sử dụng phương pháp của ongke0711 -
RE: CÁCH VIẾT CODE
Cuong Servenet > 16-08-19, 08:25 AM
bạn thử cách nay xem dung y ban hoi khong
Private Sub Button1_Click()
If Nz(Me.text1, "") = "" Then
MsgBox "nhap du lieu vao text1"
end if
End Sub
Private Sub Button2_Click()
Me.tex1 = Null
If Nz(Me.text1, "") = "" Then
MsgBox "nhap du lieu vao text1"
end if
End Sub