Zadanie rekordných pole cez nezávislé
Existuje niekoľko spôsobov, ako zadať záznam, a najčastejšie je získať prostredníctvom formulára viazaný do tabuľky. Ďalším spôsobom, ako to dosiahnuť, je pomocou nesúvisiacich oblastiach, tj na formulári s poli nezávislej nesúvisiacich k stolu. Na
zadajte údaje, ktoré používame na trase záznamov ', tj pomocou kódu, ktorý je v prípade tohto príkladu je nasledovné:
Dim db ako databáza
Dim rs Ako RecordsetAk MsgBox ("Chcete písať?" VbYesNoCancel, "Možnosti") = vbYes potom
"Po stlačení sa spýtal, či chcete uložiť záznam, alebo nie, ak áno, kód pokračuje až do konca
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Dáta", dbOpenTable)
"Otvorte tabuľku vložiť dátumu registráciers.AddNew
rs ("meno") = Me! Inom
rs ("adresa") = Me! Imorada
rs ("vek") = Me! Iidade
rs.Update "posiela dáta do tabuľky
rs.Close "Zmazať dáta a zavrie záznamov
Set rs = Nothing
Set db = NothingMe.INome = null "vymaže pole v tvare
Me.Imorada = null
Me.Iidade = null
MsgBox "zachránil Record", vbInformation "Hotovo" "Display správu s potvrdením
Me.INome.SetFocus "Presuňte kurzor na prvé pole
Else: Exit Sub
End If
Download: Miesto Nezávislé
Žiadne komentáre.