Bình chọn: Bạn thấy chủ đề này thế nào
Hay
Không hay
Cần bổ sung thêm
[Hiển thị kết quả]
 
Chú ý: Đây là một bình chọn công cộng, những người khác sẽ có thể thấy những gì bạn bình chọn.
Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật
#1
Lightbulb 
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 ..............................Link Demo ( Ngay tại bài này)



3. ...................Tên hàm/Thủ thuật(Chưa có)..........................Link Bài # ..............................Link Demo
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......
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy , Minh Tiên , Noname , MatTroiNguQuen
#2
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#4
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.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
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]
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên , maidinhdan
#6
(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
Chữ ký của kieu manh kieu manh,gia nhập Thủ Thuật Access từ 21-06 -15.
Reply
Những người đã cảm ơn
#7
Máy mình đang là Win 7 và đã set UAC cao nhất...vẫn chạy OK.  007
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#8
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
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , huuduy.duy , Minh Tiên , Che_Guevara , MatTroiNguQuen
#10
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] xin hỗ trợ bằng Thủ thuật VBA Trần Linh 3 239 13-07-16, 09:06 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Thủ thuật winshock trong access vba đơn giản thucgia 8 1,071 13-04-15, 09:56 PM
Bài mới nhất: thucgia
  [Hỏi] Xin hỏi Access 2003 Không có biểu tượng Common Dialog Control? ttqt30 0 389 21-10-14, 11:24 AM
Bài mới nhất: ttqt30
  Thuật toán xếp hạng Heiro7 0 684 15-06-12, 07:22 AM
Bài mới nhất: Heiro7
  [Giúp] lấy đường dẫn tương đối cho các Shell dieuchinhlu 1 1,928 18-06-11, 01:07 AM
Bài mới nhất: hieuvn

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