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!
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!