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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Помогите с легким вопросом
 
 автор: Василий   (01.11.2009 в 19:30)   личное сообщение
 
 

Доброго всем дня, подскажите пожалуйста, есть контекстное меню (свое), как правильно написать, что то вроде если поле1 = 0 then какая то ячейка меню не видна, заранее спасибо!

  Ответить  
 
 автор: Lukas   (01.11.2009 в 19:38)   личное сообщение
 
 

Что есть поле? Чье оно?
Если это тестовое поле формы, то в модуле формы:
CommandBars("Name").Controls("Caption").Visible=Me![Поле1]

  Ответить  
 
 автор: Василий   (01.11.2009 в 19:54)   личное сообщение
 
 

Поле1 логическое поле, ввожу данный текст, результата никогого

If pusk = -1 Then
ShortcutMenu("mcrAddShortcutMenu").Controls("Close").Visible = False
Else
ShortcutMenu("mcrAddShortcutMenu").Controls("Close").Visible = True
End If

  Ответить  
 
 автор: Lukas   (01.11.2009 в 20:34)   личное сообщение
 
 

Что за переменная pusk?
ShortcutMenu - это свойство формы/отчета.

  Ответить  
 
 автор: Василий   (01.11.2009 в 20:51)   личное сообщение
 
 

pusk это логическое поле, мне как раз и нужна форма, что не так я делаю?

  Ответить  
 
 автор: Lukas   (01.11.2009 в 21:07)   личное сообщение
 
 

1. Неправильно обращаетесь к полю формы.
2. Видимо, пытаетесь изменить свойство формы, вместо свойства контрола контекстного меню.

Если:
"mcrAddShortcutMenu" - имя контекстного меню
и
"Close" - подпись кнопки этого контекстного меню,
то надо так:
CommandBars("mcrAddShortcutMenu").Controls("Close").Visible= Me![pusk]

  Ответить  
 
 автор: Василий   (01.11.2009 в 21:51)   личное сообщение
 
 

Спасибо, все получилось, просто создавал я меню через макросы, создал по другому и все получилось!

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