MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 11/9/2019, 21:04

    Boa noite

    Ao abrir um formulário atribuir um valor a um Grupo de Opções Via VBA

    No circulo aparece o valor 4 mas está predefinido.

    o Nome do Grupo de Opções tem o nome de "Quadro"

    Já tentei ao abrir e ao carregar o formulário assim:

    Me.Quadro.Value = 4

    E não resulta

    Obrigado

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Sem_t112


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 297
    Registrado : 28/10/2010

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  zcarloslopes em 12/9/2019, 09:40

    Bom dia,

    Veja se resulta assim:

    Código:
    Me.Quadro.DefaultValue = 4

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 12/9/2019, 23:25

    zcarloslopes

    Não funciona

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 297
    Registrado : 28/10/2010

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  zcarloslopes em 13/9/2019, 12:01

    Bom dia,

    Fiz um teste na A2003 e funciona no evento "Ao Abrir" o formulário quer:
    Código:
    Me.Quadro.DefaultValue = 4
    quer simplesmente:
    Código:
    Me.Quadro = 4

    Tente ver se tem outro comando para o mesmo efeito, se o grupo de opções está em um subformulário, etc..
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 13/9/2019, 13:42

    zcarloslopes

    Ao abrir o formulário já consigo atribuir um valor mas ….

    Queria que o valor do Quadro alterasse conforme o valor do campo txtCC, e neste caso está sempre a dar o valor ao Quadro de 3 independentemente do valor do campo txtCC


    Private Sub Form_Open(Cancel As Integer)

    Me.TxtCC = Nz(DCount("*", "[tblMovimento]"), "[idcaixa] = Forms!Menu!IdCaixa And [Datamovimento] Between Me.DtInicio and Me.DtFim")

    If Me.TxtCC > 25 Then
    Me.Quadro = 3
    Else
    Me.Quadro = 4
    End If

    End Sub

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 297
    Registrado : 28/10/2010

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  zcarloslopes em 13/9/2019, 14:15

    Boa tarde,

    Provavelmente a condição não se está a verificar...

    Para testar poderia colocar uma MsgBox a meio do código para ver se a condição se verifica e ver onde está o problema:

    Teste o seguinte:
    Código:
    Private Sub Form_Open(Cancel As Integer)

    Me.TxtCC = Nz(DCount("*", "[tblMovimento]"), "[idcaixa] = Forms!Menu!IdCaixa And [Datamovimento] Between Me.DtInicio and Me.DtFim")

    MsgBox (Me.TxtCC )  '<-------------- Aqui poderá ver qual o valor que está a obter

    If Me.TxtCC > 25 Then
    Me.Quadro = 3
    Else
    Me.Quadro = 4
    End If

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  ahteixeira em 13/9/2019, 15:19

    Olá a todos,

    Assis, se pretende que altere ao mudar de registo (não sei se tem), tente s dica do colega no evento No Atual (current)

    Abraço



    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 13/9/2019, 15:51

    Olá Teixeira

    Teixeira, pretendo ao abrir o formulário.


    zcarloslopes

    A MsgBox (Me.TxtCC ) ------, informa os valores certos, mas o valor do Quadro não altera, sempre 3.

    Obrugado



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 297
    Registrado : 28/10/2010

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  zcarloslopes em 13/9/2019, 16:00

    Caro Assis, está de facto um pouco estranho...

    Faça outro teste.., já que o valor é sempre 3, coloque a MsgBox na linha da opção = 4 para ver se a MsgBox executa e continua a dar o valor 3, tipo:
    Código:
    Private Sub Form_Open(Cancel As Integer)

    Me.TxtCC = Nz(DCount("*", "[tblMovimento]"), "[idcaixa] = Forms!Menu!IdCaixa And [Datamovimento] Between Me.DtInicio and Me.DtFim")


    If Me.TxtCC > 25 Then
    Me.Quadro = 3
    Else

    MsgBox "Condição Corretamente Avaliada"  '<-------------- Aqui

    Me.Quadro = 4
    End If

    End Sub
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 13/9/2019, 17:36

    zcarloslopes

    Nem o formulário deixa abrir .

    Obrigado




    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1034
    Registrado : 13/12/2016

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Alexandre Fim em 13/9/2019, 17:50

    Olá Assis. Tente isso:

    Código:

    Private Sub Form_Open(Cancel As Integer)

        Me.TxtCC = Nz(DCount("*", "[tblMovimento]"), "[idcaixa] = Forms!Menu!IdCaixa And [Datamovimento] Between Me.DtInicio and Me.DtFim")
       
        If Me.TxtCC >= 0 And Me.TxtCC <= 3 Then Me.Quadro = 1      '3  Dias
        If Me.TxtCC >= 4 And Me.TxtCC <= 7 Then Me.Quadro = 2      '7  dias
        If Me.TxtCC >= 8 And Me.TxtCC <= 15 Then Me.Quadro = 3      '15 dais
        If Me.TxtCC >= 16 And Me.TxtCC <= 30 Then Me.Quadro = 4    '30 dias
        If Me.TxtCC >= 31 And Me.TxtCC <= 60 Then Me.Quadro = 5    '60 dias
        If Me.TxtCC >= 61 And Me.TxtCC <= 90 Then Me.Quadro = 6    '90 dias
       

    End Sub




    Att,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 13/9/2019, 22:40

    Alexandre
    Não funciona.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  ahteixeira em 13/9/2019, 23:43

    Olá a todos,

    Assis, monte exemplo com a dúvida para se testar.
    Se ao montar a dúvida não ficar desfeita, partilhe.
    Cá estamos para ajudar.

    Abraço a todos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1034
    Registrado : 13/12/2016

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Alexandre Fim em 16/9/2019, 13:53

    Assis,
    Alterei o código...faltava a propriedade "value" nos campos.
    Segue:
    Código:


        If Me.txtCC.Value >= 0 And Me.txtCC.Value <= 3 Then Me.Quadro = 1       '3  Dias
        If Me.txtCC.Value >= 4 And Me.txtCC.Value <= 7 Then Me.Quadro = 2       '7  dias
        If Me.txtCC.Value >= 8 And Me.txtCC.Value <= 15 Then Me.Quadro = 3      '15 dais
        If Me.txtCC.Value >= 16 And Me.txtCC.Value <= 30 Then Me.Quadro = 4     '30 dias
        If Me.txtCC.Value >= 31 And Me.txtCC.Value <= 60 Then Me.Quadro = 5     '60 dias
        If Me.txtCC.Value >= 61 And Me.txtCC.Value <= 90 Then Me.Quadro = 6     '90 dias
        If Me.txtCC.Value > 90 Then Me.Quadro = 7                               'Tudo




    Segue anexo um pequeno teste.

    Abraços
    Anexos
    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA AttachmentTesteAssis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 8 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Alexandre Neves em 16/9/2019, 14:37

    Boa tarde
    Ou outra tentativa: colocar o código no primeiro campo em que o formulário abre


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  ahteixeira em 28/4/2020, 22:57

    Olá a todos,

    Assis, ficou esquecido este tópico?

    Abraço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  DamascenoJr. em 23/5/2020, 14:24

    Assis, e o retorno. Aguardamos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  Assis em 23/5/2020, 16:04

    Não teve a solução desejada


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA Empty Re: [Resolvido]Como atribuir um valor ao um Grupo de Opções Via VBA

    Mensagem  ahteixeira em 23/5/2020, 19:10

    Olá a todos,

    Assis, monte um pequeno para se trabalhar e testar.
    E tente descrever o que pretende e não está acontecer.
    Não falta membros para tentar ajudar.

    cheers

      Data/hora atual: 11/8/2020, 13:16