Access - Botones en access VBA

   
Vista:

Botones en access VBA

Publicado por Eduardo (1 intervención) el 01/09/2015 20:59:34
Hola:

Tengo un formulario con 25 botones, cada uno tiene este codigo:

Private Sub cmd_Cam_Click()
DoCmd.OpenForm "Consulta_B", acNormal, , , acFormReadOnly, acWindowNormal
End Sub

Mi pregunta es si existe una manera para declarar la accion de los botones en un codigo con case o if ya que todos abren el mismo formulario, al hacer click y como tengo que declarar el boton en VBA?

Muchas 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

Botones en access VBA

Publicado por jose (741 intervenciones) el 02/09/2015 21:57:21
si todos hacen lo mismo , pues deja uno solo


si abren formularios diferentes tendrás una variable o un dato distinto

entonces en un solo boton

select case distinto

case is =1
DoCmd.OpenForm "Consulta_B", acNormal, , , acFormReadOnly, acWindowNormal

case is =1
DoCmd.OpenForm "Consulta_c", acNormal, , , acFormReadOnly, acWindowNormal
......


end select
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