DELETAR REGISTRO
Tenho o codigo abaixo onde deleto o registro da tabela tbloc, so que tenho que deletar tambem o mesmo registro na tabela Inicial. Usei o segundo codigo mas não funciona. Como faço para efetuar esse procedimento?
Private Sub CmdDeletar_Click()
If MsgBox("Você tem certeza que deseja apagar os dados?", vbYesNo + vbQuestion) = vbYes Then
tbLoc.Delete
tbLoc.MovePrevious
MsgBox "Dados apagados!", vbExclamation
End If
CmbExcluirInicial_Click
End Sub
Private Sub CmbExcluirInicial_Click()
''Dim BdInicial As DAO.Database
Dim tbInicial As DAO.Recordset
''Set BdInicial = OpenDatabase("C:\Estoque\Materiais.mdb")
Set tbInicial = bdMat.OpenRecordset("Inicial", dbOpenTable)
tbInicial.Delete
tbInicial.MovePrevious
End Sub
Private Sub CmdDeletar_Click()
If MsgBox("Você tem certeza que deseja apagar os dados?", vbYesNo + vbQuestion) = vbYes Then
tbLoc.Delete
tbLoc.MovePrevious
MsgBox "Dados apagados!", vbExclamation
End If
CmbExcluirInicial_Click
End Sub
Private Sub CmbExcluirInicial_Click()
''Dim BdInicial As DAO.Database
Dim tbInicial As DAO.Recordset
''Set BdInicial = OpenDatabase("C:\Estoque\Materiais.mdb")
Set tbInicial = bdMat.OpenRecordset("Inicial", dbOpenTable)
tbInicial.Delete
tbInicial.MovePrevious
End Sub
Se este for um procedimento padrão, sugiro que relacione suas tabelas com integridade referencial.
Só há um registro na tabela inicial? Pq me parece que vc está excluindo sempre o primeiro, sem nenhum critério...
Só há um registro na tabela inicial? Pq me parece que vc está excluindo sempre o primeiro, sem nenhum critério...
se as tabelas não estão relacionadas você tem que ter mesmo assim um campo numerico que identifiquem as duas como sendo o mesmo registro, e antes de excluir da primeira tabela guardar este numero para ser utilizado na exclusão do registro da outra tabela e então de um execute
tbinicial.execute "delete * from tbinicial where codigo =" & numeroregistro
tbinicial.execute "delete * from tbinicial where codigo =" & numeroregistro
Tópico encerrado , respostas não são mais permitidas