[Resolvido]Preencher Formulário 2 com dados do Formulário 1

Bom dia a todos, utilizo dois formulários, o primeiro abre o segundo para incluir um novo registro e preenche alguns campos com os dados do primeiro formulário. Porem depois de preencher os dados ele retorna para o primeiro registro, o problema e que preciso mantenha a posição no novo registro para concluir o preenchimento e não retornar ao primeiro.

Código Primeiro formulário
Private Sub BtNovaAssist_Click()
CodiCliente = [CodCliente]
DoCmd.RefreshRecord
DoCmd.Close
Call SalvarNovo
End Sub


Código do Modulo
Option Explicit
Public CodiCliente As Integer

Function SalvarNovo()
Dim OsMAx As Long
OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)
DoCmd.OpenForm "Form_AssistDet"
DoCmd.GoToRecord , , acNewRec

Form_Form_AssistDet.OS = OsMAx

If IsNull(CodiCliente) = False Then
Form_Form_AssistDet.Selecao_CodCliente = CodiCliente
Form_Form_AssistDet.DeixadoPor = CodiCliente
CodiCliente = 0
End If

Boas Claudemir, se possível envie-nos um modelo do Bd para que possamos ver.

Cumprimentos.

Boa tarde Piloto,

Encontrei o problema: utilizar macro ao invés de vba na chamada do primeiro formulário.

Porém não entendi o motivo do problema da incompatibilidade entre macro e vba.

E ainda não encontrei solução para manter macro e vba compatíveis. Parece haver uma ordem de chamada do comandos.

Grato

Boas cleudemir.... Eu tenho que deixar isso para outro colega responder... Sou averso a macros e só utilizo uma AutoExec.. ao iniciar o aplicativo...
Porque não utiliza vba para isto?

Cumprimentos.

Boas Claudemir.. tentei abrir mas ta em 2007... se possível converta em 2007

Cumprimentos.

Bom dia Piloto,

Essa versão é 2007 - 2010, converti para 2003 (mdb). Eu utilizo em macro por não conhecer algum código em vba que abra o formulário para novo registro sem que gere automaticamente um código de registro antes de iniciar o preenchimento.

Veja se deu certo.

Recebi o banco... Me fale os passos que tenho que seguir para reproduzir o erro.

Cumprimentos.

Os passos são: 1 - Abrir formulário inicial, 2 - botão novo cliente, 3 - automaticamente abre formulário um, 4 - preenche campo nome e sobrenome, 5 - botão nova assistência, 6 - automaticamente abre o formulário dois em novo registro e automaticamente e preenche campo nome e sobrenome.

Cumprimentos.

Boas Claudemir..

No Módulo:

Código:

Function SalvarNovo()
Dim OsMAx As Long
DoCmd.OpenForm "Formulário2"
DoCmd.GoToRecord , , acNewRec
OsMAx = (DMax("[OS]", "tbAssistencia") + 1)
Form_Formulário2.OS = OsMAx
Form_Formulário2.Selecao_CodCliente = Forms!Formulário1.CodCliente
End Function



NoBotão do Formulário1:

Código:

Private Sub BtNovaAssist_Click()
CodiCliente = [CodCliente]
DoCmd.RunCommand acCmdSaveRecord
Call SalvarNovo
DoCmd.Close acForm, "Formulário1"
End Sub

Cumprimentos.

Obrigado Piloto, foi resolvido com sucesso.

Aproveitando que esta com a mão na masa. Nessa mesma base de dados, apesar de já utilizar o valor para o campo OS acima de 3000, durante os testes na passagem do nono ao décimo primeiro ele informa valor duplicado tem alguma sugestão.

Boas amigão... Seguiremos a máxima do Fórum!


Nova Dúvida... Novo Tópico...

Assim manteremos a integridade do Fórum que é por assunto... Desta forma se facilita a pesquisa por usuários que tenham a mesma Dúvida.

O Fórum agradece o retorno.

Opa!!! Clicou no Joinha!!!... Agora vou lá no outro tópico... hehehe

Abraços!

O Fórum agradece o retorno.