以下是代码:
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
代码源文件:
点击下载此附件
图 示: