Access - Accion de 1 boton y una consulta en uno solo

   
Vista:

Accion de 1 boton y una consulta en uno solo

Publicado por jemf19 (2 intervenciones) el 30/03/2008 19:21:04
Hola a todos, soy nuevo en access, y espero que puedan ayudarme con los siguiente,
Tengo un formulario donde tengo un boton que me inserta los datos de una lista, aqui el codigo.

Private Sub Comando4_Click()
Dim MyDB As DAO.Database
Dim rstSelectedCat As DAO.Recordset
Dim i As Integer
Set MyDB = CurrentDb()
Set rstSelectedCat = MyDB.OpenRecordset("NEXO", DB_OPEN_DYNASET)
ListOrigen.SetFocus
For i = 0 To ListOrigen.ListCount - 1
If ListOrigen.Selected(i) Then
rstSelectedCat.AddNew
rstSelectedCat!Sede = ListOrigen.Column(0, i)
'rstSelectedCat!CatNombre = ListOrigen.Column(1, i)
rstSelectedCat.Update
ListOrigen.Selected(i) = False 'clears the selection
End If
Next i
End Sub

y ademas tengo una consulta de actualizacion que ejecuto luego de darle clic al boton

Como hago para poner un solo boton, que me ejecute el codigo de arriba y acto seguido la consulta de actualizacion??

Derrepente es algo muy facil , pero espero puedan ayudarme. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Accion de 1 boton y una consulta en uno solo

Publicado por JOSELO (1 intervención) el 31/03/2008 16:48:29
Para ejecutar una consulta lo puedes hacer de 2 maneras.

Si la consulta esta generada la ejecutas

DoCmd.OpenQuery

Pero te recomiendo que generes la instruccion SQL de la consulta (por ejemplo en una variable

StringSQL = (aca escribes el string de la consulta)
Luego ejecutas
DOCMD.RUNQUERY StringSQL

Espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar