• 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ủ
•   Combo Bõ
  

  Viết bởi: hoat 16-02-22, 11:28 AM Chuyên mục: Forms - Không có hồi đáp

• Mình có 1 combo box Nam row source đến table hiện đang bị lỗi: khi mới mở form lên bấm vào combo box thì danh sách vẫn hiện ra nhưng không chọn được, phải bấm vào chế độ design view sau đó chuyển lại chế độ Form view thì lúc này mới chọn được.
  
  Xin anh chị em hướng dẫn cách khăc phục lỗi trên.
  Trân trọng cảm ơn.
  


•   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
  



Chủ đề Mới nhất

Lỗi typing Dđ, Aâ, Eê, Oô... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: Vanlinhmt-33 Phút trước- » Bài trả lời: 0- » Lượt xem: 1

Dòng Video Ngâm Nga Thơ N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:15 PM- » Bài trả lời: 0- » Lượt xem: 5

Video YouTube Ngâm Nga Bà... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:11 PM- » Bài trả lời: 1- » Lượt xem: 27

Đành Thôi! Phũ Phàng! &Vi... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-12-24, 04:34 PM- » Bài trả lời: 0- » Lượt xem: 18

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: tuanpham-31-12-24, 11:46 AM- » Bài trả lời: 58- » Lượt xem: 3,305

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-30-12-24, 01:51 PM- » Bài trả lời: 46- » Lượt xem: 461

Tin Học Văn Phòng: Khái N... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Tinhocvanphong-27-12-24, 11:54 AM- » Bài trả lời: 0- » Lượt xem: 28

NHỜ NÂNG CẤP CODE TÌM DỮ ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: ongke0711-27-12-24, 09:28 AM- » Bài trả lời: 12- » Lượt xem: 495

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

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: 385




Diễn đàn Thống kê

» Thành viên: 5,146 » Thành viên mới nhất: Khanh_1952 » Các chủ đề diễn đàn: 9,882 » Các bài viết diễn: 48,670 Thống kê đầy đủ