darkmoon > 31-12-11, 03:44 PM
Noname > 31-12-11, 04:24 PM
Sub ClearTextbox() ' xoa trang textbox
Dim ctl As Control
For Each ctl In Detail.Controls ' or FormHeader.Controls, FormFooter.Controls
If TypeOf ctl Is TextBox Then
ctl.value=""
Next
End Subhaquocquan > 31-12-11, 04:33 PM
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Value = ""
End If
Next ctrldarkmoon > 31-12-11, 04:54 PM