Office中国论坛/Access中国论坛

标题: 关于保存记录的问题 [打印本页]

作者: wangf 时间: 2007-3-12 18:59
标题: 关于保存记录的问题
当保存记录时，没有出错提示，就是不能保存到表中。

保存代码如下：

Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
'定义各种变量
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * From 能耗统计"
'为打开数据表"查询语句"字符变量赋值
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   '判断必填文本框和组合框是否为空
   If IsNull(Me![id]) = True Then
   MsgBox "请输入日期,它不能为空!", vbOKOnly, "输入id"
   Me![id].SetFocus
ElseIf IsNull(Me![日期]) = True Then
   MsgBox "请输入日期,它不能为空!", vbOKOnly, "输入日期"
   Me![日期].SetFocus
   ElseIf IsNull(Me![班次]) = True Then
   MsgBox "请输入班次,它不能为空!", vbOKOnly, "输入班次"
   Me![班次].SetFocus
   ElseIf IsNull(Me![统计员]) = True Then
   MsgBox "请输入统计员,它不能为空!", vbOKOnly, "输入统计员"
   Me![统计员].SetFocus
   Else
   '保存能耗输入
   STemp = "INSERT INTO 能耗统计"
   STemp = STemp & "(ID,日期,班次,浊环水,净环水,自来水,自来水1,水抄表人,[1#动力变],[2#动力变],[1#整流变],[2#整流变],[3#整流变],[4#整流变],[5#整流变],[高压电机],电抄表人,煤,统计员,备注)"
   STemp = STemp & "VALUES ('" & Me![日期] & "',"
   STemp = STemp & "'" & Me![班次] & "','" & Me![浊环水] & "',"
   STemp = STemp & "'" & Me![净环水] & "','" & Me![自来水] & "',"
   STemp = STemp & "'" & Me![自来水1] & "','" & Me![水抄表人] & "',"
   STemp = STemp & "'" & Me![1#动力变] & "','" & Me![2#动力变] & "',"
   STemp = STemp & "'" & Me![1#整流变] & "','" & Me![2#整流变] & "',"
   STemp = STemp & "'" & Me![3#整流变] & "','" & Me![4#整流变] & "',"
   STemp = STemp & "'" & Me![5#整流变] & "','" & Me![高压电机] & "',"
   STemp = STemp & "'" & Me![电抄表人] & "','" & Me![煤] & "',"
   STemp = STemp & "'" & Me![统计员] & "','" & Me![备注] & "')"
   '刷新子窗体
   Me![能耗输入子窗体].Requery
   End If
Exit_保存记录_Click:
  Exit Sub
Err_保存记录_Click:
  MsgBox err.Description
  Resume Exit_保存记录_Click
End Sub[attach]23489[/attach]

[此贴子已经被作者于2007-3-12 12:00:33编辑过]

作者: wangf 时间: 2007-3-12 20:03
在别的窗体中，我也是以同样的方式做的，可以保存，但为何在此窗体中就不能？？？

请前辈们帮帮忙!!!!

作者: 一点通 时间: 2007-3-12 21:51
修改一下语句,在多字段下会更清晰

Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
'定义各种变量
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "能耗统计", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
'保存数据
rs("日期") = Me.日期
rs("净环水") = Me.净环水
rs("班次") = Me.班次
rs("浊环水") = Me.浊环水
'.....其它字段保存类推

'保存结束
rs.Update

'刷新子窗体
Me![能耗输入子窗体].Requery
Exit_保存记录_Click:
  Exit Sub
Err_保存记录_Click:
  MsgBox err.Description
  Resume Exit_保存记录_Click
End Sub

作者: wangf 时间: 2007-3-13 16:16
谢谢，

作者: rjacky 时间: 2007-3-13 17:09
对，用ADO来实现方便些

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