Office中国论坛/Access中国论坛

标题: 怎么子窗体在ACCESS2003可以查询下拉显示,而ACCESS2007就不行了呢? [打印本页]

作者: yisen    时间: 2009-5-5 16:49
标题: 怎么子窗体在ACCESS2003可以查询下拉显示,而ACCESS2007就不行了呢?
药品编号的事件是:在药品入库表窗体的"药品编号"录入条件(药品拼音码或编号),查询"基本药品信息表",下拉显示满足条件的相关信息供选择.

现在的问题是,当我进入"药品入库表--药品入库明细表子窗体",在药品编号录入,第一行,可以按条件显示相关内容,可是第二行了,就不行了(原来在ACCESS2003下可以按条件显示相关信息,可是现用ACCESS2007了,第一行可以,第二行就没反应了,请各位指点),

药品编号---的更新后事件代码

Private Sub 药品编号_AfterUpdate()
    Me.药品名称 = Me.药品编号.Column(1)
    Me.单价 = Me.药品编号.Column(3)
    Me.拼音码 = Me.药品编号.Column(4)
    Me.药品编号.Requery
End Sub



药品编号---更改的事件代码

Private Sub 药品编号_Change()
Dim strCriteria As String
    Dim strSQL As String
    If Not IsNull(Me.药品编号.Text) Then
        strCriteria = "Where 拼音码 & 药品编号 & 药品条码 like '*" & Me.药品编号.Text & "*'"
        strSQL = "SELECT 药品编号,药品名称,生产厂家,零售价格,拼音码 FROM 基本药品信息表 " & strCriteria
        Me.药品编号.RowSource = strSQL
        Me.药品编号.Dropdown
        End If
   
End Sub
作者: yisen    时间: 2009-5-5 18:13
发现一新问题,就是在第二行录入后,下拉显示器的与录入的不对应,可是按"向下"箭头按键后,可以显示出来...........

希望有在用ACCESS2007的帮我测试一下.谢谢




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3