Перенос записей

[ovt256]

Определяете строковую переменную сразу после названия Вашей процедуры:

Private Sub ИмяВашейПроцедуры()
    Dim SQL_Text As String

Затем заполняете переменную текстом запроса:

SQL_Text = "INSERT INTO ИмяТаблицы (ИмяПоля1, ИмяПоля2,...) VALUES (ЗначениеПоля1, ЗначениеПоля2,...)"

Только помните, что все числовые значения Вам необходимо преобразовать в строку, а текстовые - заключить в двойные кавычки. Например, если значение поля 1 целое, а поле 2 текстовое, то:

SQL_Text = "INSERT INTO ИмяТаблицы (ИмяПоля1, ИмяПоля2,...) VALUES (" + CStr(Me![ИмяПоля1]) + ", """ + Me![ИмяПоля2] + """,...)"

Пусть Вас не удивляют три двойные кавычки подряд. Поскольку ограничителем строки в VBA является двойная кавычка, то, чтобы вставить этот символ в значение строки, его нужно повторить дважды.

[groovy]

Сделал то что вы сказали. Создал кнопку зашел в обработку событий ввел код, сохранил, захожу нажимаю кнопку и выдает ошибку можете сказать что не так? либо там что то еще надо сделать конкретно вы говорили про метод Execute. Можете по подробей!

Option Compare Database

Private Sub Обработано1()
Dim SQL_Text As String

SQL_Text = "INSERT INTO ОБРАБАТЫВАЕМЫЕ_ЗАЯВКИ (КОД_ПОКУП, НОМЕР_ЗАЯВК, ДАТА_ПОД, ВИД_ПРЕТЕНЗ, ДАТА_ОКАЗ_УСЛ, ФОТО, НОМЕР_СОТРУД, ОПИСАНИЕ) VALUES (" + CStr(Me![КОД_ПОКУП]) + ", """ + Me![НОМЕР_ЗАЯВК] + """, " + CDat(Me![ДАТА_ПОД]) + ", " + CStr(Me![ВИД_ПРЕТЕНЗ]) + ", " + CDat(Me![ДАТА_ОКАЗ_УСЛ]) + ", " + (Me![ФОТО]) + ", " + CStr(Me![НОМЕР_СОТРУД]) + ", " + CStr(Me![ОПИСАНИЕ]) + ")"
End Sub

Private Sub Обработано1()

End Sub

Private Sub Обработано1()

End Sub

Private Sub Кнопка17_Click()

End Sub

Private Sub ЗаголовокФормы_Click()

End Sub

Private Sub Кнопка18_Click()

End Sub

[Swatch]

вызывать запрос docmd.runsql sqltext

[groovy]

Swatch Откуда его вызывать смысле эту строку куда надо вписать чтобы все заработало?

[Swatch]

Писать это надо в обработчике в событии "Нажатие кнопки". То есть если имя Вашей кнопки на форме - "Обработано1", то Вы должны описать для нее событие Click

Private Sub Обработано1_Click()

Dim SQL_Text As String

SQL_Text = "INSERT INTO ОБРАБАТЫВАЕМЫЕ_ЗАЯВКИ (КОД_ПОКУП, НОМЕР_ЗАЯВК, ДАТА_ПОД, ВИД_ПРЕТЕНЗ, ДАТА_ОКАЗ_УСЛ, ФОТО, НОМЕР_СОТРУД, ОПИСАНИЕ) VALUES (" + CStr(Me![КОД_ПОКУП]) + ", """ + Me![НОМЕР_ЗАЯВК] + """, " + CDat(Me![ДАТА_ПОД]) + ", " + CStr(Me![ВИД_ПРЕТЕНЗ]) + ", " + CDat(Me![ДАТА_ОКАЗ_УСЛ]) + ", " + (Me![ФОТО]) + ", " + CStr(Me![НОМЕР_СОТРУД]) + ", " + CStr(Me![ОПИСАНИЕ]) + ")"
docmd.runsql sql_text 
End Sub

Попробуйте так

[groovy]

Хоть убейте не работает сейчас кину скрины того что делаю. Ввожу вроде все правильно. Может в свойствах что-то выставить надо?

[Swatch]

Не так у Вас то что текст процедуры написан не там где надо оставьте вот это:

Option Compare Database
Private Sub Обработка_Click()

Dim SQL_Text As String

SQL_Text = "INSERT INTO ОБРАБАТЫВАЕМЫЕ_ЗАЯВКИ (КОД_ПОКУП, НОМЕР_ЗАЯВК, ДАТА_ПОД, ВИД_ПРЕТЕНЗ, ДАТА_ОКАЗ_УСЛ, ФОТО, НОМЕР_СОТРУД, ОПИСАНИЕ) VALUES (" + CStr(Me![КОД_ПОКУП]) + ", """ + Me![НОМЕР_ЗАЯВК] + """, " + CDat(Me![ДАТА_ПОД]) + ", " + CStr(Me![ВИД_ПРЕТЕНЗ]) + ", " + CDat(Me![ДАТА_ОКАЗ_УСЛ]) + ", " + (Me![ФОТО]) + ", " + CStr(Me![НОМЕР_СОТРУД]) + ", " + CStr(Me![ОПИСАНИЕ]) + ")"
docmd.runsql sql_text 
End Sub

а остальное удалите

[groovy]

Swatch ну ошибка вроде как исчезла но после нажатия кнопки просто ничего не происходит!

[Swatch]

так у Вас данные какие-нибудь есть? То есть поля на форме чем-нибудь заполнены? у Вас тут запрос на вставку строки. Если нечего вставлять то ничего и не произойдет

[groovy]

Да заполнена на 10 записей. Поидее я выделяю запись нажимаю кнопку и все ничего не происходит!