• 
  

  hur man kan få parametrar VBA fråga

  
  

Att veta hur man kan få frågeparametrar med Visual Basic for Applications (VBA) kan göra datorn ansökan mer dynamisk . Microsoft Office Access är en relationsdatabas management system som vanligen används för mindre databaser . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access . En fråga är gjord för att hämta och returnera information från en databas tabell . Ett Recordset används för åtkomst fältnamn och datacell
1 .
Starta Microsoft Office Access och välj " tom databas " klicka på " Skapa ". Klicka på " Databas Verktyg "och välj "Visual Basic " . Klicka på " Infoga " och välj " Module " .
2 .
Kopiera och klistra in koden nedanför på din modul . Koden kommer att skapa en tabell , lägga till data i det då fråga om data och visa det genom en meddelanderuta .



Private Sub accessQueryParameters ( )



Dim db som databas

Dim rcrdSet Som Recordset

Dim strSQL As String

Dim Xcntr As Integer



Set db=CurrentDb

strSQL=" CREATE TABLE queryParameters ( NumField NUMBER , EmployeeName text, position TEXT ), "

DoCmd . RunSQL ( strSQL )



strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , Position ) "

strSQL=strSQL " VALUES ( 1, John ", " RF- ingenjör ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , Position ) "

strSQL=strSQL " VALUES (2 , " Jaime ", " Software Engineer ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO queryParameters ( NumField , EmployeeName , Position ) "

strSQL=strSQL " VALUES (3 , " Ana ", " Design Engineer ');"

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" Select queryParameters . * från queryParameters , "



Set rcrdSet=db. OpenRecordset ( strSQL )

rcrdSet. MoveLast

rcrdSet. MoveFirst

För Xcntr=0 Till rcrdSet. RecordCount-1.



MsgBox rcrdSet. Fields ( " EmployeeName " ) Värdet " är en " _

rcrdSet. Fields ( "Position " ) . Value



rcrdSet. MoveNext

Nästa Xcntr



rcrdSet . Stäng

db. Close



End Sub
3 .
Kör din subrutin genom att trycka " F5 . "

Previous：nothing Next：hur man installerar skrivare med VBScript

Relaterade artiklar