Office中国论坛/Access中国论坛

标题: 模块的调用是在ACCESS中，还是在ASP中？请斑竹再帮看看。 [打印本页]

作者: coldboby 时间: 2002-11-5 17:08
标题: 模块的调用是在ACCESS中，还是在ASP中？请斑竹再帮看看。
我从网上下了个定义日期的模块：
Option Compare Database
Option Explicit

Const conMaxSize = 10

Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Function srRq(d As Date) As String
Dim temp As String

  temp = DatePart("yyyy", d) & "-" & DatePart("m", d)
  temp = Trim(temp)
  If Len(temp) = 6 Then: temp = Left(temp, 5) & "0" & Right(temp, 1)
  srRq = temp
End Function
在哪用，怎么用，我不会。

另外我把这个模块拷贝到我的数据库中后，第一次浏览还正常，第二次打开就出现“访问文件错误。网络连接可能已丢失。”的提示。这是为什么？
我把这个模块删除了。我想自己定义一个新的，写代码。可是起完名，根本没发写，就出现相同的错误提示。

作者: zhengjialon 时间: 2002-11-5 21:00
可以让窗体上某一文本框的值=srRq(输入一个日期 As Date) 或在查询里：日期:srRq(另一个日期字段 As Date)

作者: coldboby 时间: 2002-11-5 21:08
那提示的错误是为什么？怎么解决？

作者: zhengjialon 时间: 2002-11-6 01:39
我这里调试没有出现你所述的问题，不过“Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long”前要加一个“Private”

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)