【示例】判断多字段是否在指定表内-久石让的粉丝
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


【示例】判断多字段是否在指定表内

发表时间:2016/6/30 19:20:38 评论(2) 浏览(4810)  评论 | 加入收藏 | 复制
   
摘 要:【示例】判断多字段是否在指定表内
正 文:

以下是代码:


Option Compare Database

Private Sub cmd_Click()
Dim str As String
str = FExistfields("表1", Me.Text1)
If str = "" Then
    MsgBox "所有字段全部存在"
Else
    str = Replace(str, ",", Chr(13))
    MsgBox "以下字段:" & Chr(13) & str & "不在指定表中"
End If
End Sub


Function FExistfields(TableName As String, FieldsName As String) As String
Dim Rst As DAO.Recordset
Dim Fld As Field
Dim strFields As String
Set Rst = CurrentDb.OpenRecordset(TableName, dbOpenDynaset)
strFields = FieldsName & ","
For Each Fld In Rst.Fields
    strFields = Replace(strFields, Fld.Name & ",", "")
Next
If Not strFields = "" Then FExistfields = strFields
Rst.Clone
Set Rst = Nothing
End Function

 

 

代码源文件:

点击下载此附件

 

图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
用Between函数来判定是否在公差范围内  【蒋元根  2012/10/9】
【转】检测文件或文件夹是否存在的两个函数  【Allen Browne  2014/1/28】
检查对象是否存在的函数  【月皓星隐  2015/1/22】
用SQL语句查找Access中某表是否存在的小技巧  【缪炜  2015/8/28】
判断窗体输入数据在表中是否存在/判断窗体输入数据在表中是否有匹配项  【杨雪  2016/1/12】
【Access示例】判断IP地址是否合法  【缪炜  2016/5/20】
常见问答
技术分类
相关资源
文章搜索
关于作者

久石让的粉丝

文章分类

文章存档

友情链接