Nano Hash - криптовалюты, майнинг, программирование

MS-Access скрывает и показывает кнопку условно через vba

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

Я хочу, чтобы кнопка печати этикетки была включена и видна только после того, как вся проверка была сделана, теперь у меня есть следующее:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Button_label.Visible = False
Button_label.Enabled = False

End Sub

Private Sub Motor_OK_Change()

Dim ok As Boolean
ok = Motor_OK.Value


If ok = 1 Then
Button_label.Visible = True
Button_label.Enabled = True

End If


End Sub

Он работает, скрывая кнопку, но терпит неудачу при попытке снова включить ее и сделать ее видимой после проверки. Важно отметить, что я пытался использовать If ok = True вместо If ok= 1, я не знаю, насколько это важно.

Спасибо

conditional-statements vba ms-access
02.06.2014

Ответы:


1

Вы не тестируете оба условия (ok=0), возможно, сработает следующее:

Заменять:

If ok = 1 Then
    Button_label.Visible = True
    Button_label.Enabled = True
End If

С:

Button_label.Visible = ok   
Button_label.Enabled = ok

Новое решение:

Вместо использования события Form Before_Update используйте событие Form_Current. Если есть только 1 запись, вы также можете использовать событие Form_Load. Я бы также посоветовал вам удалить свойство Visible и использовать только свойство Enabled, чтобы пользователи могли видеть свои функции печати.

Private Sub Form_Current()
  'button_Label.Visible = False
  button_Label.Enabled = False
End Sub

Вместо использования события Motor_OK Before_Update используйте событие After_Update.

Private Sub Motor_OK_AfterUpdate()
    Dim ok As Boolean ' defaults to False

    If IsNumeric(Motor_OK.Value) Then ok = True  ' remove this statement if Motor_OM is
                                                 ' alpha numeric.     

    If Not IsNull(Motor_OK.Value) Then ok = True ' otherwise following statement 
                                                 ' to avoid NULL error

    'button_Label.Visible = ok
    button_Label.Enabled = ok

End Sub

Дайте мне знать, если я могу быть полезным.

02.06.2014
  • лол, хорошо подумал, я усложнял, спасибо, я постараюсь вернуться через минуту;) 02.06.2014
  • Кажется, это не работает, я использую правильный сабвуфер? я пробовал под Private Sub Motor_OK_AfterUpdate() 02.06.2014
  • Является ли Button_Label меткой для кнопки или самой кнопки? 02.06.2014
  • Сама кнопка, извините за путаницу, я просто назвал ее так, потому что буду использовать ее для подключения к принтеру этикеток. 02.06.2014
  • Элемент управления Button не имеет события before_update? Можете ли вы объяснить, что вы имеете в виду под полной проверкой. Вы вызываете другой саб для редактирования? 02.06.2014
  • да, вы правы, есть Motor_OK, где я получаю значение для сделанной проверки, проверка - это контрольный список, который сотрудник должен заполнить для контроля качества 02.06.2014
  • `Какой тип управления у Мототор_ок? 02.06.2014
  • Это обычный текстовый элемент управления, основанный на вычисляемом поле. 03.06.2014
    • Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..