MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Texto padrão da tabela para um campo não acoplado em VBA

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Access365 em 5/8/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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty Re: [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Alexandre Neves em 5/8/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
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty Re: [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Access365 em 7/8/2014, 20:26

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

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty Re: [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Alexandre Neves em 7/8/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
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty Re: [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Avelino Sampaio em 8/8/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 a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA Empty Re: [Resolvido]Texto padrão da tabela para um campo não acoplado em VBA

    Mensagem  Access365 em 2/8/2020, 18:46

    A resposta do Avelino resolveu o problema.

      Data/hora atual: 2/12/2020, 16:29