У меня есть форма под названием «Этикетка» и другая форма под названием «Sheeter».
Форма для листов имеет 12 текстовых полей (Pallet1), (Pallet2), (Pallet3) ...
Пользователь будет вводить другие данные в форму «Sheeter», но они будут оставаться на странице, пока все 12 полей не будут заполнены. Текстовые поля паллет в основном фиксируют время, в которое создаются разные паллеты (которые используются в качестве номеров для отслеживания). Как только будет сделан один поддон, пользователь дважды щелкнет текстовое поле «Паллет1», и оно будет заполнено текущим временем. Затем пользователь хочет использовать это значение в текстовом поле Pallet1 для печати этикетки. Я сделал кнопку, которая будет извлекать значение текстового поля Pallet1 в текстовое поле в форме метки.
Пользователь не хочет закрывать форму Sheeter на этом этапе и будет ждать в форме до получения следующего поддона, снова дважды щелкните текстовое поле «Pallet2», чтобы получить время, и ожидайте, что после нажатия кнопки «Печать» требуется новое значение для заполнения метки текстового поля на метке формы.
Я пробовал делать циклы двух разных типов, однако я не уверен в синтаксисе.
Первая логика заключается в том, чтобы увидеть, является ли текстовое поле пустым и имеет ли оно значение true, для извлечения значения из предыдущего текстового поля для метки.
Вторая логика - сравнить значение текстовых полей и, что выше, извлечь это значение.
'' 'If Me.Pallet2.Value = "" Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet1
Me.JOB.SetFocus
Else
If Me.Pallet3.Value = Null Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet2
Me.JOB.SetFocus
прочее
If Me.Pallet4.Value = Null Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet3
Me.JOB.SetFocus
End If
End If
End If
'' '
'' 'If Me.Pallet2.Value = "" Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet1
Me.JOB.SetFocus
Else
Если Me.Pallet2.Value> Me.Pallet1.value Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet2
Me.JOB.SetFocus
прочее
Если Me.Pallet3.Value> Me.Pallet2.value Тогда
Формы! [LabelSHEETER1] .Pallet = Me.Pallet3
Me.JOB.SetFocus
End If
End If
End If
'' '
Я не уверен, должен ли я написать "" или Null, пробовал оба, ни один из них не работает.
Также кажется, что ни одна из логик не работает (не знаю, является ли синтаксис неправильным или сама логика ошибочна)