formularios

Amigos boa noite.
Estou com um problema, tenho dois formulários “Vendas” e “Cliente”, quando estou a fazer uma venda nova e o cliente não existe, o formulário “Vendas” pergunta-me se quero criar esse novo cliente, se eu disser que sim ele abre o formulário “Cliente”, até aqui já eu cheguei.  O que eu queria é que ao abrir o formulário “Cliente” ele coloca-se a informação já introduzida na caixa de texto no formulário “Vendas” no formulário “Cliente”.
Exemplo no formulário “Vendas” Manuel nome não existe abre  o formulário “Cliente” e o nome Manuel já aparece na caixa de texto “Nome”.

Desde já obrigado pela resposta
Essa solução já tinha tentado e não deu
Eu escrevi este código e funciona só falta levar a informação do form vendas para form cliente

Private Sub Cliente_NotInList(NewData As String, Response As Integer)
On Error GoTo Cliente_NotInList_Err

DoCmd.SetWarnings False ' Desativa avisos do Access
If MsgBox("Cliente " & UCase(NewData) & " não existe. Quer criar novo Cliente ?", vbQuestion + vbYesNo) = vbNo Then
Response = acDataErrContinue ' Volta ao controle
GoTo Cliente_NotInList_End
End If
DoCmd.OpenForm "Cliente", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre o form para incluir
Response = acDataErrAdded ' <<= Faz a inclusão na combo e atualiza

Cliente_NotInList_End:
DoCmd.SetWarnings True ' Ativa os avisos do Access
Me!Cliente.SetFocus ' Volta o foco
Exit Sub

Cliente_NotInList_Err:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
Resume Cliente_NotInList_End
Exit Sub

End Sub

Olá a todos.
Fernando Brito, não conheço o seu projecto, no entanto já pensou em "mudar o problema".
Ou seja , pode ter uma caixa de listagem para o utilizador selecionar o cliente.
Se não tiver, abre o formulario para criar o cliente, ao fechar atualiza a caixa de listagem.
Ao selecionar é que coloca os restantes dados.
Fica a sugestão.
Abraço

Olá..

Talvez o que esta faltando é um código ao abrir o formulário clientes.
Te sugiro alterar o nome do campo "Nome" para txtNome e nesta linha "strtel = Forms!NomeCorretoDoFormulárioCliente.OpenArgs" colocar o nome correto do forms cliente.

Segue anexo um exemplo.

Código:

Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    Dim strtel As String
       strtel = Forms!NomeCorretoDoFormulárioCliente.OpenArgs

    If Len(strtel) > 0 Then
       Me.TxtNome.SetFocus
       Me.txtNome.Text = strtel
       Me.txtNome.SetFocus
    End If
  
End Sub

Espero que ajude

Abraços

Olá..

Gostaríamos de saber se as ajudas prestadas por nós te ajudou a resolver a sua dúvida!!
Caso tenha resolvido, por favor encerre este tópico.
Caso ainda não resolveu, se manifeste para darmos continuidade.

Isto é muito importante para todos os membros do Fórum e também para futura pesquisas de procura de dúvidas semelhantes.

Para dar o tópico como resolvido, Veja como neste link, na pagina de mensagem pressione o botão resolvido e depois botão enviar

https://www.maximoaccess.com/t860-resolucao-de-topicos

Aguardamos sua manifestação

Abraços