判断某表是否有指定数据-hjs
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


判断某表是否有指定数据

发表时间:2012/7/24 13:06:34 评论(0) 浏览(4962)  评论 | 加入收藏 | 复制
   
摘 要:提供的是思路,大家可以改成符合自己用的 !
正 文:

'数据有无判断
'if issj(me!bh,1,wfbh)
'1-代码,2-违法,3-文书
Public Function Issj(ctl As Control, ByVal strCodelb As String, ByVal strcode As String) As Boolean
Select Case strCodelb
Case "1"
    If DCount("*", "dm", "lb & dm ='" & strcode & "'") = 0 Then
    MsgBox "没有[ " & strcode & "] 代码信息!  ", 0 + 64, "提示"
    Else
    Issj = True
    End If
Case "2"
    If DCount("*", "wf", "bh='" & strcode & "'") = 0 Then
    MsgBox "没有[ " & strcode & "] 违法记录!  ", 0 + 64, "提示"
    Else
    Issj = True
    End If
Case "3"
    If DCount("*", "ws", "dm & bh='" & strcode & "'") = 0 Then
    MsgBox "没有[ " & strcode & "] 文书记录!  ", 0 + 64, "提示"
    Else
    Issj = True
    End If
Case "4"
    If DCount("*", "wf", strcode) = 0 Then
    MsgBox "没有[ " & strcode & "] 违法记录!  ", 0 + 64, "提示"
    Else
    Issj = True
    End If

Case Else

End Select
If Not Issj Then ctl.SetFocus
End Function


Access软件网交流QQ群(群号:198465573)
 
 相关文章
判断某表是否存在的设计方法  【贺德才  2007/10/17】
如何判断窗体是否存在于当前数据库  【Trynew  2007/10/21】
用代码检查指定文件是否存在  【cuxun  2007/10/22】
判断一个表中某个字段中是否存在某个值的Acchelp_ValueI...  【竹笛  2009/7/31】
DAO+错误陷阱检索XLS文件是否存在某个工作表  【叶海峰  2011/10/14】
【译文】判断数据库中是否存在某个查询  【周芳  2012/5/14】
检查数据库内某对象是否存在(错误陷阱法)  【叶海峰  2012/9/1】
判断表中是否存在某个字段的函数  【金宇  2012/12/17】
常见问答
技术分类
相关资源
文章搜索
关于作者

hjs

文章分类

文章存档

友情链接