Viết bởi: Noname 23-08-10, 04:19 PM Chuyên mục: Thư Viện Giáo Trình - Bài trả lời (8) |
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"
Chủ đề Mới nhất |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: letuanthanh-1 Giờ trước- » Bài trả lời: 35- » Lượt xem: 1,281 |
instagram gizli hesaplari... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 6 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-Hôm qua, 08:07 PM- » Bài trả lời: 31- » Lượt xem: 20,540 |
[Hỏi] Kết nối dữ liệu bằn... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: Seo-Ul-Vah-Hôm qua, 07:37 PM- » Bài trả lời: 53- » Lượt xem: 33,540 |
tradingview -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertFut-Hôm qua, 06:05 PM- » Bài trả lời: 0- » Lượt xem: 8 |
kraken сайт зеркала -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertNer-Hôm qua, 12:29 PM- » Bài trả lời: 0- » Lượt xem: 6 |
postegro -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-Hôm qua, 02:16 AM- » Bài trả lời: 0- » Lượt xem: 7 |
Làm Video hướng dẫn lập t... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: bazabkaki-27-03-24, 10:26 AM- » Bài trả lời: 4- » Lượt xem: 2,673 |
Biến 50GB từ Box.net thàn... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Seo-Ul-Vah-27-03-24, 03:38 AM- » Bài trả lời: 1- » Lượt xem: 2,102 |
Windows 10 ISO Full Direc... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SuperMan2543a-26-03-24, 11:55 PM- » Bài trả lời: 0- » Lượt xem: 9 |
Diễn đàn Thống kê |
» Thành viên: 4,348 » Thành viên mới nhất: Boxerapawn » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,400 Thống kê đầy đủ |