potrebna mi je pomoc oko koda. naime, hteo bih da prilikom izvrsenja koda u slucaju da je odredjeni podatak tj red izbrisan da pozove gresku (primer: kutija pod brojem xxx je izbrisana ili ne postoji u bazi). dole je kod kojim pozivam nekoliko query-ja
****************************************************
Private Sub Command3_Click()
If vbYes = MsgBox("Da li zelite da izbrisete kutije?", vbYesNo + vbDefaultButton1) Then
'vbDefaultButton1 = Y je pritisnuto po defaultu
stDocName = "aqry_ObrisaniArtikli"
DoCmd.OpenQuery stDocName, acNormal, acEdit
'kopira zapise iz glavne tabele atrikli i snima ih u tabeli obrisani artikli
stDocName = "aqry_ObrisaneKutije"
DoCmd.OpenQuery stDocName, acNormal, acEdit
'kopira zapise iz glavne tabele kutije i snima ih u tabeli obrisane kutije
stDocName = "dqry_BrisiArtikle"
DoCmd.OpenQuery stDocName, acNormal, acEdit
'brise zapise iz glavne tabele artikli
stDocName = "dqry_BrisiKutije"
DoCmd.OpenQuery stDocName, acNormal, acEdit
'brise zapise iz glavne tabele kutije
stDocName = "dqry_PrazniTabelu"
DoCmd.OpenQuery stDocName, acNormal, acEdit
'brise zapise iz tabele za brisanje kako bi bila prazna za sledeci unos
Me.Recalc
End If
End Sub
****************************************************
unapred hvala na pomoci