Escribir en una BS access (error 91)

[swaze]

Hola foreros, y ante todo gracias por leer mi mensaje. Ire directamente al grano para no perder tiempo.

Estoy diseñando una aplicación que introduce datos en una BD de access (no es 97), para ello uso un data el cual relaciono con la BD mediante código al iniciar la aplicación, para así ahorrarme problemas de rutas.

El problema viene cuando intento introducir datos en la BD. El codigo que uso es el siguiente:

Código:

Private Sub cmañadir_Click()
Data1.RecordSource = "Select * from reparaciones"
        With Data1.Recordset
        .AddNew
            !Fecha = txtfecha.Text
            !Nombre = txtnombre.Text
            !Kms = txtkms.Text
            !Matricula = txtmatricula.Text
            !Modelo = txtmodelo.Text
            !Reparaciones = txtreparaciones.Text
            !Importe = txtimporte.Text
            .Update
       End With
End Sub

Al probarlo me salta un error 91: Variable de tipo Object o la variable de bloque with no esta establecida.

Y la verdad no se como solucionarlo ya que es la primera vez que realizo una BD en visual basic y por mucho que he buscado por Internet no he encontrado un ejemplo claro y sencillo por lo que me encuentro perdido ahora mismo.

Desde ya mil gracias por vuestra ayuda y un abrazo muy fuerte

[luciano]

Hola, probá haciendo un refresh antes de ejecutar el AddNew

Código:

Data1.RecordSource = "Select * from reparaciones"
        
        Data1.Refresh
        
        With Data1.Recordset
        
        .AddNew
            !Fecha = txtfecha.Text
            !Nombre = txtnombre.Text
            !Kms = txtkms.Text
            !Matricula = txtmatricula.Text
            !Modelo = txtmodelo.Text
            !Reparaciones = txtreparaciones.Text
            !Importe = txtimporte.Text
            .Update
       End With

-------------

[swaze]

Gracias por tu respuesta Luciano, lo he probado pero por desgracia me hace una cosa muy extraña, me blanquea al completo el formulario, introduciéndome en la BD un registro nuevo totalmente en blanco.

Por suerte he encontrado la forma de hacerlo mediante un ADO y con el si me funciona a las mil maravillas.

Ahora el problema me ha surgido en otra conexión distinta, y es un problema bastante mas extraño para mi.

Tengo creado otro formulario, que se encargara de hacer una búsqueda en la BD mediante una conexión ADO, esta búsqueda puede ser por nombre, matricula o fecha, y debería mostrar todos los resultados en una lista ordenados por fecha.

hasta ahora he escrito el siguiente código:

Código:

Private Sub cmBusc_Click()

If bucom.ListIndex = 2 Then
    tip = "Nombre"
Else
    If bucom.ListIndex = 0 Then
        tip = "fecha"
    Else
        If bucom.ListIndex = 1 Then
            tip = "Matricula"
        End If
    End If
End If

Adoreparaciones.RecordSource = "Select * from reparaciones where " & tip & " = " & txtbusqueda.Text
        Adoreparaciones.Refresh
        With Adoreparaciones.Recordset
            'si no encontro, lanza el mensaje
            If .RecordCount = 0 Then
                MsgBox "No se encuentran resultados para esta busqueda.", vbInformation, "informacion"
                Exit Sub
            Else
            'Si encontro, muestra la fecha en una lista
                listresul.Text = listresul.Text & !fecha
            End If
        End With
End Sub

El problema es que me da el siguiente error:"no se han especificado valores para alguno de los parámetros requeridos"

Error en el método "refresh" del objeto "IAdodc"

no tengo ni idea de como solucionarlo, y si quito el refresh me salta con que la variable de tipo object o la variable del bloque with no esta establecida.

Agradezco tu ayuda y cualquiera que pueda sacarme de este embrollo Xd

mil gracias

[actaent16]

Adoreparaciones.RecordSource = "Select * from reparaciones where " & tip & " = '" & txtbusqueda.Text & "'"

BUENO amigo faltaban solo las comillas simples, espero funcione...

[seba123neo]

el post tiene 2 años no creo que este esperando la respuesta todavia...