• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Tạo và đọc QR code (phần 2 từ bài của anh Lê Hồng Đức)
  

  Viết bởi: ongke0711 14-02-22, 03:55 PM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp

• Do có bạn hỏi về việc tạo mã QR từ bài viết của anh Lê Hồng Đức (link bên dưới), nên tôi có tạo một file demo cách ứng dụng các hàm trong bài viết.
  Video đính kèm hướng dẫn chi tiết cách cài đặt thư viện Zxing.dll để tạo (encode) và đọc (Decode) mã QR của tác giả Micheal Jahn.
  
  Link bài viết anh Lê Hồng Đức: https://thuthuataccess.com/forum/thread-10174.html
  
  Trong file sử dụng thư viện ZXING.DLL từ nguồn: https://github.com/micjahn/ZXing.Net/releases
  Đây là bản cập nhật mới nhất 0.16.9.0 ngày 08/12/2021.
  
  Link file demo (có kèm thư viện ZXING.NET): https://www.mediafire.com/file/lndhaoghh...e.zip/file
  
  *Hướng dẫn cài đặt:
  - Vào Folder Zxing 0.16.9.0.
  - Chạy file register.cmd với quyền Admistrator (click phải chuột vào file - chọn Run As Administrator)
  - Chạy tiếp file register_sysFolder.cmd (như trên). Xong
  
  
  
  
  
  
  


•   Lọc điều kiện với giá trị trong cột tách nhau dấu phẩy
  

  Viết bởi: AnNguyen 09-02-22, 04:56 PM Chuyên mục: Query - Bài trả lời (4)

• Em đang làm bước phân quyền và cần phân theo cơ sở sử dụng, Em có thể phân quyền theo kiểu: 
  Annv          HBO          CS1
  Annv          HBO          CS2
  Annv          DCO          CS3
  Annv          DCO          CS4
  ........
  
  Nhưng em đang phân theo cả nhóm đối tương theo dạng như này rồi nên em không muốn nó bị lặp lại nhiều lần như này.
  Mà muốn theo kiểu
  
  Annv          HBO          CS1,CS2....
  Annv          DCO          CS3,CS4....
  
  Vậy làm thế nào để cậu lệnh nó thực hiện được giá trị là kiểm tra nhóm đối tượng kia được phân quyền cho các cơ sở nào?
  Em viết trong Procedure
  Em cảm ơn.
  


•   Gửi Email bằng thư viện CDO (Collaboration Data Objects)
  

  Viết bởi: ongke0711 23-01-22, 01:15 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (5)

