设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12
返回列表 发新帖
楼主: guzai
打印 上一主题 下一主题

[其它] [求助]如何在添加记录时将该字段的行来源字段同时更新

[复制链接]
11#
发表于 2004-10-19 04:23:00 | 只看该作者
不知道是不是你要的效果!





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
12#
 楼主| 发表于 2004-10-19 07:51:00 | 只看该作者
以下是引用wewyhy在2004-10-18 20:06:35的发言:





在窗体里







单击事件中:



Private Sub 名字_Click()

On Error GoTo Err_名字_Click





   DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70



Exit_名字_Click:

    Exit Sub



Err_名字_Click:

    MsgBox Err.Description

    Resume Exit_名字_Click



End Sub



楼上的大哥,上面的大概什么意思?

能不能具体解释下步骤?

我不懂编程啊

能麻烦举个例子让我照搬么?呵呵
13#
发表于 2004-10-19 16:00:00 | 只看该作者
这个是用向导生成的保存代码,最主要的是当中比较长的一句。其它的是用来生成提示的(可以自定义提示,把“MsgBox Err.Description”替换成“MsgBox "自定义提示内容"”),都可以去掉,不影响功能!具体步骤:1.新建一个窗体;2.打开工具箱;3.点击“命令按钮”;4.在窗体相应位置单击,会弹出向导对话框(如果不弹出,必须点一下工具箱上面的“控件向导”按钮);5.选择相应的命令即可生成相应的代码。
14#
 楼主| 发表于 2004-10-20 04:00:00 | 只看该作者
Option Compare Database

Private Sub Command6_Click()

    DoCmd.GoToRecord , , acNewRec

End Sub

Private Sub Command7_Click()

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    病名.Requery

End SubPrivate Sub 病名_BeforeUpdate(Cancel As Integer)End Sub

是不是这样的显示?有个beforeupdate
15#
 楼主| 发表于 2004-10-20 04:15:00 | 只看该作者
可自动生成的窗体里的框都是文本框,不是组合框我看你在表1里没有设置为组合框那么请问你怎么把文本框改成组合框的?
16#
 楼主| 发表于 2004-10-20 04:16:00 | 只看该作者
哦,搞懂了,呵呵,谢谢了可惜我的病历输入都做好了,好不容易排好的版,又费了
17#
 楼主| 发表于 2004-10-20 04:22:00 | 只看该作者
原来是在DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70下面加一句字段名.requery
18#
 楼主| 发表于 2004-10-20 04:37:00 | 只看该作者
这样的话例子:一个数据库内有一个表  “信息”里面字段为:姓名,年龄,性别如果在窗口设计里“年龄”选组合框,来源于“信息”中的年龄,用了年龄.requery,用保存命令的话是可以实现添加原来年龄字段里没有的值但如果我在“信息”表内的“年龄”字段的设计里引用了数据库下第二个表“年龄”,行来源于第二个表的年龄字段的话我添加 年龄.requery却无法保存了是不是 要加点其他语句呢?
19#
发表于 2004-10-20 15:40:00 | 只看该作者
不知道你说无法的保存具体是什么意思!如果是保存时提示错误,把库传上来!如果是保存后无法在列表里显示,是因为来源不同,你添加的是在表1,而列表来源是在表2,怎么可能列出来呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-25 21:30 , Processed in 0.094793 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表