[resolvido] Evento Notinlist - NewData

Moderador: Avelino Sampaio

Vinicius.Anna
Mensagens: 24
Registrado em: 29 Jun 2015, 14:28

[resolvido] Evento Notinlist - NewData

Mensagempor Vinicius.Anna » 06 Set 2017, 13:54

Bom dia

Tenho uma combo em um determinado formulário que uso o código abaixo no evento Not in list para identificar se o valor informado pelo usuário já possui cadastro. Caso não possua cadastro, abro o formulário para inclusão do cadastro. Este código está funcionando corretamente.

Minha dúvida / dificuldade é a seguinte:
- O valor da combo no momento em que a mensagem é apresentada fica armazenado na string NewData do evento. Há alguma forma de, quando abrir o formulário de cadastro (frmNovoCliente), no campo de nome do cliente (txtNomedocliente) já atribuir o valor da NewData?

Algum amigo tem alguma dica?

Código: Selecionar todos

Private Sub idCliOrdem_NotInList(NewData As String, Response As Integer)
On Error GoTo TrataErro

    Response = acDataErrContinue
    Me!idCliOrdem.Undo
    MsgBox "CLIENTE NÃO CADASTRADO!" & vbCrLf & vbCrLf & "Será aberta a tela de cadastro de Cliente agora.", vbCritical, "Aviso"
    DoCmd.OpenForm "frmNovoCliente"
    DoCmd.Close acForm, "frmOrdem", acSaveNo

Exit Sub
TrataErro:

MsgBox Err.Description
End Sub



Att.
Vinicius

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


marcelo3092
Mensagens: 85
Registrado em: 23 Jun 2016, 14:21

Re: Evento Notinlist - NewData

Mensagempor marcelo3092 » 06 Set 2017, 23:56

Boa noite amigo da uma olhada nesse video do Gilbelanio que ele ensina

https://www.youtube.com/watch?v=sofJnwcGxGk&t=375s

Vinicius.Anna
Mensagens: 24
Registrado em: 29 Jun 2015, 14:28

Re: Evento Notinlist - NewData

Mensagempor Vinicius.Anna » 08 Set 2017, 18:37

Boa tarde

Muito obrigado - resolvido.

Att.
Vinicius

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 6 visitantes