Microsoft Access 2007 ist die Windows- Datenbank-Programm mit dem grafischen Abfrage- Schnittstelle . Ausführen von Abfragen in Access 2007-Datenbanken gibt Benutzern die Möglichkeit zum Abrufen und Daten filtern , berechnen numerische Daten Summen und automatisieren Aktualisierung oder Löschung Datenbank-Einträge. Die Access-Abfrage -Funktionen basieren auf SQL-Abfrage Sprache. Die Visual Basic for Applications (VBA) unterstützt SQL-Anweisungen in den VBA-Funktionen . Es erlaubt Benutzern, eine Abfrage auf der Access 2007 -Datenbank mit dem VBA -Steuerung laufen . Anleitung
1
Klicken Sie auf die Schaltfläche "Start" in Windows und wählen Sie die " Microsoft Office ", " Visual Basic for Applications (VBA) " .
2
Klicken Sie auf " öffnen " und wählen Sie den VBA -Steuerung des Berichts , auf denen Sie um die Reihenfolge zu ändern
3
Fügen Sie den folgenden Code nach dem . " CurrentDb.Execute strSQL "Zeile in Ihre VBA -Abfrage:
On Error GoTo err_handler
Dim strSQL As String
strSQL = "SELECT sbqryAdmitDeals.lt_name " & _
" sbqryAdmitDeals.FullName , sbqryAdmitDeals.RoleLeadFK " & CDate ( Format ( Now () , " Short Date " ) ) - [ RepRecd ] AS Tage , 2 AS OrderID
" INTO " [Ihre Variable Name]
" FROM sbqryAdmitDeals "
"WHERE sbqryAdmitDeals.RoleLeadFK ) ="
DoCmd.SetWarnings Falsch
DoCmd.RunSQL strSQL
DoCmd.SetWarnings Wahre
ExitMySubName :
Exit Sub
err_handler :
DoCmd.SetWarnings Wahre
MsgBox Err.Description , vbExclamation , "Fehler -Nummer: " & Err.Number
Lebenslauf ExitMySubName
End Sub
4
Klicken Sie auf die "Query -Assistent "-Befehl auf dem Access Band.
5
Geben Sie die folgende Abfrage in das Textfeld ein :
SELECT sbqryAdmitDeals.lt_name CDate ( Format ( Now () , " Short Date" ) - [ RepRecd ] AS Tage , 2 AS OrderID INTO mtblFSRcvd
FROM sbqryAdmitDeals
WHERE ( ( sbqryAdmitDeals.RoleLeadFK ) = [ Forms ] [ frmReports ] [ cboPrimaryContact ] ! );
6
Klicken Sie auf die Schaltfläche "Ausführen" , um die Abfrage auf Ihrem Access 2007-Datenbank mit VBA Kontrolle.
