Ako vyplňovanie poľa vo VB prístupe

Vaše aplikácie Access bude jednoduchšie , ak ste vyplniť automaticky polí v tabuľke , keď viete , že dáta , ktorá ide v nich . To možno vykonať pomocou jazyka Visual Basic for Applications . Môžete použiť objektu Recordset otvoriť databázovú tabuľku a naplniť ľubovoľné pole v tabuľke . Metóda AddNew sa používa na vytvorenie nového rekordu v objekte Recordset a metódy Update uloží všetky zmeny vykonané v zázname . Pokyny dovolená 1

Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " pre otvorenie aplikácie Microsoft Visual Basic Editor . Kliknite na " Vložiť " menu a kliknite na " modul " pre pridanie nového kódu modulu . Vytvoriť nový podprocedura pridaním nasledujúci kód :

Private Sub populateField ( )
2

Vytvorte premenné , ktoré budete používať na vytvorenie novej tabuľky a naplnenie poľa :

Dim dbs ako databáza

Dim rst ako Recordset

Dim rowCntr As Integer

Dim fNames ( 10 ) As String

Set dbs = CurrentDb
3

Naplnenie poľa reťazcov s dátami : Spojené

fNames ( 0 ) = " John "

fNames ( 1 ) = " Kitzia "

fNames ( 2 ) = " Adalat "

fNames ( 3 ) = " Oscar "

fNames ( 4 ) = " Emilio " Spojené

fNames ( 5 ) = " Carlos "

fNames ( 6 ) = " Sylvia "

fNames ( 7 ) = " Sebastian "

fNames ( 8 ) = " Luis "

fNames ( 9 ) = " Joe "
4

vykonanie príkazu SQL na vytvorenie novej tabuľky v databáze pomocou textového poľa :

sqlStr = " CREATE TABLE myNewTable ( jmeno TEXT ( 50 ) ) ; "

DoCmd.RunSQL ( sqlStr )
5

Otvorte novú tabuľku pomocou objektu Recordset :

Set rst = dbs.OpenRecordset ( " myNewTable " )
6

Vytvorte FOR slučky k naplneniu pole " Meno " vášho stola :

rowCntr = 0 až 9

RST . addnew

rst.Fields ( 0 ) . Hodnota = fNames ( rowCntr )

rst.Update

Ďalšie rowCntr
7

zatvorte Recordset a ukončiť podprocedura :

rst.Close

End Sub
8

Stlačte " F5 " na spustenie procedúry . Prepnite späť do aplikácie Microsoft Access a dvakrát kliknite na " myNewTable " zobraziť vyplnenými poli .

• Predchádzajúca strana: Ako zakázať Odstrániť listu vo VBA 
• Ďalšia strana: Ako vytvoriť ComboBox v programe Access