| |
|
|
| | Не могу разобраться с сохранением записей с формы в 2 таблицы одновременно.
Пишу через ВБА СКЛ выражение, запускаю его - всё ок, в одну таблицу запись занесена. Но как только я добавляю еще одно СКЛ выражение для сохранения записей во 2ую таблицу, работает только она.... | |
| |
| |
| |
|
|
| | ну, хотябы, код, который вы используете, посмотреть... чтобы что-то внятно ответить  | |
| |
| |
| |
|
|
| | Но как только я добавляю еще одно СКЛ выражение для сохранения записей во 2ую таблицу
Код покажите.
Как ругается? | |
| |
| |
| |
|
|
| | А он никак не ругается - он просто его не выполняет....
Private Sub Save_Click()
Dim strSQL As String
Dim admSQL As String
intTOnr = "0001"
admSQL = "Select [TO],[Date],[TO_number] from [Table1]"
With CurrentDb.OpenRecordset(admSQL)
admSQL = "insert into [Table1] ([TO],[Date],[TO_number]) values ('" & Me.TONumber & "', '" & Me.DateCreated & "', " & intTOnr & ")"
If Not .BOF Then
DoCmd.RunSQL admSQL
End If
End With
strSQL = "Select [Exmpl] from [Table2]"
With CurrentDb.OpenRecordset(strSQL)
strSQL = "insert into [Table2] values ('" & Me.TOType & "')"
DoCmd.RunSQL strSQL
End With
|
Тоесть в этом примере сохраняются записи только в Табле1. | |
| |
| |
| |
|
|
| | Ну вот...посмотрела со стороны и поняла, 4то проблема была в Очепятке! Извиняюсь за безпокойство! Ну всё равно спасибо! :) | |
| |
| |
| |
|
|
| | строка
strSQL = "insert into [Table2] values ('" & Me.TOType & "')"
имеет неверный синтаксис не указаны поле куда добавить значение
непонятно зачем открывается рекордсет... | |
| |
| |
