ERROR DE COMPILACIÓN
Publicado por cristina (7 intervenciones) el 03/10/2005 13:25:35
Buenos días, necesito ayuda urgentemente. Tengo un programa en el que realizo una busqueda de datos, en el lost focus de una caja de texto. cuando lo ejecuto me da error,
el error exactamente dice: ERROR DE COMPILACIÓN: NO SE ENCONTRO EL METODO O EL DATO MIEMBRO.
No se cual es el problema si alguien me puede ayudar. El error me salta a la hora de depurar a la línea: regfactura.FindFirst criteriofra.
Todo el código es el siguiente:
Private Sub txtnumfra_LostFocus()
Set db = DBEngine.Workspaces(0).OpenDatabase("\\Server\Documentos\Mis documentos\Reparaciones\nuevas reparaciones\nueva.mdb")
Set tbfactura = db.TableDefs("reparaciones")
Set regfactura = tbfactura.OpenRecordset(dbOpenDynaset)
Dim criteriofra As String
criteriofra = "num fra='" & txtnumfra.Text & "'"
regfactura.FindFirst criteriofra
If Not regfactura.NoMatch Then
cmbmatricula.Text = regfactura.Fields("matricula")
txtfecha.Text = regfactura.Fields("fecha")
txtkilometros.Text = regfactura.Fields("kilometros")
txtreparacion.Text = regfactura.Fields("reparación")
txtrepuestos.Text = regfactura.Fields("repuestos")
txtnumfra.Text = regfactura.Fields("num fra")
txtimporte.Text = regfactura.Fields("importe")
cmbproveedores.Text = regfactura.Fields("proveedor")
End If
End Sub
el error exactamente dice: ERROR DE COMPILACIÓN: NO SE ENCONTRO EL METODO O EL DATO MIEMBRO.
No se cual es el problema si alguien me puede ayudar. El error me salta a la hora de depurar a la línea: regfactura.FindFirst criteriofra.
Todo el código es el siguiente:
Private Sub txtnumfra_LostFocus()
Set db = DBEngine.Workspaces(0).OpenDatabase("\\Server\Documentos\Mis documentos\Reparaciones\nuevas reparaciones\nueva.mdb")
Set tbfactura = db.TableDefs("reparaciones")
Set regfactura = tbfactura.OpenRecordset(dbOpenDynaset)
Dim criteriofra As String
criteriofra = "num fra='" & txtnumfra.Text & "'"
regfactura.FindFirst criteriofra
If Not regfactura.NoMatch Then
cmbmatricula.Text = regfactura.Fields("matricula")
txtfecha.Text = regfactura.Fields("fecha")
txtkilometros.Text = regfactura.Fields("kilometros")
txtreparacion.Text = regfactura.Fields("reparación")
txtrepuestos.Text = regfactura.Fields("repuestos")
txtnumfra.Text = regfactura.Fields("num fra")
txtimporte.Text = regfactura.Fields("importe")
cmbproveedores.Text = regfactura.Fields("proveedor")
End If
End Sub
Valora esta pregunta


0