VBA it’s hard

Best Microsoft Access Programmer Portland OR

ingles

Hi I have a problem and I don’t know if you could help me here I have the following code to save but I get an error in CurrentDb.Execute “INSERT INTO”

español

hola tengo un problema y no se si aqui podrian ayudarme tengo el siguiente codigo para guardar pero me sale un error en CurrentDb.Execute “INSERT INTO”

Private Sub Guardar_Click()

Dim wshNetwork As Object ‘New wshNetwork

Set wshNetwork = CreateObject(“WScript.Network“)

Me.Usuario = UCase(wshNetwork.UserName) ‘CurrentUser

Set wshNetwork = Nothing

If DCount(“*”, “Registro_Convenios”) = 0 Then

MsgBox “No puedes guardar sin agregar nada”, vbInformation, “Aviso”

Else

CurrentDb.Execute “INSERT INTO [Registro_Convenios](Fecha,N_Proveedor,Proveedor,Factura/oc,Fecha_de_Emision,Fecha_de_la_Tasa,Monto_Bs,TC,US,Pagado,Usuario)SELECT” _

& “Fecha,N_Proveedor,Proveedor,Factura/oc,Fecha_de_Emision,Fecha_de_la_Tasa,Monto_Bs,TC,US,Pagado,Usuario FROM [Registro_Convenios]”, dbFailOnError

MsgBox “Registro Realizado” & vbLf & vbLf & “Aceptar para imprimir”, vbInformation, “Aviso”

CurrentDb.Execute “DELETE * FROM Registro_Convenios”

Me.Subformulario_Registro_Convenios.Requery

Me.txtTotalUS.Requery

End If

End Sub

submitted by /u/Choice_Tip_5626
[link] [comments]

Microsoft Acess Developer Portland OR