请教，自定义函数有无办法提供可选的参数选项？

大熊 · 发表于 2002-4-9 02:54:00

比如说strcomp,它最后一个参数有四个选项，我们输入的时候ACCESS会提示我们，那么我们自己定义的函数呢？好像只能设一个默认值啊！

tmtony · 发表于 2002-4-9 03:50:00

可以，使用optional关键字
Function tmSample(Ref1 As String, Optional Ref2 As String)

If IsMissing(Ref2) Or Ref2 = "" Then
Ref2 = "轻魂"
End If
MsgBox Ref1 & " " & Ref2 & "共同进步"

End Function

大熊 · 发表于 2002-4-9 03:58:00

你误会了，我是指输入的时候对同一参数自动会有多个事前设定的输入值提示！

tmtony · 发表于 2002-4-9 04:29:00

使用类和枚举型即可实现
我刚才想改个VB例子上来
不过觉得太麻烦啦

tmtony · 发表于 2002-4-9 04:52:00

还是写个代码吧，不然总觉ACCESS比不上VB似的
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 后，会有三项提示出来。就是大熊要的效果文件下载

tmtony · 发表于 2002-4-9 04:58:00

顺便说明一下
这种方法用在类中
更具效力

大熊 · 发表于 2002-4-9 05:04:00

说的对，不过我主要想做个CALLAPI的工程库，一定要用这种办法才方便！你的MDL方法也很有用。

大熊 · 发表于 2002-4-9 05:05:00

你找得到下载的方法吧，有人做过！

tmtony · 发表于 2002-4-9 05:10:00

在哪有下载啊，能告诉吗
如果是单指API，那到处都有啊

大熊 · 发表于 2002-4-9 05:12:00

打错了，是“你找得到下载的地方吗？“

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

请教，自定义函数有无办法提供可选的参数选项？

群介绍
主题无相 (随机显示版	同地区群块其他地区)