Error de fecha a BD Access
Publicado por Víctor (12 intervenciones) el 09/08/2007 23:13:21
Hola
Necesito una ayuda.
Tengo una base de datos creada en access, y desde un Form en vb 6.0 tengo que almacenar una serie de datos que tengo en distintos textbox a los campos de esa BD, pero me da un error en el textbox donde ingreso la fecha, que eatre haciendo mal. este es parte del código:
Private Sub CmdGuardar_Click()
TablaLuz.Index = ("indice")
TablaLuz.Seek "=", txCodigo
If Not TablaLuz.NoMatch Then
MsgBox "Ya existe un registro con este Codigo", vbInformation, "Guardar"
Exit Sub
Else
TablaLuz.AddNew
TablaLuz("CLIENTE") = txCliente
TablaLuz("MEDIDOR") = txMedidor
TablaLuz("PROPIETARIO") = txPropietario
TablaLuz("RUT") = txRut
TablaLuz("DIRECCION") = txDireccion
TablaLuz("NUMERO") = txNumero
TablaLuz("LOTEO") = txLoteo
________________________________________
TablaLuz("ENTREGA") = txEntrega 'Este es el Textbox que me da el problema
____________________________________________________
TablaLuz("CONSUMO") = txConsumo
TablaLuz.Update
End If
txCliente.Text = ""
txMedidor.Text = ""
txPropietario.Text = ""
txRut.Text = ""
txDireccion.Text = ""
txNumero.Text = ""
txLoteo.Text = ""
txEntrega.Text = ""
txConsumo.Text = ""
txCliente.SetFocus
End Sub
Muchas gracias
Necesito una ayuda.
Tengo una base de datos creada en access, y desde un Form en vb 6.0 tengo que almacenar una serie de datos que tengo en distintos textbox a los campos de esa BD, pero me da un error en el textbox donde ingreso la fecha, que eatre haciendo mal. este es parte del código:
Private Sub CmdGuardar_Click()
TablaLuz.Index = ("indice")
TablaLuz.Seek "=", txCodigo
If Not TablaLuz.NoMatch Then
MsgBox "Ya existe un registro con este Codigo", vbInformation, "Guardar"
Exit Sub
Else
TablaLuz.AddNew
TablaLuz("CLIENTE") = txCliente
TablaLuz("MEDIDOR") = txMedidor
TablaLuz("PROPIETARIO") = txPropietario
TablaLuz("RUT") = txRut
TablaLuz("DIRECCION") = txDireccion
TablaLuz("NUMERO") = txNumero
TablaLuz("LOTEO") = txLoteo
________________________________________
TablaLuz("ENTREGA") = txEntrega 'Este es el Textbox que me da el problema
____________________________________________________
TablaLuz("CONSUMO") = txConsumo
TablaLuz.Update
End If
txCliente.Text = ""
txMedidor.Text = ""
txPropietario.Text = ""
txRut.Text = ""
txDireccion.Text = ""
txNumero.Text = ""
txLoteo.Text = ""
txEntrega.Text = ""
txConsumo.Text = ""
txCliente.SetFocus
End Sub
Muchas gracias
Valora esta pregunta


0