[Resolvido]Formulario com Subformulário

Boa tarde Amigos
Neste exemplo de form com subform, não deixar gravar nada se no subformulário não tiver produtos registados.
Se por acaso o nome do cliente já estiver digitado .... elimina
Obrigado

Olá Assis,
Vá às relações e nas propriedades de associação altere do tipo 1 para o tipo 2.
Bom Domingo, Abraço

Bom domingo Teixeira

Ficou igual ....

1 - Abro o form
2 - Digito o nome do cliente.
3 - Fecho o formulário sem gravar produtos no subform, e grava no formulário o nome do cliente. Não devia pois não tem produtos registados

Olá Assis,
O seu projecto tem uma tabela principal e outra para os "movimentos".
Da forma que tem a origem dos dados no formulario ao adicionar um campo grava logo na tabela.
Se não tiver "movimentos" uma das formas é ter uma caixa avisar que não tem registos e vai ser elimindo.
No entanto, chamo atenção que se um registo for eliminado os "movimentos" irá apagar.
Resumindo, tem que eliminar quando não tem registos de "movimentos".

Outra forma, seria ter os campos do formulario"desacopulados" não ligados à origem dos dados, e só gravar (pode ser por consulta) quando clicar no botão gravar, no entanto, teria que controlar se tinha "movimentos", na minha opinião, muito mais trabalhoso.
Se tiver dúvidas, o exemplo do nosso Maestro, do nosso colega Avelino Sampaio, tem um exemplo.

Fica ao critério.
Abraço

Teixeira

Resolvido com esta dica


Private Sub Command83_Click()
Autor FabioPaes
On Error Resume Next
Dim F As Integer

F = Nz(DCount("*", "Tbl_detalheOrcamento", "Id_ligacao = " & Me.idOrcamento & ""), 0)
If F = 0 Then
If MsgBox("Deseja Fechar e Cancelar os Dados? ", vbYesNo + vbInformation, "Atenção!") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
End If
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
End If
End Sub


Obrigado Teixeira

Olá Assis, obrigado pelo retorno.
É isso, mesmo controlar se tinha registos.
Não se esqueça de dar como resolvido.
Abraço

Obrigado Teixeira