Office中国论坛/Access中国论坛

标题: 如何窗口未绑定的文本框内容填入表中 [打印本页]

作者: loveherevery 时间: 2007-7-3 21:02
标题: 如何窗口未绑定的文本框内容填入表中
字定义窗口中放置有若干文本框，没有绑定数据表，但数量比数据表少两个，其中一个是自动编号，另一个是设置的自动记录更新时间。现在做了一个新增按扭讲文本框内容清空，然后自己填写后想更新数据表，不知道怎么讲窗口文本框里的内容填到表中！从书中抄了代码，但总提示错误！！郁闷中

作者: 谢健 时间: 2007-7-3 21:05
用追加查询即可轻松做到.如果仍不会,请用追加查询搜索一下旧贴,或是用按钮搜索一下旧贴.

作者: 一点通 时间: 2007-7-3 21:27
上传示例看下

作者: loveherevery 时间: 2007-7-3 22:19

以下是引用一点通在2007-7-3 13:27:00的发言：
上传示例看下

客户[attach]25201[/attach]
资料窗体里“保存客户”和“修改客户资料”两个按扭，保存客户的代码是我抄来的，不知道怎么改都不明白，所以修改客户资料也不敢抄了。

作者: 一点通 时间: 2007-7-3 22:35
1.先说下保存问题吧,你应了解各代码的用途,了解了自然就能变通,至于你上传的例子中的保存代码,当数据量小时还是可以的,但当数据多时就看到眼花了,而且极易出错,调试时最好用一,二段代码来测试,成功后再慢慢增加,直至全部字段保存为止,

另给你一个直观一点的保存代码,保存的字段可不分先书写

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "表名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew

rs("表字段名") = Me.控件名
......
......

rs.Update

作者: loveherevery 时间: 2007-7-3 23:53
谢谢“一点通”，已经可以使用了，但又有新问题，需要加一个判断，否则会有相同的记录。唉。。。。真是笨啊，代码不知道怎么看才明白。

作者: 一点通 时间: 2007-7-4 00:14
代码不知道怎么看才明白???

将光标停留在代码上,然后按F1

作者: andymark 时间: 2007-7-4 01:00
  Dim STemp As String
   Dim Rs As ADODB.Recordset
   Set Rs = New ADODB.Recordset
   STemp = "Select * From 客户名单查询 where 单位名称='" & Me.单位名称 & "'"

   Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

   If Rs.EOF Then
   Rs.AddNew
      Rs.Fields("单位名称") = Me.单位名称
      .......
      Rs.Update
      Rs.Close

      Else

      MsgBox "单位名称已存在"
      Exit Sub
   End If

   Set Rs = Nothing

作者: loveherevery 时间: 2007-7-4 05:41
深深地感谢一点通以及andymark的帮助，小弟在此鞠躬了！！！以后还要麻烦大家呢。希望不吝赐教！！！

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