设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1244|回复: 8
打印 上一主题 下一主题

[窗体] 将自定义函数装入窗体的文本框中,为什么会出现“#错误”的提示?

[复制链接]
跳转到指定楼层
1#
发表于 2006-12-16 06:57:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教各位老师,将自定义函数装入窗体的文本框中,为什么会出现“#错误”的提示?谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-12-16 07:13:00 | 只看该作者
自定义是怎样写的,又是怎样调用

3#
 楼主| 发表于 2006-12-17 01:18:00 | 只看该作者
(1)自定义是这样写的:

Function 展长(构造, 驳口 As String, 长, 宽, 高 As Single)
   n = 构造
   m = 驳口
   a = 长
   b = 宽
   c = 高
  If n = "平口盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "平口盒" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  ElseIf n = "连体鞋盒" And m = "无驳" Then
  展长 = 2 * b + c + 8
  ElseIf n = "连体彩盒" And m = "无驳" Then
  展长 = 2 * b + 2 * c + 2
  ElseIf n = "扣底插盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "扣底插盒" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  ElseIf n = "两头插盒" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "两头插盒" And m = "双驳" Then
  展长 = (a + b + 5) * 2
  ElseIf n = "手袋" And m = "单驳" Then
  展长 = (a + b) * 2 + 3
  ElseIf n = "手袋" And m = "双驳" Then
  展长 = (a + b + 3) * 2
  End If

    (2)调用过程:在窗体设计状态下选择所用的"文本框",点击鼠标右键,选择属性的"数据"项的"控件来源",点击"控件来源"的生成哭器,再选择函数之模块,这样就把函数装进去的,请问老师,函数是否编写有错,调用过程是否不当?谢谢!


End Function
4#
发表于 2006-12-17 01:35:00 | 只看该作者
函数各参数填写完整了吗?
5#
 楼主| 发表于 2006-12-17 07:47:00 | 只看该作者
请各老师们帮我修改完整好吗?谢谢!
6#
发表于 2006-12-17 10:21:00 | 只看该作者
函数没有问题,肯定是你的参数输入不完整,你按下面的格式输入:

=展长("手袋","单驳",2,3,4)

7#
 楼主| 发表于 2006-12-17 19:38:00 | 只看该作者
"情比金坚"老师你好!我按照你的方式输入还是不行,这样吧,我把文件发送给你,麻烦你帮我输入这个函数,好吗?谢谢!
8#
发表于 2006-12-17 19:43:00 | 只看该作者
你把文件传上来就行了
9#
 楼主| 发表于 2006-12-18 19:25:00 | 只看该作者
"情比金坚"老师你好!我已将文件发到你的邮箱内,请查收,盼望你的回复.谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-13 20:28 , Processed in 0.102324 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表