domingo, 22 de julho de 2018
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #16
Como montar uma intranet com Windows 2000
Publicado: 05/02/2004

Dicas

Duas funções para um mesmo botão de comando
Autor:  Ananias Duarte (ananiasd@correios.com.br)
Publicado:  31/01/2004
Visitas: 7386
 
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 - 2018- Todos os direitos reservados   Política de Privacidade | Fale conosco