vba【查询功能】按A-Z首字母查询(二)

60 篇文章 4 订阅
11 篇文章 0 订阅

!好家大,嗨

我也蹭一下诺兰最新电影《信条》的热度,皮一子就是好开心呀!

上一篇文章《按A-Z首字母查询(一)》我们已经将查询的标签控件对应的功能代码都讲解完了,接下去我们来讲解一下剩下的功能。

最后剩下的功能其实就是选择列表框的数据后,子窗体显示相关的查询结果的数据。我们来看一下功能。

01、添加列表框单击事件

因为我们需要的控件已经在上一篇文章中添加过了,这里我们就不再重复去叙述了,我们直接来添加列表框的单击事件代码:

列框框单击事件

Private Sub infoList_Click()
    On Error GoTo ErrorHandler
    Dim strSQL As String
    Dim strWhere As String
    Dim I As Variant
    For Each I In Me.infoList.ItemsSelected
        strWhere = strWhere & "拼音码='" & Me.infoList.ItemData(I) & "' or "
    Next

    If Len(strWhere) > 0 Then strWhere = Left(strWhere, Len(strWhere) - 4)

    strSQL = "select * from qry商品信息 where " & strWhere
    Me.frmChild.Form.RecordSource = strSQL
    Me.frmChild.Form.Requery
ExitHere:
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
    Resume ExitHere
End Sub

为了使用功能更新的合理,我们还需要在窗体加载事件中添加以下代码,代码实现的功能就是当我们打开窗体时,加载的窗体不显示任务数据。

窗体加载事件

Private Sub Form_Load()
    Me.frmChild.Form.RecordSource = "select * from qry商品信息 where 1=2"
End Sub

 

同时为了窗体控件的布局更新的合理,同时也需要添加对应的代码

窗体调整大小事件

Private Sub Form_Resize()
On Error Resume Next
    Me.frmChild.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
    Me.frmChild.Width = Me.InsideWidth - Me.infoList.Width
    Me.infoList.Height = Me.InsideHeight - Me.infoList.Top - Me.Section(acHeader).Height - Me.Section(acFooter).Height
End Sub

02、运行测试

最后一步自然就是运行窗体,来测试一下代码,如果有问题就需要相应的调整相关的代码。

 

这个demo的话相对来说代码与控件数量都要比我们之前讲的多,所以大家在自己开发的过程还是要有些耐心来实现。最后还是那句话,多自己动手才会有进步。

所以,大家快去试一下吧。

最后是广告掉粉时间,大家可以关注我的B站,Access开发视频首发都在我的B站。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Access开发易登软件

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值