hvordan man får adgang VBA søgeparametre

Indlæg af Allan Busk-Mathiasen     opdateret: 2011-10-05

Vide hvordan man får adgang søgeparametre hjælp af Visual Basic for Applications ( VBA ) kan gøre din computer ansøgning mere dynamisk . Microsoft Office Access er en relationel database management system der almindeligvis anvendes til mindre databaser . Visual Basic for Applications ( VBA ) er et edb-programmering sprog, der bruges til at automatisere rutineopgaver i Access . En forespørgsel er lavet til at hente og returnere oplysninger fra en database tabel . En Recordset bruges til at få adgang til feltnavne og data i cellen
1 .
Start Microsoft Office Access og vælg " Tom database " og derefter klikke på " Opret ". Klik på " Databaseværktøjer "og vælg " Visual Basic " . Klik på " Indsæt "-feltet og vælg " Modul " .
2 .
Kopier og indsæt koden nedenfor ind i din modul . Koden vil skabe en tabel , føje data til det så forespørge data og vise det gennem en besked boks .

Private Sub accessQueryParameters ( )


Dim db som database
Dim rcrdSet Som Recordset
Dim strSQL As String
Dim Xcntr As Integer

Set db=CurrentDb
strSQL=" CREATE TABLE queryParameters ( NumField NUMBER , EmployeeName TEKST , holdning ) ; "

DoCmd . RunSQL ( strSQL )

strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , holdning) "
strSQL=strSQL " VALUES ( 1 , 'John ' , ' RF- Ingeniør ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )


strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , holdning) "
strSQL=strSQL " VALUES (2 , ' Jaime ' , ' Software Engineer ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , holdning) "
strSQL=strSQL " VALUES (3 , ' Ana ' , ' Design Engineer ');"

DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" Vælg queryParameters . * fra queryParameters "


Set rcrdSet=db. OpenRecordset ( strSQL )
rcrdSet. MoveLast
rcrdSet. MoveFirst
For Xcntr=0 Til rcrdSet. RecordCount-. 1

MsgBox rcrdSet. Fields ( " EmployeeName " ) Værdi " er en " _

rcrdSet. Fields ( " Position " ) . Value

rcrdSet. MoveNext
Næste Xcntr


rcrdSet . Luk
db. Close

End Sub
3 .
Kør din subrutine ved at trykke på " F5 . "


Previous:hvordan man skriver et script til at sende en email, når en computer går online Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change