Viết bởi: Noname 26-08-10, 08:20 PM Chuyên mục: Forms - Bài trả lời (2) |
Viết bởi: Noname 26-08-10, 11:14 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (14) |
Private Sub DelTableFrom(DataPath As String, tblName As String)
Dim db As Database
Set db = OpenDatabase(DataPath)
db.TableDefs.Delete tblName
' Ðóng database
db.Close
Set db = Nothing
End Sub
Viết bởi: Noname 26-08-10, 11:13 AM Chuyên mục: Tương tác Chương trình ngoài - Không có hồi đáp |
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
Viết bởi: Noname 26-08-10, 11:11 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (5) |
Function Days360(StarDate As Date, EndDate As Date) As Integer
Days360 = Excel.WorksheetFunction.Days360(StarDate, EndDate)
End Function
Viết bởi: Noname 26-08-10, 11:09 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp |
Chủ đề Mới nhất |
offtopic -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ellahodge-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 5 |
Seattle Storm Introduces ... -Chuyên mục: Forms-Đăng bởi lần cuối: MichaelWnba-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
Loyd Nets 29, Storm Grabs... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: MichaelWnba-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 01:13 PM- » Bài trả lời: 3- » Lượt xem: 40 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ngochuong279-24-04-24, 06:13 PM- » Bài trả lời: 38- » Lượt xem: 5,451 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,923 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,782 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 75 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 651 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,506 |
Diễn đàn Thống kê |
» Thành viên: 4,484 » Thành viên mới nhất: ellahodge » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,440 Thống kê đầy đủ |