非绑定窗体里主、子窗体的字段链接问题

紫风

1，主窗体里的字段A，是cmdSave单击后的自动编号填入字段。
2，子窗体里（数据表）某个字段F
我想在主窗体的字段A被填入后，子窗体的字段F=主窗体的字段A，请问这个代码要怎么写呢？
备注：做的是未绑定窗体，想用ADO写，可以么？
先谢谢各位了！

todaynew

紫风 发表于 2011-7-15 13:53
1，主窗体里的字段A，是cmdSave单击后的自动编号填入字段。
2，子窗体里（数据表）某个字段F
我想在主窗体 ...

筛选即可

chaosheng

主子窗体还是用绑定的好,主子表设置关系,主子窗体设置关联字段,  你的那些问题全不用考虑,由access为你完美处理.

紫风

chaosheng 发表于 2011-7-15 21:46
主子窗体还是用绑定的好,主子表设置关系,主子窗体设置关联字段,  你的那些问题全不用考虑,由access为你完美 ...

回3楼：
可是因为某些原因，要用非绑定窗体啊……因为绑定窗体用鼠标滚滚就会到别的记录了……
我想用ADO做的。

紫风

todaynew 发表于 2011-7-15 15:19
筛选即可

回版主：
筛选怎么做呢？
我再说具体一点：
主窗体字段A，在cmdSave单击事件如下：
    If IsNull(Me.A) Then
        Call AutoShid
        rs.Open "tblAAA", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
            With rs
                .AddNew
                ![号码] = Me.A
                .Update
            End With
        rs.Close
        Set rs = Nothing
        
        DoCmd.SetWarnings False
        DoCmd.RunSQL "insert into tblBBB SELECT tblBBBtemp.* FROM tblBBBtemp;"
        DoCmd.SetWarnings True
    End If
------------------------------------------------------------------------------------------------------------------------------
Private Sub AutoShid()
    Dim ID, date2 As String
   
    date2 = "SKZD" & Format(Me.日期, "YYYYMMDD")
    ID = DMax("[A]", "[tblAAA]", "[A] like '" & date2 & "???'")
    If IsNull(ID) Then
        Me.A = date2 & "001"
    Else
        Me.A = date2 & Format(CStr(Right(ID, 3) + 1), "000")
    End If
End Sub
------------------------------------------------------------------------------------------------------------------------------
如上，在主窗体字段A有值后，子窗体（有若干条记录的数据表，但第一个字段"B"是空的）里每行字段B都变成和主窗体字段A相同的值。

请问这个是要怎么实现呢？

紫风

时隔几天，我自己想到了个办法，就是不知是否可行，往各位告知，谢谢！
方法如下：
1. 主窗体-用未绑定窗体做
2. 子窗体-在客户端建个本地的表, tbl***.temp，用绑定窗体做
3. 主子链接字段A
4. cmdSave用ADO写，不过在后面加上以下：
    Docmd.SetWarnings False
    Docmd.RunSql " Insert into tbl*** Select tbl***.temp"
    Docmd.SetWarnings True
5. 最后在主窗体的关闭事件写下：
    Docmd.SetWarnings False
    Docmd.RunSql "Delete * From tbl***.temp"
    Docmd.SetWarnings True

以上是我想到的方法，其实就是将本里临时表的记录加到后台数据的表里。
如各位大人有更好的方法，请告知小弟，谢谢！