Tengo este evento el cual quisiera aplicarlo en varios eventos de varios formularios
Sub Limpia(nameform As String) 'para TextBox y ComboBox en formulario
'Dim Ctrl As Object
''Aqui la rutina para Ejecucion
'For Each Ctrl In nameform 'Entrada.Controls
'If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty
'If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty
'Next Ctrl
'MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa"
End Sub[/CODE]
Tal como esta no funciona, funciona si si le quito nameform As String y nameform y le dejo Entrada.Controls (Entrada es nombre de uno de los formularios)
Para ello tendria que repetir el mismo codigo con solo cambiarle el nombre de cada formulario lo que aumentaria no solo la cantidad de codigo en cada form, si no que tambien el peso y otros
Lo que pretendo es que este codigo me sirva para tenerlo en un Modulo y con un Call Limpia en cada evento de cada formulario este funcione
Tengo este evento el cual quisiera aplicarlo en varios eventos de varios formularios
Tal como esta no funciona, funciona si si le quito nameform As String y nameform y le dejo Entrada.Controls (Entrada es nombre de uno de los formularios)
Para ello tendria que repetir el mismo codigo con solo cambiarle el nombre de cada formulario lo que aumentaria no solo la cantidad de codigo en cada form, si no que tambien el peso y otros
Lo que pretendo es que este codigo me sirva para tenerlo en un Modulo y con un Call Limpia en cada evento de cada formulario este funcione
Limpiesa.rar