Access-培训管理系统-08-按钮代码设置之 删除所选行

Access 专栏收录该内容
32 篇文章 0 订阅

微信公众号原文

系统:Windows 7
软件:Excel 2010 / Access 2010

  • 这个系列开展一个新的篇章,主体使用Access,包括数据库部分及界面部分,当然输出部分也会涉及到ExcelExcel的可读性还是比较好的
  • 本公众号的不同阶段:Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel好啊,各有所长吧,合适才是最好的
  • 主体框架:换一种讲解方式,以项目为基础,从开始到结束
  • 项目名称:培训管理系统
  • 主要功能:两个界面。界面1,培训时录入信息;界面2,以培训老师和培训学员为客户,输出信息
  • 涉及知识:Access界面,数据库知识,VBA,SQL,Excel

Part 1:本篇目标

  1. 接下来几篇分别介绍一下几个按钮的实现
  2. 今天说说删除所选行按钮,点击该按钮,则在下面的列表框中删除所选信息
    • 获取列表框所选择项
    • 无则提示
    • 有则删除所选行

静态效果
2.png

动态过程
1.gif

Part 2:代码

模块内代码

Sub sMod_sr_05_删除选中行(frmName, ctrlName)
    Rem>>
    Rem>>
    Dim frm
    Dim ctrl
    Dim chooseRow

    Set frm = Forms(frmName)
    Set ctrl = frm.Controls(ctrlName)

    'listIndex 计数不包括标题行
    chooseRow = ctrl.ListIndex

    If chooseRow >= 0 Then
        ctrl.RemoveItem chooseRow + 1
    Else
        MsgBox "未选中拟删除行"
    End If
End Sub

代码截图
4.png

窗体内代码

Private Sub 删除所选行_Click()
    Rem>>
    Rem>>

    Dim frmName
    Dim ctrlName
    frmName = fFrm_pxsr_01_当前窗体名称
    ctrlName = "学员列表框"

    Call sMod_sr_05_删除选中行(frmName, ctrlName)

End Sub

Part 3:部分代码解读

  1. chooseRow = ctrl.ListIndex,获取所行选择行号(从0开始计数,标题行不算
  2. ctrl.RemoveItem chooseRow + 1,移除某一行(从0开始计数,标题行

3.png

- 本文为原创作品,如需转载,可加小编微信号learningBin

更多精彩,请关注微信公众号
扫描二维码,关注本公众号

公众号底部二维码.jpg

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页

打赏作者

「已注销」

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

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

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

打赏作者

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

抵扣说明:

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

余额充值