[Resolvido]Abrir formulário em novo registro com base a um formulário aberto.

Olá Pessoal

Tenho um formulário de Clientes e nele um botão Novo Orçemento.

O Formulário Orçamento deve abrir com o controle Cliente preenchido com o nome do cliente mas deve ser um novo registro.

Poderiam me ajudar com isso?

Carlos Silveira

procure aqui mesmo, por OpenArgs.

Tente no botão que abre o formulário:

DoCmd.OpenForm "NomeDoFormulário"
Forms!NomeDoFormulário!NomeDoCampo = Me.NomeDoCampo

Ou pode tentar assim:

Private Sub NomeBotão_Click()
   DoCmd.OpenForm "NomeFormOrçamentos"
   DoCmd.GoToRecord , "", acNewRec
   Forms!NomeFormOrçamentos.NomeCampoClienteFormOrçamentos = Me.NomeCampoClienteFormClientes
End Sub

Amigo Norbs

Você entendeu bem minha questão, mas não sei porque ele sempre abre todos os registros e não um novo.

Private Sub Comando102_Click()
DoCmd.OpenForm "Projeto_form" <---- Abre o formulário corretamente
DoCmd.GoToRecord , "", acNewRec <---- Não abre um novo registro
Forms!Projeto_form.IDContato = Me.IDContato <---- Neste caso ele altera o nome do cliente para o do formulário Cliente, corretamente mas não em um novo...
End Sub

Olha nas propriedades do formulário, aba Dados, linha "Entrada de dados". Mude ela para ver se funciona. Aí pode usar apenas a linha que abre o formulário e a que coloca o nome do campo do formulário aberto.

Meus Amigos

Resolvido

Muito Obrigado

Carlos Silveira

Grato pelo retorno. Ficamos felizes que tenha resolvido.

Eu de novo

O Crililo me passou uma instrução para alterar a "Entrada de Dados"
O problema que com essa mudança, quando eu abro o formulário baseado em outro formulário ele sempre abre como novo registro.
Ou seja, sigo com o mesmo problema.

Alguma sugestão?


Private Sub Comando102_Click()
DoCmd.OpenForm "Projeto_form" <---- Abre o formulário corretamente
DoCmd.GoToRecord , "", acNewRec <---- Não abre um novo registro
Forms!Projeto_form.IDContato = Me.IDContato <---- Neste caso ele altera o nome do cliente para o do formulário Cliente, corretamente mas não em um novo...
End Sub

Amigão, uma vez que trata do mesmo assunto, vamos continuar a discussão no mesmo tópico para não lotar o forum com tópicos iguais, ok? Estou retirando o Resolvido. Quando estiver realmente resolvido, voltamos a colocá-lo.

Explique melhor a sua necessidade. Por acaso existem duas formas de se abrir o mesmo formulário, sendo uma para cadastro de novos registros e a outra para visualização de registro já cadastrado?

Vamos lá

Tenho um formulário de clientes e nele tenho dois botões,

1 - Abrir Orçamentos do Cliente - Ele abre um formulário que mostra a lista dos orçamentos em andamento do cliente.
2 - Abrir um novo Orcamento - quero que ele abra o formulário Orçamentos em um novo registro.

Carlos Silveira

Esse campo que você quer que abra filtrado é vinculado a um campo da tabela ou é desvinculado? Porque não estou vendo porque possa estar dando errado. E você não falou se os formulário que será aberto é o mesmo para ambos os dois casos que citou.

Criquio

Há na verdade 3 formulários envolvidos:

Clientes

No botão Serviços do Cliente abro um formulário vinculado ao Cliente com a Lista de seus Orçamentos
Orçamentos do Cliente

Seleciono a linha e Clico em Abrir Projeto


Quero clicar no botão novo serviço em qualquer dos formulários e abrir o formulário Orçamento em um novo registro e,
já vincuilado ao cliente.

Carlos Silveira

Ola Pessoal

Eu sabia que o que eu queria funcionava com uma macro, mas sabemos dos problemas que as macros nos trazem no futuro.

Fiz o seguinte:
1 - Criei uma macro com Abrir o formulário em Adicionar
2 - Convertí a Macro em um Módulo
'------------------------------------------------------------
' AbrirNOrça
'
'------------------------------------------------------------
Function AbrirNOrça()
On Error GoTo AbrirNOrça_Err

DoCmd.OpenForm "Projeto_form", acNormal, "", "", acAdd, acNormal <------------------ Usei essa linha


AbrirNOrça_Exit:
Exit Function

AbrirNOrça_Err:
MsgBox Error$
Resume AbrirNOrça_Exit

End Function

3 - Voltei ao formulário Cliente e no Botão Novo Serviço colei a linha criada no Módulo.

DoCmd.OpenForm "Projeto_form", acNormal, "", "", acAdd, acNormal

O Botão ficou assim

Private Sub NovoP_Click()
DoCmd.OpenForm "Projeto_form", acNormal, "", "", acAdd, acNormal
Forms!Projeto_form.IDContato = Me.IDContato
Me.Projetos.SetFocus
End Sub

Tudo Funcionou

Grato pelas valiosas dicas

Grato pelo retorno. O forum agradece. Bom que conseguiu descobrir sozinho.

Pessoal

Acho que esse forum é o melhor da atualidade, claro que um forum é o que é pelas pessoas que dele participam, sem essa imensa paciencia e disposição o Maximo não seria o maximo..

criquio, encerra esse topico, please..


Carlos Silveira

Acho que ficou faltando o resolvido por aqui....



Sempre Grato