MaximoAccess

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

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
    avatar
    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!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    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
    avatar
    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?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3407
    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

      Data/hora atual: Sab 18 Nov 2017, 10:28