Giúp em về vấn đề reset value của textbox và check box! (1 người xem)

[hitoko]

Như tit ,.... Form của e hiện có khá nhiều Textbox ... checkbox và combobox ....
Loay hoay kiếm mãi mà ko bít có lệnh nào đơn giản hơn là đánh chay như vậy ko ạ :
vd:
checkbox1 = "False"
checkbox2 = "False"
Textbox1 = ""
Textbox2 = ""
.......
Mong các bác khai sáng!!!E tìm đủ chỗ mà key tìm mãi ko ra!

 

[VetMini]

Như tit ,.... Form của e hiện có khá nhiều Textbox ... checkbox và combobox ....
Loay hoay kiếm mãi mà ko bít có lệnh nào đơn giản hơn là đánh chay như vậy ko ạ :
vd:
checkbox1 = "False"
checkbox2 = "False"
Textbox1 = ""
Textbox2 = ""
.......
Mong các bác khai sáng!!!E tìm đủ chỗ mà key tìm mãi ko ra!

Chỉ 2 loại control chekbox và textbox thôi hay tất cả (luôn cả combobox)?
Hỏi bài mà cũng không chịu khó trình bày cho cặn kẽ

(như tit là cái gì? tiếng Anh từ 'tit' có nghĩa khong nhã nhặn)

 

[hitoko]

hehe .... Em nghĩ có lẻ là chỉ cần textbox và check box thui .... combo box chắc vẫn phải thủ công vì để cố định ... đỡ phải chọn
Mong bác giúp ... có j sai sót nhai nhót bác bỏ qua!

 

[VetMini]

for each ctrl in me.controls
if ctrl.name like "checkBox*" or ctrl.name like "Textbox*" then ctrl.value = ctrl.defaultvalue
next ctrl

Tôi khong có kiên nhẫn như các bạn khác ở đây đâu. Bạn hỏi mà hà tiện lời thì cũng nhận được câu trả lời đơn giản. Nếu cần thêm gì nữa thì chịu khó đợi ngừoi khác trả lời.

 

[hitoko]

hi hi lam mai cung ra roi ... thank cac ban!
Dim oneControl As Object

For Each oneControl In UserForm1.Controls
Select Case TypeName(oneControl)
Case "TextBox"
oneControl.Text = vbNullString
Case "CheckBox"
oneControl.Value = False
End Select
Next oneControl