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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Таблица настроек для базы данных
 
 автор: Dutch Shultz   (29.11.2008 в 20:38)   личное сообщение
 
 

Хочу в базе сделать отдельную таблицу с константами для базы, т.е. например у меня в одной форме на поле с форматом дата [Получение согласования] наложено условное форматирование если оно больше чем [Отправка на согласование]+7, а я хочу чтобы пользователь вводил в таблицу Настройки в поле OtprSoglas-PoluchSoglas значение, которое служило бы критерием для условного форматирования, т.е.форматирвание бы работало бы , если бы [Получение согласования] было больше чем [Отправка на согласование]+OtprSoglas-PoluchSoglas.Вот только как в конструкторе условного форматирования обращаться к полю OtprSoglas-PoluchSoglas из таблицы Настройки не знаю, подскажите пож-ста.

  Ответить  
 
 автор: час   (30.11.2008 в 10:35)   личное сообщение
 
 

Если Вы знаете, как из кода обратиться к полю, то делайте всё задуманное попроще.
me!Fild_1.ForeColor или Baccolor или ещё что = чё надо

  Ответить  
 
 автор: Dutch Shultz   (30.11.2008 в 15:16)   личное сообщение
 
 

Я такую процедуру сделал на открытие ленточной формы-в результате все значения поля [дата отправки на согласование] выкрасились красным шрифтом,независимо от того,подходят они под условие или нет:
Private Sub Form_Open(Cancel As Integer)
lngRed = RGB(255, 0, 0)
If Me![дата отправки на согласование] > Me![Дата поступления авто] + 4 Then
Me![дата отправки на согласование].ForeColor = lngRed
End If

End Sub

  Ответить  
 
 автор: osmor   (01.12.2008 в 11:44)   личное сообщение
 
 

Объект FormatCondition и его методы

  Ответить  
 
 автор: час   (01.12.2008 в 12:01)   личное сообщение
10 Кб.
 
 

АААААА
В ленточной.........
а условое форматирование видимо не пойдёт. ...
жаль..... ....

  Ответить  
 
 автор: Мюллер   (01.12.2008 в 14:28)   личное сообщение
 
 

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

  Ответить  
 
 автор: Lukas   (01.12.2008 в 14:32)   личное сообщение
 
 

Не напрягайтесь. Ему уже на SQL.ru накидали.

  Ответить  
 
 автор: Pasat   (01.12.2008 в 23:51)   личное сообщение
 
 

Как правильно задать 3-й параметр
вот так пашет, здесь [Textbox2]=20
With Forms("form1").Controls("Field1").FormatConditions.Add(acFieldValue, acGreaterThan, "=[Textbox2]")
...
End With

а так нет
With Forms("form1").Controls("Field1").FormatConditions.Add(acFieldValue, acGreaterThan, 20)
...
End With

мне нужно 3-й параметр взять не из текстбокса формы, а из переменной

  Ответить  
 
 автор: Lukas   (01.12.2008 в 23:57)   личное сообщение
 
 

Правка:

With Forms("form1").Controls("Field1").FormatConditions
       .Add( далее по тексту)
...
End With

  Ответить  
 
 автор: Pasat   (01.12.2008 в 23:59)   личное сообщение
 
 

далее по тексту

как понять ?

  Ответить  
 
 автор: Lukas   (02.12.2008 в 00:06)   личное сообщение
 
 

как понять ?
Имелось в виду то, что необходимо в условии. (может как Вы и предложили).
Если форма ленточная, а присвоение происходит при загрузке формы, я бы прописал не ссылку на поле формы, а его значение, поскольку оно одно на все записи формы (берется Dlookup-ом из справочной таблицы. (Полную версию вопроса и ответов по нему смотри на SQL.ru)

  Ответить  
 
 автор: Pasat   (02.12.2008 в 00:25)   личное сообщение
 
 

Вроде разобрался спасибо

  Ответить  
 
 автор: Lukas   (02.12.2008 в 00:31)   личное сообщение
 
 

У меня там перенос неправильный получился, Ваш вариант With ....... Add(..) в одну строку правильный.

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