segunda-feira, 18 de dezembro de 2017
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Duas funções para um mesmo botão de comando
Autor:  Ananias Duarte (ananiasd@correios.com.br)
Publicado:  31/01/2004
Visitas: 7208
 
Digamos que você queira ordenar o campo/controle NomeDoCliente do frmClientes.

Você precisará criar UM botão de comando que receberá o nome de Btn_Ordenar.

Na propriedade LEGENDA do Btn_Ordenar, você escreverá a palavra Crescente.

No evento AO CLICAR do controle Btn_Ordenar você escreverá o seguinte código:

Private Sub Btn_Ordenar _Click()
DoCmd.Echo False, "Sorting records ..."
Screen.ActiveForm.AllowAdditions = False
DoCmd.GoToControl "NomeDoCliente"
If Me.Btn_Ordenar.Caption = "Crescente"
DoCmd.RunCommand acCmdSortAscending
Me.Btn_Ordenar.Caption = "Decrescente"
Else
DoCmd.RunCommand acCmdSortDescending
Me.Btn_Ordenar.Caption = "Crescente"
EndIf
Screen.ActiveForm.AllowAdditions = True
End Sub

  « Voltar

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco