Đánh giá chủ đề:
  • 7 Votes - 3.57 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Kiểm tra sự tồn tại của Fields trong table
#1
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:

Mã:
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

Mã:
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự động liên kết các table Noname 2 2,608 03-11-18, 02:44 PM
Bài mới nhất: maidinhdan
  Khóa phím close trong Access Noname 3 2,724 26-09-18, 04:07 PM
Bài mới nhất: tranthanhan1962
  DBEngine và Workspace trong việc truyền tải dữ liệu giữa hai Database Xuân Thanh 8 519 12-08-18, 08:29 PM
Bài mới nhất: Xuân Thanh
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 10 3,673 14-07-18, 09:19 PM
Bài mới nhất: hoaqldd33
  [Help] Giá trị trùng trong report vulhu06 1 691 14-07-18, 09:03 PM
Bài mới nhất: hoaqldd33

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line