Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/06/2008, 11:13
manzarinaa
 
Fecha de Ingreso: noviembre-2007
Mensajes: 382
Antigüedad: 16 años, 6 meses
Puntos: 16
Busqueda [[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