|
药品编号的事件是:在药品入库表窗体的"药品编号"录入条件(药品拼音码或编号),查询"基本药品信息表",下拉显示满足条件的相关信息供选择.
现在的问题是,当我进入"药品入库表--药品入库明细表子窗体",在药品编号录入,第一行,可以按条件显示相关内容,可是第二行了,就不行了(原来在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 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|