MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Propriedade LeftMargin, RightMargin e TopMargin

    Compartilhe

    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Propriedade LeftMargin, RightMargin e TopMargin

    Mensagem  good guy em Ter 25 Mar 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: Sex 09 Dez 2016, 13:28