ALGUIEN PUEDE AYUDARME?
Publicado por HILARIO (100 intervenciones) el 05/08/2004 18:59:01
'Esto me da un error
Operation is not supported for this type of object
Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Set mibase = OpenDatabase("c:\mega byte\MAESTRO.mdb")
Set miregistro = mibase.OpenRecordset("tbencfact")
miregistro.FindFirst "ftfactura like '" & txtfactura.Text & "'"
If Not miregistro.NoMatch Then
lblnombrecliente.Caption = miregistro!tbefcliente
End If
mibase.Close
Operation is not supported for this type of object
Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Set mibase = OpenDatabase("c:\mega byte\MAESTRO.mdb")
Set miregistro = mibase.OpenRecordset("tbencfact")
miregistro.FindFirst "ftfactura like '" & txtfactura.Text & "'"
If Not miregistro.NoMatch Then
lblnombrecliente.Caption = miregistro!tbefcliente
End If
mibase.Close
Valora esta pregunta


0