MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Propriedade LeftMargin, RightMargin e TopMargin

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Propriedade LeftMargin, RightMargin e TopMargin Empty [Resolvido]Propriedade LeftMargin, RightMargin e TopMargin

    Mensagem  good guy 25/3/2014, 21:29

    Olá pessoal,

    Estou tendo uma certa dificuldade para aplicar um código que configure as margens de uma caixa de texto ou será que elas só se aplicam para formulário? O campo Nome de meu formulário, por exemplo, de meu formulário não cria uma margem correspondente ao valor de minha combobox (cboMargDireita). Tanto faz se uso cboMargDireita ou cboMargDireita.Column(0) dá no mesmo. Após ir o nome para a margem direita pela propriedade TextAlign, o código com a propriedade RightMargin não funciona. Alguém pode me dar uma luz aqui?

    O código agora funciona assim:

    Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    Dim sValor1 As Double
    Dim sValor2 As Double

    Const TW As Integer = 567

    sValor1 = Nz(Forms!Catálogo!cboMargDireita)   ' exemplo de valor aqui na minha lista de valores pode ser 2.
    sValor2 = Nz(Forms!Catálogo!cboMargEsq)


    If CurrentProject.AllForms("Logos").IsLoaded Then
     .......................  
     ElseIf Forms!Catálogo!cboPosicao.Column(0) = "À Direita" Then
     Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 3
     
     
     ElseIf Forms!Catálogo!cboMargDireita = sValor1 Then
     
     Forms("MeuFormulário").Controls("MinhaCaixadeTexto").RightMargin = sValor1 * TW
     
     ElseIf Forms!Catálogo!cboMargEsq = sValor2 Then

     Forms("MeuFormulário").Controls("MinhaCaixadeTexto").LeftMargin = sValor2 * TW
     
     Else
     Exit Sub
     End If
     
     End Sub

      Data/hora atual: 28/3/2024, 12:49