Problema al insertar registros con cantidades numéricas
Publicado por Toni (14 intervenciones) el 02/04/2019 18:00:35
Hola de nuevo,
He creado una consulta para insertar un registro en una tabla, pero no me funciona. Ejecuta todas las líneas sin dar error, pero no inserta el registro en la tabla.
Creo que puede ser debido al valor de los campos 'Banc', 'Efectiu' o 'NumRebut', que están configurados como Número Simple los dos primeros, y Entero el tercero.
Si en el formulario se ha escogido pagar por Banco, los campos Efectivo y Num.Recibo deben quedar vacíos.
Si se ha escogido pagar en efectivo, el campo Banco debe quedar vacío.
Agradeceré cualquier ayuda. Gracias
He creado una consulta para insertar un registro en una tabla, pero no me funciona. Ejecuta todas las líneas sin dar error, pero no inserta el registro en la tabla.
Creo que puede ser debido al valor de los campos 'Banc', 'Efectiu' o 'NumRebut', que están configurados como Número Simple los dos primeros, y Entero el tercero.
Si en el formulario se ha escogido pagar por Banco, los campos Efectivo y Num.Recibo deben quedar vacíos.
Si se ha escogido pagar en efectivo, el campo Banco debe quedar vacío.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sSQL = "INSERT INTO PAGAMENTS (IdUser, IdExercici, Data, " & _
"Banc, Efectiu, NumRebut) VALUES (" & _
iUser & ", " & _
iExercici & ", " & _
"#" & Format(Me.Data, "mm/dd/yyyy") & "#, "
If Me.MarcTipusPagament = 1 Then
'Banc
sSQL = sSQL & _
Chr(34) & Me.Quantitat & Chr(34) & ", " & _
Chr(34) & Chr(34) & ", " & _
Chr(34) & Chr(34) & ")"
Else
'Efectiu
sSQL = sSQL & _
Chr(34) & Chr(34) & _
", " & Chr(34) & Me.Quantitat & Chr(34) & ", " & _
Chr(34) & Me.NumRebut & Chr(34) & ")"
End If
DoCmd.RunSQL (sSQL)
Agradeceré cualquier ayuda. Gracias
Valora esta pregunta
0
