层级联接问题？

t小宝

1、更改了修改和添加按钮的代码。图纸资料表取消了四个字段，所以要取消这四个字段的修改和添加代码。
2、更改了删除按钮的代码。图纸资料表是"一对多"关系的"多"方，编号字段作为连接字段，是有重复的，所以添加了一个唯一的自动编号字段，在删除按钮中使用。
具体改动请对照原来的库

JimmyOu3259

先谢谢你啊！！！！！

JimmyOu3259

t小宝，如果按你的附件话 “主机信息”窗体有几条记录“图纸资料”窗体才能新增几条记录；但是“图纸资料”窗体中相同“工号，合同号，订购单位，计划产出日期”的记录中图纸名称等其他几项是可以不同啊？现在我想增加记录就不行了。。。

t小宝

为实现层级连接，图纸资料的编号只能输入主机信息中有的编号，但图纸资料可以输入多条编号相同的记录，可实现你要求的效果。

JimmyOu3259

为什么我在这个附件上不能在“图纸资料”窗体新增记录啊？什么原因啊，麻烦你再看看，谢谢！！！！！！

t小宝

不好意思,表结构和表关系没有得改完,再试试这个

JimmyOu3259

谢谢你啊，这个问题拖很久，现在终于被你解决了。。。。

[ 本帖最后由 JimmyOu3259 于 2007-11-3 14:28 编辑 ]

JimmyOu3259

t小宝，按这种做法，在“图纸资料”窗体中有两条记录时，我想修改下面那条时，为什么老是只修该第一条记录？

t小宝

你原来的代码有很多错误,特别是有一个For循环更是不知有什么用?
改成下面的就可以了:

Private Sub 修改记录_Click()
On Error GoTo Err_修改记录_Click
Dim STemp As String
Dim Rs As ADODB.Recordset
If IsNull(Me![图纸资料表查询 子窗体]![ID]) Then Exit Sub
Set Rs = New ADODB.Recordset
STemp = "select * from 图纸资料表 Where ID=" & Me![图纸资料表查询 子窗体]![ID]
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If IsNull(Me![编号]) = True Then
    MsgBox "请输入编号,它不可以为空!", vbOKOnly, "输入编号"
    Me![编号].SetFocus
ElseIf IsNull(Me![图纸名称]) = True Then
    MsgBox "请输入图纸名称,它不可以为空!", vbOKOnly, "输入图纸名称"
    Me![图纸名称].SetFocus
ElseIf IsNull(Me![计划完成日期]) = True Then
    MsgBox "请输入计划完成日期,它不可以为空!", vbOKOnly, "输入计划完成日期"
    Me![计划完成日期].SetFocus
Else
    Rs("图纸名称") = Me![图纸名称]
    Rs("计划完成日期") = Me![计划完成日期]
    Rs("实际完成日期") = Me![实际完成日期]
    Rs("分图日期") = Me![分图日期]
    Rs("制图人") = Me![制图人]
    Rs("备注") = Me![备注]
    Rs.Update
    Me![图纸资料表查询 子窗体].Requery
    MsgBox "图纸资料表已经修改完成!", vbOKOnly, "修改完成"
End If
Exit_修改记录_Click:
    Set Rs = Nothing
    Exit Sub
Err_修改记录_Click:
    MsgBox Err.Description
    Resume Exit_修改记录_Click
End Sub

[ 本帖最后由 t小宝 于 2007-11-3 15:16 编辑 ]

t小宝

主机信息窗体也有类似的问题,你自己参照修改.
还有,代码应设置缩进,才好看清逻辑关系.