保存按钮

zkz　发表于：2011-07-14 08:59:57 　

问题是：在主窗体建一保存按钮，点击让子窗体非绑定文本框输入的数据保存到相应的表里，下面还要加哪些代码（子窗体和主窗体不是一个记录源），盼解决！谢谢！

Dim strSQL As String
   strSQL = "INSERT INTO 库存(名称,入库,出库) "
   strSQL = strSQL & "VALUES('" & Me.名称 & "','" & Me.入库 & "','" & Me.出库 & "')"

   DoCmd.SetWarnings False
   DoCmd.RunSQL strSQL
   DoCmd.SetWarnings True

   Me.名称 = ""
   Me.入库 = ""
   Me.出库 = ""
   名称.SetFocus

Top

煮江品茶发表于：2011-07-14 09:54:05

可以不加了

Top

zkz 发表于：2011-07-14 09:58:18

煮江品茶老师能给个答案吗？在您的示例上做的，您的案例我全当教材了，谢谢！

Top

zkz 发表于：2011-07-14 10:04:49

不能保存啊，是在您的子窗体导入临时表子窗体修改后再返回的示例中主窗体设置的按钮，我想用临时表窗体中文本框做添加数据到成绩表里，怎么解决啊！

Top

zkz 发表于：2011-07-14 10:15:41

就是这个，我把临时表子窗体设置成单个窗体，把文本框设置成不绑定，再文本框中添加数据保存到成绩表中。怎么办？

点击下载此附件

Top

zkz 发表于：2011-07-14 16:14:16

有偿求解! QQ 1310322346

Top

煮江品茶发表于：2011-07-14 17:39:49

Private Sub 追加_Click()
Dim i As Long, j As Long
Dim ctls As Controls, ctl As Control
Dim ssql As String
Set ctls = Me.子窗体.Form.Controls
For i = 0 To n - 1
    Me.子窗体.Form.SelTop = i0 + i
    ssql = "INSERT INTO 临时表 (ID,姓名,性别,总分) "
    ssql = ssql & "VALUES (" & ctls("ID").Value & ",'" & ctls("姓名").Value & "','" & ctls("性别").Value & "'," & ctls("总分").Value & ")"
    CurrentDb.Execute ssql
Next
Me.临时表子窗体.Form.Requery
End Sub

Top

zkz 发表于：2011-07-14 18:34:47

厉害，高手，问题解决了！再联系！

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

保存按钮