Hvor hen til adgang kombinationsboks i en forespørgsel

April 29

Hvor hen til adgang kombinationsboks i en forespørgsel

Vidende hvor hen til adgang en kombinationsboks og derefter bruge det i en forespørgsel er nyttig, når de udvikler edb-applikationer. For eksempel, i Microsoft Access, kan en kombinationsboks gøre det lettere for brugeren at manipulere data. Ved hjælp af Visual Basic for Applications (VBA) computer programmering sprog, kan du gøre en formular, opretter en tabel og derefter bruge tabellen til at føje data til en kombinationsboks.

Instruktioner

1 Starte Microsoft Office Access 2007, skal du vælge "Tom Database", og klik derefter på "Opret."

2 Klik på fanen "Opret", og vælg derefter "Formulardesign" at oprette en ny formular. Klik på "Kombinationsboks" i vinduet "Kontroller" derefter klikke din form og trække det for at oprette en ny kombinationsboks. Klik på "Knappen" på ruden "Kontrol" for at tilføje en ny knap til formularen.

3 Højreklik på "Command0", og klik derefter på "Egenskaber." Klik på fanen "Begivenhed" og derefter vælge "[Hændelsesprocedure]" ud for "På klik." Klik på ellipse (...) for at åbne vinduet "Microsoft Visual Basic".

4 Kopier og Indsæt følgende kode under "Private Sub Command0_Click()":

Dim strSQL som streng

strSQL = "Opret tabel dataTable (ComboIndx nummer, rowData tekst);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO dataTable (ComboIndx, rowData)"

strSQL = strSQL & "Værdier (1, 'Row1');"

DoCmd.SetWarnings falsk

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO dataTable (ComboIndx, rowData)"

strSQL = strSQL & "VALUES (2, 'Row2');"

DoCmd.SetWarnings falsk

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO dataTable (ComboIndx, rowData)"

strSQL = strSQL & "Værdier (3, 'Row2');"

DoCmd.SetWarnings falsk

DoCmd.RunSQL (strSQL)

strSQL = "Vælg dataTable.* fra dataTable"

strSQL = strSQL & "hvor dataTable.rowData = 'Row2';"

Me.Combo0.RowSource = strSQL

5 Skift tilbage til Microsoft Access-vinduet, Højreklik på "Combo0", og klik derefter på "Egenskaber." Klik på fanen "Begivenhed" Vælg. [Hændelsesprocedure] "ud for"Efter opdatering." Klik på ellipse (...) for at åbne vinduet "Microsoft Visual Basic".

6 Kopier og Indsæt følgende kode under "Private Sub Combo0_AfterUpdate()":

Dim dbs som Database

Dim rst som Recordset

Dim comboString som heltal

Dim SQLstr som streng

Indstille dbs = CurrentDb

comboString = Me.Combo10.Text

SQLstr = "Vælg dataTable.rowData fra dataTable"

SQLstr = SQLstr & "hvor dataTable.ComboIndx =" & (comboString) & ";"

Indstille rst = dbs. OpenRecordset(SQLstr)

rst. MoveLast

rst. MoveFirst

MsgBox "Data for denne combo-indeks er:" & rst. Fields(0). Værdi

rst. Luk

DBS. Luk

7 Luk vinduet "Microsoft Visual Basic". Højreklik på "Form1", og klik derefter på "Formularvisning." Klik på "Command0" til at udfylde kombinationsboksen med data.

8 Vælg en værdi i en kombinationsboks. Du vil se data for dette indeks i en meddelelsesboks.


© 2020 iamgreatindian.com | Kontakt os: webmaster# iamgreatindian.com