Julimar Alves 4/8/2017, 01:55
A primeira tela é frm_clientes e a sua chave primária é o CNPJeCPF
Quando eu clico no ícone com o carrinho, ela abre a segunda tela, que é o frm_veiculos, onde cadastro os automóveis. Neste formulário, a chave primária é a placa do veículo.
O problema é que quando eu clico no ícone "salvar", ele retorna a mensagem de erro, de que é preciso ter um registro relacionado. Nesse caso, eu estou tentando copiar três campos desacoplados presentes na form_veiculos (com origem na tabela clientes), para a tbl_veículos.
Mas para abrir o terceiro formulário (frm_cadastroait), onde cadastro as infrações (chave primária codaccessait) o problema não ocorre.
Estou enviando o banco de dados sem usar o Zipmail, pois talvez o anterior tenha perdido algo duranteo envio, já que o abri normalmente aqui.
Para salvar o cadastro do veículo e o cadastro de infrações, eu utilizo o seguinte código:
Private Sub salvarclientes_Click()
Dim bc As Database
Dim tbl_veiculos As Recordset
Set bc = CurrentDb()
Set tbl_veiculos = bc.OpenRecordset("tbl_veiculos")
Me!nome = Me.doc2
Me!codaccesscliente = Me.doc1
Me!CPFeCNPJ = Me.doc
Set bc = Nothing
Set tbl_veiculos = Nothing
If MsgBox(" Deseja salvar o cadastro deste veículo?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso") = vbOK Then
DoCmd.Save
DoCmd.RunCommand acCmdRefresh
MsgBox " Cadastro salvo com sucesso !", vbOKOnly, "Aviso"
Else
MsgBox " Veículo não cadastrado ", vbInformation, "Aviso"
End If
End Sub