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]Tamanho de um textobox

    Compartilhe

    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 15/11/2012

    [Resolvido]Tamanho de um textobox

    Mensagem  m_araujo em Ter 26 Maio 2015, 15:29

    Bom dia !

    Caros colegas, preciso determina o tamanho de um textobox conforme os código abaixo.

    Código:
    On Error Resume Next
       ' PlaySound fLocalBd & "\div\sons\click.wav", 1, 1
    Me.troca = Me.troca + 1
    If Me.troca > 2 Then Me.troca = 0
    Select Case Me.troca
        Case 0
            Me.Pesquisa.caption = "Código:"
            Me.txtPesquisar.Width = 2,2 cm '
        Case 1
            Me.Pesquisa.caption = "Prefixo Aeronave:"
             Me.txtPesquisar.Width = 4,2 cm '
        Case 2
            Me.Pesquisa.caption = "Modelo/Fabricante:"
             Me.txtPesquisar.Width = 7,2 cm '
        Case Else
            MsgBox " Campo para pesquisa não localizado!!!", vbInformation, "Aviso"
    End Select
    Me!txtPesquisar.SetFocus
    End Sub

    Tente dessa forma ai, mais não deu certo eu executo o sistema mais não muda nada.


    grato!


    Última edição por m_araujo em Qua 27 Maio 2015, 11:31, editado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Tamanho de um textobox

    Mensagem  Silvio em Ter 26 Maio 2015, 19:31

    Olá.... as medidas devem ser em Twips e não em Cms.
    1cm equivale a 566.929133858 Twips ou 567 Twips

    Eis o link de conversão para você...
    [Você precisa estar registrado e conectado para ver este link.]

    No VBA o Access utiliza a unidade de comprimento TWIPS.
    Portanto se quiser 2 cm de largura coloque
    MeuCampo.width = 1134

    Bons estudos !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 06:51