[Resolvido]Movimentação de rotulo e controle

Bom dia amigos,

Peço quem pode me explicar o código abaixo: sei que movimenta o controle e rotulo mais qual faz o que?


End If
mysql = "SELECT * FROM tblPermissõesUsuários WHERE idFuncao = " & CLng(Me!tx1) & " AND Id_usuario = " & CLng(Me!tx2)
Me.RecordSource = mysql
If bloqueado Then

Me!Bloqueada.Top = 399 * 399
Me!Rótulo39.Top = 399 * 399
Else

Me!Bloqueada.Top = 423 * 577
Me!Rótulo39.Top = 423 * 577
End If



Att

Não sei se você pegou o código incompleto, mas vamos lá:

End If << Não serve pra nada já que não tem um IF antes

''Essas duas linhas servem pra trazer os dados para o formulário
mysql = "SELECT * FROM tblPermissõesUsuários WHERE idFuncao = " & CLng(Me!tx1) & " AND Id_usuario = " & CLng(Me!tx2)
Me.RecordSource = mysql

''Aqui verifica alguma variável chamada de bloqueado para então mover os controles
If bloqueado Then
Me!Bloqueada.Top = 399 * 399 ''Move o controle
Me!Rótulo39.Top = 399 * 399 ''Move o rótulo
Else
Me!Bloqueada.Top = 423 * 577 ''Move o controle
Me!Rótulo39.Top = 423 * 577 ''Move o rótulo
End If


Dica: Sempre indente o seu código pra conseguir identificar melhor o que será executado

Flws

Boa tarde marco_messa,

Bom quase tudo certo nos números qual manda para cima e para baixo e qual manda para a direita e esquerda? pois mesmo eu mudando as numerações eles não mudam de lugar.

Att,

Segue uma lógica contrária, nesse caso (399 * 399) será um número menor do que (423 * 577), então os controles que recebem o primeiro valor vão ficar mais próximos do topo do formulário.

Ou seja:
-> Quanto menor o valor na propriedade Top, mais próximo do topo.

E caso você queira movimentar pra esquerda e pra direita, basta usar a propriedade Left:
Ex. Me!Bloqueada.Left = (Algum valor aqui)

Obrigado...