access 中窗体中的自动更新数据如何更新到表中

roland.qiu

如:窗体A中text1的内容是=text2*2，当text2内容更改时text1的内容也随着自动更新，但对应的表A中的内容却不会更新

lation

窗体控件的值是临时的，你必须要进行写入表操作，才能对表的内容更新。否则这个数值永远只是控件的值而已。

roland.qiu

lation 发表于 2013-3-13 17:44
窗体控件的值是临时的，你必须要进行写入表操作，才能对表的内容更新。否则这个数值永远只是控件的值而已。

就是不知道如何写入表呀，能提供代码参考吗，我想一个数据库中多少数据都是从窗体中输入的，应该有专门的写入语句吧

roland.qiu

加一个导入数据按钮，不知道怎么写代码

lation

晕！直接追加记录啊，就是向表插入一条新记录即可。
insert into 。。表名称。。。控件.value
注意：控件的值属性必须和表数据属性一致。

roland.qiu

我是个新手，不懂，能否把详细的代码告诉我，谢谢

lation

insert into 表1[字段1,字段2] values(text1.value,text2.value)
这个是插入记录的

如果你要从文本框里面显示数据，那么文本框就绑定到了表，要从表中读取记录，当你在文本框中输入新的数据时，就直接更新update，这样表的数据记录也就可以更新了。

我贴一段代码给你吧，很久以前写的：
Dim rs4 As New ADODB.Recordset        '定义一个Ado记录集
Dim sql4 As String                    '定义一个字符串变量

Set cn = CurrentProject.Connection   '定义cn等于当前连接

sql = "select * from 表1 ORDER by 表编号 DESC"

rs4.Open sql, cn, adOpenKeyset, adLockPessimistic        '打开数据库，读出数据并赋予指针
With rs4                                         '指针为rs4
If biao_change = True Then   '我设了一个变量，检测文本框的值是否已经改变，如果改变为真，则
    .AddNew                             '追加新记录
Else                                     '否则
    .Update                         '更新
End If                               '

     !表编号 = Me.文本140.Value        '将表编号赋予新的数值，这个是我新加的文本框的值，默认等于当天最后一个数据编号加1，就是新的编号

End With               '结束数据所有记录的遍历
rs4.Update                    '指针更新，也就是你所要的数据更新
rs4.Close                       '关闭指针，也就是关闭表
cn.Close                        '关闭链接

不知道你能否看得懂？呵呵。

llxzll

其实也没必要做的那么复杂。
如果，你的窗体中的控件是绑定到表A的话。
那么，你在TEXT2的更新后事件中写入如下代码即可：  
me.text1 = me.text2 * 2
Me.Refresh   

仅供参考。

w1438377787

我这张图里面的   要把窗体里面可变的时间  如何新增到表里面  我是新手    帮帮我     Qq：1438377787