Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > создание формуляра

Автор: niki 14.8.2010, 13:25

Добрый День
Мне необходимо создать формуляр для результатов обследования пациэнтов,в который клиент может сам заносить данные. В нем должно быть
1 Имя, фамилия, Дата рождения.
2 обследование
здесь существует 30 видов обследований.
Клиент может выбрать несколько одновременно.
x  Обследование1
   Обследование2
x  Обследование3
   Обследование4
.....
Я создала таблицы
пациэнт
виды обследований
пациэнт и его обследования
результат обледований

Очевидно нужно сделать формуляр результат обледований и в нем сделать подформуляр, в котором клиент может выбрать виды обследований. Не знаю как сделать этот подформуляр.

Спасибо за любую информацию.

Автор: bopoha 14.8.2010, 18:45

См. элемент управления подчиненная форма

Автор: niki 24.8.2010, 21:45

Добрый вечер,
я сделала кнопку в форме. Когда на нее нажимают, то в VBA запускается функция. С ее помощью в таблицу заносятся данные.

Код


CurrentDB.Execute "Insert...

Когда нажимаешь на кнопку первый раз, то ничего не происходит. Только со 2- го раза даные заносятся в таблицу .
Спасибо за любую подсказку

Автор: Akina 24.8.2010, 21:55

А почему CurrentDB.Execute, а не DoCMD.RunSQL?

Автор: niki 24.8.2010, 22:00

Я DoCMD.RunSQL тоже пробовла, но результат тот же.

Автор: bopoha 24.8.2010, 22:02

Цитата(niki @ 24.8.2010, 21:45

)

Когда нажимаешь на кнопку первый раз, то ничего не происходит. Только со 2- го раза даные заносятся в таблицу .

После изменения данных в таблице, что бы их увидеть нужно обновить данные на форме.
Например, Me.Requery.

Цитата(Akina @ 24.8.2010, 21:55

)

А почему CurrentDB.Execute, а не DoCMD.RunSQL?

Чем вызов CurrentDB.Execute плох?

Автор: niki 24.8.2010, 22:06

в функции есть обновление данных. Но только после второго раза они заносятся в таблицу.

Автор: bopoha 24.8.2010, 22:23

Цитата(niki @ 24.8.2010, 22:06

)

Но только после второго раза они заносятся в таблицу.

Не могет такого быть. Т.е. не верю. Выкладывайте полностью пример.

Автор: niki 24.8.2010, 22:34

Код


Private Sub init_Click()

DoCmd.RunSQL ("INSERT INTO gnddat (gndnum, gndkop)" & _
                         " SELECT " & Me!bognum & " , fndnum " & _
                         "FROM   fndkop ")
DoCmd.SetWarnings False
   Me.Requery
 
End Sub

Автор: Akina 24.8.2010, 23:11

http://forum.vingrad.ru/forum/topic-260944.html

Автор: bopoha 25.8.2010, 17:35

Должен работать, если есть записи в таблице fndkop.