• 
  

  hur man ersätta ett värde i en Access-frågan

  
  

Att veta hur man ersätta värden i ett Microsoft Access -databas fråga kan göra dina frågor mer flexibel . Access är en relationsdatabas som vanligen används för mindre databaser . Visual Basic for Applications eller VBA , är en dator programmeringsspråk som har utvecklats av Microsoft för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . En fråga används för att hämta data från en databastabell . I VBA kan du använda variabler för att ersätta värden i en fråga
1 .
Starta Microsoft Office Access och välj " tom databas "och sedan 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 den och sedan ifrågasätta data med hjälp av en variabel .

Private Sub substituteQueryVal ( )



Dim db som databas

Dim rcrdSet Som Recordset

Dim strSQL As String

Dim Xcntr As Integer

Dim substituteVAl Som String



substituteVAl=" C # "



Set db=CurrentDb

strSQL=" CREATE TABLE querySubstituteVal ( indx nummer, språk TEXT , svårigheter TEXT ), "

DoCmd . RunSQL ( strSQL )



strSQL=" INSERT INTO querySubstituteVal ( indx , språk , svårigheter ) "

strSQL=strSQL " VALUES ( 1 , "C" , "5 ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO querySubstituteVal ( indx , språk , svårigheter ) "

strSQL=strSQL " VALUES (2 , " C # ", "2 ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO querySubstituteVal ( indx , språk , svårigheter ) "

strSQL=strSQL " VALUES (3 , " VB " , "3 ');"

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" SELECT querySubstituteVal. Language , querySubstituteVal. Difficulty "

strSQL=strSQL " Från querySubstituteVal "

strSQL=strSQL " WHERE ( ( ( querySubstituteVal. Language )=' " ( substituteVAl ) "'));"



Set rcrdSet=db. OpenRecordset ( strSQL )

rcrdSet. MoveLast

rcrdSet. MoveFirst

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



MsgBox " Svårighetsnivå för " rcrdSet . Fält ( " språk " ) . Value " är " _

rcrdSet. Fields ( "svåra" ) . Value



rcrdSet. MoveNext

Nästa Xcntr



rcrdSet. Close

db. Close



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

Previous：nothing Next：hur du infogar en uppsättning data i en tabell i Visual Basic

Relaterade artiklar