| |
|
|
| | В массиве обрабтываеться данный запрос:
dbsFB.Execute ("INSERT INTO buf_" & tablic & " SELECT " & tablic & ".* FROM " & tablic & " IN " & "'" & strNacAdr & "\DATA.MDB" & "'" & " WHERE ((" & tablic & ".E_ED)=" & "'" & edrp & "'" & ") AND ((" & tablic & ".ZV_G)=" & spec & ") AND ((" & tablic & ".ZV_KV)=" & KV & ");")
Проблема в том, что в некоторых таблицах "tablic " отсутствуют записи. При выполнении запроса на данных таблицах выскакивает ошибка ".... требуеться 2 параметра". Подскажите пожайлуста как исправить запрос. | |
| |
| |
| |
|
|
| | мне кажется дело не в отсутствии записей... 
а в отсутствии полей... | |
| |
| |
| |
|
|
| | Что такое edrp, spec, KV? Что в них при отсутствии записи в tablic?
Покажите результирующий неработающий текст запроса.
И что значит "В массиве обрабтываеться данный запрос"? | |
| |
| |
| |
|
|
| | что делать? заканчивать на "ь"
что делает? заканчивает на "т" и пишется без "ь" после "т"
что будет делаться? писаться с "ь" после "т"
а то слух режет  | |
| |
| |
|
|
| |
|
|
| | с этого всё начинается | |
| |
| |
| |
|
|
| | Dim spec, KV As Integer
Dim edrp As String
edrp = Forms![Форма1]![F_VZ]![E_ED].Value
spec = Forms![Форма1]![F_VZ]![R_Yr].Value
KV = Forms![Форма1]![F_VZ]![R_KV].Value
For Each tbl In dbS.TableDefs
tablic = tbl.name
dbsFB.Execute ("INSERT INTO ...
Next | |
| |
| |
| |
|
|
| | там, где параметры передаете проверку поставьте на NZ. в зависимости от типа поля. возможно поможет. | |
| |
| |
| |
|
|
| | Параметры со значениями передаются. Просто в таблицах нет записей с этими параметрами... | |
| |
| |
| |
|
|
| | я все же настаиваю, что дело не в том что в таблицах нет данных, а в том что в таблицах нет таких полей | |
| |
| |
| |
 20 Кб. |
|
| | Off, про правописание. Вот пример правописания "профессионалов": | |
| |
| |
|
|
| |
|
|
| |
For Each tbl In dbS.TableDefs
tablic = tbl.name
dbsFB.Execute ("INSERT INTO ...
Next
|
Здесь перечисляются все таблицы БД, в т.ч. и системные. А в них уж точно нет полей E_ED, ZV_G, ZV_KV.  | |
| |
| |
| |
|
|
| | Спасибо всем! Работает. Добавил во все таблицы недостающих полей, кроме системных естественно (для них исключение.) | |
| |
| |
