Zusammenfassung:
Dieses Tutorial hilft Ihnen , die Programmier – Tools , dh VBA – Code in Microsoft Accesszu orientierenund verweist Sie auf Ressourcen Einige Wo Sie mehr über das Programmieren lernen können.
Sie müssen Makros verwendet haben und Access wissen sehr gut , wie viel es komplex ist , mit zu arbeiten. … .. ist es nicht? Aber wissen Sie, wie Sie diese Komplexität vereinfachen können, indem Sie VBA-Codes in Access verwenden?
Was ist VBA-Code? Nun, um Antworten auf diese Fragen zu erhalten, müssen Sie nur MS Access in die Hände bekommen.
Einführung in den Zugriff auf VBA
VBA ist eine Programmiersprache, mit der Sie leistungsstarke Anwendungen in Access erstellen können. VBA enthält eine große Anzahl von Variablen, die Sie für den Zugriff auf Makros verwenden können.
Nicht nur das, sondern auch die Verwendung von Steuerelementen von Drittanbietern und das Schreiben eigener Funktionen / Verfahren für spezifische spezifische Bedürfnisse. Sie können den VBA-Code auch verwenden, um Ihren Zugriff auf andere Programme zu integrieren.
Die Programmierung von Microsoft Access mit VBA kann einfacher sein, wenn Sie die Tastatur für die gebräuchlichsten Befehle und die gebräuchlichsten Codebits in Ihrer Anwendung kennen.
[ cta-de-729 ]
So aktivieren Sie die eingebauten Funktionen in Access VBA
Wissen Sie, dass Sie die integrierten VBA-Funktionen in Ihrer Access 2013/2016-Anwendung aktivieren können? Möchte wissen, wie man diese Schritt für Schritt Anweisungen befolgt.
Um die eingebauten VBA-Funktionen in Ihrem Zugriff zu verwenden Datenbank müssen Sie sich an die visuelle Basisreferenz namens “Visual Basic für Anwendungen” wenden.
- Dazu müssen Sie nur die Datenbank öffnen.Presse Alt + F11 zum Öffnen des Microsoft Visual Basic Wenn das Microsoft Visual Basic-Fenster angezeigt wird, wählen Sie im Menü Extras die Option Verweise .
- Wenn dieReferenzen Fenster erscheinen, suchen Sie nach der Referenz Expired genannt Visual Basic für Anwendungen und stellen Sie sicher, dass es überprüft wird.
- Nach dem Klick auf den OK-Button.
- Jetzt kann Ihre Access-Datenbank die integrierten VBA-Funktionen nutzen.
üblich Zugriff auf VBA-Programmierung und Debuggen Code
Hier ist die Liste der allgemeinen VBA-Codes, die Ihnen bei der Ausführung der VBA-Aufgabe helfen.
So öffnen Sie ein Formular in der Formularansicht
DoCmd.OpenForm ” formname ” , acNormal
So ändern Sie das Eigenschaftsformular in einem geöffneten Formular:
Formulare ! [ Formularname ]. propertyName = neuerWert
Holen Sie sich Wert von einem Steuerelement in einem offenen Formular:
Formulare ! [ FormName ]! [ ControlName ] .Wert
Ändern Sie den Wert eines Steuerelements in einem geöffneten Formular:
Formulare ! [ FormName ]! [ ControlName ] .Value = newValue
Ändern Sie eine Steuerelementeigenschaft in einem geöffneten Formular:
Formulare ! [ FormName ]! [ ControlName ]. propertyName = neuerWert
Schließen Sie ein Formular und speichern Sie die Änderungen:
DoCmd.Close acForm , ” formName “, acSaveYes
Drucken Sie einen Bericht:
DoCmd.OpenReport ” reportName “, acViewNormal
Führen Sie eine Aktionsabfrage aus:
DoCmd.RunSQL ” SQL-Anweisung “
Um eine einfache Nachricht anzuzeigen
MsgBox ” yourMessage “
Ja / Nein-Frage auf dem Bildschirm stellen.
Variable = MsgBox (” yourMessage “, vbQuestion + vbYesNo )
LESEN SIE AUCH:
How To Fix MS Access Reservierter Fehler 7713, 7748, 7711 In Access 2016 / 2013/2010/2007
Navigieren und Auswählen von Code in Vba
Sie können diese VBA-Verknüpfungen im Codefenster und im unmittelbaren Fenster verwenden, um Ihren Arbeitsstil zu vereinfachen.
| Aktion | Tastenkürzel |
| Bewegen Sie den Cursor ein Zeichen nach rechts | → |
| Wählen Sie den Buchstaben rechts aus | Umschalt + → |
| Bewegen Sie den Cursor ein Wort nach rechts | Strg + → |
| Wählen Sie das Ende des Wortes | Strg + Umschalt + → |
| Bewegen Sie den Cursor ein Zeichen nach links | ← |
| Wählen Sie das Zeichen links neben dem Cursor | Umschalt + ← |
| Bewegen Sie den Cursor ein Wort nach links | Strg + ← |
| Bewegen Sie den Cursor zur Startlinie | Zuhause |
| Wählen Sie den Text, um die Zeile zu beginnen | Shift + Home |
| Bewegen Sie den Cursor zum Zeilenende | Ende |
| Wählen Sie den Text bis zum Zeilenende | Shift + End |
| Bewegen Sie den Cursor eine Zeile nach oben | ↑ |
| Bewegen Sie den Cursor eine Zeile nach unten | ↓ |
| Bewegen Sie den Cursor zur nächsten Prozedur | Strg + ↓ |
| Bewegen Sie den Cursor zur vorherigen Prozedur | Strg + ↑ |
| Scrollen Sie einen Bildschirm nach oben | PgUp |
| Scrollen Sie einen Bildschirm nach unten | PgDn |
| Zum Anfang des Moduls gehen | Strg + Home |
| Wählen Sie den gesamten Text über dem Modul aus | Strg + Umschalt + Home |
| Gehe zum Ende des Moduls | Strg + Ende |
| Wählen Sie den gesamten Text am Ende des Moduls | Strg + Umschalt + Ende |
| Auswahl ausschneiden | Strg + X |
| Auswahl kopieren | Strg + C |
| Auswahl einfügen | Strg + V |
| Schneide die aktuelle Zeile in die Zwischenablage | Strg + Y |
| Löschen bis zum Ende des Wortes | Strg + Entf |
| Lösche Zeichen oder ausgewählten Text | Löschen (Entf) |
| Lösche das Zeichen links neben dem Cursor | Rücktaste |
| Löschen bis zum Ende des Wortes | Strg + Entf |
| Löschen bis zum Anfang des Wortes | Strg + Backspace |
| rückgängig machen | Strg + Z |
| Linie einrücken | Tab |
| outdent Linie | Umschalt + Tab |
| finden | Strg + F |
| ersetzen | Strg + H |
| Finden Sie Weiter | F3 |
| Vorherige finden | Umschalt + F3 |
| Hilfe zum aktuell ausgewählten Wort erhalten | F1 |
| Schnelle Info | Strg + I |
Allgemeine VBA-Editor-Tastenkombinationen
Die folgende Tabelle vermittelt Ihnen das Wissen über die Tastenkombinationen und ihre Funktionen im Visual Basic-Editor, in dem Sie Ihren VBA-Codeschreiben, ändern und ausführen.
| Aktion | Tastenkürzel |
| Wechseln Sie zwischen Access und dem VBA-Editor | Alt + F11 |
| Hilfe | F1 |
| Objektbrowser anzeigen | F2 |
| Eigenschaften / Ereignisse anzeigen | F4 |
| Codefenster anzeigen | F7 |
| Direktes Fenster anzeigen | Strg + G |
| Kontextmenü anzeigen | Umschalt + F10 (oder Rechtsklick) |
| Führen Sie ein Sub / UserForm aus | F5 |
| Stoppen Sie die Codeausführung | Strg + Pause |
| Schließen Sie den VBA-Editor und kehren Sie zu Access zurück | Alt + Q |
VBA teclas de atalho de depuração
Code in der Programmiersprache muss genau sein, es kann keine Fehler oder Fehler geben. Wenn es einen Fehler oder Fehler gibt, wird das Kompilierungsproblem angezeigt. Glücklicherweise können Sie VBA-Code mit diesen Debugging-Verknüpfungen schnell debuggen.
| Aktion | Tastenkürzel |
| Umschaltpunkt umschalten | F9 |
| Treten Sie ein | F8 |
| Geh rüber | Umschalt + F8 |
| Tritt heraus | Strg + Umschalt + F8 |
| Zum Cursor laufen | Strg + F8 |
| Löschen Sie alle Haltepunkte | Strg + F9 |
Wichtiger VBA Access Code Zusammen mit den Beispielen
ChangeLinkPath
Diese Funktion wird hauptsächlich verwendet, um den Pfad zu einem neuen Pfad zu ändern. Die Funktion erledigt dies, indem sie die Tabellen löscht undsie im neuen Pfad an die Tabelle freigibt .
Öffentliche Funktion ChangeLinkPath ( strNewPath als String) als String
Dim dbs Als DAO.Database
Dim strTblName als Zeichenfolge
Dim ColTbl als Sammlung
Dim intTbl As Integer
Wenn strNewPath <> “” und Dir ( strNewPath ) <> “” Dann
Legen Sie colTbl = Neue Sammlung fest
Setze dbs = CurrentDb
Für intTbl = dbs.TableDefs.Count – 1 TB 0 Schritt -1
Wenn dbs.TableDefs ( intTbl ) .Connect <> “” und _
Nicht dbs.TableDefs ( intTbl ) .Connect wie “*” & strNewPath Dann
colTbl.Add dbs.TabelleDefs ( intTbl ).
dbs.TableDefs.Delete dbs.TabelleDefs ( intTbl ).
Ende If
Nächste intTbl
Für intTbl = colTbl.Count auf 1 Schritt -1
strTblName = colTbl ( intTbl )
DoCmd.TransferDatabase acLink , “Microsoft Access”, _
strNewPath , acTable , strTblName , strTblName
Debug.Print “Verbindung zu” “& strTblName &” ‘”
Nächste intTbl
Stellen Sie dbs = Nichts ein
Setze colTbl = Nichts
Debug.Print “FERTIG!”
ChangeLinkPath = “FERTIG!”
sonst
Debug.Print “Neue Änderungen wurden nicht bereitgestellt.
ChangeLinkPath = “Neuer Pfad nicht angegeben.
Ende If
Beenden Funktion
Ende Funktion
ImportExportSpecification
Dieser Abschnitt der Access VBA enthält die Dokumentation für alle Objekte, Eigenschaften, Methoden und Ereignisse im Access-Objektmodell.
ImportExportSpecification Objekt enthalten alle Informationen, die Zugriffe benötigt, um einen Import / Export zu wiederholen
Sie müssen die verwenden hinzufügen Methode der ImportExportSpecifications Sammlung, um ein neues zu erstellen ImportExportSpecification Objekt. Benutze das Ausführen Methode zum Ausführen eines gespeicherten Import- oder Exportvorgangs.
LESEN SIE AUCH:
Wie Zugang zu beheben Fehler „Kann Projekt oder Bibliothek nicht finden“
ConcatenateFieldValues
Nun, diese Funktion basiert auf einem Funktionsnamen verketten. Es wird verwendet, um eine verkettete Zeichenfolge aus einem einzelnen Wertefeld zu erstellen.
Die einzufügenden Datensätze sowie das für die verkettete Zeichenfolge zu verwendende Feld werden von der SQL-Anweisung angegeben, die an die Funktion übergeben wird.
Die übergebene SQL-Anweisung muss nur ein Feld zurückgeben, damit diese Funktion ordnungsgemäß funktioniert. Der Wert in der verketteten Zeichenfolge wird durch die Zeichenfolge angegeben, die der Funktion als Trennzeichenfolge bereitgestellt wird.
Public Function ConcatenateFieldValues (pstrSQL As String, _
Optional pstrDelim As String = “,”) Als StringDim strConcat Als Zeichenfolge
‘====== Für ADO wie nächste 2 Zeilen und =======
‘====== Entfernen Sie die ADO-Zeilen unterhalb =======
Dim db As DAO.Datenbank
Dim rs als DAO.Recordset
Bei Fehler Fortsetzen Weiter
strConcat = “”
‘====== Für ADO wie kommst du 2 DAO Linien und =======
‘====== Entkommentieren Sie die ADO-Zeilen unten =======
Setzen Sie db = CurrentDb
Legen Sie rs = db.OpenRecordset ( pstrSQL ) fest‘====== Für ADO kommentieren Sie die nächsten zwei Zeilen und =====
‘====== Wie wäre es mit DAO Zeilen oben und unten ======
‘Dim rs als neues ADODB.Recordset
‘ rs.Offen pstrSQL , CurrentProject.Connection , _
‘ adOpenKeyset , adLockOptimistic
Mit rs
Wenn nicht. EOF dann
. Movefirst
Während nicht. EOF
strConcat = strConcat & .Fields (0) & pstrDelim
. Movenext
Schleife
Ende If
.Close
Ende mit
Setze rs = Nichts
‘====== Wie nächste 2 Zeilen für ADO ========
db.Close
Setze db = Nichts
Wenn Len ( strConcat )> 0 Dann strConcat = _
Links ( strConcat , Len ( strConcat ) – Len ( pstrDelim ))
ConcatenateFieldValues = strConcat
Beenden Funktion
Ende Funktion
DeleteAllRelations ()
DeleteAllRelations ( ) -Funktion Grundsätzlich Code wird verwendet , um alle Beziehungen in der aktuellen Datenbank zu löschen.
In einigen Fällen zeigt die Access-Datenbank keine Beziehungen zwischen Tabellen im Beziehungsfenster an. Da du die Beziehung und dich nicht sehen kannst konnte sie nicht löschen, was zu einem inkonsistenten Zustand führen würde. In solchen Fällen wird dieser Code als Fix bereitgestellt.
Funktion DeleteAllRelationships ( ) als String
‘WARNUNG: Löscht alle Beziehungen in der aktuellen Datenbank.
Dim DB Database ‘Aktuelle DB
Dim rex As Beziehungen von currentDB .
Dim rel As Beziehung ‘Beziehung wird gelöscht.
Dim iKt As Integer ‘ Anzahl der Beziehungen gelöscht.
Dim sMsg As String ‘ MsgBox Zeichenfolge.sMsg = “Über das Löschen aller Beziehungen zwischen Tabellen in der aktuellen Datenbank.” & vbCrLf & “Weiter?”
Wenn MsgBox ( sMsg , vbQuestion + vbYesNo + vbDefaultButton2, “Bist du sicher?”) = VbNo Dann
DeleteAllRelationships = “Vorgang abgebrochen”
Beenden Funktion
Ende IfSetzen Sie db = CurrentDb ( )
Setze rex = db.Relations
iKt = rex.Count
Während rex.Count > 0
Debug.Print rex (0).
rex.Delete rex (0).
Schleife
DeleteAllRelationships = iKt & “Beziehung (en) gelöscht”
Ende FunktionKopieren Sie diese Funktion und fügen Sie sie in ein Modul ein. Drücken Sie Strg + G , um das Direktfenster zu öffnen. eingeben:
? LöschenAllRelations ()
Fazit:
Hoffentlich haben Sie eine Menge Wissen über Access VBA-Code bekommen. ENTDECKEN SIE IHRE IDEEN ZUR PROGRAMMIERUNG MIT ZUGANG ….!
[ cta-de-729 ]