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

时　间:2016-06-30 19:20:38
作　者:久石让的粉丝   ID：27977  城市：上海
摘　要:【示例】判断多字段是否在指定表内
正　文:

以下是代码:

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

代码源文件:

点击下载此附件

图   示: