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

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

Bom dia,

Veja se resulta assim:

Código:

Me.Quadro.DefaultValue = 4

Abraço

zcarloslopes

Não funciona

Obrigado

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..

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

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

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

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

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

zcarloslopes

Nem o formulário deixa abrir .

Obrigado

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,

Alexandre
Não funciona.
Obrigado

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

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

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

Olá a todos,

Assis, ficou esquecido este tópico?

Abraço

Assis, e o retorno. Aguardamos.

Não teve a solução desejada

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.