如果“循环”从一种形式的多个文本框中查找最新值以填充另一种文本框,则为另一种形式

时间:2019-05-27 19:42:49

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

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

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

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

第一个逻辑是查看文本框是否为空,以及它的真值是否从上一个文本框获取标签的值。

第二种逻辑是比较文本框的值,如果值较高,则获取该值。

'''如果Me.Pallet2.Value =“”然后

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

其他 如果Me.Pallet3.Value = Null,则

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

其他

如果Me.Pallet4.Value = Null,则

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

如果结束 万一 万一 '''


'''If Me.Pallet2.Value =“”然后

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

其他 如果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

如果结束 万一 万一 '''

我不确定我应该写“”还是Null,是否都尝试过,但都不起作用。

这两种逻辑似乎都不起作用(不知道语法是否错误或逻辑本身是否有缺陷)

1 个答案:

答案 0 :(得分:0)

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

    <ng5-slider _ngcontent-c27="" class="ng5-slider" _nghost-c28="" id="portfolio_avg__modified_duration">
    <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar-wrapper ng5-slider-left-out-selection" ng5sliderleftoutselelem="" style="visibility: hidden;">
      <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar"></span>
    </span>

    <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar-wrapper ng5-slider-right-out-selection" ng5sliderrightoutselelem="" style="visibility: hidden;">
      <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar"></span>
    </span>

    <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar-wrapper" ng5sliderfullbarelem="">
      <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar"></span>
    </span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar-wrapper" ng5sliderselbarelem="" style="visibility: visible; width: 279px; left: 8px;">
  <span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bar ng5-slider-selection" style="background-color: rgb(42, 166, 242);"></span>
</span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-pointer ng5-slider-pointer-min" ng5sliderminhelem="" aria-valuenow="0" aria-valuetext="0" aria-valuemin="0" aria-valuemax="20" role="slider" tabindex="0" style="left: 0px; background-color: rgb(42, 166, 242);"></span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-pointer ng5-slider-pointer-max" ng5slidermaxhelem="" aria-valuenow="19.6" aria-valuetext="19.6" aria-valuemin="0" aria-valuemax="20" role="slider" tabindex="0" style="left: 279px; background-color: rgb(42, 166, 242);"></span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bubble ng5-slider-limit ng5-slider-floor" ng5sliderflrlabelem="" style="visibility: hidden; left: 0px;">0</span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bubble ng5-slider-limit ng5-slider-ceil" ng5sliderceillabelem="" style="visibility: hidden; left: 268px;">&gt;20</span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bubble ng5-slider-model-value" ng5sliderminlabelem="" style="visibility: visible; left: 0px;">0</span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bubble ng5-slider-model-high" ng5slidermaxlabelem="" style="visibility: visible; left: 262px;">19.6</span>

<span _ngcontent-c28="" class="ng5-slider-span ng5-slider-bubble ng5-slider-combined" ng5slidercmblabelem="" style="visibility: hidden; left: 0px;">0&nbsp;&nbsp;&nbsp;1.95</span>

<span _ngcontent-c28="" class="ng5-slider-ticks" ng5slidertickselem="" hidden="">
  <!---->
</span></ng5-slider>

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

其他

如果IsNull(Me.Pallet3.Value)然后

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

其他

如果IsNull(Me.Pallet4.Value)然后

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

如果结束 万一 如果结束