Dator > hur man skapar ett pass tillgång parameterfråga i VBA

  • hur man skapar ett pass tillgång parameterfråga i VBA


  • Skapa parameterfrågor med Microsoft Access VBA ( Visual Basic for Applications ) innebär att man använder Access fördefinierade objekt , inklusive QueryDef och databasobjekt. Frågesträngen används tillsammans med dessa föremål är den samma som används när man skapar Access frågor utan VBA (t. ex. " SELECT * FROM mintabell VAR myfield=[ user_entered_parameter ]").

    Du behöver : .
    Microsoft Access


    1 .
    Open Access och skapa en tabell med exempeldata med hjälp av följande rader . Skriv in den första raden text som tabellens fältnamn .

    bok , datesold , netsale
    främja ord 12/1/202C $ 5,03
    främja ord 12/3/202C $ 4,97
    der meisterstringer , 12 /5 /202C $ 1,97
    der meisterstringer , 12/6/202C $ 0,97
    2 .
    Spara tabellen som " böcker ", skriv sedan in Visual Basic IDE ( Integrated Development Environment ) genom att trycka . " Alt-F11 "
    3
    Klicka på " Infoga ", följt av " moduler "på IDE verktygsfält och sedan klistra in följande kod i Code-fönstret :

    Public Sub param_q_select ( )
    Dim db Som DAO . Databas
    Dim qd Som DAO. QueryDef
    Dim sqry As String
    Set db=CurrentDb
    sqry=" SELECT * FROM böcker där bok som [ Enter boktitel ] "
    Ställ QD=db. CreateQueryDef ( " qpSelect " , sqry )
    End Sub
    4 .
    Kör makrot genom att placera markören någonstans inuti denna subrutin och trycka på " F5 . "
    5 .
    tillbaka till Access och stänga NAVIGATION till vänster om det är öppet . Re-öppna fönstret och upptäcka att de nya , lagras fråga ( " qpSelect " ) . Dubbelklicka på denna fråga för att köra den , och skriv " * päls * " vid prompten . Kallelse frågan resultat: endast de rader med " främja orden " visas
    6
    Tillbaka till IDE genom att trycka " Alt-F11 "och köra makrot hjälp Steg 4 instruktioner . . Lägg märke till felet som visas här gången ( " Objekt " qpSelect ' finns redan " )
    7
    Revidera kod för att förhindra felet genom att ersätta den med denna kod : .

    Public Sub param_q_select ( )
    Dim db Som DAO. Database
    Dim qd Som DAO. QueryDef
    Dim sqry As String
    Set db=CurrentDb
    På Fel GoTo skip_delete
    db . QueryDefs. Delete " qpSelect "
    skip_delete :
    sqry=" SELECT * FROM böcker där bok som [ Enter boktitel ] "
    Set QD=db. CreateQueryDef ( " qpSelect " , sqry )
    End Sub
    8 .
    köra om kod med Steg 4 instruktioner . Observera att det inte finns något fel den här gången
    9
    Revidera makrot så att ditt program som användaren kan välja vilka fält för att skapa en parameterfråga från: . . kopiera hela param_q_select subrutin och klistra in den i ett tomt område i koden fönstret. Byt namn på denna kopia som param_q_choose_field
    10 .
    Ersätt den befintliga programkoden för param_q_choose_field , mellan " på fel . . . " och " End Sub " uttalanden . Skriv eller klistra in den här koden istället :

    Dim SF
    SF=InputBox ( " Ange fältnamn " )
    sqry=" SELECT * FROM böcker där " sf " som [ Enter " sf " ] "
    On Error GoTo skip_delete
    db. QueryDefs. Delete " qpSelect "
    skip_delete :
    Set QD=db. CreateQueryDef ( " qpSelect " , sqry )
    End Sub
    11 .
    köra om subrutinen med Steg 4 instruktioner , och skriv " netsale " när " Enter fältnamnet "visas .
    12 .
    Kör frågan skapats av subrutinen med Steg 5 instruktioner . Men skriv " * 0 * "när du ombeds för netsale parametern . Tryck " Enter " och märker att bara rader som " netsale " fältet innehåller "0 "var tillbaka .


Previous:Vilka är fördelarna med Java uppgradera ? Next:hur man visar text på rollover





Relaterade artiklar


  • hur man överklockar ett EVGA 780i SLI
  • hur man återställer en Canon i860
  • hur man bevarar en bläckstråleskrivare
  • hur man installerar en SATA-drivrutin på ett MSI K8N moderkort
  • hur man byter en trådlös SSID
  • Hur man återskapar en U3P fil
  • Packard Bell platina 2010 specifikationer
  • Compaq 6910p specifikationer
  • hur man använder 3G på en mini 9
  • PowerBook G4 stängs skärmen medan datorn är på