Yshopnoosa.com

Hur att fylla i ett fält i VB tillgång

Hur att fylla i ett fält i VB tillgång

Din tillgång ansökan blir lättare att använda om du autopopulate fält i en tabell när du vet data som går i dem. Detta kan åstadkommas med Visual Basic for Applications. Du kan använda objektet Recordset för att öppna databastabellen och fylla alla fält i tabellen. AddNew-metoden används för att skapa en ny post i ett Recordset-objekt och metoden Update sparar alla ändringar som görs av posten.

Instruktioner

1 Klicka på "Databasverktyg" och klicka "Visual Basic" för att öppna Microsoft Visual Basic editor. Klicka på "Infoga"-menyn och klicka på "Modul" för att lägga till en ny kodmodul. Skapa en ny OnFilterComboChange genom att lägga till följande kod:

Private Sub populateField()

2 Skapa de variabler du vill skapa en ny tabell och fylla i ett fält:

Dim dbs som databas

Dim rst som postmängd

Dim rowCntr As Integer

Dim fNames(10) As String

Ställa in dbs = CurrentDb

3 Befolka sträng array med data:

fNames(0) = "John"

fNames(1) = "Kitzia"

fNames(2) = "Mia"

fNames(3) = "Oscar"

fNames(4) = "Emilio"

fNames(5) = "Carlos"

fNames(6) = "Sylvia"

fNames(7) = "Sebastian"

fNames(8) = "Luis"

fNames(9) = "Joe"

4 Köra en SQL-sats för att skapa en ny tabell i databasen med ett textfält:

sqlStr = "Skapa en tabell myNewTable (förnamn TEXT(50));"

DoCmd.RunSQL (sqlStr)

5 Öppna den nya tabellen med hjälp av en postmängd:

Ange första = dbs. OpenRecordset("myNewTable")

6 Skapa en FOR-loopen för att fylla i fältet "Förnamn" i tabellen:

För rowCntr = 0 till 9

rst. AddNew

rst. Fields(0). Värde = fNames(rowCntr)

rst. Uppdatering

Nästa rowCntr

7 Stäng postuppsättningen och avsluta din OnFilterComboChange:

rst. Stäng

End Sub

8 Tryck på "F5" att köra din procedur. Växla tillbaka till Microsoft Access och dubbelklicka på "myNewTable" om du vill visa fältet befolkade.