每逢年会活动，相信大家都会对压轴抽奖节目，期待不已。这里介绍一个基于ACCESS的抽奖Draw lots数据库，同时了解下设计与实现方法，愿你也能在每次年会活动中可以一展身手。

工具/原料

ACCESS
VBA
窗体
Timer函数

方法/步骤

主窗体界面如下；

员工信息表如下，同时自动备份一个映射表；

启动主窗体，可以看到只有”三等奖”控件是激活可用的，点击”三等奖”控件，界面如下；

点击”抽奖开始”控件，因无法显示动态图，实际效果是”幸运星”后的人名文本框会不断滚屏显示，界面如下；

点击”中奖结果”控件，则弹出一个对话框，提示中奖人员名单，界面如下；

点击”OK”按钮后，可以看到只有”二等奖”控件是激活可用的，重复前述操作，则可依次得到二等奖，一等奖的人员名单，这里不再赘述了，界面如下；

VBA代码如下1st；

VBA代码如下2nd；

VBA代码如下3rd；

VBA代码如下4th；

VBA代码如下5th；

VBA代码如下6th；

VBA代码如下7th；