quarta-feira, 28 de junho de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #43
Funções Financeiras
Publicado: 05/05/2005

Dicas

Duas funções para um mesmo botão de comando
Autor:  Ananias Duarte (ananiasd@correios.com.br)
Publicado:  31/01/2004
Visitas: 7074
 
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

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

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