很难的问题，不知道怎么解决？？？

wx-x · 发表于 2011-3-28 01:09

我希望解决2个问题：
1.如果在工时信息窗体里录入日期，则自动显示该日期所属的会计期间（信息来源于表“会计期间”）：
2.如果子窗体里一条信息都没有录入，那么此时关闭窗体，不保存该条记录。

请问有什么办法解决，谢谢，谢谢！！！！

Renco · 发表于 2011-3-28 11:59

问题1:LZ请查询F1帮助中,关于Dlookup函数的使用方式
问题2:这一解决方式不是那么简单的做法,须要你去一些实例,总体来说,可以这么说,使用临时表示,即,你所做的改动,都在一个与原表一样的临时表操作,当点保存时,再写进原表里,这是总体的思路,具体的须个人去根据自已的需求去完成.

从数据库结构来说,LZ应当是由EXCEL转过来的思路,须要优化一下结构哦

styhs · 发表于 2011-3-28 15:03

原帖由 wx-x 于 2011-3-28 01:09 发表
我希望解决2个问题：
1.如果在工时信息窗体里录入日期，则自动显示该日期所属的会计期间（信息来源于表“会计期间”）：
2.如果子窗体里一条信息都没有录入，那么此时关闭窗体，不保存该条记录。
请问有什 ...

问题1：采用函数可轻松解决。
问题2：二楼的方法正解。如果数据不太复杂，可以在窗体卸载时删除记录来实现，这应该算旁门左道吧。

wx-x · 发表于 2011-3-28 22:30

原帖由 styhs 于 2011-3-28 15:03 发表

问题1：采用函数可轻松解决。
问题2：二楼的方法正解。如果数据不太复杂，可以在窗体卸载时删除记录来实现，这应该算旁门左道吧。

万分感谢兄弟，会计期间解决了，正是我所需要的，只是如果数据一点没有录就直接关闭窗体，下面这段代码会报错：
Private Sub Form_Unload(Cancel As Integer) '窗体卸载时激活
Dim FInfo As VbMsgBoxResult
If rstLookup(Me.录入ID) Then Exit Sub FInfo = MsgBox("没有填写相关明细记录，是否返回填写...", vbQuestion + vbYesNo, "程序提示")
If FInfo = vbYes Then Cancel = True: Exit Sub
Call rstDelete(Me.录入ID)
End Sub
不知道有什么更好的解决办法，谢谢。

[ 本帖最后由 wx-x 于 2011-3-28 23:24 编辑 ]

styhs · 发表于 2011-3-29 08:52

原帖由 wx-x 于 2011-3-28 22:30 发表

万分感谢兄弟，会计期间解决了，正是我所需要的，只是如果数据一点没有录就直接关闭窗体，下面这段代码会报错：
Private Sub Form_Unload(Cancel As Integer) '窗体卸载时激活
Dim FInfo As VbMsgBoxResult
...

在 If rstLookup(Me.录入ID) Then Exit Sub语句上面添加判断语句：
If IsNull(Me.录入ID) Then Exit Sub

wx-x · 发表于 2011-3-29 10:00

原帖由 styhs 于 2011-3-29 08:52 发表

在 If rstLookup(Me.录入ID) Then Exit Sub语句上面添加判断语句：
If IsNull(Me.录入ID) Then Exit Sub

兄弟，你太厉害了，谢谢。我的QQ：470952155，可以加一下我吗？

maxili1983 · 发表于 2011-3-29 16:30

我挺想深度了解下你这个问题,或许我能帮的上你,如果有可能,给我发邮件 TylerMa3223@163.com

		自动登录	找回密码
密码			免费注册