设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[Access本身] 函数未定义

[复制链接]
跳转到指定楼层
1#
发表于 2006-8-2 04:10:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Option Compare Database
Option Explicit
Public ZZ As String
Public FF, GG As String
Public DD, EE As String
Public AA, BB As String
Public Z As String
Public C1 As String
Public A1 As String
Public B1 As String
Public s As String
Public j, k As String
Public h, i As String
Public E, f As String
Public g As String
Public c, d As String
Public CC As String
Public a, b As String
Function 快件号码() As String
快件号码 = a
End Function
Function 帐号() As String
帐号 = b
End Function
Function 开始日期() As Date
开始日期 = c
End Function
Function 结束日期() As Date
结束日期 = d
End Function
Function 出货频次() As String
出货频次 = f
End Function
Function 目的地() As String
目的地 = g
End Function
Function 分户代码() As String
分户代码 = j
End Function
Function 提单号码() As String
提单号码 = k
End Function
Function 货代帐号() As String
货代帐号 = E
End Function
Function 代理帐号() As String
代理帐号 = h
End Function
Function 货种() As String
货种 = s
End Function
Function 查询日期() As Date
查询日期 = Z
End Function
Function 医院代码() As String
医院代码 = A1
End Function
Function 项目代码() As String
项目代码 = B1
End Function
Function 代理代码() As String
代理代码 = C1
End Function
Function 运单起始号() As String
运单起始号 = AA
End Function
Function 运单终止号() As String
运单终止号 = BB
End Function
Function 总提单号() As String
总提单号 = CC
End Function
Function 出货日期() As Date
出货日期 = DD
End Function
Function 出货代理() As String
出货代理 = EE
End Function
Function 提取日期() As Date
提取日期 = FF
End Function
Function 提取代理() As String
提取代理 = GG
End Function
Function 取件频次() As String
取件频次 = ZZ
End Function

access97转access2003后,是用倒入的方式
这是定义的模块,为什么有时运行窗体的时候会说该函数未定义,有时就好的
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-8-2 04:37:00 | 只看该作者
试试 直接用2003 打开97的文件进行转换
3#
发表于 2006-8-2 06:42:00 | 只看该作者
导入后有些引用会丢失,因为不同的版本的默认引用是不一样的,检查引用。

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-14 13:49 , Processed in 0.076857 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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