• Việc gửi email trong Ms Access theo tôi biết là có 3 cách: 
  1. Dùng Docmd.SendObject mặc định có trong Access
  2. Dùng luôn thư việc ứng dụng của Ms Outlook để gửi.
  3. Dùng thư viện Collaboration Data Objects (CDO) của Windows.
  
  Mỗi cách đều có các điểm mạnh/ yếu nên tuỳ theo tình huống thực tế viết ứng dụng mà chọn code theo cách nào thôi.
  - Nếu dùng phương thức SendObject của Ms Access, thì nó chỉ cho đính kèm 1 file và file này phải là Access database. Bên cạnh đó nó cũng tuỳ thuộc vào ứng dụng mail đang cài trên máy.
  - Dùng thư viện của Ms Outlook thì rất mạnh, hỗ trợ nhiều tác vụ, nhiều chức năng, 2 phương pháp còn lại không so được. Nhưng nó cũng phải phụ thuộc vào máy khách có cài, có sử dụng Ms Outlook hay không? Và tính bảo mật cao của Ms Outlook cũng có khi gây trở ngại khi cấu hình gửi mail, file đính kèm.
  - Cách thứ 3 dùng CDO (thư viện "Microsoft CDO for Windows 2000"). Thư việc này mặc định đã được Windows cài sẵn trên máy tính, không cần phụ thuộc vào máy tính có cài ứng dụng gửi email hay không. Hiện tại tôi dùng Windows 10 thì vẫn còn thư viện này để chạy, không biết các phiên bản sau này có còn hay không. CDO có thể hỗ trợ gửi email với nhiều file đính kèm, với nhiều định dạng file khác nhau. Một điểm trở ngại khi dùng CDO mà tôi thấy đó là tốc độ đính kèm file và gửi đi khá chậm so với việc dùng thư viện của ứng dụng Ms Outlook. Nhưng với những điểm thuận lợi bên trên thì tôi nghĩ CDO vẫn rất đáng để dùng trong việc gửi mail từ Access và đặc biệt khi bạn xây dựng ứng dụng Access đa người dùng (không cần phải cài Ms Outlook cho từng máy client khi phân phối ứng dụng).
  
  Dưới đây là file demo tôi dùng CDO để gửi email + đính kèm file theo cách cơ bản nhất.
  Các bạn có thể dùng cách khai báo CDO trong code để mở rộng, viết riêng cho ứng dụng của mình như: tạo nút gửi email hàng loạt (có đính kèm file) cho nhân viên (như bảng lương, thông báo,...)
  Khai báo CDO trong file này tôi dùng cho dịch vụ gửi mail của Google do nó khá phổ biến. Nếu các bạn dùng nhà cung cấp dịch vụ gửi mail khác như: Hotmail, office 365 thì có thể search trên mạng cách thức cấu hình để gửi mail tương ứng của nhà cung cấp mail đó.
  Vd: 
  Thiết lập CDO cho mail Office 365,
  
  * Lưu ý: 
  Nếu dùng Gmail để gửi email đi thì Gmail phải không được dùng tính năng "Bảo mật 2 lớp" và trong Setting của Gmail phải chọn "ON" cho "Less Secure Apps" thì mới có thể gửi mail thông qua giao thức SMTP.
  
  
  
  
  
  
  
  Code:
  
  Mã PHP:

  Private Sub cmdSend_Click()
    On Error GoTo errHandler

    Dim cdoConfig As Object
    Dim cdoMessage As Object

    'Kiem tra thong tin gui
    If Me.txtTo & "" = "" Then
        Me.txtTo.SetFocus
        MsgBoxUni "Vui l" & ChrW(242) & "ng nh" & ChrW(7853) & "p " & ChrW(273) & ChrW(7883) & "a ch" & ChrW(7881) & " Email c" & ChrW(7911) & "a ng" & ChrW(432) & ChrW(7901) & "i nh" & ChrW(7853) & "n.", vbInformation, "Th" & ChrW(244) & "ng tin b" & ChrW(7855) & "t bu" & ChrW(7897) & "c"
    ElseIf Me.txtSubj & "" = "" Then
        Me.txtSubj.SetFocus
        MsgBoxUni "Vui l" & ChrW(242) & "ng nh" & ChrW(7853) & "p d" & ChrW(242) & "ng Ti" & ChrW(234) & "u " & ChrW(273) & ChrW(7873) & ".", vbInformation, "Th" & ChrW(244) & "ng tin b" & ChrW(7855) & "t bu" & ChrW(7897) & "c"
    ElseIf Me.txtMsg & "" = "" Then
        Me.txtMsg.SetFocus
        MsgBoxUni "Vui l" & ChrW(242) & "ng nh" & ChrW(7853) & "p n" & ChrW(7897) & "i dung th" & ChrW(432) & ".", vbInformation, "Th" & ChrW(244) & "ng tin b" & ChrW(7855) & "t bu" & ChrW(7897) & "c"
    Else

        Dim rs As DAO.Recordset
        Set rs = DBEngine(0)(0).OpenRecordset("tblEmailCDOSettings", dbOpenSnapshot)
        If rs.EOF And rs.BOF Then
            MsgBoxUni "Kh" & ChrW(244) & "ng c" & ChrW(243) & " th" & ChrW(244) & "ng tin c" & ChrW(7845) & "u h" & ChrW(236) & "nh cho h" & ChrW(7879) & " th" & ChrW(7889) & "ng Email." & vbCrLf & vbCrLf _
                    & "Vui l" & ChrW(242) & "ng ki" & ChrW(7875) & "m tra v" & ChrW(224) & " thi" & ChrW(7871) & "t l" & ChrW(7853) & "p l" & ChrW(7841) & "i c" & ChrW(7845) & "u h" & ChrW(236) & "nh.", vbExclamation, "Thông báo"
            Exit Sub
        End If

        Set cdoConfig = CreateObject("CDO.Configuration")
        Set cdoMessage = CreateObject("CDO.Message")

        'Nap tham sô cau hình CDO
        With cdoConfig.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rs!SMTPServer
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = rs!PortNumber
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = rs!Authentication
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = rs!SendUsing
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = rs!SSL
            .Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = rs!Timeout
            If rs!Authentication > 0 Then
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = rs!Username
                .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = rs!Password
            End If
            .Update
        End With

        DoCmd.Hourglass True
        'Gui email
        With cdoMessage
            Set .Configuration = cdoConfig
            .From = rs!Username
            .To = Me.txtTo
            .Cc = Nz(Me.txtCc, "")
            '.Bcc = "blind.copy@email.address"
            .Subject = Me.txtSubj
            .BodyPart.Charset = "UTF-8"
            '.TextBody = Me.txtMsg
            .HTMLBody = Me.txtMsg
            
            '/Dinh kem nhieu file
            Dim rsAttach As DAO.Recordset
            Set rsAttach = DBEngine(0)(0).OpenRecordset("tblAttachFiles")
            If rsAttach.EOF And rsAttach.BOF Then
                .Attachments.DeleteAll
            Else
                Do Until rsAttach.EOF
                    .AddAttachment rsAttach!AttachedFilePath
                    If Err.Number <> 0 Then
                        .HTMLBody = .HTMLBody & vbCrLf & vbCrLf & _
                                    "Không dính kèm duoc file: " & rsAttach!AttachedFilePath
                        Err.Clear
                    End If
                    rsAttach.MoveNext
                Loop
            End If
            '/---------------------

            .Send
        End With

        DoCmd.Hourglass False
        MsgBoxUni ChrW(272) & ChrW(227) & " g" & ChrW(7917) & "i Email th" & ChrW(224) & "nh c" & ChrW(244) & "ng.", vbInformation, "Thành công"

        rs.Close
        rsAttach.Close
        Set rs = Nothing
        Set rsAttach = Nothing
        
        DoCmd.Close

    End If

errExit:
    On Error Resume Next
    Set cdoConfig = Nothing
    Set cdoMessage = Nothing

    Exit Sub

errHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume errExit
End Sub 

  
  
  Link file demo: https://www.mediafire.com/file/vd8j13cou...accdb/file
  
  
  
  


•   SQL Builder For Excel - Access - SQLite & Ms Server
  

  Viết bởi: kieu manh 22-01-22, 11:40 AM Chuyên mục: Tương tác Chương trình ngoài - Không có hồi đáp

• I/ Yêu cầu hệ thống
  
  1/ sử dụng hệ điều hành WindowsXP To Windows10
  
  2/ máy tính cài đặt Ms Office Excel mọi phiên bản
  
  II/ Thông tin ứng dụng
  
  1/ ứng dụng SQL Builder sử dụng để truy vấn dữ liệu Excel - Access và SQLite
  
  2/ ứng dụng SQL Builder Ms Server sử dụng để truy vấn dữ liệu từ Ms Server nếu máy tính bạn có cài và sử dụng nó
  
  III/ Sơ lược vài điều cần thiết
  
  1/ nếu hàng ngày bạn hay sử dụng Excel để tính toán +-*/  hoặc copy dữ liệu từ 1 File Excel khác lên thì bạn phải mở file đó lên xong copy nó ... vậy ứng dụng có thể giúp bạn làm điều đó mà ko cần thiết mở file đó lên ..... nếu bạn biết một chút về SQL thì có thể tùy chỉnh câu lệnh truy vấn dữ liệu vv...
  
  2/ Khi  bạn làm việc ở 1 Cty hay tổ chức chính trị nào đó mà IT họ khóa quyền quản trị PC lại thì việc cài đặt bất cứ cái gì vào PC sẻ rất khó khăn và không thể được ( trừ khi bạn h@ck nó ).... thì với ứng dụng nhỏ sau không cần thiết cài đặt chỉ Copy vào USB hay đâu đó trên PC nếu được thì bạn có thể mở lên và sử dụng bình thường ...
  
  3/ Link Video sau đính kèm phía dưới là link tải ứng dụng hoàn toàn miễn phí ... đó là ứng dụng đầu tay Tôi phát hành miễn phí cho ai yêu thích và sử dụng nó ... Mọi chi tiết nếu cần có thể liên hệ qua Email: kieumanh366377@gmail.com
  
  Ứng dụng nhỏ gọn thân thiện và dễ sử dụng cho Excel - Access - SQlite và Ms Server ...
  
  https://youtu.be/XVMgxAKruDY
  
  Tôi đang Fix lại code lược bỏ nhiều Unit ko sử dụng và Viết API + COM là những hàm tiện ích cơ bản nhất ... dự án cập nhật trên GitHub
  đó là 1 API + COM ( 32 bit và 64 bit ) xuất hàm song song chung trong 1 DLL ... sử dụng cho VBA, vb6, Delphi, VB.net, C# +... ai quan tâm có thể sử dụng nó
  
  https://github.com/KieuManh366377/FireMy...75f687e966
  


•   code đánh phách bài thi
  

  Viết bởi: bằng lăng 14-01-22, 04:29 PM Chuyên mục: Forms - Bài trả lời (8)

• Xin code đánh phách bài thi như sau:
  1. Phách gồm 6 ký tự: 2 ký tự mã phách theo môn + 4 ký tự là số ngẫu nhiên từ 0001 đến tổng số bài thi trong 1 môn (đã trừ ra thí sinh có Trạng thái (V) vắng)
  ví dụ: + Môn Toán có mã đánh phách là TO có 30 thí sinh đăng ký thi nhưng vắng 1 thì còn 29 bài thi thì đánh ngẫu nhiên từ TO0001 đến TO0029, bỏ trống ngay thí sinh vắng không đánh phách
           + Môn Lý có mã đánh phách là LY có 50 thí sinh đăng ký thi và thi đủ nên đủ có 50 bài thi thì đánh ngẫu nhiên từ LY0001 đến LY0050.
  Tương tự các môn còn lại.
  
  2. Sau khi đã đánh phách xong nếu tiếp tục click vô đánh phách thì hiện thông báo: Phách bài thi đã đánh, có muốn đánh lại không?
  3. Nút khóa vô hiệu hóa nút đánh phách không cho đánh phách nữa khi đã đánh phách xong (tránh trường hợp có người thoái mái tay chân)
  Em xin cám ơn tất cả, mong mọi người giúp đỡ ạ
  
  https://drive.google.com/file/d/1xetbY5e...sp=sharing
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 631

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