【问题标题】:If Loop to find the latest value from multiple textboxes from one form to populate another textbox is another form如果循环从一个表单的多个文本框中查找最新值以填充另一个文本框是另一种表单
【发布时间】:2019-10-13 08:37:49
【问题描述】:

我有一个名为“Label”的表单和另一个名为“Sheeter”的表单。 Sheeter 表单有 12 个文本框 (Pallet1), (Pallet2), (Pallet3)...

用户将在“Sheeter”表单中输入其他详细信息,但他们将留在页面上,直到填满所有 12 个框。托盘文本框基本上记录了制作不同托盘的时间(用作跟踪编号)。一旦制作了一个托盘,用户将双击文本框“Pallet1”,它将填充当前时间。接下来,用户想要在文本框 Pallet1 中使用此值来打印标签。我制作了一个按钮,它将在标签表单的文本框中获取 Pallet1 文本框的值。 用户此时不想关闭 Sheeter 表单,将在表单上等待下一个 Pallet 生成,再次双击文本框“Pallet2”以获取时间并期望一旦单击“打印”按钮它需要新值来填充表单标签上的文本框标签。

我尝试过两种不同类型的 if 循环,但我不确定语法。

第一个逻辑是查看一个文本框是否为空,如果它为真,则从标签的前一个文本框中获取值。

第二个逻辑是比较文本框的值,哪个更高,获取那个值。

If Me.Pallet2.Value = "" Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet1
Me.JOB.SetFocus

Else
If Me.Pallet3.Value = Null Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet2
Me.JOB.SetFocus


Else

If Me.Pallet4.Value = Null Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet3
Me.JOB.SetFocus

End If
End If
End If

If Me.Pallet2.Value ="" Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet1
Me.JOB.SetFocus

Else
If Me.Pallet2.Value >Me.Pallet1.value Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet2
Me.JOB.SetFocus


Else

If Me.Pallet3.Value >Me.Pallet2.value Then
 
Forms![LabelSHEETER1].Pallet = Me.Pallet3
Me.JOB.SetFocus

End If
End If
End If

我不确定我应该写“”还是Null,两种都试过了,都不行。

而且这两个逻辑似乎都不起作用(不知道是语法不正确还是逻辑本身有缺陷)

【问题讨论】:

    标签: vba ms-access ms-access-forms


    【解决方案1】:

    哦,等等,我找到了解决方案:

    If IsNull(Me.Pallet2.Value) Then
    

    表单![LabelSHEETER1].Pallet = Me.Pallet1 Me.JOB.SetFocus

    其他

    If IsNull(Me.Pallet3.Value) Then

    表格![LabelSHEETER1].Pallet = Me.Pallet2 Me.JOB.SetFocus

    其他

    If IsNull(Me.Pallet4.Value) Then

    表格![LabelSHEETER1].Pallet = Me.Pallet3 Me.JOB.SetFocus

    如果结束 万一 结束如果

    【讨论】:

    • 我找到了解决方案,但是代码很长。我确信我可以通过使用某种 if 循环来进行迭代以查找空文本框并从前一个文本框中获取值来缩短它。
    猜你喜欢
    • 1970-01-01
    • 2022-01-04
    • 1970-01-01
    • 2021-12-04
    • 1970-01-01
    • 2015-08-24
    • 1970-01-01
    • 2021-11-08
    • 1970-01-01
    相关资源
    最近更新 更多