Könyvek eladása (eladas űrlap)
1. Bővítsük az adatbázisunkat
egy eladas nevű táblával.
2. Adjuk meg a konyv és az eladas tábla közötti kapcsolatot:
3. A kapcsolat tulajdonságainál
válasszuk ki a Kapcsolt mezők kaszkádolt frissítése opciót.
4. Hozzunk létre egy AutoŰrlapot
az eladás táblára.
5. Az ISBN mezőt töröljük
le tervező nézetben, és csináljunk helyette egy kombinált lista mezőt,
ami az ISBN, cim, ar adatokat listázza ki a konyv táblából.
6. Jelenítsük meg a kombinált
lista tulajdonságait, adjuk meg a kombinált lista vezérlőelem nevét, legyen
ez ISBN.
7. Készítsünk egy “ertekfrissit"
nevű makrót, ami az Értékbeállítás műveletet használja az ERTEK nevű vezérlőelem
beállítására (kifejezés: [MENNYISEG]*[EGYSEGAR]*(1-[KEDVEZMENY])).
8. A kombinált lista “Frissítés
után” tulajdonságához rendeljük a következő eseményvezérelt eljárást:
Sub ISBN_AfterUpdate ()
Dim MyDB As Database, MyTable
As Recordset
Set MyDB = DBEngine.Workspaces(0).Databases(0)
Set MyTable = MyDB.OpenRecordset("konyv",
DB_OPEN_TABLE) ' Tábla megnyitása.
MyTable.Index = "PrimaryKey"
' Index kiválasztás.
MyTable.Seek "=", isbn
If Not MyTable.NoMatch Then
' Ha megtalálta.
[EGYSEGAR] = MyTable("ar")
End If
MyTable.Close ' Tábla bezárása.
DoCmd RunMacro ("ertekfrissit")
End Sub
9. A MENNYISEG, EGYSEGAR, KEDVEZMENY
nevű mezők Kilépésre tulajdonságához rendeljük hozzá az “ertekfrissit”
makrót.
10. Zárjuk be, és mentsük
el az űrlapot “eladas” néven.
A kész űrlap: