如何窗口未绑定的文本框内容填入表中

loveherevery

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

谢健

用追加查询即可轻松做到.如果仍不会,请用追加查询搜索一下旧贴,或是用按钮搜索一下旧贴.

一点通

上传示例看下

loveherevery

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

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

一点通

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

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

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "表名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
        
rs("表字段名") = Me.控件名
......
......
        
rs.Update

loveherevery

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

一点通

代码不知道怎么看才明白???

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

andymark

  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

深深地感谢一点通以及andymark的帮助，小弟在此鞠躬了！！！以后还要麻烦大家呢。希望不吝赐教！！！