HABILITAR MENU
Olá, sou iniciante no VB6 mas especialista em Mumps e em COS. Nestas linguagens existe o comando de indireção que resolve o meu problema mas não encontrei nada parecido no VB6. Abaixo segue o meu problema:
Tenho um form que possui menus desabilitados, um campo text onde se digita o nome do usuário e um botão.
Tenho uma tabela no banco Access que me diz quais menus o usuário tem acesso.
Quando eu aciono o botão, leio a tabela e coloco o nome do form na variável Valor (exemplo: Valor = frmCliente).
Como eu faço para habilitar o menú? (Valor.Enabled = true não funciona)
Abaixo um trecho do meu código:
With cnnComando
.ActiveConnection = cnnEmpCon
.CommandType = adCmdText
.CommandText = [Ô]SELECT IdRot FROM Acessos WHERE SiglUsu = [ô][Ô] & txtIDUSU.Text & [Ô][ô];[Ô]
Set rsSelecao = .Execute
End With
With rsSelecao
While Not .EOF
For Each fld In .Fields
Valor = fld.Value
Valor.Enabled = True
Next
.MoveNext
Wend
Tenho um form que possui menus desabilitados, um campo text onde se digita o nome do usuário e um botão.
Tenho uma tabela no banco Access que me diz quais menus o usuário tem acesso.
Quando eu aciono o botão, leio a tabela e coloco o nome do form na variável Valor (exemplo: Valor = frmCliente).
Como eu faço para habilitar o menú? (Valor.Enabled = true não funciona)
Abaixo um trecho do meu código:
With cnnComando
.ActiveConnection = cnnEmpCon
.CommandType = adCmdText
.CommandText = [Ô]SELECT IdRot FROM Acessos WHERE SiglUsu = [ô][Ô] & txtIDUSU.Text & [Ô][ô];[Ô]
Set rsSelecao = .Execute
End With
With rsSelecao
While Not .EOF
For Each fld In .Fields
Valor = fld.Value
Valor.Enabled = True
Next
.MoveNext
Wend
Olá
veja se é isto:
Té +
veja se é isto:
Me.Controls(Valor).Enabled = TrueTé +
Perfeito....
Obrigado
Obrigado
Tópico encerrado , respostas não são mais permitidas