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

yisen

1>>
药品入库明细表子窗体内---药品编码处录入时数据时,
根据录入内容
使用查询调用---基本药品信息表---然后弹出包含录入内容的窗口供选择,

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

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

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

[ 本帖最后由 yisen 于 2009-1-7 14:15 编辑 ]

tytill

看了下...受益匪浅....

yisen

我是想,从入库明细表作为出库表的来源表的话,

录药品可能更省事些,而且录数量的时候,要对比一下数量是否超出库存量,公式简单些,不用跨表对比,

呵呵,见笑了

Henry D. Sy

难道你没有货也可以出库？

yisen

原帖由 Henry D. Sy 于 2009-1-7 22:02 发表
3. 组合框的行来源直接来源于药品资 ...

来源于药品资料的话,那当库存没有该药品时如何处理呢?
用哪个条件公式?

Henry D. Sy

1. 不设也可以，那就要直接写行来源。这样不好
   设了，可读性强，而且便于维护。
2. strCriteria 相当于 where 姓名 like '李*'
    sql 与一般有条件的sql语句没有什么两样
3. 组合框的行来源直接来源于药品资料表

yisen

原帖由 Henry D. Sy 于 2009-1-7 20:30 发表
Private Sub 药品编号_Change()
    Dim strCriteria As String          '条件字符串变量
    Dim strSQL As String               'sql字符串变量
    If Not IsNull(Me.药品编号.Text) Then       '如果药品编 ...

知道.谢谢,主要是我对于上述代码还是理解有问题
1>为什么要设条件字符串变量和SQL字符变量?
2>这两个代码赋值部分公式.
"Where 拼音码 like '" & Me.药品编号.Text & "*'"
与"SELECT 药品编号,药品名称, 零售价格 FROM 基本药品信息表 " & strCriteria      
分别是 什么意思?
3>另外我在出库录入时应该选择入库明细表来源表.可是入库明细表中只有药品编号一个,而没有拼音码及药品名称等于字段.不知如何解决.

Henry D. Sy

出库与入库问题相同，你应该自己参照入库的做法，自己动手。
这样对于学习有很大的帮助。

yisen

请问出库表如何在子窗体内的药品编号栏录入时,实现象入库明细表那样的功能?

即录入拼音码出现药品名供选择............

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

Henry D. Sy

Private Sub 药品编号_Change()
    Dim strCriteria As String          '条件字符串变量
    Dim strSQL As String               'sql字符串变量
    If Not IsNull(Me.药品编号.Text) Then       '如果药品编号的文本不为空
        strCriteria = "Where 拼音码 like '" & Me.药品编号.Text & "*'"           ‘那么给条件字符串赋值
        strSQL = "SELECT 药品编号,药品名称, 零售价格 FROM 基本药品信息表 " & strCriteria        ’给sql字符串赋值
        Me.药品编号.RowSource = strSQL                            ‘设置药品编号组合框的行来源
    End If
    Me.药品编号.Dropdown                       '药品编号 组合框自动展开
End Sub