设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 2826|回复: 21
打印 上一主题 下一主题

[窗体] 子窗体内录入时,通过录入使用查询调用表信息

[复制链接]
跳转到指定楼层
1#
发表于 2009-1-6 16:07:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1>>
药品入库明细表子窗体内---药品编码处录入时数据时,
根据录入内容
使用查询调用---基本药品信息表---然后弹出包含录入内容的窗口供选择,

请问如何,写子窗口内药品编码列的代码?

2>>还有"药品入库明细表 子窗体"内为什么这么多-----------#名称?

3>>还有如何定制"药品入库明细表子窗体"内的字段经(比如我不需全部显示在子窗口内.)

[ 本帖最后由 yisen 于 2009-1-7 14:15 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-1-6 16:15:49 | 只看该作者
表设计有问题
明细表上面没有必要重复保存基本药品信息表已经保存的数据
3#
发表于 2009-1-6 16:22:27 | 只看该作者
原帖由 Henry D. Sy 于 2009-1-6 16:15 发表
表设计有问题
明细表上面没有必要重复保存基本药品信息表已经保存的数据

本帖子中包含更多资源

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

x
4#
 楼主| 发表于 2009-1-7 13:35:10 | 只看该作者
版主,你改了我看了,不错,思路应该象你那样.

有新问题,
1>>
要是入库明细表不保留
"批号.有效期.数量.最近进价.进货单价.金额.结余数量"这些字段的话,每个进药单据的这些相关内容保存到哪呢?

2>>
能不能在"药品编号"控件通过其属性的"**事件"中加入代码,依录入内容--------用查询方法(查询药品基本信息表.药品编号.药品名称.药品条码.药品拼音码字段),筛选出包含录入内容后----------以弹出窗口方式供选择?,将选择后的"药品基本信息表"相关字段值赋值给药品编号.药品名称.药品规格.药品大单位.......

请问如何实现?多谢各位/

[ 本帖最后由 yisen 于 2009-1-9 10:46 编辑 ]

本帖子中包含更多资源

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

x
5#
发表于 2009-1-7 13:51:14 | 只看该作者
"批号.有效期.数量.最近进价.进货单价.金额.结余数量
单价,数量应该保存在明细表上
其他保存在资料表上
6#
发表于 2009-1-7 13:51:47 | 只看该作者
能不能在"药品编号"控件通过其属性的"**事件"中加入代码,依录入内容
建立自动查阅列就可以了
7#
 楼主| 发表于 2009-1-7 14:15:29 | 只看该作者
原帖由 Henry D. Sy 于 2009-1-7 13:51 发表
"批号.有效期.数量.最近进价.进货单价.金额.结余数量
单价,数量应该保存在明细表上
其他保存在资料表上


1>>这样是不是在明细表上再增加  ========"批号.有效期.数量.最近进价.进货单价.金额.结余数量
单价,字段?


2>>还有建立自动查阅列是不在药品基本信息表的药品编号字段列创建?创建方法是不是象下面网址所说那样?

http://www.onegreen.net/Article/Database/ACCESS/10153.html

3>>另有一问题就是在入库明细子窗体内录入内容======"批号.有效期.数量.最近进价.进货单价.金额.结余数量
单价,,为什么我录完第一行,再录入第二行时,第一行的数据就会被更改成第二行录入的内容.??
8#
发表于 2009-1-7 14:16:18 | 只看该作者
供您参考

[ 本帖最后由 Henry D. Sy 于 2009-1-7 15:51 编辑 ]

本帖子中包含更多资源

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

x
9#
 楼主| 发表于 2009-1-7 15:18:41 | 只看该作者
谢谢版主,
版主问个问题,

1>>
为什么我在入库单--入库明细表中添加了药品编号后,药品基本信息表的药品名.规格.价格.条码等相关内容会自动填入到相关行的相关列中,--------是不是只要将药品基本信息表与入库明细表通过药品编号建立关系就可以实现了?

2>>版主子窗体的这个代码什么作用?
进入子窗体前检查入库单各项是否填写完整?
Private Sub 药品入库明细表_子窗体_Enter()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If IsNull(ctl) Then
                MsgBox "必须输入 " & ctl.Name
                ctl.SetFocus
                Exit Sub
            End If
        End If
    Next
End Sub


还有下面这个不懂,
Private Sub 药品编号_AfterUpdate()
    Me.单价 = Me.药品编号.Column(1)
End Sub

3>>因为来货公司比较多家,每家的药品编号均不同,能不能在药品编号处的录入进行改造?
用包含(link ) 的方式进行选取基本信息表的内容(一般用编号或药品名.或药品拼音码.或条码)


编号  药品名  拼音码  条码
001     青霉素   qms    69011111
002     青素     qs        6902222
003     青霉     qm       6903333

当在药品编号处录入001时会显示青霉素
当输入qs时则显示  "青霉素"及"青霉"供选择
当输入690时刚显示"青霉素"   "青素"    "青霉"三个供选择
最好以弹出小窗口形式显示出来供选择(是不是要用到查询?)
10#
发表于 2009-1-7 15:29:20 | 只看该作者
问题一
建立了自动查阅列
问题二
是的,进入子窗体前检查入库单各项是否填写完整
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-1-12 17:31 , Processed in 0.101523 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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