Vaciar textbox y checkbox
Hola, tengo un modulo que me permite vaciar solo texto pero ahora tengo vaciar textbox y checkbox al tiempo como lo hago por medio de un modulo o como lo podría el modulo que estoy utilizando para vaciartexto es el siguiente:
Public Function VaciarTextBox(frmx As Form)
Dim ctrl As Integer
For ctrl = 0 To (frmx.Controls.Count - 1)
Set controlsel = frmx.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
Next ctrl
End Function
Public Function VaciarTextBox(frmx As Form)
Dim ctrl As Integer
For ctrl = 0 To (frmx.Controls.Count - 1)
Set controlsel = frmx.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
Next ctrl
End Function
Respuesta de alexanderk
1
luego del primer if agrega esto
If TypeOf controlsel Is CheckBox Then
controlsel.Value = 0
End If
Y ya te limpiara checkbox la propiedad value a 0 es desactivado y a 1 es activado...
If TypeOf controlsel Is CheckBox Then
controlsel.Value = 0
End If
Y ya te limpiara checkbox la propiedad value a 0 es desactivado y a 1 es activado...
2 respuestas más de otros expertos
Respuesta de intman
1
Lo mismo que has hecho para el textbox lo haces para el checkbox:
If TypeOf controlsel Is CheckBox Then
controlsel.Value = vbunchecked
End If
If TypeOf controlsel Is CheckBox Then
controlsel.Value = vbunchecked
End If
Respuesta de giorgiog
1
Public Function VaciarTextBox(frmx As Form)
Dim ctrl As Integer
For ctrl = 0 To (frmx.Controls.Count - 1)
Set controlsel = frmx.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
If typeof controlsel is checkbox then
controlsel.value = false
End If
Next ctrl
End Function
Suerte,
Giorgio
Dim ctrl As Integer
For ctrl = 0 To (frmx.Controls.Count - 1)
Set controlsel = frmx.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
If typeof controlsel is checkbox then
controlsel.value = false
End If
Next ctrl
End Function
Suerte,
Giorgio