[Resolvido]abre form numerado

Bom dia pessoal,


Estou com uma dúvida, se possível me ajudem.

conforme segue o exemplo um form chamado pedido e outro dados_pedido.

Ao abrir o form pedido aperto no botão novo digito os dados e aperto o button dados do pedido, que ao abrir gostaria que já viesse com o nº do pedido, via código.

pois quando digito manual no dados_pedido consigo concluir a operação de pedido e ao abrir dados_pedidos vem o mesmo nº., só que somente acontece quando digito o nº do pedido(no form dados_pedido), manualmente.

Preciso que quando vou iniciar um novo registro, abro o form pedido, que numera automaticamente e ao apertar o botão dados_pedido já abrisse o form com o nº do pedido, isso sem prejudicar o resultado.

E, para ilustrar envio um exemplo simples.



Grato,

Campos.

Boa tarde Campos

Tente o seguinte
1º no form pedido no botão dados_pedido altere o evento para

Private Sub Comando7_Click()
DoCmd.OpenForm "dados_pedido", acNormal, "", "", acEdit, acNormal
DoCmd.GoToControl "pedido"
End Sub

2º no form dados_pedido no evento atual cole

Private Sub Form_Current()
Forms!dados_pedido!pedido = Forms!pedido!pedido.Value
End Sub

Obs: Por segurança altere nomes dos campos para diferente do nome dos forms
veja o seu form pedido com campo pedido
se alterar não se esqueça de alterar nos eventos tambem

Espero que seja isto

Abraços

Boas


Corrija o comando
DoCmd.OpenForm "dados_pedido", acNormal, "", "", acEdit, acNormal

para

DoCmd.OpenForm "dados_pedido", acNormal, "", "", acEdit, acNormal
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToControl "pedido"

Abraços

Eu faria assim

formulario 1

no botao de comando


'Primeiro salvar o registro
DoCmd.RunCommand acCmdSaveRecord
'Depois abre o segundo form
DoCmd.OpenForm "dados_pedido", acNormal


formulario2

ao abrir


'abrir em um novo registro
DoCmd.GoToRecord , , acNewRec
'preenche o campo com o numero do pedido
Me!pedido = Forms!pedido!pedido



No atual


'se tiver varios produtos do mesmo pedido
'continua preenchendo o campo com o numero do pedido
Me!pedido = Forms!pedido!pedido



ao fechar


'******Atenção******
'Por causa da ter o preenchimento automatico no evento Form_current()
'se pular para um novo registro vai ser gerado um registro em branco
'esta função deletar o registro em branco
Dim db As DAO.Database
Set db = CurrentDb()

   db.Execute "DELETE * FROM dados_pedido where isnull(Produto)"
 
Set db = Nothing



Boa sorte

olá nossos amigos,

Fico muito grato pela força,

Tanto do Celso Roberto, quanto do Scandinavo.

Deu certo, fiz adaptação e funcionou muito bem.

Abraços,

Campos.

Boas

Até a próxima meu amigo

Abraços