error update
Publicado por juan de jesus (1 intervención) el 09/10/2019 20:47:53
tengo el sigueinte codigo deseo actualizar pero me sale un error pocos parametros
Dim sql As String
Dim sql As String
1
2
3
4
5
6
7
8
9
10
11
12
13
sql = "UPDATE 12deoctubre SET Expediente =" & Me.txtExpediente & ", popular='" & Me.txtpopular & "', inicio= '" _
& Me.inicio & "',fin='" & Me.fin & "' ,curp='" & Me.Curp & "',sexo='" & Me.Sexo & "',estadocivil='" _
& Me.estadocivil & "',parentesco='" & Me.Parentesco & "', nombre='" & Me.NOMBRE & "',nacimiento='" _
& Me.Nacimiento & "',edad=" & Me.edad & ",consul1='" & Me.txtconsul1 & "',consul2='" _
& Me.txtconsul2 & "',consul3='" & Me.txtconsul3 & "',consul4='" & Me.txtconsul4 & "',consul5='" _
& Me.txtconsul5 & "',consul6='" & Me.txtconsul6 & "',consul7='" & Me.txtconsul7 & "',consul8='" _
& Me.txtconsul8 & "',padecimiento='" & Me.txtstatus & "',colonia='" & Me.colonia & "', codigopostal='" _
& Me.cp & "' , municipio='" & Me.municipio & "',referenciauno='" & Me.refuno & "',referenciados='" _
& Me.refdos & "',observacion='" & Me.Observacion & "',Domicilo='" _
& Me.Domicilio & "',telcasa='" & Me.telcasa & "',movil='" & Me.movil & "',nota='" _
& Me.notas & "' WHERE Expediente = " & Val(Me.Expediente)
CurrentDb.Execute (sql)
Valora esta pregunta
0