
06/06/2008, 11:13
|
| | Fecha de Ingreso: noviembre-2007
Mensajes: 382
Antigüedad: 17 años, 5 meses Puntos: 16 | |
[[Solucionado]]pasar un formulario y sus controles a un procedimiento Hola a todo el mundo!
hace un rato escribi este problema pero con una función
tengo este código
Call AltaEnBBDD(frmClientes, clientes)
aqui me da el error, me dice:
el tipo de argumento de byRef no coincide
la funcion es esta (algun error tendra, que aun no la he podido probar, asi que no la mireis) :P
Public Sub AltaEnBBDD(ByVal formulario As Form, ByVal tabla As String)
Dim sentencia As String
Dim crtlControl As Control
sentencia = "Insert into " & tabla & " values('"
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
sentencia = sentencia & crtlControl.Text & "', '"
'COMO CNTROLO LOS NUMEROS Y LAS LETRAS???????
End If
Next crtlControl
sentencia = Right(sentencia, 2)
sentencia = sentencia & "')"
MsgBox sentencia
Última edición por manzarinaa; 09/06/2008 a las 12:20
Razón: solucionado
|