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

微信公众号原文

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

• 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的
• 本公众号的不同阶段：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