输入数据时同时根据条件吧对应的内容导入另外一个表

xyh2732

请问如何可以使在下面的做账确认打钩时，同时根据 “查账编码”把数据导入 “出入数据库”表 ，需要导入的数据有：做账登记人、做账时间、做账备注。

Henry D. Sy

1. Private Sub 做账确认_Click()
   
2.     Dim sSQL As String
   
3.    On Error GoTo 做账确认_Click_Error
   
4. 
   
5.     If Me.做账确认 Then
   
6.         sSQL = "INSERT INTO 出入数据库 ( 查账编码, 做账登记人, 做账时间, 做账备注 )values('" & _
   
7.             Me.查账编码 & "','" & Me.做账登记人 & "',#" & Me.做账时间 & "#,'" & Me.做账备注 & "')"
   
8.         CurrentDb.Execute sSQL
   
9.         MsgBox "导入完毕！"
   
10.     End If
    
11. 
    
12.    On Error GoTo 0
    
13.    Exit Sub
    
14. 
    
15. 做账确认_Click_Error:
    
16. 
    
17.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
18. End Sub
    

复制代码

xyh2732

Henry D. Sy 发表于 2012-12-19 16:44

感谢你的帮忙，如果我想增加 确认时间同时导入“出入数据库”表里，要如何更改，还有取消确认时间时 可否也做到 同时取消“出入数据库”表对应的内容，谢谢！

Henry D. Sy

问题1： 你的库中没有确认时间
问题2：

1. Private Sub 做账确认_Click()
   
2.     Dim sSQL As String
   
3.     On Error GoTo 做账确认_Click_Error
   
4. 
   
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 "完毕！"
    
13. 
    
14.     On Error GoTo 0
    
15.     Exit Sub
    
16. 
    
17. 做账确认_Click_Error:
    
18. 
    
19.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
20. End Sub
    

复制代码

xyh2732

Henry D. Sy 发表于 2012-12-20 10:00
问题1： 你的库中没有确认时间
问题2：

你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 做账确认 时，同时根据 查账编码 把 “做账登记人，做账时间，做账备注，做账确认”导入 出库数据库 表相同的 查账编码 对应的 内容里，而不是在 出库数据库 表里增加一行新的数据。
比如我 在勾选 做账确认时，系统根据我勾选的 对应 查账编码 “MARKXU1212002” 在   出入数据库  里找出对应的“MARKXU1212002”在导入对应的数据

Henry D. Sy

xyh2732 发表于 2012-12-20 11:43
你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 ...

描述错误，这不是导入，而是更新原有的记录！

Henry D. Sy

xyh2732 发表于 2012-12-20 11:43
你好感谢你的帮忙，说错了是“做账确认”才对，还有我测试过你的例子，不是我想要的，我是想根据 在勾选 ...

1. Private Sub 做账确认_Click()
   
2.     Dim sSQL As String
   
3.    On Error GoTo 做账确认_Click_Error
   
4. 
   
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
    
14. 
    
15.    On Error GoTo 0
    
16.    Exit Sub
    
17. 
    
18. 做账确认_Click_Error:
    
19. 
    
20.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
21. End Sub
    

复制代码

xyh2732

Henry D. Sy 发表于 2012-12-20 12:26

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