Referencia: Microsoft DAO 3.6 Object Library
Tramuntana
necesito que alguien me ayude en el método DAO.
tengo un formulario principal con un cuadro de texto 'Codigo' que al hacer
doble clic, en TEORÍA me debería abrir un formulario de búsqueda con dos
campos: 1. Buscar (cuadro de texto) y 2. Cuadro de lista que me muestra todos
los códigos y titulaciones de la tabla CNED pero me da el siguiente error:
Error de compilación, No se encontró el método o miembro.
He activado la referencia Microsoft DAO 3.6 Object Library y en el evento al
hacer doble click en el cuadro de texto 'Codigo', he escrito lo siguiente:
Private Sub Codigo_DblClick(Cancel As Integer)
DoCmd.OpenForm "Busca_Formacion"
End Sub
y en el evento Despues de actualizar:
Private Sub Codigo_AfterUpdate()
'Referencia: Microsoft DAO 3.6 Object Library
On Error Resume Next
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("CNED", dbOpenDynaset)
rst.FindFirst "Codigo ='" & Codigo & "'"
If Not rst.NoMatch Then
Codigo = rst!Codigo
Titulacion = rst!Titulacion
rst.Close
Set rst = Nothing
End If
End Sub
¿Alguien me puede ayudar?
Muchas gracias
Emilio
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
prueba así
Dim dbs As DAO.Database, rst As DAO.Recordset
Saludos a tod@s
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Tramuntana" <Tramu...@discussions.microsoft.com> escribió en el mensaje
news:E092F044-5C4F-4864...@microsoft.com...
Tramuntana
para que se escriba la titua
"Emilio" escribió:
Emilio
Saludos a tod@s
Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Tramuntana" <Tramu...@discussions.microsoft.com> escribió en el mensaje
news:2E8DF246-CF13-468D...@microsoft.com...