能否把一个表中的几个字段值自动添加到其它表中

baw009

现在表1，能否把表1中的姓名，科室，年度三个字段值添加到其它的表2，表3，表4中呢？就是如果录入表1中这三个字段的值后表2，3，4中会自动添加上。我已经把表1里的个人索引建立了一对多的关系，即表1，2，3，4中都有个人索引字段，而且建立了关系，我能否把表1中的姓名，科室，年度也和表2，3，4建立一对多的关系呢？如可该如何实现？

xinbao

好像要用触发器才行

cattjiu

1.自动添加：建立追加查询，用事件来调用；
2. 关系可以建立，在关系窗体里，如果你的表结构以及主键定义得对就可以顺利建立。

HG

我給我的例子您看看了。
先把您要追求的字段用一個生成表查詢，生成一個表，臨時用的。
然后看看我的例程。
Private Sub com_update_Click()
On Error GoTo err_this
DoCmd.SetWarnings False
DoCmd.OpenQuery "addUnderFence_createnewtmptable" /*此為生成表查詢名
DoCmd.SetWarnings True

'Dim conn As String
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim conn As New ADODB.Connection


Set conn = CurrentProject.Connection


rs1.Open "tmp1", conn, adOpenForwardOnly
rs2.Open "additemcontentstogood", conn, adOpenKeyset, adLockOptimistic

Do Until rs1.EOF
   'Debug.Print rs1.Fields(0).Value; rs1.Fields(1).Value; rs1.Fields(2).Value; rs1.Fields(3).Value
   
   Do Until rs2.EOF
     If rs2.Fields("缸號") = rs1.Fields(0).Value Then
   

       rs2.Fields("送辦日期") = rs1.Fields(1).Value
       rs2.Fields("客OK") = rs1.Fields(2).Value
       rs2.Fields("回復日期") = rs1.Fields(3).Value

      End If
    rs2.Update
    rs2.MoveNext
    Loop
   
   rs1.MoveNext
Loop

rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing


exit_sub:
  Exit Sub
err_this:
MsgBox Err.Description
Resume exit_sub
End Sub

[此贴子已经被HG于2002-6-27 16:42:32编辑过]