Microsoft Access is een onderdeel van de Microsoft Office suite . Met behulp van deze software , kunt u afzonderlijke databases , rapporten en formulieren te maken . Toegang kunt u uw eigen toepassingen met behulp van deze componenten te creëren . Om nog meer functionaliteit toe aan uw applicaties of databases toevoegen, kunt u taken programmeren in Visual Basic for Applications ( VBA ) . VBA is standaard taalontwikkeling van Microsoft voor Office -producten . De taal is gebaseerd off van Visual Basic 6.0 en gebruikt dezelfde syntax . Een van de vele dingen die je kunt doen met deze taal is uit te voeren vragen over uw gegevens. Instructies
1 Voer een query en zet de resultaten in een record set voor manipulatie . Kopieer en plak de VBA-code hieronder om de gegevens van uw vraag te laden . Dim dbMyDatabase
Zoals DAO.Database Dim rsMyRecords
Zoals DAO.Recordset Set dbMyDatabase
= CurrentDb < br set rsMyRecords > = dbMyDatabase.OpenRecordset ( " myQuery " ) kopen van 2 Voer een vraag met invoerparameters met een query definitie object en laad de resultaten in een record set met behulp van de code voorbeeld hieronder . Dim dbMyDatabase
Zoals DAO.Database Dim rsMyRecords
Zoals DAO.Recordset Dim qdMyParameters
Zoals DAO.QueryDef Set dbMyDatabase
= CurrentDb < br Set qdMyParameters > = dbMyDatabase.QueryDefs ( " myQuery " ) qdMyParameters.Parameters
( " MyParameter " ) = " value " Set rsMyRecords
= qdMyParameters.OpenRecordset ( ) op Twitter
Loop 3 door elk verslag terug en een actie uitvoeren . Het voorbeeld hieronder is een manier om dit te doen
Do While Not rsMyRecords.EOF Debug.Print
" De inhoud van mijn column : " . ! & RsMyRecords [ MyColumnName ]
rsMyRecords.MoveNext Loop
4
uitvoeren van een SQL-query in plaats van een naam Access-query en zet de resultaten in een record set voor manipulatie . Kopieer en plak de VBA-code hieronder . Dim dbMyDatabase
Zoals DAO.Database Dim rsMyRecords
Zoals DAO.Recordset Dim strQuery
als Koord strQuery
= " SELECT * FROM MyTable " Set dbMyDatabase
= CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5 uitvoeren van een opdracht die geen records niet terug met behulp van deze VBA-code . Bijwerken en verwijderen van commando's zijn voorbeelden van uitspraken die geen records doen terugkeren . CurrentDb.Execute
" MyQueryName "
|
