MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Marcar ChekBox de um grupo de opções via VBA

    avatar
    Convidado
    Convidado


    [Resolvido]Marcar ChekBox de um grupo de opções via VBA Empty Marcar ChekBox de um grupo de opções via VBA

    Mensagem  Convidado 11/6/2012, 17:28

    Boa tarde amigos..

    Estou tendo um pequeno problema com um Grupo de Opções e confesso que não estou conseguindo solucioná-lo

    Tenho um Grupo de Opções com duas ChkBox's

    Nome do Grupo de Opções: TipoPagto
    Nome da CheckBox 1: F4
    Nome da CheckBox 2: F5

    No evento click deste grupo:

    Private Sub TipoPgto_Click()
    Select Case TipoPgto
    Case 1
    StrTipoPgto = "Cartão"
    Case 2
    StrTipoPgto = "Ticket"
    Case Else
    StrTipoPgto = ""
    End Select
    End Sub


    O que preciso é que ao clicar em uma tecla (F4)
    a CheckBox 1 do grupo de opcoes fique marcada, para ai eu invocar o TipoPagto_Clique

    O Codigo para a tecla F eu ja tenho...
    so preciso saber como marcar essa caixa de selcao via VBA


    Obrigado.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Marcar ChekBox de um grupo de opções via VBA Empty Re: [Resolvido]Marcar ChekBox de um grupo de opções via VBA

    Mensagem  chsestrem 11/6/2012, 17:38

    Boas Hary,

    Não sei se isto que pretende,

    veja como eu tratei o grupo de opções deste Exemplo

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Marcar ChekBox de um grupo de opções via VBA Empty Re: [Resolvido]Marcar ChekBox de um grupo de opções via VBA

    Mensagem  Alexandre Neves 11/6/2012, 17:39

    Boa tarde, amigo Hary

    Para atribuir a função à tecla F4, procure no fórum por sendkeys.
    Para que o grupo de opções fique com a selecção pretendida, veja qual o valor de cada opção. Se a caixa de verificação F4 tiver o valor 1, coloque: TipoPagto=1
    Abraço,
    avatar
    Convidado
    Convidado


    [Resolvido]Marcar ChekBox de um grupo de opções via VBA Empty Re: [Resolvido]Marcar ChekBox de um grupo de opções via VBA

    Mensagem  Convidado 11/6/2012, 17:51

    Boas Chsestreem e Alexandre, agradecendo pela ajuda..

    hehehe

    As vezes a solução e tão simples.. mas não chegamos a ver...

    Exatamente isso Alexandre, ficou assim:

    'F4 - Selecionar Pagamento cartão
    If KeyCode = 115 Then
    Me.TipoPgto = 1
    Call TipoPgto_Click
    KeyCode = 0
    End If
    'F5 - Selecionar Pagamento Ticket
    If KeyCode = 116 Then
    Me.TipoPgto = 2
    Call TipoPgto_Click
    KeyCode = 0
    End If


    Obrigado pela ajuda Chsestreem, eu ja tinha esse seu reivento da toda aqui, e por sinal ficou excelente!!

    Abraços.

    Conteúdo patrocinado


    [Resolvido]Marcar ChekBox de um grupo de opções via VBA Empty Re: [Resolvido]Marcar ChekBox de um grupo de opções via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 09:47