这是以前帮大熊写的例子，修饰一下放上来Option Compare DatabasePublic Enum sTMtype  轻魂初级会员 = 0 'ACCESS新手 入门级  轻魂中级会员 = 1 'ACCESS熟手 中级  轻魂高级会员 = 2 'ACCESS高手 高级End EnumFunction tmSample(Ref1 As sTMtype, Optional Ref2 As String)If IsMissing(Ref2) Or Ref2 = "" Then    Ref2 = "轻魂"End IfMsgBox Ref1 & " " & Ref2 & "共同进步"End FunctionPrivate Sub 命令6_Click()tmSample 轻魂高级会员, "大熊"End Sub当你输入tmSample 后，会有三项提示出来。