Ako aktualizovať dotazu v programe Access VBA

Vedieť , ako aktualizovať dáta v dotazu v programe Microsoft Office Access pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas , kedy budete musieť neustále aktualizovať dáta v tabuľkách . Access je relačný databázový systém sa bežne používa u menších lokálnych databáz . Otázka sa používa na zobrazenie dát v tabuľke databázy . VBA je programovací jazyk použiť na automatizáciu rutinných úloh v programe Access . Pokyny dovolená 1

Spustite program Microsoft Office Access , zvoľte " Databázové nástroje " a kliknite na " Visual Basic " . Zvoľte menu " Vložiť " , potom kliknite na " . Modul "
2

Skopírujte a vložte nasledujúci kód do modulu :

Private Sub updateQuery ( )

Dim db Ako databáza

Dim rst Ako Recordset

Dim SQLString As String Dim

rstCnt As Integer

Set db = CurrentDb

SQLString = " CREATE TABLE tableToUpdate ( Prvý text , posledný text ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )

strSQL = " INSERT INTO tableToUpdate VALUES ( " Oscar " , " Gonzalez ' ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tableToUpdate VALUES ( ' Kitzia ' , ' Ramos ' ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tableToUpdate VALUES ( ' John ' , ' Smith ' ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tableToUpdate VALUES ( ' Anna ' , ' Williams ' ) "

DoCmd.RunSQL ( strSQL )

Set rst = db.OpenRecordset ( " SELECT * FROM tableToUpdate tableToUpdate ; . " )

rst.MoveLast

rst.MoveFirst

rstCnt = 0 To rst.RecordCount - . 1

Ak rst.Fields ( 0 ) Value = " oscar " Potom

rst.Edit

rst.Fields ( 0 ) . Value = " Emilio "

rst.Update

End If

rst.MoveNext

Ďalšie rstCnt

End Sub
3

Stlačte " F5 " spustiť " updateQuery " podprogram . Podprogram vytvorí novú tabuľku , vloží nové riadky dát , dotazov tabuľky vytvoril a aktualizuje prvé pole .

• Predchádzajúca strana: Ako čítať súbor vo VBS 
• Ďalšia strana: Ako zmeniť skript Užívateľ Heslo