Metodo DAO
Publicado por Maria (3 intervenciones) el 31/05/2008 10:50:19
buenas dias,
estoy desarrollando una base de datos pero mis conocimientos de programación en VB son escasos por eso necesito vuestra ayuda ya que me he quedado estancada y no puedo continuar.
Os comento:
tengo un formulario principal llamado form_demandante para la introducción de datos personales de un cliente. En este formulario, dispongo de varios cuadros de texto así como varios combos. Uno de los cuadros de texto se llama codigo y otro titulacion
Al hacer doble clic sobre el campo codigo, se me abre otro formulario de búsqueda de titulaciones(Busca_Formacion). En este form tengo 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 que coinciden con la palabra escrita por el usuario en el campo Buscar.
En el form_demandante he escrito el siguiente código:
Private Sub Codigo_DblClick(Cancel As Integer)
DoCmd.OpenForm "Busca_Formacion"
End Sub
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
End If
rst.Close
Set rst = Nothing
End Sub
Una vez asignados los valores del form Busca_Formacion sobre los campos codigo y titulacion del form_demandante debería asignar estos valores a los campos de la tabla Demandante y aquí es dónde tengo el problema.
He leído que tengo que utilizar Edit para añadir el registro a la tabla y después Update para guardar los datos pero no sé cómo hacerlo.
muchas gracias de antemano.
estoy desarrollando una base de datos pero mis conocimientos de programación en VB son escasos por eso necesito vuestra ayuda ya que me he quedado estancada y no puedo continuar.
Os comento:
tengo un formulario principal llamado form_demandante para la introducción de datos personales de un cliente. En este formulario, dispongo de varios cuadros de texto así como varios combos. Uno de los cuadros de texto se llama codigo y otro titulacion
Al hacer doble clic sobre el campo codigo, se me abre otro formulario de búsqueda de titulaciones(Busca_Formacion). En este form tengo 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 que coinciden con la palabra escrita por el usuario en el campo Buscar.
En el form_demandante he escrito el siguiente código:
Private Sub Codigo_DblClick(Cancel As Integer)
DoCmd.OpenForm "Busca_Formacion"
End Sub
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
End If
rst.Close
Set rst = Nothing
End Sub
Una vez asignados los valores del form Busca_Formacion sobre los campos codigo y titulacion del form_demandante debería asignar estos valores a los campos de la tabla Demandante y aquí es dónde tengo el problema.
He leído que tengo que utilizar Edit para añadir el registro a la tabla y después Update para guardar los datos pero no sé cómo hacerlo.
muchas gracias de antemano.
Valora esta pregunta
0