cvera
30 de Diciembre del 2004

hola a todos una consulta tengo un erros al ingresar la fecha parece que no esta bien in gresada por que el error que arroja es que los tipos de datos no coinciden hechelen una miradita al codigo plis.....

Dim SQL_GRABA As String
Dim resp As Integer
Dim C As String
existe = False
resp = MsgBox(" Desea Grabar los datos ?", vbQuestion + vbYesNo, "mantenedor")
'If txtcod_producto <> "" And txtnom_producto <> "" And txtempresa <> "" And txtstock <> "" And txtcategoria <> "" And txtcontenido <> "" And txtpresentacion <> "" And txtvalor <> "" Then
If resp = vbYes Then
SQL_GRABA = "INSERT INTO ACTAS_REUNIONES (N_ACTA,FECHA_AC,ESTADO_AC,RESUMEN_AC,ACUERDO_AC)"
SQL_GRABA = SQL_GRABA + " VALUES (" + TXT_N_AC + ","
SQL_GRABA = SQL_GRABA + "#" + DT_AC + "#,'" + CMB_ESTADO_AC + "','" + TXT_RESUMEN_AC + "','" + TXT_ACUERDO_AC + "');"
cn.Execute (SQL_GRABA)
MsgBox "DATOS GRABADOS ", vbInformation, "INFORMACION"
TXT_N_AC.Locked = False
'cmdingresar.Enabled = False
'cmdlimpiar.Enabled = True

Else
MsgBox "Accion Cancelada", vbInformation
End If
'Else
'MsgBox "DEBE LLENAR TODOS LOS DATOS DEL FORMULARIO", vbCritical, "ERROR"
'txtcod_producto.SetFocus
'End If

solidsnake
30 de Diciembre del 2004

tienes qeu utilizar

dt_ac.value

krizall
30 de Diciembre del 2004

hola, lo que dice solidsnake es correcto

pero si no quieres tener problemas a la hora de instalarlo en otra maquina con diferente configuracion pues creo que deberias ponerlo de esta forma

format(db_ac,"dd/mm/yyyy")

bueno, eso seria de acuerdo al formato en que lo maneja tu base de datos

espero te sirva.

cvera
30 de Diciembre del 2004

gracias voy a provarlo