Есть форма, он естественно берёт данные из запроса (запрос объединяет 2 таблицы, причём запрос нужен только для объединения).
Так вот сама проблема состоит в том, что форма (или запрос) не дают вписать данные в таблицу, а очень хочется.

__Michelle,

А где это посмотреть?

__Michelle,

SELECT Доп_Данные.ОВО_Наимен, Доп_Данные.ОВО_Юр_Адрес, Доп_Данные.ОВО_Физ_Адрес, Доп_Данные.ОВО_Нач_ИП, Доп_Данные.ФГУП_Нач_ИП, Доп_Данные.ОВО_Долж_Нач_ИП, Доп_Данные.ФГУП_Долж_Нач_ИП, Доп_Данные.ОВО_Нач_РП, .
.
.
.
.
Доп_Данные.ФГУП_Нач_РП, Доп_Данные.ОВО_Долж_Нач_РП, Доп_Данные.ФГУП_Долж_Нач_РП, Доп_Данные.ОВО_Доверен,
FROM Доп_Данные, Доп_Данные1;


вот так выглядит запрос

__Michelle,

SELECT Доп_Данные.ОВО_Наимен, Доп_Данные.ОВО_Юр_Адрес, Доп_Данные.ОВО_Физ_Адрес, Доп_Данные.ОВО_Нач_ИП, Доп_Данные.ФГУП_Нач_ИП, Доп_Данные.ОВО_Долж_Нач_ИП, Доп_Данные.ФГУП_Долж_Нач_ИП, Доп_Данные.ОВО_Нач_РП, Доп_Данные.ФГУП_Нач_РП, Доп_Данные.ОВО_Долж_Нач_РП, Доп_Данные.ФГУП_Долж_Нач_РП, Доп_Данные.ОВО_Доверен, Доп_Данные.ФГУП_Доверен, Доп_Данные1.Должн_Рук_ТСО, Доп_Данные1.ФИО_Рук_ТСО, Доп_Данные1.Зван_Рук_ТСО, Доп_Данные1.Должн_Сост_АКТ_ТСО, Доп_Данные1.Должн_Инж_АКТ_ТСО, Доп_Данные1.ФИО_Инж_АКТ_ТСО, Доп_Данные1.Должн_Инж_ФГУП_АКТ_ТСО, Доп_Данные1.ФИО_Инж_ФГУП_АКТ_ТСО, Доп_Данные1.Должн_Сост_АКТ_ОиП, Доп_Данные1.Должн_Рук_АКТ_ОиП, Доп_Данные1.ФИО_Рук_АКТ_ОиП, Доп_Данные1.Зван_Рук_АКТ_ОиП, Доп_Данные1.Зван_Сост_АКТ_ОиП, Доп_Данные1.ФИО_Сост_АКТ_ОиП, Доп_Данные1.Должн_Инж_АКТ_ОиП, Доп_Данные1.ФИО_Инж_АКТ_ОиП, Доп_Данные1.Должн_Монт_АКТ_ОиП, Доп_Данные1.Должн_Рук_ФГУП_АКТ_ОиП, Доп_Данные.ОВО_Наимен_Крат, Доп_Данные.ФГУП_Наимен_Крат, Доп_Данные.ФГУП_Юр_Адрес, Доп_Данные.ФГУП_Физ_Адрес, Доп_Данные.ФГУП_Наимен, Доп_Данные.ОВО_ИНН, Доп_Данные.ФГУП_ИНН, Доп_Данные.ОВО_КПП, Доп_Данные.ФГУП_КПП, Доп_Данные.ОВО_Л_С, Доп_Данные.ФГУП_Л_С, Доп_Данные.ОВО_БИК, Доп_Данные.ФГУП_БИК, Доп_Данные.ОВО_Р_С, Доп_Данные.ОВО_КБК, Доп_Данные.ФГУП_КБК, Доп_Данные.ОВО_ОКТМО, Доп_Данные.ФГУП_ОКТМО, Доп_Данные.ОВО_ОГРН, Доп_Данные.ФГУП_ОГРН, Доп_Данные.ОВО_ЕМаел, Доп_Данные.ФГУП_ЕМаел, Доп_Данные.ОВО_Тел, Доп_Данные.ФГУП_Тел, Доп_Данные.Тел_ПЦО, Доп_Данные.ОВО_Тел_ДЧ, Доп_Данные.ФГУП_Тел_ДЧ, Доп_Данные.ОВО_Тел_ПЦО, Доп_Данные.ФГУП_Тел_ПЦО, Доп_Данные.ОВО_Факс, Доп_Данные.ФГУП_Факс, Доп_Данные.Наимен_Карт, Доп_Данные.Должн_Рук_Карт, Доп_Данные.ФИО_Рук_Карт, Доп_Данные.Зван_Рук_Карт, Доп_Данные.Должн_Пров_Карт, Доп_Данные.Зван_Пров_Карт, Доп_Данные.ФИО_Пров_Карт, Доп_Данные.Должн_Сост_Карт, Доп_Данные.Зван_Сост_Карт, Доп_Данные.ФИО_Сост_Карт, Доп_Данные.Должн_Инж_Карт, Доп_Данные.ФИО_Инж_Карт, Доп_Данные1.ФИО_Обсл_АКТ_ОиП, Доп_Данные1.ФИО_Монт_АКТ_ОиП, Доп_Данные.ФГУР_Р_С, Доп_Данные1.ФИО_Сост_АКТ_ТСО, Доп_Данные1.ФИО_Рук_ФГУП_АКТ_ОиП, Доп_Данные1.Должн_Обсл_АКТ_ОиП, Доп_Данные1.Зван_Сост_АКТ_ТСО
FROM Доп_Данные, Доп_Данные1;

