这是以前帮大熊写的例子,修饰一下放上来
Option Compare Database
Public Enum sTMtype
轻魂初级会员 = 0 'ACCESS新手 入门级
轻魂中级会员 = 1 'ACCESS熟手 中级
轻魂高级会员 = 2 'ACCESS高手 高级
End Enum
Function tmSample(Ref1 As sTMtype, Optional Ref2 As String)
If IsMissing(Ref2) Or Ref2 = "" Then
Ref2 = "轻魂"
End If
MsgBox Ref1 & " " & Ref2 & "共同进步"
End Function
Private Sub 命令6_Click()
tmSample 轻魂高级会员, "大熊"
End Sub
当你输入tmSample 后,会有三项提示出来。
相关论坛贴子:http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&ID=388
相关下载:http://www.office-cn.net/bbs/uploadImages/2002482052660970.zip