ACCESS中一个FUNCATION问题，请高人指点下。谢谢

andrewyang

wt.zip (31.65 KB, 下载次数: 5)

2012-12-31 20:56 上传

点击文件名下载附件

access中的这个FUNCATION为何在查询中用不了，请大家指点下！谢谢

Function get_type(mtype As String, mdate As Date)
  Select Case mtype
    Case 合格
        get_type = 合格
     Case 优秀
        get_type = 优秀
     Case 其它
         If mdate > #1/1/2012# Then
            get_type = "可以补考"
           Else
             get_type = "不能补考"
          End If
     Case Else
         get_type = ""
  End Select
End Function

shepdog

楼主书写不够规范
Function get_type(mtype As String, mdate As Date) As String
  Select Case mtype
    Case "合格"
        get_type = "合格"
     Case "优秀"
        get_type = "优秀"
     Case "其它"
         If mdate > #1/1/2012# Then
            get_type = "可以补考"
           Else
             get_type = "不能补考"
          End If
     Case Else
         get_type = ""
  End Select
End Function

andrewyang

shepdog 发表于 2013-1-1 11:01
楼主书写不够规范
Function get_type(mtype As String, mdate As Date) As String
  Select Case mtype

谢谢高人的指点。是否文本都要加上引号呢? 好像EXCEL  VBA里可以不用引号的

shepdog

andrewyang 发表于 2013-1-5 19:29
谢谢高人的指点。是否文本都要加上引号呢? 好像EXCEL  VBA里可以不用引号的

要求越低的程序，加了很多防呆的代码，执行效率也就越低。
反之，要求越规范，执行就越快，当然，设计者要越专业。我也是刚入门，你看着办

andrewyang

谢谢各位的热心指点，学习了