Thủ Thuật Access

Trang chủ
- Thủ Thuật Access
- Trang chủ

Tạo Query tạm để xử lý dữ liệu trong VBA

Viết bởi: Noname
23-08-10, 04:14 PM
Chuyên mục: Query
- Bài trả lời (2)
Hỏi: Trước đây em tạo query bằng lưới, nên lúc nào cũng có query tồn tại trong chương trình; bây giờ em học định nghĩa query bằng VBA, để không tồn tại query trong chương trình nữa.Sau khi xử lý xong thì xóa đi

Mã:
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

Demo

Tạo file Access mới và xuất dữ liệu ra đó

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)
Đoạn code sau cho phép bạn tạo 1 file MDB mới trong cùng 1 thư mục với chương trình

Mã:
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
Đoạn Code sau cho phép bạn Export 1 table ra 1 file MDB khác cùng mục với chương trình

Mã:
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

Ứng dụng: bạn có thể có nhu cầu mỗi tháng tạo 1 file chứa dữ liệu riêng 1 cách tự động!...

Hàm thay thế chuỗi trong Access

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)
Đôi khi bạn có nhu cầu thay 1 chuỗi này bằng 1 chuỗi khác. Khi đó bạn có thể dùng hàm Replace. Cú pháp như sau:

Mã:
Replace ( string1, find, replacement, [start, [count, [compare]]] )

Ví dụ:

Mã:
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"

Nguồn: techonthenet

Canh Form giữa màn hình

Viết bởi: Noname
23-08-10, 03:57 PM
Chuyên mục: Forms
- Bài trả lời (5)
Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau vào:

Mã:
Private Sub Form_Load() Const t = 567 Dim R As Integer, D As Integer, W As Integer, H As Integer ' với 10 là 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

Gọi Form Chờ khi thực hiện tập lệnh !

Viết bởi: Noname
23-08-10, 02:32 PM
Chuyên mục: Forms
- Không có hồi đáp
Hỏi:Em đặt một nút command button, trong đó chạy một số câu lệnh và phải mất khoảng 5 phút.
Trong quá trình thực hiện lệnh, em muốn hiện lên màn hình dòng chữ:
" Đang thực hiện công việc, xin vui lòng chờ trong giây lát"

Đáp:
Giờ bạn thử theo cách sau nhé:

Tạo 1 form đặt tên Form: frmStatus
Title : Watting....

Trong form, vẽ 1 Label, nội dung : Đang nhập dữ liệu, xin chờ trong giây lát

Rồi set các thuộc tính như sau:

Dung nhan Form thông báo của bạn sẽ thế này:

Giờ Quay lại vấn đề chính.
Trong events click của nút thực hiện, bạn làm như sau:

Mã:
Private Sub cmdThuchien_Click() ' load form frmStatus lên DoCmd.OpenForm "frmStatus" ' chờ load xong DoEvents ' Lệnh thực thi chương trình của bạn ở đây ' Xong rồi thì đóng Flash form lại! DoCmd.Close acForm, "frmStatus" End sub

Chủ đề Mới nhất

Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm qua, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 264

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm qua, 08:36 AM- » Bài trả lời: 57- » Lượt xem: 3,121

Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-24-12-24, 11:34 AM- » Bài trả lời: 44- » Lượt xem: 385

So Sánh Nước Hoa Chanel C... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: EliHayes-22-12-24, 12:24 PM- » Bài trả lời: 0- » Lượt xem: 5

Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 101

Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,200

A Bold Move to Expand the... -Chuyên mục: Query-Đăng bởi lần cuối: nigelbdhmp-19-12-24, 04:55 PM- » Bài trả lời: 0- » Lượt xem: 15

[Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-06-12-24, 02:53 PM- » Bài trả lời: 17- » Lượt xem: 1,965

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: giauvnd-05-12-24, 04:35 PM- » Bài trả lời: 30- » Lượt xem: 3,684

Hỏi về Crosstab Query: Lu... -Chuyên mục: Query-Đăng bởi lần cuối: feeling-04-12-24, 07:24 PM- » Bài trả lời: 7- » Lượt xem: 270

Diễn đàn Thống kê

» Thành viên: 5,090
» Thành viên mới nhất: vebotvttbong
» Các chủ đề diễn đàn: 9,879
» Các bài viết diễn: 48,661

Thống kê đầy đủ