[es] - Query, relacije ,događaji i subfforma

BiloKoje
Pera Petrovic
Beograd

Moderator
Član broj: 40147
Poruke: 212
*.ADSL.neobee.net.

Profil

Re: Query, relacije ,događaji i subfforma

^{16.02.2007. u 18:47}

Posle čekiranja jednog ili više redova, vršiš neku akciju, brisanje ili nešto drugo. Pre izvršenja, odnosno na početku koda te naredne akcije stavi Requery. To je potrebno samo u slučaju da je kursor ostao u redu u kom je vršena zadnja izmena.

^{16.02.2007. u 18:47}

Fanta
Fanta Genije

Član broj: 119794
Poruke: 94
*.cmu.carnet.hr.

Profil

Re: Query, relacije ,događaji i subfforma

^{17.02.2007. u 00:27}

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.

^{17.02.2007. u 00:27}

BiloKoje
Pera Petrovic
Beograd

Moderator
Član broj: 40147
Poruke: 212
*.ADSL.neobee.net.

Profil

Re: Query, relacije ,događaji i subfforma

^{17.02.2007. u 20:00}

Nemam sada vremena da proveravam, ali mislim da requery za ček boks nema značaja, a me.Requery si stavio posle izvršenja brisanja. Probaj na početku koda sa Me.Requery ili Refresh. Ako ne uspe, sutra ću proveriti.
Pozdrav.

^{17.02.2007. u 20:00}

Fanta
Fanta Genije

Član broj: 119794
Poruke: 94
*.cmu.carnet.hr.

Profil

Re: Query, relacije ,događaji i subfforma

^{18.02.2007. u 10:03}

Vidi se što donosi iskustvo BiloKoje, ima Zidar pravo, ima vas par koji ste stvarno dobri na ovom forumu.

Stavio sam mi requary ispred poziva i stvar sada odlično radi, još jednom ti puno hvala, a i svima ostalima koji su mi pomagali oko izrade ove baze.

Koliko znam ne bih trebao imati više bugova, osim ako korisnici ne nalete na njih u radu,eventualna poboljšanja ostaviću za neku drugu verziju.

Poslušao sam vaš savjet sa prijašnjeg posta kako odvojiti formu od tablica, moram još samo pročiti stvari u pogledu sigurnosti i lozinki i to će biti to. Ako gdje po običaju zapnem i ne znam riješene javiću se.

Još jednom svima hvala.

^{18.02.2007. u 10:03}