Access - Botones en access VBA

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

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