'判断一个字段是否在表中 Function BlnField(sTblName As String, sFldName As String) As Boolean
'sTblName 源表名 '要查找的字段名
Dim fld As Field Dim rs As DAO.Recordset
BlnField = False Set rs = CurrentDb.OpenRecordset(sTblName) rs.Fields.Refresh For Each fld In rs.Fields If fld.Name = sFldName Then BlnField = True Exit For End If Next rs.Close Set rs = Nothing Set fld = Nothing End Function
Private Sub 命令0_Click() '返回True则有此字段，False则无 MsgBox BlnField("tbl1", "ID") End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
