• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thêm Field vào 1 table trong file Access khác

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Thêm Field vào 1 table trong file Access khác
• Thêm Field vào 1 table trong file Access khác

• Thêm Field vào 1 table trong file Access khác

  Noname > 26-08-10, 11:13 AM

  Hỏi: Tôi có 2 file DB, một file lưu dữ liệu DBLUU.mdb, một file chương trình DBSYS.mdb. Trong file DBLUU.MDB có 1 tblLuu.
  Làm Sao code từ một nút lệnh trên FORM tại DBSYS.mdb có thể thêm field vào tblLuu trong DBLUU.mdb
  
  Đáp:
  Đoạn Code dưới đây cho phép bạn thêm các field vào tblLuu với kiểu dữ liệu theo kèm. Bạn có thể tùy biến lại đuồng dẫn, tên và các file cũng như format của chúng theo ý riêng!
  
  
  
  

  Mã:

  Sub CreateField()
Dim db As Database
Dim tdfChungTu As TableDef
Dim sAppPath As String
sAppPath = Application.CurrentProject.Path
Set db = OpenDatabase(sAppPath & "\DBLUU.mdb")
' Gan doi tuong table
Set tdfChungTu = db.TableDefs("tblLuu")
' Thêm các field
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ngay_ChungTu", dbDate)
tdfChungTu.Fields.Append tdfChungTu.CreateField("So_ChungTu", dbLong)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Dien_Giai", dbText, 30)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ho_Ten", dbText, 25)
tdfChungTu.Fields.Append tdfChungTu.CreateField("So_Tien", dbCurrency)
tdfChungTu.Fields.Append tdfChungTu.CreateField("Ghi_Chu", dbMemo)
db.TableDefs.Refresh
db.Close
Set db = Nothing
End Sub
• Bài trước Bài tiếp