RE:Usando la propiedad .Value
Estoy usando ADODB.Connection
para buscar puse lo siguiente:
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\recibo_97.mdb")
End With
Dim codigo As String
Dim codigo2 As String
Dim codigo3 As String
codigo = InputBox("Ingrese el Nº de Expediente", "Solicitud de información")
If codigo <> "" Then
codigo2 = InputBox("Ingrese el Nº de Apartamento", "Solicitud de información")
If codigo2 <> "" Then
codigo3 = InputBox("Ingrese el Mes Correspondiente al Alquiler", "Solicitud de información")
If codigo3 <> "" Then
Dim buscar3 As ADODB.Recordset
Set buscar3 = New ADODB.Recordset
buscar3.Open "SELECT * FROM recibo WHERE expediente= '" & (Trim$(UCase$(LCase$(codigo)))) & "' and apartamento ='" & (Trim$(UCase$(LCase$(codigo2)))) & "' and mes_factura ='" & (Trim$(UCase$(LCase$(codigo3)))) & "'", ccone
If buscar3.EOF = false Then
Me.Check1.Value = IIf(IsNull(buscar3!recibo_impreso), "", buscar3!recibo_impreso)
Pero no realiza la busquedad !
Gracias por la ayuda!