Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,378
» Thành viên mới nhất: hoanvukt47@gmail.com
» Các chủ đề diễn đàn: 8,639
» Các bài viết diễn: 37,754

Thống kê đầy đủ

Thành viên online
Hiện đang có 39 người dùng trực tuyến.
» 0 Thành viên | 36 Khách
AhrefsBot, Bing, Google

Chủ đề Mới nhất
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
7 Giờ trước
» Bài trả lời: 825
» Lượt xem: 75,837
TRUY CẬP NGAY LINK DAFABE...
Chuyên mục: Chuyện bốn phương
Đăng bởi lần cuối: tranthanhan1962
7 Giờ trước
» Bài trả lời: 1
» Lượt xem: 10
Cập nhật hàng loạt nội du...
Chuyên mục: Table
Đăng bởi lần cuối: mrtoanbin
8 Giờ trước
» Bài trả lời: 8
» Lượt xem: 222
Thay đổi kiểu Cursor (con...
Chuyên mục: Forms
Đăng bởi lần cuối: mrsiro
Hôm qua, 02:58 PM
» Bài trả lời: 5
» Lượt xem: 123
Tổng hợp đầy đủ các lệnh ...
Chuyên mục: Thư Viện Giáo Trình
Đăng bởi lần cuối: parpirus
Hôm qua, 12:20 PM
» Bài trả lời: 1
» Lượt xem: 1,842
Demo Import Sheet Excel v...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: truongtrungviet
Hôm qua, 11:02 AM
» Bài trả lời: 14
» Lượt xem: 477
Nhờ mọi người trên diễn đ...
Chuyên mục: Forms
Đăng bởi lần cuối: tranthanhan1962
Hôm qua, 10:30 AM
» Bài trả lời: 10
» Lượt xem: 331
Hỗ trợ các bạn Up ảnh lên...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: ongke0711
Hôm qua, 12:23 AM
» Bài trả lời: 1
» Lượt xem: 46
Import nhiều file Excel v...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: khuuquytrung
16-01-19, 11:45 PM
» Bài trả lời: 33
» Lượt xem: 3,342
Nhờ các bạn hỗ trợ lỗi ms...
Chuyên mục: Thảo Luận Access
Đăng bởi lần cuối: tranthanhan1962
16-01-19, 04:39 PM
» Bài trả lời: 0
» Lượt xem: 52

 
  Tạo Query tạm để xử lý 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)

Hỏ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ử lý xong thì xó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

In mục này

  Tạo file Access mới và xuất dữ liệu ra đó
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)

Đoạn code sau cho phép bạn tạo 1 file MDB mới trong cùng 1 thư mục với chương trì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
Đoạn Code sau cho phép bạn Export 1 table ra 1 file MDB khác cùng mục với chương trì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 dụng: bạn có thể có nhu cầu mỗi tháng tạo 1 file chứa dữ liệu riêng 1 cách tự động!...

In mục này

  Hà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 - Không có hồi đáp

Đôi khi bạn có nhu cầu thay 1 chuỗi này bằng 1 chuỗi khác. Khi đó bạn có thể dùng hàm Replace. Cú pháp như sau:

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

Ví dụ:
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

In mục này

  Canh Form giữa màn hình
Viết bởi: Noname - 23-08-10, 03:57 PM - Chuyên mục: Forms - Bài trả lời (5)

Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau và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 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

In mục này

  Gọ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

Hỏ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"

Đáp:
Giờ bạn thử theo cách sau nhé:

Tạo 1 form đặt tên Form: frmStatus
Title : Watting....

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

Rồi set các thuộc tính như sau:
[Hình: frmthongbao_thuoctinh.jpg]
Dung nhan Form thông báo của bạn sẽ thế này:
[Hình: frmthongbao.jpg]
Giờ Quay lại vấn đề chính.
Trong events click của nút thực hiện, bạn là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 trình của bạn ở đây

' Xong rồi thì đóng Flash form lại!
DoCmd.Close acForm, "frmStatus"

End sub

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối