
14/06/2008, 03:08
|
| | Fecha de Ingreso: noviembre-2007
Mensajes: 382
Antigüedad: 17 años, 4 meses Puntos: 16 | |
Respuesta: cambiar el orden de coger datos en un for each, del ultimo al primero Al final ha sido muy sencillo (suele pasar)
He llamado a todos los campos de los formularios que se pasaban txtDato
y en lugar de un for each he puesto un for normal
el codigo quedo asi
Public Sub AltaEnBBDD(ByRef formulario As Form, tabla As String)
Dim i As Integer
Dim valores As String
For i = 0 To formulario.txtDato.Count - 1
If Trim(formulario.txtDato(i).Tag) = "codcli_pag" Then
valores = valores & formulario.txtDato(i).Text & ", "
Else
valores = valores & "'" & formulario.txtDato(i).Text & "', "
End If
Next i
valores = Left(valores, Len(valores) - 2)
frmNavegador.dbGestion.Execute "Insert Into " & tabla & " values (" & valores & ")" |