
Poco Parametros. Se esperaba 1
Publicado por andres (42 intervenciones) el 20/03/2023 16:20:36
Buenas alguien podrá decirme donde tengo el erro que no logro encontrarlo!.
Ya revise todos los campos una y otra ves pero no logro dar con el error.
Private Sub Agreg_Nuev_Click()
If MsgBox("¿DESEA INGRESAR EL NUEVO AYUDANTE?", vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then
Me.Ayud_ApellyNomb.SetFocus
Exit Sub
Else
strSQL = "INSERT INTO [T_Entre_Ayud] (Ayud_ApellyNomb,Ayud_Tip_Doc,Ayud_dni,Ayud_Gener,Ayud_FecNac,Ayud_Edad,Ayud_Local,Ayud_Dom,Ayud_Dom_mas,Ayud_Telef_mov,Ayud_Telef_1,Ayud_Mail) Values ('" & Me.Ayud_ApellyNomb & "','" & Me.Ayud_Tip_Doc & "'," & Me.Ayud_dni & ",'" & Me.Ayud_Gener & "','" & Me.Ayud_FecNac & "'," & Me.Ayud_Edad & ",'" & Me.Ayud_Local & "','" & Me.Ayud_Dom & "','" & Me.Ayud_Dom_mas & "'," & Me.Ayud_Telef_mov & ",'" & Me.Ayud_Telef_1 & "','" & Me.Ayud_Mail & "');"
CurrentDb.Execute strSQL
MsgBox ("SE HA AGREGADO UN NUEVO AYUDANTE")
End If
End Sub



Ya revise todos los campos una y otra ves pero no logro dar con el error.
Private Sub Agreg_Nuev_Click()
If MsgBox("¿DESEA INGRESAR EL NUEVO AYUDANTE?", vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then
Me.Ayud_ApellyNomb.SetFocus
Exit Sub
Else
strSQL = "INSERT INTO [T_Entre_Ayud] (Ayud_ApellyNomb,Ayud_Tip_Doc,Ayud_dni,Ayud_Gener,Ayud_FecNac,Ayud_Edad,Ayud_Local,Ayud_Dom,Ayud_Dom_mas,Ayud_Telef_mov,Ayud_Telef_1,Ayud_Mail) Values ('" & Me.Ayud_ApellyNomb & "','" & Me.Ayud_Tip_Doc & "'," & Me.Ayud_dni & ",'" & Me.Ayud_Gener & "','" & Me.Ayud_FecNac & "'," & Me.Ayud_Edad & ",'" & Me.Ayud_Local & "','" & Me.Ayud_Dom & "','" & Me.Ayud_Dom_mas & "'," & Me.Ayud_Telef_mov & ",'" & Me.Ayud_Telef_1 & "','" & Me.Ayud_Mail & "');"
CurrentDb.Execute strSQL
MsgBox ("SE HA AGREGADO UN NUEVO AYUDANTE")
End If
End Sub



Valora esta pregunta


0