关于Access创建窗体后在窗体添加数据到表的问题

psunui

感觉excel不是很够用，用Access做了个小数据库，下载了几个示例，好象是在窗体添加或更改数据不会
即时将更改保存到表，现在自己做的是只要窗体有更改，表里的内容会跟着变。
现在想在窗体上添加个保存按钮，更改数据后点击保存后再将数据更改保存到表，如果不点保存则表中的数据不变，
不知道这个是怎么设置的，麻烦哪位高手指点一下，不胜感激。

402854992

大概思路是把窗体的记录源删掉,再在控件里添加代码保存.本人也较菜,详细的另请高手解答

shepdog

楼主，这个对你我来说都很难。用Access很少人这么用的，太麻烦，非常麻烦，没必要。
能实现这个的，肯定是高手了。变通的方法，就是编辑临时表，然后再把临时表的内容更新到正式表。

psunui

402854992 发表于 2012-12-5 16:42
大概思路是把窗体的记录源删掉,再在控件里添加代码保存.本人也较菜,详细的另请高手解答

非常感谢！

psunui

shepdog 发表于 2012-12-5 17:20
楼主，这个对你我来说都很难。用Access很少人这么用的，太麻烦，非常麻烦，没必要。
能实现这个的，肯定是 ...

呃，这么说吧，我想要的效果大概就是：在窗体上加个保存按钮，输入后数据后不点按钮，表中的数据就不会变，点了保存后才写到表里。
主要是怕有时候不小心输错不至于把错误数据存到表里。毕竟像订单号之类的数据或主键什么的一输入到表里就不能改了。
不管是临时表也好，还是用VBA，达到这个目的就可以。

shepdog

psunui 发表于 2012-12-5 17:55
呃，这么说吧，我想要的效果大概就是：在窗体上加个保存按钮，输入后数据后不点按钮，表中的数据就不会变 ...

用按钮保存的方法，叫非绑定窗体，大概的步骤是：
1.建立绑定窗体，然后把窗体控件的数据源删掉，使之成为非绑定窗体。窗体试用纵栏式，不能使用数据表试
2.在窗体的“打开”事件中，编写VBA代码，调入数据源作为ADO.Recrodset，并把recordset的数据赋值给非绑定控件；
3.在窗体设置导航按钮，使非绑定控件的值按recordset的记录变化。
4.在“保存”按钮编写VBA代码，使非绑定控件的值保存到表中。

以上方法，我觉得没必要。对于你从Excel转过来的水平，恐怕不好写。
其实按你的目的，临时表也没多大必要，你应该重视的是对数据的逻辑性检查：在记录的更新前或更新后事件中，编写代码，用VBA语句检测值的有效性！
主键也是可以改的吧，至于不允许改，可以设置事件VBA代码，使这个字段无法获得焦点。
比如，在字段的“获得焦点”事件中，把焦点转移到可以修改的字段，例如不允许改A字段，要把焦点移到B字段，可以用
me.B.setfoucus
实现焦点转移
不允许更改，也可以在“更新前”事件中，用if设置判断条件，当更改不合法时，VBA代码设置：
cancel=true
'提示不允许更改
msgbox “该字段不允许更改”

shepdog

另外，楼主能不能把你的找到的几个示例发上来？我也想看看别人是怎么做非绑定窗体的。

楼主自己的数据库也可以发上来吧，需要的话可以帮你写一些代码。

psunui

shepdog 发表于 2012-12-5 20:51
用按钮保存的方法，叫非绑定窗体，大概的步骤是：
1.建立绑定窗体，然后把窗体控件的数据源删掉，使之成 ...

还是非常感谢，话说也知道自己水平不怎么样，尽量找相对简单的解决方案吧。
主要是因为一些小问题暂时没想到什么好办法避免，
比如打开产品窗口查看产品，不小心把产品名称删掉一个字，一般不会注意到；
或者添加一个新订单，打开窗口输入一部分后又发现不用添加了，随手关掉。
这种情况肯定是非常频繁的，虽然主观上不想更改数据，但事实上已经写到表里了。
又不方便直接设置锁定完全禁止更改，如果每次注意或事后发现再改回来工作量实在是太大，
现在就是想避免掉这些容易出错的情况。

shepdog

晕，楼主一开始表述就不清晰。楼主是省事了
那你在查看数据的窗体，锁定不许编辑，如果要编辑，再开另一个允许编辑的窗体就可以了。

楼主找的示例呢？发上来吧

psunui

shepdog 发表于 2012-12-5 21:09
另外，楼主能不能把你的找到的几个示例发上来？我也想看看别人是怎么做非绑定窗体的。

楼主自己的数据库 ...

嗯，在做的是一个进销存，那些现成软件毕竟不太合适。因为要考虑整个系统的流程，
搞了很久才确定下表的结构来，目前刚刚打算把窗体搭起来。
至于示例，不知道你是什么版本，我用的是10版，是07的格式，主要还是参考新版的罗斯文，
个人觉得这个基本上已经非常完全了，可惜就是VBA方面只能看懂个大概。
不过今天刚刚找到一个好东西，我估计是用不上了，可能你能看得懂。
你发个邮箱地址，我目前只能发300K的附件，还是打包发给你省事一点，要是传估计概几十个了。
{:soso_e136:}{:soso_e136:}{:soso_e136:}