OPTIONBUTTON - RETORNO DE VALOR DO BD

MILTONSILVA94 03/10/2017 12:58:08
#476922
Tenho a rotina abaixo para campos [ô]text[ô] que monta a navegação entre os registros do form:

Private Sub MontarNavegacao()
    txtCodigoUsuario.Text = lTBUsuarios.Fields([Ô]codigo_usuario[Ô]).Value
    txtLogin.Text = lTBUsuarios.Fields([Ô]login[Ô]).Value
    txtNome.Text = lTBUsuarios.Fields([Ô]nome[Ô]).Value
End sub

Porém tenho um campo [ô]Optionbutton[ô] que é da coluna [ô]status[ô] (que define: Ativo, Inativo, Bloqueado) que preciso adicionar no código acima para retornar a informação do banco de dados ao navegar entre os registros no form. Tentei algumas maneiras incluir mas não consegui, os nomes correspondentes destes [ô]Optionbutton[ô] são: optAtivo, optInativo, optBloqueado.

Alguém têm sugestões?
JABA 03/10/2017 13:28:36
#476925 Resposta escolhida
Se são 3 optionbuttons para um campo do banco, então você terá que usar um [Ô]if[Ô]. Por exemplo:

Private Sub MontarNavegacao()
    txtCodigoUsuario.Text = lTBUsuarios.Fields([Ô]codigo_usuario[Ô]).Value
    txtLogin.Text = lTBUsuarios.Fields([Ô]login[Ô]).Value
    txtNome.Text = lTBUsuarios.Fields([Ô]nome[Ô]).Value

  if lTBUsuarios.Fields([Ô]status[Ô]).Value = [Ô]Ativo[Ô] then
    optAtivo.Value = True
elseif lTBUsuarios.Fields([Ô]status[Ô]).Value = [Ô]Inativo[Ô] then
   optInativo.Value = True
else
   optBloqueado.Value = True
End If

End sub
MILTONSILVA94 04/10/2017 22:23:46
#476995
Citação:

:
Se são 3 optionbuttons para um campo do banco, então você terá que usar um [Ô]if[Ô]. Por exemplo:

Private Sub MontarNavegacao()
    txtCodigoUsuario.Text = lTBUsuarios.Fields([Ô]codigo_usuario[Ô]).Value
    txtLogin.Text = lTBUsuarios.Fields([Ô]login[Ô]).Value
    txtNome.Text = lTBUsuarios.Fields([Ô]nome[Ô]).Value

  if lTBUsuarios.Fields([Ô]status[Ô]).Value = [Ô]Ativo[Ô] then
    optAtivo.Value = True
elseif lTBUsuarios.Fields([Ô]status[Ô]).Value = [Ô]Inativo[Ô] then
   optInativo.Value = True
else
   optBloqueado.Value = True
End If

End sub



Humm... deu certo JABA!

Havia chegado perto tinha colocado antes dessa forma e por isso não funcionava:
if lTBUsuarios.Fields([Ô]status[Ô]).Value then
optAtivo.Value = True
elseif lTBUsuarios.Fields([Ô]status[Ô]).Value then
optInativo.Value = True
else
optBloqueado.Value = True
End If

Muito obrigado, abraços!
Tópico encerrado , respostas não são mais permitidas
Voltar