如何在主窗体上打开相关的窗体1,在窗体1上选择的记录后,按确定后,记录就添加到主窗

petrelai

如主题所示![em12]

petrelai

怎么没人帮忙一下呢!

zhengjialon

用追加查询吧。

petrelai

可不可以说详细一点的？我只想把它添加到主窗体中，并不想把它添加到表中！

zhf2004

参考这个吧。
ME 代表子窗体  


If IsNull(Me.编号) Or IsNull(Me.单位) Or IsNull(Me.结束日期) Or IsNull(Me.起始日期) Or IsNull(Me.区间) Or IsNull(Me.添发日期) Or IsNull(Me.姓名) Or IsNull(Me.职称) Then Exit Sub
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection
Dim rst As New ADODB.Recordset
rst.Open "主窗体数据源表", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst.Fields("编号") = Me.编号
rst.Fields("打印日期") = Now()
rst.Fields("起始日期") = Me.起始日期
rst.Fields("结束日期") = Me.结束日期
rst.Fields("区间") = Me.区间
rst.Update
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Me.主窗体.Requery
End Sub

petrelai

这样做是不是，也添加到表中了？
我是想在一个主窗体中，如有一个“保修期”的文本框和一个按钮，当我按这个铵钮时，打开“保修期”相对应的“窗体1”，在“窗体1”中选中一条记录，放它放到主窗体的“保修期”文本框中，当我保存时，才保存到表中，如否，就不保存了。就这样》》》》》

zhengjialon

5楼的也是一种方法，是ADO编程方法，rst.Update 这一句是最后是否更新的，控制这一句就控制了是否要更新。

petrelai

要不我给你看一个例子.

petrelai

[em04]
为什么要用到"If IsNull(Me.编号) Or IsNull(Me.单位) Or IsNull(Me.结束日期) Or IsNull(Me.起始日期) Or IsNull(Me.区间) Or IsNull(Me.添发日期) Or IsNull(Me.姓名) Or IsNull(Me.职称) Then Exit Sub"

[此贴子已经被作者于2004-1-28 20:05:57编辑过]

petrelai

各位!不用那么麻烦了!我已找到解决的方法了.谢谢各位的帮忙!我想要解决的问题就是这样的问题:
http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&ID=12937&replyID=63990&skin=1

但是我想做到当双击窗体1时,也可实现的那样的功能,请问在ACCESS中可以实现这样的功能呢?请帮忙,谢谢![em12]

[此贴子已经被作者于2004-1-28 21:10:59编辑过]