Propriedade ToggleButton.OptionValue (Access)

Cada controle em um grupo de opção tem um valor numérico que você pode definir com a propriedade OptionValue. Long de leitura/gravação.

Sintaxe

expressão. ValorDaOpção

expressão Uma variável que representa um objeto ToggleButton .

Comentários

Quando o controle é selecionado, o número é atribuído ao grupo de opção. Se o grupo de opção é acoplado a um campo, o valor da propriedade OptionValue do controle selecionado é armazenado no campo.

Por exemplo, este grupo de opções Região está vinculado ao campo Região numa tabela. O botão Europa tem uma configuração de propriedade OptionValue de 1, o botão Ásia possui uma configuração de 2 e o botão África possui uma configuração de 3. Quando um desses botões é selecionado, o valor do grupo de opção região será o mesmo que a configuração da propriedade OptionValue do controle selecionado. Neste caso, uma vez que o grupo de opções Região está vinculado ao campo Região , o valor deste campo na tabela também é igual a 2.

A propriedade OptionValue só se aplica a caixa de seleção, botão de opção e controles de botão de alternância em um grupo de opção.

A menos que altere a propriedade ValorDaOpção , o primeiro controlo que colocar num grupo de opções tem um valor de 1, o segundo controlo tem um valor de 2 e assim sucessivamente.

A propriedade OptionValue só está disponível quando o controle é colocado dentro de um controle de grupo de opção. Quando uma caixa de marcar, um botão de opção ou um botão de alternar não estiver num grupo de opções, o controlo não tem nenhuma propriedade ValorDaOpção. Em vez disso, cada controle tem uma propriedade ControlSource, e o valor de cada controle será True se selecionado ou False se não selecionado.

Exemplo

O exemplo seguinte define a propriedade OptionValue para três botões de opção no grupo de opções Grupo de Métodos de Envio quando um formulário é aberto. Quando um botão de opção é selecionado no grupo de opção, uma mensagem é exibida indicando o número de identificação do emissor.

Private Sub Form_Open(Cancel As Integer) 
 
 Me.Controls("ABC Couriers").OptionValue = 15876 
 Me.Controls("Speedy Delivery").OptionValue = 742 
 Me.Controls("Lightning Express").OptionValue = 1256 
 
End Sub 
 
Private Sub Ship_Method_Group_Click() 
 
 MsgBox "The ID for the selected shipper is " & Me.Controls("Ship Method Group").Value 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.