Hola de antemano gracias por la ayuda, necesito saber cómo puedo hacer para pasar un textbox a una función yo lo hago de la siguiente manera
Private Sub Command1_Click()
'Nombre del textbox del formulario es textBoxAlterno
validarControl (textBoxAlterno)
End Sub
Private Sub validarControl(txt As TextBox)
If TypeOf control Is TextBox Then
txt.Text = ""
End If
End Sub
¿Qué problema te genera ese código?
Gracias por el apoyo, encontré el error el cual era al momento del llamado en 6.0 al parecer cuando se envía un control como parámetro se debe enviar sin parétesis, por lo cual el código quedaría de la siguiente manera:
Private Sub Command1_Click()
'Nombre del textbox del formulario es textBoxAlterno
validarControl textBoxAlterno
End Sub
Private Sub validarControl(txt As TextBox)
If TypeOf control Is TextBox Then
txt.Text = ""
End If
End Sub
no utilices procedimientos sub, utiliza la función propiamente.
Function pepe (x as tipo de datos)
pepe=x + "..."
End Function
...
y=pepe(z)
...
Cita de: PalitroqueZ en 2 Septiembre 2017, 18:26 PM
no utilices procedimientos sub, utiliza la función propiamente.
Function pepe (x as tipo de datos)
pepe=x + "..."
End Function
...
y=pepe(z)
...
Un Sub se utiliza cuando no va a haber retorno. Es mejor utilizar Sub en estos casos, es para lo que sirve.
Function o sub, no importa, aunque
ivancea96, te dice lo correcto...
El problema en tu código es que recibes peras y preguntas que si coco es fruta, luego dame 5 peras ...
CitarPrivate Sub validarControl(txt As TextBox)
If TypeOf control Is TextBox Then
txt.Text = ""
End If
End Sub
txt = Peras; control = Coco
Si son peras, peras, si son cocos, cocos... no mezcles.
If Typeof(txt) is textbox then
'... lo que sea que quieras hacer
end if