[Resolvido]Inserção de novo registro dentro do sistema vinculado ao form atual.

Prezados tenho o seguinte em meu BD:

um form que traz detalhadamente todos os dados do processo judicial.
Dentro desse form criei um subform chamado "andamentos" onde irão ficar os andamentos cadastrados conforme vai atualizando o sistema, com botões de back e forward para ver os andamentos mais antigos e mais recentes
dentro desse subform inclui um botão para "incluir novo andamento", no qual ao clicar no botão quero que ele faça o seguinte:

Abra um novo form, já na opção de novo registro, vinculado ao processo que estava na tela anterior (chave primária).

O que fiz:

Criei o botão e inseri o comando
DoCmd.OpenForm "frmAtualizaandamento", acNormal

no outro form que abre para registro do novo andamento coloquei o seguinte:
vinculei a fonte de dados o campo "caso (chave primária)" ao campo "caso" do subform, para vincular todos os forms ao processo que eu estou analisando em tela (processo atual)

nisso coloquei os seguintes comandos:
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub


Private Sub Andamento_AfterUpdate()
Set Me.Data_de_Atualização = hoje()
End Sub



Todavia quando eu vou digitar ele simplesmente não digita, apresenta a msg na barra de status "não é possível adicionar registros. a chave de associação da tabela 'andamentos' não está no conjunto de registros."


Alguem me ajuda?

Esqueça o SET e altere de hoje para NOW, no VBA é assim que funciona.

Private Sub Andamento_AfterUpdate()
Me.Data_de_Atualização = Now()
End Sub

JPaulo, obrigado, assim corrigi o problema com relação à data..

Agora como colocar para que o novo registro capte automaticamente o código do processo que eu estou na tela? (processo atual)

Pesquise aqui mesmo por OpenArgs por favor.

Jpaulo, verifiquei essa função openargs e no exemplo do office ele fala que dá pra inserir novos dados, porém não consegui compreender muito:

Sub OpenToCallahan()

DoCmd.OpenForm "Funcionários", acNormal, , , _
acReadOnly, , "Callahan"


Aqui o arg é Callahan, no caso o funcionário da lista de funcionários.

End Sub



Sub Form_Open(Cancel As Integer) - Aqui, ao abrir o form usa a técnica openargs correto?

Dim strEmployeeName As String
' If OpenArgs property contains employee name, find
' corresponding employee record and display it on
' form. For example,if the OpenArgs property
' contains "Callahan", move to first "Callahan"
' record.
strEmployeeName = Forms!Employees.OpenArgs - Aqui ele seta o nome do funcionário pro employ name, no caso Callahan
If Len(strEmployeeName) > 0 Then - a partir daqui já não entendi...
DoCmd.GoToControl "Sobrenome"
DoCmd.FindRecord strEmployeeName, , True, , _
True, , True
End If

End Sub


Quanto ao abrir o formulário capturar o código já sei fazer com a função Where, porém queria saber como abrir já uma tela de inserção de novo registro com o código já setado em vez de aparecer (novo), sendo só necessário incluir o andamento

O comando pode até inserir um andamento automatico com um texto padrão tipo "inserir andamento" no código setado, porém não estou conseguindo compreender como fazer isso..

Desculpem, sou advogado e não programador kkkk então meu conhecimento é baixo (apesar de ter extrema facilidade e ter trabalhado como téc de info anteriormente)

Abçs!

É extremamente simples, mas vou fazer aqui um pequeno exemplo basico, aguarde...

Qualquer coisa assim, só para lhe mostrar o caminho das pedras;

Private Sub SeuBotão_Click()
    DoCmd.OpenForm "SeuSegundoForm", acNormal
    DoCmd.GoToRecord , , acNewRec
    Forms!SeuSegundoForm!SeuCampo = "inserir andamento"
End Sub

Grande JPaulo, eu achava que o acNew não poderia ser colocado abaixo do comando openform... já peguei o caminho das pedras aqui.

Detectei um erro no meu form também e já corrigi, vinculei um campo errado no form de inserção, agora está tudo certo!

Agradeço imensamente!

Abraços

Fico feliz por estar resolvido.

Obrigado pelo retorno o forum agradece.