• [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật
  • [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    maidinhdan > 06-10-16, 04:45 PM

    Hôm nay mình xin mạn phép lập chủ đề này, với:

    I. Mục đích:
    1. Hỗ trợ các bạn có thêm nhiều thủ thuật hay và bổ ít
    2. Xây dựng thêm nhiều Demo sinh động phong phú cho diễn đàn http://thuthuataccess.com
    3. Giao lưu phát triển các đoạn hàm đã có.
    4. Chia sẽ những ý tưởng về đoạn code mà ta chưa thể hoàn thành chúng.


    II. Yêu cầu:
    * Topic này chỉ chấp nhận những bài viết cụ thể như sau:
    1. Có tên tiêu đề yêu cầu:
    2. Nội dung yêu cầu

    Ví dụ:

    Trích dẫn:
    Mã PHP:
    Tên yêu cầuXin giúp tạo Hàm lấy lấy thời gian thực trên Internet
    Nội dung
    Mô tả yêu cầu
    Tôi muốn lấy ngày giờ trên internet thay vì ngày trên hệ thống máy và chèn vào Text ở sự kiện Load... 

    * Không chấp nhận các yêu cầu làm giùm ứng dụng hay xin cả 1 ứng dụng.
    * Không bàn luận những chuyện không liên quan đến chủ đề trong đây như viết 2 chữ cám hơn hay khen ngợi. Nếu cảm ơn hãy click Thank, Nếu khen ngợi hãy Vote cho anh ấy +1 điểm.


    III. Ý nghĩa và hướng thực hiện
    - Sau khi nhận câu hỏi và trả lời từ các bạn, Ban quản trị sẽ lập thành 1 Danh sách thủ thuật ngày tại bài #1 ( Bài đầu tiên này và có đường dẫn đến các Hàm tương ứng.
    - Trong trường hợp có Demo thì Ban quản trị diễn đàn sẽ tách thành 1 bài riêng và Post lên có Chuyên mục tương ứng liên quan đến chủ đề bài viết
    - Trong trường hợp không có Demo minh họa để các bạn tiện xem thì BQT cũng cố gắng sắp xếp thời gian để tạo và Post lên các chuyên mục tương ứng.
    - Bài viết không đáp ứng Yêu cầu tại II trên sẽ bị xóa không thương tiếc
    - Cuối cùng, Em muốn gửi 1 lời nhắn nhủ tới tất cả mọi người ( Thành viên mới hay Thành viên đẳng cấp), hãy gửi tất cả ý tưởng của các anh/chị vào đây đề chúng ta cùng xây dựng thêm các hàm hay cho Access mà chúng ta luôn gắn bó.


    Thân ái
    ________________________________________________________________________________


    TỔNG HỢP DANH SÁCH CÁC THỦ THUẬT VÀ HÀM THEO YÊU CẦU
    I. Liên quan đến ...........
    1. Chia sẽ thư mục bằng Code..........................Link Bài #5 ..............................Link Demo ( đang xử lý)
    2. Lấy list file trong folder/sub..........................Link Bài #9 (Loại ) ...Bài #12 (Loại II)...........................Link Demo ( Ngay tại bài này)
    3. Chèn hình ảnh và copy vào thư mục định sẳn: Link bài #22



    4. ...................Tên hàm/Thủ thuật(Chưa có)..........................Link Bài # ..............................Link Demo
    II. Liên quan đến Query

    III. Liên quan đến Form

    IV. Liên quan đến Macro

    V. Liên quan đến Report

    VI. Liên quan đến......
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    ongke0711 > 06-10-16, 07:42 PM

    Topic này hay đó nhưng bạn Dân cho hỏi nó có gần giống mục Thư Viện Hàm trong forum này không? Tôi sợ nó bị phân mảnh chủ đề.  007
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    maidinhdan > 06-10-16, 08:36 PM

    (06-10-16, 07:42 PM)ongke0711 Đã viết: Topic này hay đó nhưng bạn Dân cho hỏi nó có gần giống mục Thư Viện Hàm trong forum này không? Tôi sợ nó bị phân mảnh chủ đề.  007

    Đây là nơi bao quát Thư viện hàm. Và không phải mọi hàm được tạo ra để đưa vào thư viện hàm, Vì thế, Chuyên mục thư viện hàm chỉ có một vài thành viên đăng được bài ở đó.

    Mục đích muốn tạo ra thêm nhiều hướng xử lý công việc từ 1 hàm đã có.

    Khi thấy thích hợp mình sẽ tự đưa nó vào đúng chuyên mục của diễn đàn.

    Cảm ơn đóng góp của Ongke!
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    maidinhdan > 10-10-16, 05:36 PM

    Tình hình là muốn phát triển 1 Demo liên quan đến chia sẽ file, Rất mong mọi người giúp đỡ và đóng góp hàm này

    Tên hàm: Chia sẽ thư mục bằng Code
    Nội dung:
    Em có thư mục "D:\ThumucA"

    Em muốn khi tạo ra 1 nút click để ThumucA sẽ Shared với 1 tên trong cú pháp hàm

    Xin cảm ơn.
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    ongke0711 > 12-10-16, 11:26 AM

    Trong code VBA tôi chưa biết hàm nào để share folder nên mượn hàm Shell của windows để thực hiện việc này.
    - Việc tạo Folder thì có công cự FSO (File System Object) làm được rồi. Nên mình không đề cập ở đây.
    - Để share folder thì mình dùng hàm SHELL gọi Cmd.exe của Win để thực thi việc share folder thông qua Ms DOS.  
    - Mã lệnh share của Ms DOS mình lưu thành file ShareFolder.bat để chạy. Bạn có thể chỉnh sửa quyền hạn, thêm Users vào file này bằng Notepad.exe.
    - Cách làm của mình cơ bản là vậy, cũng chưa lường hết những phát sinh nếu khác hệ điều hành v.v... Chắc sẽ có cách hay hơn, mọi người cùng chia sẽ.

    [Hình: CodeShareFolder1.png]

    Kết quả:

    [Hình: CodeShareFolder2.png]
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    kieu manh > 12-10-16, 06:28 PM

    (12-10-16, 11:26 AM)ongke0711 Đã viết: Trong code VBA tôi chưa biết hàm nào để share folder nên mượn hàm Shell của windows để thực hiện việc này.
    - Việc tạo Folder thì có công cự FSO (File System Object) làm được rồi. Nên mình không đề cập ở đây.
    - Để share folder thì mình dùng hàm SHELL gọi Cmd.exe của Win để thực thi việc share folder thông qua Ms DOS.  
    - Mã lệnh share của Ms DOS mình lưu thành file ShareFolder.bat để chạy. Bạn có thể chỉnh sửa quyền hạn, thêm Users vào file này bằng Notepad.exe.
    - Cách làm của mình cơ bản là vậy, cũng chưa lường hết những phát sinh nếu khác hệ điều hành v.v... Chắc sẽ có cách hay hơn, mọi người cùng chia sẽ.

    [Hình: CodeShareFolder1.png]

    Kết quả:

    [Hình: CodeShareFolder2.png]

    Nếu Máy mà windows7 trở lên khi UAC đang bật mức cao nhất thì sao ...

    Mình nghĩ File *.bat mất tác dung quá...Bạn test thử xem
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    ongke0711 > 12-10-16, 08:46 PM

    Máy mình đang là Win 7 và đã set UAC cao nhất...vẫn chạy OK.  007
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    maidinhdan > 12-10-16, 11:17 PM

    Xong 1 Demo... Xin gửi lời cảm ơn sâu sắc nhất đến Ongke đã chia sẽ 1 Demo hay nửa.
    Vài câu hỏi:
    Trích dẫn:1. Ongke chụp thêm 1 tấm hình sử dụng hàm fsmgmt.msc để xem file đó thật sự đã được Shared chưa?

    2. Nếu muốn tuy biến tên Shared bằng 1 tên khác thì cú pháp sẽ phải thay đổi như thế nào?

    Mình đang dùng Window8, Hàm trên báo thành công nhưng folder vẫn chưa được shared

    Và mấy hôm nay xin được phép yêu cầu Demo thứ 2 rất mong mọi người chia sẽ và cho ý kiến

    Tên Demo: Lấy list file trong folder/sub
    Nội dung yêu cầu:
    1- Lấy list của tất cả các file trong thư mục cho trước:
    * Ví dụ liệt kê tất cả các file trong ổ đĩa D hoặc toàn bộ các folder con
    2. Lấy tất cả kể cả các file có đặt tiếng viết có dấu.

    * Mấy hôm nay nhức đầu với cái Demo này, Xin trình bày như sau
    * Với hàm Application.FileSearch ta có thể làm Demo như trên, nhưng chỉ được với Access 2003 trở về trước còn Access 2007 trở về sau không hổ trợ object này nửa. Và mình cũng ta tìm hiểu tạo class để viết 1 hàm thay thế nó và cũng làm được thế nhưng với các file đặt tên tiếng viết có dấu thì không được.

    Đã từng dùng qua các cách sau đây Nhưng vẫn không sao load vào list các file tiếng việt có dấu

    + Cách 1: CreateObject("Scripting.FileSystemObject")
    + Cách 2 : Viết Class thay thế hàm Application.FileSearch 
    + Cách 3: hàm Dir thông qua Cmd.exe


    * Cuối cùng. Rất mong các Anh/Chị đóng góp thêm 1 đoạn code có thể load được file tiếng việt có dấu trên nên tảng Access 2003, 2007 hoặc hơn
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    ongke0711 > 13-10-16, 02:00 AM

    Cách 1 dùng FileSystemObject tôi làm vẫn lấy được tên file tiếng việt có dấu (unicode) mà maidinhdan.
    Import nó vô table trước đã.
    [Hình: LayTenFile.png]

    Code:
    Mã PHP:
    Public Sub LayTenFile()
     
       Dim FolderPath As String
       Dim objFSO
    objFolderobjFile As Object
       Dim rs 
    As DAO.Recordset

       Set rs 
    CurrentDb.OpenRecordset("tblDSTenFile")

       FolderPath Me.txtFolderPath

       Set objFSO 
    CreateObject("Scripting.FileSystemObject")
       Set objFolder objFSO.GetFolder(FolderPath)

       For Each objFile In objFolder.Files
           rs
    .AddNew
           rs
    .Fields("TenFile") = objFile.Name
           rs
    .Update
       Next

       Set rs 
    Nothing

    End Sub 

    Link demo: http://www.mediafire.com/file/w6jf257h90...enFile.mdb
  • RE: [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật

    maidinhdan > 13-10-16, 02:33 AM

    (13-10-16, 02:00 AM)ongke0711 Đã viết: Cách 1 dùng FileSystemObject tôi làm vẫn lấy được tên file tiếng việt có dấu (unicode) mà maidinhdan.
    Import nó vô table trước đã.
    [Hình: LayTenFile.png]

    Link demo: http://www.mediafire.com/file/w6jf257h90...enFile.mdb

    Ui da, Ongke ơi, Demo ông post cho làm tôi đau đớn quá.
    Móa ơi, mấy hôm chỉ test trên nền code VBA: Immediate....nó làm tôi viết gần 30trang code để thay thế đó. Bởi chạy code gặp file tiếng việt có dấu là nó ra tầm bậy.
    Cảm ơn ông 1 vạn lần.
    Lần sau là test đủ đường mới được. ( 1 kinh nghiệm xương máu:...ha ha)

    Cuối cùng sắp ra lò vài Demo giao lưu nửa.

    Ah tiện thể hỏi Ongke luôn là liên quan đến thanh tiến trình (ProgressBar) chạy % làm được chưa  ? Chưa làm được cho tôi hay, tôi chia sẽ 2 Demo lên đây luôn ( Nghiên cứu cái này cũng 1 thời gian, nhưng muốn xào nấu lại để mọi người dễ áp dụng vào bài).

    Còn cái vụ Login phân quyền, cũng sẽ có phần II, chắc chắn Ongke sẽ hài lòng với Demo phần II của nó.

    Vài lời cảm ơn và chia sẽ.

    Thân ái!