如何在模块中添加表字段

yanwei82123300

请问问各位老师如何将表中的字段值加到公共模块中
例如:
Function GetP(A As Date) As String
Dim Re As String
If A >= CDate("2011-10-1") And A <= CDate("2011-10-22") Then
Re = "2012_P1"
其中("2011-10-1") 为表1的字段值；("2011-10-22") 为表1的字段值
请问老师如何在模块中书写！谢谢

todaynew

看不懂

yanwei82123300

todaynew 老师已经解决了，代码如下：
Function GetP(A As Date) As String
Dim rst, rstItems As DAO.Recordset
Dim n As Integer

Set rstItems = CurrentDb.OpenRecordset("Calendar", dbOpenDynaset)
    Dim Re As String
    If A >= CDate("2011-10-1") And A <= CDate("2011-10-21") Then
         Re = "2012_P1"
         A = Naturally_Date
End If
   
    GetP = Re

End Function

todaynew

yanwei82123300 发表于 2011-8-26 16:12
todaynew 老师已经解决了，代码如下：
Function GetP(A As Date) As String
Dim rst, rstItems As DAO.Re ...

更看不懂了，呵呵。
以下的函数运算结果与你的函数运算结果有什么差异来着？
Function GetP(A As Date) As String
Dim Re As String
If A >= CDate("2011-10-1") And A <= CDate("2011-10-21") Then
    Re = "2012_P1"
End If
    GetP = Re
End Function

yanwei82123300

todaynew 老师我想将CDate("2011-10-1") 变为动态的，我刚刚做的有错误！帮助看看

todaynew

yanwei82123300 发表于 2011-8-26 17:13
todaynew 老师我想将CDate("2011-10-1") 变为动态的，我刚刚做的有错误！帮助看看

呵呵，还是看不懂。
至少应该还需要带入一个参数用以指示Calendar表所在的记录，才可能获得该记录对应的起止日期值吧？

yanwei82123300

todaynew 谢谢帮助，我在试试看