| | Проблема заключается в том что никак не хочет формировать dbf файл. Хотя раньше я делал такое работало может я что нибудь подзабыл дописать в процедуре??? Помогите!
Private Sub Form_Close()
Dim tname$, strsql$, Fname$, pathdb$
On Error Resume Next
tname = "ПакетыВыгр" Выгружаемая таблица
Fname = "Пакеты" Имя файла
pathdb = "C:" Путь
CurrentDb.Execute ("DROP " & tname)
strsql = "INSERT INTO ПакетыВыгр ( KodSpec, НомерПакета, Длина, КодСорта, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, Количество, Обьем, КодДерева, Толщина, КодКонтейнера, КодСклада, Дата ) SELECT Plank.KodSpec, Plank.НомерПакета, Plank.Длина, Plank.КодСорта, Plank.[8], Plank.[9], Plank.[10], Plank.[11], Plank.[12], Plank.[13], Plank.[14], Plank.[15], Plank.[16], Plank.[17], Plank.[18], Plank.[19], Plank.[20], Plank.[21], Plank.[22], Plank.[23], Plank.[24], Plank.[25], Plank.[26], Plank.[27], Plank.[28], Plank.[29], Plank.[30], Plank.[31], Plank.[32], Plank.[33], Plank.[34], Plank.[35], Plank.[36], Plank.[37], Plank.[38], Plank.[39], Plank.[40], Plank.[41], Plank.[42], Plank.[43], Plank.[44], Plank.Количество, Plank.Обьем, Plank.КодДерева, Plank.Толщина, Plank.КодКонтейнера, Plank.КодСклада, Plank.Дата FROM Plank WHERE (((Plank.Дата)=Date()));"
CurrentDb.Execute strsql
DoCmd.TransferDatabase acExport, "dBase IV", pathdb, acTable, tname, Fname
End Sub | |
