[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

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

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.