access2007模具系统制作遇难题寻帮助

roych

居然跑到我们的地头来了？
晚些再帮你写个自定义函数

roych

这个自定义函数相对简单些许，能够被你理解（如果打开两个记录集则相对编码来说可以少很多行，但对于初学者不太容易理解）。

roych

天涯沦落20131 发表于 2014-11-29 10:19
尽则思变！EH的则重方向不一样！我则重解决系统问题；所以就在网上搜索论坛咯!  roych ：能在这里 ...

哎，我也是半路出家，只是学得比较早一些而已。
一般来说，初学者要建立一个系统，建议还是一步步来好一些。由于大局观不强，可以先根据需求确定表和查询，尽量先考虑宏做出一个小程序来用用。后面渐渐熟悉以后，再考虑如何设置窗体界面等等。

roych

天涯沦落20131 发表于 2014-12-1 11:44
roych: 提示_sub过程如何写！请别笑话我！刚接触！我对主窗体进行了设置，但达不到我要的结果！

不是在查询”提示子窗体“里用function返回值了吗？
如果要在窗体里使用的话，可以设置一个按钮，然后call它，例如：

1. Private Sub Command3_Click()
   
2. call Remind(me.上一次保养日期,me.最大保养次数)
   
3. End Sub
   

复制代码

不过，由于需要一个个去改，建议，更好点的办法是：
或者直接创建一个文本框，在"来源"里输入：=Remind(Forms!主窗体!上一次保养日期,meForms!主窗体!!最大保养次数)
如果不想改，就直接用我创建的查询作为一个子窗体嵌入到主窗体里就好了。

roych

你注释掉我写的那么多代码，真的好吗？{:soso_e112:}
用if嵌套的话，得按大小顺序将数据排一下再写代码哦。
我留意到你的表，把

1.                 If 15000 > lMaxTimes And lMaxTimes >= rst2(3) Then
   
2.                     arr(2) = "还有" & 15000 - lMaxTimes & "模次就需要小保养了"
   
3.                 Else
   
4.                     arr(2) = ""
   
5.                 End If

复制代码

改为：

1. If 15000 > lMaxTimes  Then
   
2.                     arr(2) = "还有" & 15000 - lMaxTimes & "模次就需要小保养了"
   
3.                 Else
   
4.                     arr(2) = ""
   
5.                 End If

复制代码

再试试

roych

天涯沦落20131 发表于 2015-4-4 11:56
1、谢谢！临时注释只是方便我分开检测功能！顺便问一句可否用 Select Case来写代码
2   If 45000 > lMaxTi ...

表字段设置有顺序的，是从0开始，因为没有5个字段，所以rst2（4）肯定是出错的。
如有必要，可以改成这种格式（这跟字段顺序没关系）：
rst2("字段名称")
但前提是字段名称不能再乱改，否则照样出错。