下面看我的代码:
1 从EXCEL窗口进入人机交互窗口:
Sub mynzRecords_81() '将工作表数据变成记录集,并实现利用UserForm窗口进行录入数据
Application.Visible = False
UserForm1.Show
End Sub
代码解释:上述代码完成从EXCEL界面到人机交互UserForm窗体,这时的Application.Caller是6.
从工作表文件进入窗体给予传递一个值,其实这个值也是用来识别点击的哪个矩形框,在下图中的前面我注明了该矩形框的代码,这样在后面的语句中就可以根据这个值来判断要求窗体实现什么功能。进而实现在窗体ACTIVE时只能让有用的按钮响应代码,避免操作上的失误。带来不必要的麻烦,同时,这里隐藏了EXCEL窗口,可以有效的避免EXCEL的误操作,如果配合工作表录入限制的功能,可以更加高效的发挥EXCEL的数据库作用。
例如 :当你你点击第一个矩形框,传递的值是1,就是实现显示第一条记录的目的。
2 “录入”按钮响应代码:
Private Sub CommandButton9_Click() '录入
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
UserForm1.TextBox1.SetFocus
UserForm1.CommandButton6.Enabled = True '保存记录
End Sub
代码解释:上述代码实现在点击后UserForm窗体上TEXTBOX内容清空,给录入预留空间,同时“保存”按钮开始响应代码。这时的Application.Caller是6.
3 “保存”按钮的响应代码
(和上讲一样,不再多说)
代码窗口:
下面看代码的运行:
录入后保存数据和编辑保存类似。
今日内容回向:
1 如何实现录入记录?思路是什么。
2 本节中是如何控制按钮响应代码的?