__Michelle,

А куда это вписать-то, можно на предыдущем посте продемонстрировать?

Анатолий ( Киев ),


В каждой из таблиц по одной строке, без права добавления


Пока нет, но сейчас хочу сделать связь


Ключевых полей не предвидится


Это таблицы


только редактируются (в свойствах формы все необходимые галочки поставил)


в обе

Анатолий ( Киев ),

я пока не разобрался, но тут какая то проблема выскочила, я оказывается изначально не могу на прямую в таблицу вписывать данные, пишет слишком большое значение, я удалил все столбцы со значениями (остались только пустые) а она всё равно не даёт вписывать хотя вся таблица пустая, а вот в новую строку даёт.

Анатолий ( Киев ),



Сейчас вот так, таблицы заработали, не пускает запрос

Focha,

Анатолий ( Киев ),

Я вот так сделал

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
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.
45.
46.
47.

 [code=vbnet]
Private Sub Form_Current()
Dim rt As Recordset, qwu As String
Set rt = CurrentDb.OpenRecordset("select * from [Доп_Данные1] ")
Do Until rt.EOF
Me.Должн_Рук_ТСО = rt!Должн_Рук_ТСО
Me.Зван_Рук_ТСО = rt!Зван_Рук_ТСО
Me.ФИО_Рук_ТСО = rt!ФИО_Рук_ТСО
Me.Должн_Сост_АКТ_ТСО = rt!Должн_Сост_АКТ_ТСО
Me.Зван_Сост_АКТ_ТСО = rt!Зван_Сост_АКТ_ТСО
Me.ФИО_Сост_АКТ_ТСО = rt!ФИО_Сост_АКТ_ТСО
Me.Должн_Инж_АКТ_ТСО = rt!Должн_Инж_АКТ_ТСО
Me.ФИО_Инж_АКТ_ТСО = rt!ФИО_Инж_АКТ_ТСО

Me.Должн_Рук_ФГУП_АКТ_ОиП = rt!Должн_Рук_ФГУП_АКТ_ОиП
Me.ФИО_Рук_ФГУП_АКТ_ОиП = rt!ФИО_Рук_ФГУП_АКТ_ОиП
Me.Должн_Инж_ФГУП_АКТ_ТСО = rt!Должн_Инж_ФГУП_АКТ_ТСО
Me.ФИО_Инж_ФГУП_АКТ_ТСО = rt!ФИО_Инж_ФГУП_АКТ_ТСО

rt.MoveNext
Loop
rt.Close
End Sub
Private Sub Должн_Рук_ТСО_LostFocus()
Dim rsty1 As DAO.Recordset
Dim db As DAO.Database
Set db = Access.CurrentDb
Set rsty1 = db.OpenRecordset("Доп_Данные1")
With rsty1
.AddNew
!Должн_Рук_ТСО = Me.Должн_Рук_ТСО
!Зван_Рук_ТСО = Me.Зван_Рук_ТСО
!ФИО_Рук_ТСО = Me.ФИО_Рук_ТСО
!Должн_Сост_АКТ_ТСО = Me.Должн_Сост_АКТ_ТСО
!Зван_Сост_АКТ_ТСО = Me.Зван_Сост_АКТ_ТСО
!ФИО_Сост_АКТ_ТСО = Me.ФИО_Сост_АКТ_ТСО
!Должн_Инж_АКТ_ТСО = Me.Должн_Инж_АКТ_ТСО
!ФИО_Инж_АКТ_ТСО = Me.ФИО_Инж_АКТ_ТСО

!Должн_Рук_ФГУП_АКТ_ОиП = Me.Должн_Рук_ФГУП_АКТ_ОиП
!ФИО_Рук_ФГУП_АКТ_ОиП = Me.ФИО_Рук_ФГУП_АКТ_ОиП
!Должн_Инж_ФГУП_АКТ_ТСО = Me.Должн_Инж_ФГУП_АКТ_ТСО
!ФИО_Инж_ФГУП_АКТ_ТСО = Me.ФИО_Инж_ФГУП_АКТ_ТСО
.Update
End With
rsty1.Close
End Sub

Единственное LostFocus() для каждого поля в таком виде, иначе обновляет поля не указанные в списке как пустые

sdku,

У меня есть 2 вагона данных, так как количество информации не помещается в одну строчку, пришлось разделить на две таблицы и через запрос хотел собрать в одну строку и раскидывать по мере необходимости в новые формы
Эти данные так сказать константы форм, которые изменяются очень редко, но ввиду отсутствия подготовки персонала в области редактирования форм акцесса, нужно сделать им доступ очень простой быстрый и через форму, что бы я больше не переживал за неожиданно вылезшие ошибки при печати каких либо форм, и не видел лицо типа "я вот тут что то нажала а оно само"

sdku,

Спасибо, разобрался, это компутер мозг выносил (не перегружался 73 дня -)))) )

Перегрузил, через запрос объединил две таблицы, через ключевое поле.

Хотя я нашёл как сделать и без ключевых столбцов, правда код большой. -)

ПЕНСИОНЕРКА,

в принципе уже не важно, проблема была в железе.