Office中国论坛/Access中国论坛

标题: 请教：怎样才能把一个窗体里的数据同时提交给两个表，并数据不许重复？ [打印本页]

作者: jsf2008 时间: 2010-6-14 09:51
标题: 请教：怎样才能把一个窗体里的数据同时提交给两个表，并数据不许重复？
[attach]42444[/attach][attach]42443[/attach]

Private Sub 提交_Click()
On Error GoTo Err_提交_Click
Dim i, j As Integer
Dim StrTemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Set Rs2 = New ADODB.Recordset
StrTemp = "Select * From 申购单"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
StrTemp = "Select * From 申购单历史"
Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
StrTemp = "Select * From 采购单"
Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'如果“领料申请单”为空，则退出

If rs.RecordCount <= 0 Then
      Exit Sub
End If
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
      CunZai = False
   If Rs1.RecordCount < 1 And Rs2.RecordCount < 1 Then
         CunZai = False
      For j = 0 To Rs1.RecordCount - 1 And Rs2.RecordCount - 1
      If Rs1("PH") = rs("PH") And Rs2("PH") = rs("PH") Then

                  Rs1.Update
                  Rs2.Update
                  CunZai = True
                  Exit For
            Else
                  Rs1.MoveNext
                  Rs2.MoveNext
            End If
         Next j
         End If

         Rs1.AddNew
         Rs1("SGDH") = Me![SGDH]
         Rs2("CGDH") = Me![SGDH]

         Rs1("YJRQ") = Me![YJRQ]
         Rs1("SGR") = Me![SGR]
         Rs1("SGBM") = Me![SGBM]
         Rs1("SGRQ") = Me![SGRQ]
         Rs1("SHR") = Me![SHR]
         Rs1("SHRQ") = Me![SHRQ]
         Rs1("HZR") = Me![HZR]
         Rs1("HZRQ") = Me![HZRQ]

         Rs1("GES") = Me![GES]
         Rs2("CS") = Me![GES]

         Rs1("PH") = rs("PH")
         Rs2("PH") = rs("PH")
         Rs1("PMPE") = rs("PMPE")
         Rs2("PMPE") = rs("PMPE")
         Rs1("PM") = rs("PM")
         Rs2("PM") = rs("PM")

         Rs1("LB") = rs("LB")
         Rs2("LB") = rs("LB")
         Rs1("PP") = rs("PP")
         Rs2("PP") = rs("PP")

         Rs1("GG") = rs("GG")
         Rs2("GG") = rs("GG")
         Rs1("DW") = rs("DW")
         Rs2("DW") = rs("DW")
         Rs1("MJFH") = rs("MJFH")
         Rs2("MJFH") = rs("MJFH")
         Rs1("GCH") = rs("GCH")
         Rs2("GCH") = rs("GCH")
         Rs1("SGSL") = rs("SGSL")
         Rs2("SGSL") = rs("SGSL")
         Rs1("BZ") = rs("BZ")
         Rs2("BZ") = rs("BZ")
         Rs1("SZBH") = rs("SZBH")
         Rs2("SZBH") = rs("SZBH")
         Rs1.Update

      '删除申购单该条记录
   rs.Delete 1
      'Me![申购单子窗体].Requery
      rs.MoveNext
Next i
Set rs = Nothing
Set Rs1 = Nothing

Me![申购单子窗体].Requery
MsgBox "申购单已经提交成功", vbInformation, "温馨提示"
Exit_提交_Click:
Set rs = Nothing
Set Rs1 = Nothing

Exit Sub
Err_提交_Click:
MsgBox Err.Description
Resume Exit_提交_Click
End Sub

作者: jsf2008 时间: 2010-6-14 15:51
???

作者: todaynew 时间: 2010-6-14 15:57
Rs1.AddNew仅添加了一个表的新纪录，是否需要rs2.addnew？

作者: jsf2008 时间: 2010-6-14 16:14
是的，想法:“提交"时,怎么才把rs中的内容同时添加到两个表RS1,RS2中呢，并不许重复，请问怎么做，我把rs2.addnew？加进去也不行？请高手帮忙

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)