Viết bởi: Noname 23-08-10, 04:17 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (3) |
Private Sub cmdCreateMDB_Click()
Dim dbKeToan As Database' Khai báo đối tượng Database mới
Dim tdfChungTu As TableDef' Khai báo đối tượng Table mới
Dim sAppPath As String
sAppPath = Me.Application.CurrentProject.Path
Set wrkDefault = DBEngine.Workspaces(0)
If Not (Dir(sAppPath & "\KeToan.mdb") <>"") Then
Set dbKeToan = wrkDefault.CreateDatabase(sAppPath & "\KeToan.mdb", dbLangGeneral)
Else
Set dbKeToan = OpenDatabase(sAppPath & "\KeToan.mdb")
End If
' Tạo đối tượng TableDef mới
Set tdfChungTu = dbKeToan.CreateTableDef("tbChungTu")
' 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)
' Các thuộc tính bổ sung
tdfChungTu.Fields!So_ChungTu.Attributes = dbAutoIncrField
' Thêm table mới vào database
dbKeToan.TableDefs.Append tdfChungTu
' Đóng database
dbKeToan.Close
End Sub
Viết bởi: Noname 23-08-10, 04:14 PM Chuyên mục: Query - Bài trả lời (2) |
Private Sub Command0_Click()
Dim DB As Database
' Dim query1 As QueryDef
Dim query1 As QueryDef
Dim SQL1 As String
SQL1 = "select maso, sum(table2.sotien) as sotien, count(sohd) as slhd from table2 group by maso"
Set DB = CurrentDb
Set query1 = DB.CreateQueryDef("query1", SQL1)
DB.Execute "select query1.maso, table1.ten, query1.sotien, query1.slhd into table3 from query1 left join table1 on query1.maso=table1.maso"
' xoa table tam di
DB.QueryDefs.Delete "query1"
msgbox " insert Data to table 3 successful"
Set DB = Nothing
End Sub
Viết bởi: Noname 23-08-10, 04:11 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2) |
Sub CreateDatabaseX(DBname as String)
Dim wrkDefault As Workspace
Dim Bomtemp As Database
'Dim prpLoop As Property
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir(CurrentProject.Path & "\" & "DBName") <> "" Then Kill CurrentProject.Path & "\"& DBName
' Create a new encrypted database with the specified
' collating order.
Set Bomtemp = wrkDefault.CreateDatabase(CurrentProject.Path & "\" & "DBname", dbLangGeneral, dbEncrypt)
Bomtemp.Close
End Sub
Sub ExportTable(T As String, DBname)
On Error GoTo err
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\" & "DBname", acTable, T, T
Exit Sub
err:
If err.Number = 3024 Then
CreateDatabaseX DBname
ExportTable T
End If
End Sub
Viết bởi: Noname 23-08-10, 04:02 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (7) |
Replace ( string1, find, replacement, [start, [count, [compare]]] )
Replace("alphabet", "bet", "hydro") would return "alphahydro"
Replace ("alphabet", "a", "e") would return "elphebet"
Replace("alphabet", "a", "e", 2) would return "lphebet"
Replace("alphabet", "a", "e", 1, 1) would return "elphabet"
Viết bởi: Noname 23-08-10, 03:57 PM Chuyên mục: Forms - Bài trả lời (5) |
Private Sub Form_Load()
Const t = 567
Dim R As Integer, D As Integer, W As Integer, H As Integer
' với 10 là chieu rong cua form, tinh bang cm
W = 10 * t
' 7 la chieu cao cua form tinh bang cm
H = 7 * t
R = (Me.InsideWidth + W)
D = (Me.InsideHeight + H)
DoCmd.MoveSize R, D, W, H
End Sub
Chủ đề Mới nhất |
offtopic -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ersteresta-2 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
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,857 |
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,772 |
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-11-04-24, 06:04 PM- » Bài trả lời: 2- » Lượt xem: 38 |
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: 71 |
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: 492 |
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,500 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 66 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 44 |
Thơ con cóc -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Xuân Thanh-01-04-24, 06:45 PM- » Bài trả lời: 111- » Lượt xem: 59,092 |
Diễn đàn Thống kê |
» Thành viên: 4,457 » Thành viên mới nhất: ersteresta » Các chủ đề diễn đàn: 9,857 » Các bài viết diễn: 48,436 Thống kê đầy đủ |