ctramino

xavi -ae soft- respondió: Si, este seria un código: Dim databs As Object Dim rst As Object Dim misql As String Dim respuesta As Byte If DLookUp("[DISPONIBLE]","[LIBROS]","[IdLibro]=" & Me!IdLibro) = True Then respuesta = MsgBox("El libro seleccionado esta disponible. Quieres...

palarmun respondió: Puedes crear una lista y en las propiedades de la lista en orige de datos crear la siguiente consulta: select referdoc from docum where campo_año = Formularios![nombredelformulario]![añodoc] and capo_documento = Formularios![nombredelformulario]![numdoc]