Het hebben van de kennis over hoe geavanceerde formulieren in Microsoft Office Access maken en gebruiken kan uw database applicaties krachtiger te maken . U kunt een formulier met behulp van de wizard Formulier gemakkelijk maken , maar je zult niet altijd de gewenste resultaten . U hebt de flexibiliteit om verschillende besturingselementen toe te voegen aan uw formulier als je het handmatig maken. Daarnaast kunt u Visual Basic for Applications ( VBA ) om processen uit te voeren achter die controles te schrijven . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinetaken in Access en andere MS Office-toepassingen te automatiseren . Wat je nodig hebt Microsoft Office Access Noordenwind Database Toon Meer Aanwijzingen 1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite . Kopen van 2 Klik op het tabblad "Create " en selecteer " Form Design" naar een nieuw formulier te maken . Klik op " Combo Box" op de " Controls " deelvenster vervolgens links klikken uw formulier en sleep om een nieuwe keuzelijst met invoervak te creëren . Klik op " knop" op de " Controls " venster en voeg een nieuwe knop aan uw formulier . Selecteer " List Box" en voeg een nieuwe keuzelijst aan uw formulier . Klik met de rechtermuisknop " Command0 " 3 en selecteer "Eigenschappen " . Klik op het tabblad " Event " en selecteer " [ Event Procedure ] " naast " On Click " . Klik op de puntjes ( " ... " ) om de " Microsoft Visual Basic " venster te openen . Druk op " Ctrl " en " A " en druk op " Delete " om alle bestaande code te verwijderen . Kopieer 4 en plak de volgende code op uw nieuwe module . De code zal de keuzelijst met invoervak vullen met laatste namen uit het "Product" tafel . Optie Vergelijk Database Private Sub Command2_Click ( ) Dim sqlstr als Koord < br Dim prductSelected als Koord Me.Combo3.SetFocus > prductSelected = Me.Combo3.Text sqlstr = " SELECT producten . [Naam ] , producten . [ Catalogusprijs ] " sqlstr = sqlstr & " FROM producten " sqlstr = sqlstr & " WHERE ( ( ( producten. [Naam ] ) = " " & ( prductSelected ) & " " ) ) ; " Me.List0.RowSourceType = " Tabel /Query " Me.List0.RowSource = sqlstr End Sub Private Sub Form_Load ( ) Me.List0.ColumnCount = 2 Me.Combo3.RowSourceType = " Tabel /Query " Me.Combo3.RowSource = " . SELECT producten [Naam ] FROM producten ; " End Sub 5 Sluit de " Microsoft Visual Basic " Window en klik met de rechtermuisknop " Form1 " en selecteer vervolgens " Form View " . Selecteer een Produce Naam van de keuzelijst met invoervak . Klik op " Command0 " om Catalogusprijs weergegeven in de keuzelijst op basis van de productnaam u geselecteerd .
|