Dodaj do ulubionych

Fragment VBA

IP: *.internetdsl.tpnet.pl 30.07.06, 23:32
cześć! Co wykonuje ten kawałek kodu?

Dim dbPlik As DAO.Database
Dim rstPlik As DAO.Recordset
Dim plik As String
Set dbPlik = CurrentDb
Set rstPlik = dbPlik.OpenRecordset("INFO")
plik = Dir("C:\Nowe\dane_txt")
x = 0
Do While plik <> ""
rstPlik.AddNew
rstPlik!NazwaPliku = plik
rstPlik.Update
x = x + 1
plik = Dir
Loop
rstPlik.Close
dbPlik.Close
DoCmd.Requery
Obserwuj wątek

Nie masz jeszcze konta? Zarejestruj się


Nakarm Pajacyka