Đá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
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,315 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,298 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 491 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,702 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  Tùy chọn liên kết lại các table từ file data có password Noname 37 14,808 21-01-16, 10:59 AM
Bài mới nhất: minhhoacatv

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ơ