Olá Pessoal
estou com um problema no subnormais de locação de filmes , (estou desenvolvendo um sistema para locadora de filmes incrivelmente)
esse codigo esta na combox do formulario principal e do subformulario
no subformulario esta dando esse menssagem (nao é possivel adcionar registro(s). A chave de junção da tabela 'Tbl_Filmes' nao esta no conjunto de registros)
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Filme não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_CadFilmes", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
segue meu banco para analise.
estou com um problema no subnormais de locação de filmes , (estou desenvolvendo um sistema para locadora de filmes incrivelmente)
esse codigo esta na combox do formulario principal e do subformulario
no subformulario esta dando esse menssagem (nao é possivel adcionar registro(s). A chave de junção da tabela 'Tbl_Filmes' nao esta no conjunto de registros)
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Filme não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_CadFilmes", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
segue meu banco para analise.
- Anexos
- SysLocadora (3).zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (284 Kb) Baixado 14 vez(es)