Error 3464' en tiempo de ejecucion (Visual basic 6.0) Hola. soy nuevo en esto de programar en visual basic 6.0 y espero m puedan ayudar.
de antemano gracias
Quiero guardar los registros de un formulario en una base de datos hecha con access 2003.
Mi problema es::
estando vacia la tabla de access donde voy a guardar los registros. me guarda perfectamente el primer registro.
pero al querer guardar el 2do me aparece el error "Error 3464 en tiempo de ejecucion. No coinciden los tipos de datos en la expresion de criterios"
si borro directamente de la tabla de access el primer registro q guardo e intento guardar otro, me lo guarda perfectamente.
En conclusion solo me guarda el primer registro.
les dejo mi codigo para q lo vean y si pueden m ayuden porfavor
Private Sub cmdGuardar_Click()
'Busca en la tabla Folio para calcular el consecutivo
gsSQL = " SELECT * " & _
" FROM Folio"
Set goRS = goBD.OpenRecordset(gsSQL, dbOpenDynaset)
If Not goRS.EOF Then 'Si la consulta no devolvió resultados
giFolio = goRS("Folio") + 1 'Incrementa el Folio
goRS.Edit
goRS("Folio") = giFolio
goRS.Update
End If
'Registrar la venta en la tabla Ordenservicio
gsSQL = " SELECT * " & _
" FROM OrdenServicio " & _
" WHERE Folio = " & giFolio
Set goRS = goBD.OpenRecordset(gsSQL, dbOpenDynaset)
If goRS.EOF Then 'Si la consulta no devolvió resultados
goRS.AddNew
'Asigna valores a los campos
goRS("Folio") = giFolio
goRS("Fecha") = Date
goRS("Hora") = Time
goRS("NoCliente") = txtNuevaOrden(0)
goRS("Cliente") = txtNuevaOrden(1)
goRS("Direccion") = txtNuevaOrden(2)
goRS("Telefono") = txtNuevaOrden(3)
goRS("Correo") = txtNuevaOrden(4)
goRS("Descripcion") = cmbDescripcion
goRS("NoSerie") = txtNuevaOrden(5)
goRS("Modelo") = txtNuevaOrden(6)
goRS("Marca") = txtNuevaOrden(7)
goRS("Falla") = txtNuevaOrden(8)
goRS.Update
Call Limpiar_Campos
Dim Boton
Boton = MsgBox("Registro Guardado Satisfactoriamente", vbInformation, "sisMRC - Registro Exitoso")
End If
End Sub
Espero m puedan ayudar
gracias.......
