Bevitele a rekord mezők között független
Számos módja van, hogy adjon meg egy rekord, és a leggyakoribb az, hogy egy űrlap kötődik egy táblázatot. Egy másik módja ennek az, nem kapcsolt területeken, azaz egy űrlap mezők önálló független az asztalra. Ahhoz, hogy
megadni az adatokat használjuk a "recordset", azaz egy kód, amely esetében ez a példa a következő:
Dim db például adatbázis
Dim RS RecordsetHa MsgBox ("Szeretnél írni?" VbYesNoCancel, "Options") = vbYes Ekkor
"Gomb megnyomásával kérik-e menteni a rekordot vagy nem, ha így folytatódik a kód végéig
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Adatok", dbOpenTable)
"Nyissuk meg a táblát beszúrni adatnyilvántartásrs.AddNew
rs ("name") = Me! INome
rs ("cím") = Me! Imorada
rs ("kor") = Me! Iidade
rs.Update "elküldi az adatokat a táblázathoz
rs.Close "Egyértelmű az adatokat, és lezárja a recordset
Set rs = Nothing
Set db = NothingMe.INome = null 'törli a mezők formájában
Me.Imorada = null
Me.Iidade = null
MsgBox "Record mentve", vbInformation, a "Kész" "megerősítő üzenet megjelenítése
Me.INome.SetFocus "Vigye a kurzort az első mező
Egyéb: Exit Sub
End If
Letöltés: Független Place
Nincs hozzászólás.