đăng 19:55 6 thg 6, 2012 bởi Hai Yen
[
đã cập nhật 07:35 16 thg 9, 2014
]
Hỏi : tôi có 1 table là: tblHOSO; tôi muốn dùng code để kiểm tra xem trong tblHOSO có field KIEMTRA không?Đáp: Bạn chép Function sau: Function DoesFieldExist (tableName As String, fieldName As String) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim i As Integer
Set db = CurrentDb
Set tdf = db.TableDefs(tableName)
For i = 0 To tdf.Fields.Count - 1
If fieldName = tdf.Fields(i).Name Then
DoesFieldExist = True
Exit Function
End If
Next
End Function
Giờ bạn có thể gọi
If DoesFieldExist("tblHoso","KiemTra") then
Msgbox " Co Field ton tai trong table"
Else
Msgbox " khong co field ton tai trong table"
End If
Theo Spammail-KHPT.net |
|
