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

    Texto padrão da tabela para um campo não acoplado em VBA

    Compartilhe

    infosoft
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 09/07/2012

    Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  infosoft em Ter 05 Ago 2014, 20:41

    Amigos, será que alguém pode me dar um help?
    Quero que os dados de um campo apareça em outro campo depois de um click.

    Estou tentando assim, mas o texto não está indo para o campo.

    ===== CÓDIGO =====
    Private Sub butPadrão_Click()
    On Error Resume Next
    If IsNull(DLookup("TextoPadrão", "TextoP", "[IDTP] ='" & Me!txtIDTP & "'")) Then
    MsgBox "Nenhum texto encontrato!" & vbCr & "Ainda não existe um texto padrão.", vbOKOnly, "Aviso"
    Else
    Me.txtTextoP = DLookup("TextoPadrão", "TextoP", "[IDTP] ='" & Me!txtIDTP & "'")
    Me.txtTextoP.SetFocus
    Me.ActiveControl.SelStart = 0
    End If
    Exit Sub
    End Sub
    ================

    Desde já agradeço, Luz e Paz!

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Alexandre Neves em Ter 05 Ago 2014, 21:33

    Boa noite,
    Está a falar de campo, mas parece-me que se quer referir a controlo.
    Se fôr controlo, TxtNome=TxtApelido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    infosoft
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 09/07/2012

    Re: Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  infosoft em Qui 07 Ago 2014, 20:26

    Uai... Não funfou!
    Para formulário desacoplado, não existe a necessidade de se fazer um DLookup?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Alexandre Neves em Qui 07 Ago 2014, 20:40

    Quer que os dados de um campo apareça noutro campo. Como muitas vezes falam em campo referindo-se a controlo, supús que fosse de controlo para outro controlo.
    No código está-se a referir a campo e a controlo.
    Se assim não fôr, indique o que pretende


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Avelino Sampaio em Sex 08 Ago 2014, 11:13

    Olá!

    Desabite temporariamente a linha "on error resume next".  Assim vc saberá se algum erro de sintaxe esta ocorrendo

    IDTP da tabela TextoP é de que tipo ?  Numérico ou texto ?

    Dica:  Faça apenas uma chamada do Dlookup() ao invés das duas. Para isso, utilize uma variável.  Exemplo:


    Private Sub butPadrão_Click()
    Dim strPadrao$
    'On Error Resume Next
    strPadrao = nz(DLookup("TextoPadrão", "TextoP", "[IDTP] ='" & Me!txtIDTP & "'"))
    If strPadrão="" Then
      MsgBox "Nenhum texto encontrado!" & vbNewLine & "Ainda não existe um texto padrão.", vbOKOnly, "Aviso"
    Else
      Me!txtTextoP = strPadrao
      Me!txtTextoP.SetFocus
      Me!txtTextoP.SelStart = 0
    End If

    End Sub

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Qua 07 Dez 2016, 18:15