Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Скинуть данные в таблицу, но только один раз
 
 автор: Скорп   (08.10.2008 в 15:27)   личное сообщение
 
 

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

а данные в эту таблицу скидываются с формы по нажатию поля типа "Флажок" - Сформировать заказ

так вот, как сделать так, чтобы менеджер мог скинуть данные в эту таблицу всего один раз?

попробовал сделать так, чтобы по нажатию на поле, поле переходило в .Enabled = False, но тогда все поля на записях "Сформировать заказ" становятся .Enabled = False, поскольку форма ленточная

If [Сформировать заказ]= True Then
DoCmd.RunSQL "INSERT INTO Полиграфия.............
End If

как изменить код?

  Ответить  
 
 автор: Кабан   (08.10.2008 в 15:40)   личное сообщение
 
 

ну, как один из варьянтоff, например, скидывание данных в базу производить по нажатию кнопки. после нажатия кнопки и если все записалось, то убрать фокус с кнопки и задизаблить...

  Ответить  
 
 автор: Скорп   (08.10.2008 в 15:45)   личное сообщение
 
 

я так пробовал сделать, запись с формы в таблицу вешал на закрытие формы
все бы ничего, но если на форме выбрано 2-3 и т.д. записи, которые нужно скинуть в таблицу, то сбрасывается только первая запись, последующие игнорируются...

  Ответить  
 
 автор: Lukas   (08.10.2008 в 15:46)   личное сообщение
 
 

Если в таблицу "Полиграфия" сохраняется "Код Заказа", надо включить проверку на количество записей с этим кодом в таблице "Полиграфия" перед вызовом запроса на добавление записей.
То есть работать надо с данными, а не с элементами управления.

  Ответить  
 
 автор: Скорп   (08.10.2008 в 15:53)   личное сообщение
 
 

ага..я тоже пришел к такому выводу
а как проверить, есть ли в таблице "Полиграфия" сбрасываемый с формы код?

  Ответить  
 
 автор: Lukas   (08.10.2008 в 16:16)   личное сообщение
 
 

Проще всего наверное так:

IF DCount("Код","Полиграфия", "Код=" & Me![Код])>0 Then 
    MsgBox "Запись уже имеется"
Else
    'Добавляем
End If

  Ответить  
 
 автор: Скорп   (08.10.2008 в 16:41)   личное сообщение
 
 

Lukas спасибо!
а я ч-з dlookup пытался сделать

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList