Zadání rekordních pole přes nezávislé
Existuje několik způsobů, jak zadat záznam, a nejčastěji je získat prostřednictvím formuláře vázán do tabulky. Dalším způsobem, jak toho dosáhnout, je pomocí nesouvisejících oblastech, tj. na formuláři s poli nezávislé nesouvisejících ke stolu. Na
zadejte údaje, které používáme na trase záznamů ', tj. pomocí kódu, který je v případě tohoto příkladu je následující:
Dim db jako databáze
Dim rs Jak RecordsetPokud MsgBox ("Chcete psát?" VbYesNoCancel, "Možnosti") = vbYes pak
"Po stisknutí se zeptal, zda chcete uložit záznam, nebo ne, pokud ano, kód pokračuje až do konce
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Otevřete tabulku vložit data registracers.AddNew
rs ("jméno") = Me! INome
rs ("adresa") = Me! Imorada
rs ("věk") = Me! Iidade
rs.Update "posílá data do tabulky
rs.Close "Smazat data a zavře záznamů
Set rs = Nothing
Set db = NothingMe.INome = null "vymaže pole ve tvaru
Me.Imorada = null
Me.Iidade = null
MsgBox "zachránil Record", vbInformation "Hotovo" "Display zprávu s potvrzením
Me.INome.SetFocus "Přesuňte kurzor na první pole
Else: Exit Sub
End If
Download: Místo Nezávislé
Žádné komentáře.