SQL запрос в MS access с многочисленными связанными таблицами

SupremeB
Дата: 02.12.2009 15:28:17
Если что-нибудь еще надо, говорите
Может справочник еще выложить, который привязан?
SupremeB
Дата: 02.12.2009 16:51:44
Люди, есть предложения по спасению ?
mds_world
Дата: 02.12.2009 17:23:59
SupremeB
Выкладываю.

Готов бы посмотреть, но 2007-го не имею. И второе - в присланном не увидел БД, только екселлевские файлы.

Сделайте в формате 2000/2003 можно будет посмотреть. И не забудьте приложить саму бдшку.
SupremeB
Дата: 02.12.2009 17:35:42
Так. Выкладываю в 2003, как просили.
База обрезанная, а то не влезит.
Разобраться сам не в силах.(
Taper
Дата: 02.12.2009 18:21:02
mds_world
SupremeB,

сделайте фрагмент вашей бд, самый минимум, только необходимое и хлс-файл. Заархивировать и выставить здесь.

как вариант можно делать поиск по указанной директории и загружать оттуда все файлы с расширением .xls
SupremeB
Дата: 04.12.2009 09:56:35
Есть ли соображения по данной дилемме?
Taper
Дата: 04.12.2009 10:39:17
Для массового импорта эксель файлов одинаковой структуры использую следующее:
Поле на форме (strFilePath), в котором содержится путь к папке из которой надо импортировать файлы
По нажатию кнопки (ctlDataImport) запускается поиск excel файлов в указанной папке и их импорт в указанную таблицу (tblDataImport)
Private Sub ctlDataImport_Click()
Dim i As Integer
Dim strExcelFile As String
  With Application.FileSearch
.NewSearch
.LookIn = Me.strFilePath
.SearchSubFolders = False
.FileName = "*.xls"
.TextOrProperty = ""
.MatchAllWordForms = True 
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
strExcelFile = .FoundFiles(i)
DoCmd.TransferSpreadsheet acImport, 8, "tblDataInput", strExcelFile

Next i

End Sub


Не убирающий за собой оверквотинг в сообщениях узкий специалист подобен флюсу. К.Прутков
Taper
Дата: 04.12.2009 10:41:47
Для массового импорта эксель файлов одинаковой структуры использую следующее:
Поле на форме (strFilePath), в котором содержится путь к папке из которой надо импортировать файлы
По нажатию кнопки (ctlDataImport) запускается поиск excel файлов в указанной папке и их импорт в указанную таблицу (tblDataImport)
Private Sub ctlDataImport_Click()
Dim i As Integer

Dim strExcelFile As String
  With Application.FileSearch

.NewSearch
.LookIn = Me.strFilePath
.SearchSubFolders = False
.FileName = "*.xls"
.TextOrProperty = ""
.MatchAllWordForms = True 
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
strExcelFile = .FoundFiles(i)
DoCmd.TransferSpreadsheet acImport, 8, "tblDataInput", strExcelFile

Next i

End Sub


Не убирающий за собой оверквотинг в сообщениях узкий специалист подобен флюсу. К.Прутков
SupremeB
Дата: 04.12.2009 12:48:13
Access выдает что ошибочная инструкция SQL; предполагалось delete, select. insert, update или procedure ((((((((
Taper
Дата: 04.12.2009 12:56:59
SupremeB
Access выдает что ошибочная инструкция SQL; предполагалось delete, select. insert, update или procedure ((((((((
На какой строчке? И вообще, вы на каком уровне владения VBA? Формы, кнопки, обработка событий - это для вас прозрачно и понятно?