Ayuda con una funcion

[vicentecamesella]

Desea crear una funcion para un insert into lo logre manejando los indices de los text lo que quiero es hacer que no sea por los indices si no por el nombre del control ejemplo si el campo se llama nombre el control en el formulario seria TXTNOMBRE pero no quiero hacerlo uno por uno me gustaria hacerlo con un bucle algo asi como

CAMPO = "O" & campo

seria como decirle que el campo1 de la base de datos deberia ser el control que posea el mismo nombre pero con una o por delante espero alguien me pueda ayudar

[seba123neo]

Hola, lo que se me ocurre es que crees una funcion a la cual le pases como parametro los textbox y despues para armar la cadena SQL con .Name sacas el nombre del control que le pasaste como parametro...algo asi:

Código vb:

Private Sub Command1_Click()
    Call Funcion(Text1)
End Sub
 
Private Sub Funcion(ByVal pControl As TextBox)
    MsgBox pControl.Name
End Sub
 

saludos.

[vicentecamesella]

Gracias funcionaria si solo utilizo textbox la cosa es que utilizo otros controles ejemplo combobox entre otros pero gracias

[David]

Para que funcione con varios controles sólo cambia el parámetro por As Control en lugar de As TextBox

[vicentecamesella]

Ok aver si me explico mejor

esto es lo que tengo en un modulo

Sub insertar(tabla As String, Campos As String, VALORES As String)

cn.Execute " INSERT INTO `" & tabla & "` (" & Campos & ") VALUES " & _
"(" & VALORES & ")"

End Sub

en el formulario hago esto

'Le asigno los campos a trabajar
For i = 0 To rc.Fields.Count - 1 'Cambiar valor hasta
If i < rc.Fields.Count - 1 Then 'Opcion segun campo
Campos = Campos & rc.Fields(i).Name & "," 'Diferente al ultimo campo
Else 'En caso contrario
Campos = Campos & rc.Fields(i).Name 'Ultimo campo
End If 'cierro condiciones
Next 'siguiente bloque

'Le asigno los valores para el insert into
For i = 0 To rc.Fields.Count - 1 'Cambiar valor hasta
If i < rc.Fields.Count - 1 Then 'Cambiar valor hasta
VALORES = VALORES & "'" & Text1(i) & "'," 'Diferente Ultimo campo
Else 'En caso contrario
VALORES = VALORES & "'" & Text1(i) & "'" 'Ultimo campo
End If 'cierro condiciones
Next 'Siguiente Bloque

en el boton de grabar llamo call insertar ("tabla",campos,valores)

Lo hace excelente lo que quiero es poder manejar otros controles que no sean solo texta seria identificandolo con el nombre del campo en la base de datos alguien me echa una mano please y gracias de antemano

[seba123neo]

es exactamente como te dijo David...al declarar As Control podes trabajar con cualquier control...

saludos.