Microsoft Office Access is een relationele database management systeem vaak gebruikt voor kleinere databases . Visual Basic for Applications , ook wel bekend als VBA , is een programmeertaal gebruikt om handmatige taken in Microsoft Office -toepassingen te automatiseren . Een SQL-query is een veel voorkomende operatie uitgevoerd om gegevens uit een tabel te halen . In een paar stappen kunt u VBA-code schrijven om een tafel te vragen en geven het aantal records dat door middel van een bericht in. Instructies
1 Start Microsoft Office Access en selecteer " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het veld " Insert " en selecteer " Module . "
Copy 2 en plak de volgende VBA code in uw module : Private Sub getRecordCnt
( ) op Dim rst als Recordset Dim db
Als Database Dim sqlstr
als Koord sqlstr
= " CREATE TABLE CityInfo ( Stad TEXT ( 25 ) , de Staat TEXT ( 25 ) ) ; " DoCmd.RunSQL ( sqlstr ) sqlstr
= " INSERT INTO CityInfo ( [ Stad ] , [ staat ] ) " sqlstr = sqlstr & Breakfast " VALUES ( ' Arlington ' , ' Texas ' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( sqlstr ) sqlstr =
" INSERT INTO CityInfo ( [ Stad ] , [ staat ] ) "
sqlstr = sqlstr & " VALUES ( ' Watauga ' , ' Texas ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( sqlstr ) op Twitter sqlstr = " SELECT * FROM CityInfo CityInfo ; . "
Set rst = db.OpenRecordset ( sqlstr ) op rst.MoveFirst
rst.MoveLast
MsgBox rst.RecordCount End Sub
Druk op " F5 " Goedkope 3 om uw subroutine draaien . De code zal een nieuwe tabel te maken , records toe te voegen , en open een record set .
|
