Me funciona todo .. bien .. conecta me guarda todo pero cuando quiero poner un DTP .
me da error en esta syntaxis no se porke ya he puesto tambien "dtpFecha.Value + "','" & _"
sin value . y nada sigue el mismo error pongo un txtbox . y coloca las fechas manuales y funciona
ya no se que hacer alguien que me ayude..
dim sGrabar as string
dim fecha as date
fecha = Format(Me.dtpFecha.Value, "Short Date")
sGrabar = "INSERT INTO Empleados(" & _
"Nombres,Apellidos,Direccion_hab," & _
"Telefono_hab,Telefono_cel," & _
"iddepartamento,Fecha_nacimiento," & _
"idcargo,idestatus,sueldo,idsexo,idestadocivil) " & _
" VALUES ('" & _
Me.txtNombres + "','" & _
Me.txtApellidos + "','" & _
Me.txtDireccionhab + "','" & _
Me.txtTelefonohab + "','" & _
Me.txtTelefonocel + "','" & _
Me.cmbDepartamento + "','" & _
fecha + "','" & _
Me.cmbCargo + "','" & _
Me.cmbEstatus + "','" & _
Me.txtSueldo + "','" & _
Me.cmbSexo + "','" & _
Me.cmbEstadocivil + "')"
Set trs = conex.Execute(sGrabar)
MsgBox "El Cliente Ah Sido Agregado", vbInformation, "Informacion"
Saludos y gracias de antemano .. ya recorri un poco el foro y no encuentro solucion a mi podrema
ya googlie un rato y tampoco por google fue que llegue aqui tambien .. !
Mostrar Mensajes
