Da bi izbegao grešku koja se javlja kad je klub već u tabeli brianih, potrebno je da pitaš da li već postoji taj klub u toj tabeli.
Kod za dugme
btnMove bi bio:
Code:
Private Sub btnMove_Click()
Dim i As Integer
Dim rsOld As DAO.Recordset
Dim rsNew As DAO.Recordset
Dim rsExist As DAO.Recordset
Set rsExist = CurrentDb.OpenRecordset("SELECT * FROM BrisanitblKupacKlub WHERE(Sifrakluba=" & Me.Sifrakluba & ")")
If rsExist.RecordCount > 0 Then GoTo exists
Set rsNew = CurrentDb.OpenRecordset("SELECT * FROM BrisanitblKupacKlub")
Set rsOld = CurrentDb.OpenRecordset("SELECT * FROM tblKupacKlub WHERE(ID_Kupac=" & Me.ID_Kupac & ")")
rsNew.AddNew
For i = 0 To rsOld.Fields.Count - 1
rsNew.Fields(i).Value = rsOld.Fields(i).Value
Next
rsNew.Update
rsNew.Close
rsOld.Close
Set rsNew = Nothing
Set rsOld = Nothing
Exit Sub
exists:
MsgBox "Klub je vec obrisan!"
Set rsExist = Nothing
End Sub
Ako želiš da izbrišeš klub iz tabele TblKupac, moraš da izmeniš relacije za tu tabelu i čekiraš
Cascade Delete Related Records za tabele zaduženja i uplata. U suprotnom možeš da izbrišeš samo klub koji nema zaduženja i uplata, jer zbog relacija ne može postojati šifra kluba u uplatama i/ili zaduženjima koja nije definisana u tabeli kupaca.