作者chobittcu (好饿><)
看板Office
标题Re: [问题] Access资料连动显示
时间Wed Nov 8 23:51:40 2017
※ 引述《chobittcu (好饿><)》之铭言:
: 标题: [问题] Access资料连动显示
: 时间: Wed Nov 8 17:10:03 2017
:
: (若是和其他不同软体互动之问题 请记得一并填写)
: 软体:Access
:
: 版本:2016
: 各位好,本人新手自学access,这几天遇到一个问题
: 不知道是太基本还是怎样google不到,去诚品翻书也没翻到,故上来求助
: 问题描述如下
: 资料库已建立一个资料表(名:厂商资料)
:
: 识别码 厂商 统一编号
: 1 桶一 12345678
: 2 胃拳 87654321
:
: 现在要建立一个分割表单
: 包含了下拉式清单与方块(或某个控制项)
: 下拉式清单资料列来源我选到资料库的厂商名与统一编号(无排序)
: 资料列来源显示:
: SELECT [厂商资料].[识别码], [厂商资料].[厂商], [厂商资料].[统一编号] FROM 厂商资料;
:
: ------------------------------------
: 希望在方块中显示该厂商统编
: 例如下拉选择厂商胃拳後就在方格显示87654321
:
: Q1.不知道规划文字方块还是其他控制项?
: Q2.请问详细的作法是?
: 如果有用到VBA的话要怎麽写呢?
:
: 谢谢高手
:
: --
: → soyoso: 下拉清单如以事件内的on change触发,再以dlookup将值带至 11/08 18:01
: → soyoso: 文字方块内 11/08 18:01
首先谢谢您的回应,但不好意思不太懂
我现在在厂商下拉清单的控制项内选了on change後面的‧‧‧
但是不知道程式码要怎麽调用
但是刚刚又google的过程中看到有人用BeforeUpdate
我就乱枪打鸟在VBA中试着使用
Private Sub 厂商_Change()
Me!统一编号 = Me![厂商].Column(2)
End Sub
或是
Private Sub 厂商_BeforeUpdate(Cancel As Integer)
Me!统一编号 = Me![厂商].Column(2)
End Sub
两者都能成功调出该厂商的统编
但是要编辑下一个纪录时会跳出
「因为在资料表'厂商资料'中必须有相关资料存在,因此您无法新增或变更纪录」
的警告对话,也无法储存或关闭
但是手动把统编消除後又可以新增记录/储存/关闭了
请问这是怎麽一回事呢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.173.65.247
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1510156302.A.DA6.html
※ 编辑: chobittcu (1.173.65.247), 11/09/2017 00:27:53
1F:→ evil70119: 我用on click+requery,google可以找到资料 11/11 13:12