Office中国论坛/Access中国论坛

标题: 输入数据时同时根据条件吧对应的内容导入另外一个表 [打印本页]
作者: xyh2732    时间: 2012-12-19 15:38
标题: 输入数据时同时根据条件吧对应的内容导入另外一个表
请问如何可以使在下面的做账确认打钩时，同时根据 “查账编码”把数据导入 “出入数据库”表 ，需要导入的数据有：做账登记人、做账时间、做账备注。[attach]50965[/attach]
作者: Henry D. Sy    时间: 2012-12-19 16:44
  1. Private Sub 做账确认_Click()
  2.     Dim sSQL As String
  3.    On Error GoTo 做账确认_Click_Error

  5.     If Me.做账确认 Then
  6.         sSQL = "INSERT INTO 出入数据库 ( 查账编码, 做账登记人, 做账时间, 做账备注 )values('" & _
  7.             Me.查账编码 & "','" & Me.做账登记人 & "',#" & Me.做账时间 & "#,'" & Me.做账备注 & "')"
  8.         CurrentDb.Execute sSQL
  9.         MsgBox "导入完毕！"
  10.     End If

  12.    On Error GoTo 0
  13.    Exit Sub

  15. 做账确认_Click_Error:

  17.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
  18. End Sub
复制代码
作者: xyh2732    时间: 2012-12-19 17:20
Henry D. Sy 发表于 2012-12-19 16:44

感谢你的帮忙，如果我想增加 确认时间同时导入“出入数据库”表里，要如何更改，还有取消确认时间时 可否也做到 同时取消“出入数据库”表对应的内容，谢谢！
作者: Henry D. Sy    时间: 2012-12-20 10:00
问题1： 你的库中没有确认时间
问题2：
  1. Private Sub 做账确认_Click()
  2.     Dim sSQL As String
  3.     On Error GoTo 做账确认_Click_Error

  5.     If Me.做账确认 Then
  6.         sSQL = "INSERT INTO 出入数据库 ( 查账编码, 做账登记人, 做账时间, 做账备注,确认时间 )values('" & _
  7.                Me.查账编码 & "','" & Me.做账登记人 & "',#" & Me.做账时间 & "#,'" & Me.做账备注 & "')"
  8.     Else
  9.         sSQL = "delete from 出入数据库 where 查账编码='" & Me.查账编码 & "'"
  10.     End If
  11.     CurrentDb.Execute sSQL
  12.     MsgBox "完毕！"

  14.     On Error GoTo 0
  15.     Exit Sub

  17. 做账确认_Click_Error:

  19.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
  20. End Sub
复制代码
作者: xyh2732    时间: 2012-12-20 11:43
Henry D. Sy 发表于 2012-12-20 10:00
问题1： 你的库中没有确认时间
问题2：


你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 做账确认 时，同时根据 查账编码 把 “做账登记人，做账时间，做账备注，做账确认”导入 出库数据库 表相同的 查账编码 对应的 内容里，而不是在 出库数据库 表里增加一行新的数据。
比如我 在勾选 做账确认时，系统根据我勾选的 对应 查账编码 “MARKXU1212002” 在   出入数据库  里找出对应的“MARKXU1212002”在导入对应的数据[attach]50971[/attach]
作者: Henry D. Sy    时间: 2012-12-20 12:10
xyh2732 发表于 2012-12-20 11:43
你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 ...

描述错误，这不是导入，而是更新原有的记录！
作者: Henry D. Sy    时间: 2012-12-20 12:26
xyh2732 发表于 2012-12-20 11:43
你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 ...
  1. Private Sub 做账确认_Click()
  2.     Dim sSQL As String
  3.    On Error GoTo 做账确认_Click_Error

  5.     If Me.做账确认 Then
  6.         sSQL = "update 出入数据库 set 做账登记人='" & Me.做账登记人 & "',做账时间=#" & Me.做账时间 & _
  7.             "#,做账备注='" & Me.做账备注 & "',做账确认=" & Me.做账确认 & " where 查账编码='" & Me.查账编码 _
  8.             & "'"
  9.     Else
  10.         sSQL = "update 出入数据库 set 做账登记人=null,做账时间=null,做账备注=null,做账确认=" & Me.做账确认 & _
  11.             " where 查账编码='" & Me.查账编码 & "'"
  12.     End If
  13.     CurrentDb.Execute sSQL

  15.    On Error GoTo 0
  16.    Exit Sub

  18. 做账确认_Click_Error:

  20.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
  21. End Sub
复制代码
作者: xyh2732    时间: 2012-12-20 12:54
Henry D. Sy 发表于 2012-12-20 12:26

哈哈。。没错就是要这个，非常感谢了！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3