Weten hoe u met Visual Basic gebruiken in Access 2007 kunt u een grote flexibiliteit bij het ontwikkelen van database- applicaties . Access 2007 biedt u de mogelijkheid om te verbeteren je ontwikkeling waardoor u de mogelijkheid om Visual Basic- code voor de formulieren en besturingselementen die u hebt gemaakt te schrijven . Visual Basic is een programmeertaal gecreëerd door Microsoft en het is gemakkelijk te gebruiken . U kunt eenvoudig programmeren in Visual Basic maken van rapporten in een Access-database of het uitvoeren van repetitieve manuele taken . Instructies
1 Klik op het tabblad "Create " in Access en selecteer " Form Design . " Het programma zal een nieuwe vorm te creëren . Selecteer de " Button " controle in het kader van de " Controls " venster en beweeg uw muis over de nieuwe vorm . Links - klik en maak de nieuwe knop . Voeg een " List Box" controle op het formulier op dezelfde manier als de knop kopen van 2 Klik met de rechtermuisknop op de keuzelijst toegevoegd . En kies 'Eigenschappen'. Op de " Eigenschappenvenster ", klikt u op het tabblad "Gegevens" en selecteer de drop - down box op " Row Source Type" en selecteer " Value List . "
3 Klik met de rechtermuisknop op de nieuwe knop en "Eigenschappen " te selecteren. Op de " Eigenschappenvenster " klikt u op het tabblad " Event " en selecteer de drop-down box op " On Click " en selecteer " [ Event Procedure ] . " . Klik op de puntjes ( ... ) en een nieuwe Visual Basic- venster van Microsoft wordt geopend
Type 4 het volgende : Dim dbs
Als Database
Dim rst als Recordset Dim X
als Geheel Dim strSQL
als Koord Dim lastFirst
als Koord
om variabelen op te geven die u wilt gebruiken .
< br > Type 5 : set
dbs = CurrentDb
om de huidige database instellen Type
: . strSQL
= " CREATE TABLE Tabel1 ( Voornaam TEXT ( 25 ) , Achternaam TEXT ( 25 ) ) ; . " DoCmd.RunSQL ( strSQL ) op
naar een nieuwe tabel in de database met de naam " Tabel1 "
< br Type > 6 : strSQL
= " INSERT INTO Tabel1 ( [Voornaam ] , [Achternaam ] ) "
strSQL = strSQL & " VALUES ( ' John ' , ' Smith ' ) ; . " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) op
naar de eerste rij gegevens invoegen
Type 7 :
strSQL = " INSERT INTO Tabel1 ( [Voornaam ] , [Achternaam ] ) "
strSQL = strSQL & " VALUES ( ' Jaime ' , ' Avelar ' ) ; "
< . p > DoCmd.SetWarnings False DoCmd.RunSQL ( strSQL ) op
om een tweede rij gegevens invoegen
Type 8 :
set rst = dbs.OpenRecordset ( " Tabel1 " ) op Twitter om het record set set Type
: . rst.MoveFirst
voor X = 0 om rst.RecordCount - 1 lastFirst
= Trim ( . rst.Fields ( " Achternaam " ) Value ) & " " & Trim ( rst.Fields ( " . Voornaam " ) Value ) op Twitter List1.AddItem lastFirst rst.MoveNext
Volgende X
voor het doorlussen van de records die u zojuist hebt gemaakt en deze weergeven in de keuzelijst op het formulier .
Type 9 : MsgBox
"Je hebt alle records weergegeven in tabel 1 naar box succes " , vbInformation
om een bericht weer . Overschakelen ramen terug naar Access 2007 en klik op " View " om het formulier te voeren . Klik op de knop " Command0 " en je zal de keuzelijst weergeven van de namen te zien .
|
