Gość: ela
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