Access – Učitavanje poslednje korišćenog sloga

Ponekad je potrebno da kod nekih aplikacija, u nekim formama, automatski učitavate slog koji je poslednji korišćen ili koji je recimo najviše puta menjan (editovan). Da bismo u Accessu postigli ovaj cilj, potrebno je, ukratko, uraditi sledeće:

  • kreirati novu tabelu u kojoj ćemo čuvati primarni ključ korišćenog sloga između dve sesije (dva korišćenja date forme);
  • da bismo primarni ključ sloga smestili u tabelu, iskoristićemo događaj Unload forme;
  • da bismo pronašli i prikazali slog kod pozivanja određene forme, iskoristićemo događaj Load (učitavanje) forme.

Radi ilustracije, uzećemo formu na kojoj je primarni ključ polje [Sifra_Kupca]. Prvo ćemo kreirati tabelu u koju ćemo smeštati vrednost ovog primarnog ključa između dve sesije. Zato, kreirajte novu tabelu sa tri polja:


Naziv polja Tip Opis
Varijabla Text 20 Sadrzi naziv varijable,
naziv primarnog kljuca.
Vrednost Text 80 Sadrzi vrednost varijable.
Opis Text 255 Za sta se varijabla koristi.

Snimite ovu tabelu pod nazivom [tblKljuc]. U Accessu verzija 95 i 97, ovu tabelu označite kao skrivenu (hidden).

Za snimanje vrednosti primarnog ključa u novu tabelu iskoristićemo obrađivač događaja forme UnLoad. Podesite osobinu UnLoad forme na [Event Procedure], i dodajte naredni kod. U ovoj proceduri ćemo pronaći (ili kreirati) podatak-slog u tabeli tblKljuc, koji u polju [Varijabla] ima vrednost [Posled_Sifra_Kupca], te ćemo u polju [Vrednost] sačuvati vrednost primarnog ključa trenutnog sloga.


Sub Form_Unload (Cancel As Integer)
Dim db As Database, rst As Recordset

If IsNull(Me![Sifra_Kupca]) Then Exit Sub
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset(„tblKljuc“)
rst.index = „PrimaryKey“
rst.Seek „=“, „Posled_Sifra_Kupca“
If rst.NoMatch Then
rst.AddNew
rst![Varijabla] = „Posled_Sifra_Kupca“
rst![Vrednost] = Me![Sifra_Kupca]
rst![Opis] =
„Poslednja vred. sifre kupca, sa forme “ & Me.Name
rst.Update
Else
rst.Edit
rst![Vrednost] = Me![Sifra_Kupca]
rst.Update
End If
rst.Close
End Sub

Osobinu Load, iste forme, podesite na [Event Procedure] i dodajte sledeći kod. Ovaj kod odrađuje sledeće:

  • locira slog u tabeli tblKljuc, gde je u polju Varijabla sadržana vrednost [Posled_Sifra_Kupca]
  • preuzima poslednje upisanu vrednost primarnog ključa iz polja [Vrednost]
  • kreira klon recordseta sa podacima sa forme
  • pronalazi odgovarajući slog – Sifra_Kupca u kloniranom skupu
  • premešta se na taj slog kreiranjem BookMarka forme



Sub Form_Load ()
Dim db As Database,
rst As Recordset, rstFrm As Recordset

Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset(„tblKljuc“)
rst.index = „PrimaryKey“
rst.Seek „=“, „Posled_Sifra_Kupca“
If Not rst.NoMatch Then
If Not IsNull(rst![Vrednost]) Then
Set rstFrm = Me.RecordsetClone
rstFrm.FindFirst „[Sifra_Kupca]
= “ & rst![Vrednost]
If Not rstFrm.NoMatch Then
Me.BookMark = rstFrm.BookMark
End If
rstFrm.Close
End If
End If
rst.Close
End Sub

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.