|
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后,是用倒入的方式
这是定义的模块,为什么有时运行窗体的时候会说该函数未定义,有时就好的 |
|