Egyes könyvek eladási adatai
nevű űrlap készítése
1. Hozzunk létre egy űrlapot
az eladas táblára vonatkozóan.
2. Tervező nézetben az űrlap
fejlécéhez vegyünk hozzá egy kombinált lista mezőt, ami az ISBN, cim adatokat
listázza ki a konyv táblából.
3. Jelenítsük meg a kombinált
lista tulajdonságait, adjuk meg a kombinált lista vezérlőelem nevét, legyen
ez ISBN.
4. Vegyünk még a fejléchez
egy cim, egy kiad_azon és egy kiad_dat nevű mezőt.
5. Az ISBN nevű mező Frissítés
után eseményéhez 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.
[cim] = MyTable("cim")
[kiad_azon] = MyTable("kiad_azon")
[kiad_dat] = MyTable("kiad_dat")
End If
MyTable.Close ' Tábla bezárása.
DoCmd ApplyFilter , "[isbn]
= Forms![Egyes könyvek eladási adatai]![isbn]"
End Sub
6. Mentsük el az űrlapot az
“Egyes könyvek eladási adatai” néven.
A kész űrlap: