Question

我有三种产品，玉米，豆类和萝卜。我对每种都有不同的规格，有些相同......水分，颜色，蛋白质，脂肪....我有一些未绑定的文本框和一些连续形式的标签。还有两个按钮，允许我按两个文本框中输入的日期排序或显示全部。我在详细信息部分的formheader和textbox中有标签和文本框。表单标题部分中的文本框是获取它们排列的每个字段的平均值。

当我打开表单并选择Beans时，一切都显示出来！我可以排序或显示所有，它很好。我可以切换到Corn并执行相同的操作，但是当我尝试切换回Bean时，平均文本框显示#Error。如果我先打开表格然后去玉米，然后再去玉米，玉米，玉米都可以工作，但豆子不起作用。 Bean只有在表单上打开的第一件事情才会起作用，并且会继续工作直到您选择其他产品。玉米和萝卜无论如何都会起作用，但当我切换回豆子时，我再次得到#Error。

两个代码块之间几乎没有区别。还有什么可能导致平均文本框中的#Error（Text12-Text15）？

以下是代码的一部分....此代码位于OnClick事件中，用于各自的按钮

对于CORN

Me.Label2.Caption = "Moisture"
Me.Label3.Caption = "Starch"
Me.Label4.Caption = "Protein"
Me.Label5.Caption = "Fat"
Me.Text2.ControlSource = " Moisture "
Me.Text3.ControlSource = " Starch "
Me.Text4.ControlSource = " Protein "
Me.Text5.ControlSource = " Fat "
Me.Text12.ControlSource = "=Avg([Moisture])"
Me.Text13.ControlSource = "=Avg([Starch])"
Me.Text14.ControlSource = "=Avg([Protein])"
Me.Text15.ControlSource = "=Avg([Fat])"
Me.RecordSource = "SELECT SampleID.DateCreated, SampleID.SampleLocationID, PertenData.Moisture, PertenData.Starch, PertenData.Protein, PertenData.Fat FROM SampleID INNER JOIN PertenData ON SampleID.SampleID = PertenData.PertenSampleID WHERE ((SampleID.SampleLocationID)=21) ORDER BY SampleID.DateCreated DESC"

对于BEANS

Me.Label2.Caption = "Moisture"
Me.Label3.Caption = "Starch"
Me.Label4.Caption = "Protein"
Me.Label5.Caption = "Color"
Me.Text2.ControlSource = " Moisture "
Me.Text3.ControlSource = " Starch "
Me.Text4.ControlSource = " Protein "
Me.Text5.ControlSource = " Color"
Me.Text12.ControlSource = "=Avg([Moisture])"
Me.Text13.ControlSource = "=Avg([Starch])"
Me.Text14.ControlSource = "=Avg([Protein])"
Me.Text15.ControlSource = "=Avg([Color])"
Me.RecordSource = "SELECT SampleID.DateCreated, SampleID.SampleLocationID, PertenData.Moisture, PertenData.Starch, PertenData.Protein, PertenData.Color FROM SampleID INNER JOIN PertenData ON SampleID.SampleID = PertenData.PertenSampleID WHERE ((SampleID.SampleLocationID)=35) ORDER BY SampleID.DateCreated DESC"

Answer 1

基于评论......
我会将所有代码移动到一个sub并使用字符串参数（Corn或Beans或Radishes）调用该sub，这将帮助您缩小现在Radish按钮代码中的错误，以便以后更容易维护。 / p>

Answer 2

问题与绑定的文本框直接相关。我的不同样本需要显示不同数量的数据类别，但通过将文本框的visible属性设置为false仍然会导致可见文本框中出现问题。要将文本框设置回“未绑定”，我使用了

Me.text5.ControlSource = Empty

将文本框更改回未绑定状态，然后将它们重新绑定到新控件源。这已经永久地解决了这个问题。我现在有5个产品，这5个产品的任意组合完美无瑕。感谢大家的帮助。

重新计算时，Avg中的#Error（[Field]）

2 个答案: