Fanta Fanta Genije
Član broj: 119794 Poruke: 118 *.cmu.carnet.hr.
|
Kod i dalje ne radi pokušao sam ga ubaciti kako si mi rekao, ali nije upalilo, pokušao sam i unutar funcije, ali opet prijavljuje manji broj redova.
Kod glasi ovako:
Private Sub cmdBrisanje_Click()
On Error GoTo Err_cmdBrisanje_Click
Dim stDocName As String
Dim brojZapisa As Variant
Dim response As Variant
Me.chkbrisati.Requery
brojZapisa = DCount("[RedniBroj]", "brisanje")
If brojZapisa > 0 Then
response = MsgBox(brojZapisa & " zapis(a) za brisanje", vbOKCancel)
If response = 1 Then
stDocName = "QueryBrisanje"
Call CurrentDb.Execute(stDocName, dbFailOnError)
Me.Requery
Else
MsgBox "brisanje nije izvrseno"
End If
Else
MsgBox "nema zapisa za brisanje"
End If
Exit_cmdBrisanje_Click:
Exit Sub
Err_cmdBrisanje_Click:
MsgBox Err.Description
Resume Exit_cmdBrisanje_Click
End Sub
brisanje je samo Sql query koji provjerava koliko je redova označeno za brisanje, a glasi ovako:
SELECT T_tvrtke_proizvodi.RedniBroj, T_tvrtke_proizvodi.Idtvrtka, T_tvrtke_proizvodi.idproizvoda, T_tvrtke_proizvodi.imeproizvoda, T_tvrtke_proizvodi.proizvodac, T_tvrtke_proizvodi.cijena, T_tvrtke_proizvodi.Brisati
FROM T_tvrtke_proizvodi
WHERE (((T_tvrtke_proizvodi.Brisati)=True));
QueryBrisanje je gotovo istog sadržaja samo briše:
DELETE T_tvrtke_proizvodi.RedniBroj, T_tvrtke_proizvodi.Idtvrtka, T_tvrtke_proizvodi.idproizvoda, T_tvrtke_proizvodi.imeproizvoda, T_tvrtke_proizvodi.proizvodac, T_tvrtke_proizvodi.cijena, T_tvrtke_proizvodi.Brisati
FROM T_tvrtke_proizvodi
WHERE (((T_tvrtke_proizvodi.Brisati)=True));
Kao što vidiš stavio sam za chekbox kako si mi rekao(Me.chkbrisati.Requery), ali još uvijek ne radi kako bi trebalo.
|