Добавить текстовое значение в текстовое поле пользовательской формы, если значение флажка, если утверждение TRUE - PullRequest
Новая
       34

Добавить текстовое значение в текстовое поле пользовательской формы, если значение флажка, если утверждение TRUE

0 голосов
/ 24 февраля 2019

У меня есть пользовательская форма для обновления моих листов анализа валюты.У меня есть флажок в правом верхнем углу, который будет указывать, является ли дата выбора даты праздником или нет.Если это так (то есть флажок установлен и, следовательно, TRUE, тогда все текстовые поля станут значением «HOL». Если флажок снят (или FALSE), текстовые поля будут пустыми, и я могу ввести ежедневные числа донажав кнопку «Отправить» для отправки на листы. Конечно, я хотел бы, чтобы значением HOL было значение, отправляемое на листы, если значение «Флажок» - ИСТИНА. Пожалуйста, помогите ... заранее спасибо. Имя флажка - «ПРАЗДНИК».1001 *

Вот пользовательская форма

Ежедневная запись пользовательской формы

и Вот код 

Private Sub HOLIDAY_Click()
    If Me.HOLIDAY.Value = True Then
    Me.DTPicker1.Value = "HOL"
    Me.JP_Open.Value = "HOL"
    Me.JP_Hi.Value = "HOL"
    Me.JP_Lo.Value = "HOL"
    Me.JP_Close.Value = "HOL"
    Me.CAD_Open.Value = "HOL"
    Me.CAD_Hi.Value = "HOL"
    Me.CAD_Lo.Value = "HOL"
    Me.CAD_Close.Value = "HOL"
    Me.GBP_Open.Value = "HOL"
    Me.GBP_Hi.Value = "HOL"
    Me.GBP_Lo.Value = "HOL"
    Me.GBP_Close.Value = "HOL"
    Me.Swiss_Open.Value = "HOL"
    Me.Swiss_Hi.Value = "HOL"
    Me.Swiss_Lo.Value = "HOL"
    Me.Swiss_Close.Value = "HOL"
    Me.AUD_Open.Value = "HOL"
    Me.AUD_Hi.Value = "HOL"
    Me.AUD_Lo.Value = "HOL"
    Me.AUD_Close.Value = "HOL"
    Me.Euro_Open.Value = "HOL"
    Me.Euro_Hi.Value = "HOL"
    Me.Euro_Lo.Value = "HOL"
    Me.Euro_Close.Value = "HOL"
    Me.EURJPY_Open.Value = "HOL"
    Me.EURJPY_Hi.Value = "HOL"
    Me.EURJPY_Lo.Value = "HOL"
    Me.EURJPY_Close.Value = "HOL"
    Me.AUDNZD_Open.Value = "HOL"
    Me.AUDNZD_Hi.Value = "HOL"
    Me.AUDNZD_Lo.Value = "HOL"
    Me.AUDNZD_Close.Value = "HOL"
    Me.EURNZD_Open.Value = "HOL"
    Me.EURNZD_Hi.Value = "HOL"
    Me.EURNZD_Lo.Value = "HOL"
    Me.EURNZD_Close.Value = "HOL"
    Me.NZDCAD_Open.Value = "HOL"
    Me.NZDCAD_Hi.Value = "HOL"
    Me.NZDCAD_Lo.Value = "HOL"
    Me.NZDCAD_Close.Value = "HOL"
    Me.NZDUSD_Open.Value = "HOL"
    Me.NZDUSD_Hi.Value = "HOL"
    Me.NZDUSD_Lo.Value = "HOL"
    Me.NZDUSD_Close.Value = "HOL"
    Me.NZDJPY_Open.Value = "HOL"
    Me.NZDJPY_Hi.Value = "HOL"
    Me.NZDJPY_Lo.Value = "HOL"
    Me.NZDJPY_Close.Value = "HOL"
    Me.GBPJPY_Open.Value = "HOL"
    Me.GBPJPY_Hi.Value = "HOL"
    Me.GBPJPY_Lo.Value = "HOL"
    Me.GBPJPY_Close.Value = "HOL"
Else
    Me.DTPicker1.Value = ""
    Me.JP_Open.Value = ""
    Me.JP_Hi.Value = ""
    Me.JP_Lo.Value = ""
    Me.JP_Close.Value = ""
    Me.CAD_Open.Value = ""
    Me.CAD_Hi.Value = ""
    Me.CAD_Lo.Value = ""
    Me.CAD_Close.Value = ""
    Me.GBP_Open.Value = ""
    Me.GBP_Hi.Value = ""
    Me.GBP_Lo.Value = ""
    Me.GBP_Close.Value = ""
    Me.Swiss_Open.Value = ""
    Me.Swiss_Hi.Value = ""
    Me.Swiss_Lo.Value = ""
    Me.Swiss_Close.Value = ""
    Me.AUD_Open.Value = ""
    Me.AUD_Hi.Value = ""
    Me.AUD_Lo.Value = ""
    Me.AUD_Close.Value = ""
    Me.Euro_Open.Value = ""
    Me.Euro_Hi.Value = ""
    Me.Euro_Lo.Value = ""
    Me.Euro_Close.Value = ""
    Me.EURJPY_Open.Value = ""
    Me.EURJPY_Hi.Value = ""
    Me.EURJPY_Lo.Value = ""
    Me.EURJPY_Close.Value = ""
    Me.AUDNZD_Open.Value = ""
    Me.AUDNZD_Hi.Value = ""
    Me.AUDNZD_Lo.Value = ""
    Me.AUDNZD_Close.Value = ""
    Me.EURNZD_Open.Value = ""
    Me.EURNZD_Hi.Value = ""
    Me.EURNZD_Lo.Value = ""
    Me.EURNZD_Close.Value = ""
    Me.NZDCAD_Open.Value = ""
    Me.NZDCAD_Hi.Value = ""
    Me.NZDCAD_Lo.Value = ""
    Me.NZDCAD_Close.Value = ""
    Me.NZDUSD_Open.Value = ""
    Me.NZDUSD_Hi.Value = ""
    Me.NZDUSD_Lo.Value = ""
    Me.NZDUSD_Close.Value = ""
    Me.NZDJPY_Open.Value = ""
    Me.NZDJPY_Hi.Value = ""
    Me.NZDJPY_Lo.Value = ""
    Me.NZDJPY_Close.Value = ""
    Me.GBPJPY_Open.Value = ""
    Me.GBPJPY_Hi.Value = ""
    Me.GBPJPY_Lo.Value = ""
    Me.GBPJPY_Close.Value = ""

End If
End Sub

Если вам нужна дополнительная информация илибольше моего кода. Еще раз спасибо заранее.

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

Private Sub Holiday_Click()

Dim ctrl As Control

With Me

    For Each ctrl In .Controls
        If TypeName(ctrl) = "TextBox" And .HOLIDAY = True Then
            ctrl.Value = "HOL"
                End If
   Next ctrl
End With

End Sub

Мне пришлось изменить исходный код, чтобы исключить оператор ELSE, который сказал 

Else
ctrl.Value = ""

, потому что это приведет к ошибке.

...