[Resolvido]Salvar em Formulario e subformulario

Boa noite,

Tenho um formulario Compra e um subForm ItensCompra, estou tentando salvar os registros e adcionar um novo registro, porem so estou conseguindo salva-los, mas não estou conseguindo adciionar um novo registro no FormularioCompras. Alguem tem alguma ideia de como fazer?

Estou fazendo assim:

If IsNull(Me.codigoDetalhe) And (Me.codigoCompra) Then
MsgBox "Não há dados para Salvar", vbInformation, "Aviso"

Else
If MsgBox("Deseja Finalizar Compra?", vbYesNo, "Aviso") = vbNo Then
Me.Undo
MsgBox "Compra não Registrada", vbInformation, "Aviso"
Else '
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Compra Finalizada com Sucesso!!", vbInformation, "Compras"
End If
End If

DoCmd.GoToRecord , , acNewRec

Tente em um só bloco If:

Código:

If IsNull(Me.codigoDetalhe) And (Me.codigoCompra) Then
    MsgBox "Não há dados para Salvar", vbInformation, "Aviso"
ElseIf MsgBox("Deseja Finalizar Compra?", vbYesNo, "Aviso") = vbNo Then
    Me.Undo
    MsgBox "Compra não Registrada", vbInformation, "Aviso"
Else
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "Compra Finalizada com Sucesso!!", vbInformation, "Compras"
End If

DoCmd.GoToRecord , , acNewRec

E não está faltando alguma coisa no Me.CódigoCompra da linha abaixo?

If IsNull(Me.codigoDetalhe) And (Me.codigoCompra) Then

Olá Criquio

Obrigado pela ajuda, o que esta faltando, que nao estou conseguindo enxergar?

Este codigo que estou fazendo agora ele salva mesmo o valor sendo nulo.
observação: eu coloquei no evento ao carregar : DoCmd.GoToRecord , , acNewRec

Bom dia,

poderiam me mostrar onde esta o erro e o que esta faltando para a solução do meu problema por favor?

estou tentando encontrar mas não estou conseguindo.

O que está errado.....


If IsNull(Me.codigoDetalhe) And (Me.codigoCompra) Then

Oi JPaulo bom dia,

Não estou conseguindo salvar e adcionar um novo registro para o formularioCompra e SubformularioItensCompra, quando insiro este codigo ele salva apenas o subformulario e não adicona nenhum dos 2.

O que fazer?

Quer anexar aqui parte do seu banco ?

Como o Criquio já tinha dito, falta o IsNull aqui;


If IsNull(Me.codigoDetalhe) And IsNull(Me.codigoCompra) Then

obrigado JPaulo

segue o banco, talves a sua ideia seje muito melhor do que a minha e estou aberto a sugestao e criticas

Desculpa estou mandando tbm para versao 2003

Faça o teste;

Private Sub FinalizarCompra_Click()
If IsNull(Forms!frmCompras.codigoCompra) Or IsNull(Me.codigoDetalhe) Then
    MsgBox "Não há dados para Salvar...", vbCritical, "Aviso"
    Exit Sub
Else
'não faz nada
End If

If MsgBox("Deseja Finalizar Compra?", vbYesNo, "Aviso") = vbNo Then
    Me.Undo
    Forms!frmCompras.Undo
    MsgBox "Compra não Registrada", vbInformation, "Aviso"
        Exit Sub
 Else
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "Compra Finalizada com Sucesso!!", vbInformation, "Compras"
    Forms!frmCompras!codigoCompra.SetFocus
    DoCmd.GoToRecord , , acNewRec
End If
End Sub

Funcionaou direitinho muito obrigado JPaulo.

Obrigado pelo retorno o forum agradece.