Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Gửi M.Vương)
#1
Gửi tới : Trần M.Vương <m.vuong2211@gmail.com>

Trích dẫn:Xin chào anh ạ, em có nghiên cứu ứng dụng Phần mềm quản lý công văn điện tử của anh, rất hay ạ, một số chức năng rất hay, ví dụ như chức năng Compact data và Auto Link Table.
A có thể share pass VBA để em học hỏi thêm Code của những cái này được không ạ.
Cảm ơn a đã xem qua Email.

Đầu tiên xin cảm ơn bạn về lời khen trên. Thật ra trên diễn đàn cũng có bài về chức năng Compact and Repair... nhưng chỉ giới hạn ở việc phải nhấn nút.

Vấn đề Pass VBA trước đây mình cũng đã từng Share pass VBA trong phiên bản 1.1 + 1.2 + 1.3 nhưng một số người lợi dụng để thương mại hóa nên mình ngừng shared. Nên bạn thông cảm. Nếu thích chức năng nào mình tách ra cho bạn tìm hiểu.

Tiện đây tôi xin tách ra Demo đầu tiên mà bạn yêu cầu để bạn nghiên cứu.

Demo này Tự động Compact and Repair... 1 tháng 1 lần ( Để minh họa bạn chỉ việc chỉnh hệ thống sang tháng tiếp theo là nó sẽ tự động bật tính năng Compact and Repair...( Compact xong sẽ không Compact nửa cho đến khi qua tháng sau) Bạn bật thử nhiều lần lên bạn sẽ thấy.

Link demo: Tài xuống

Hy vọng giúp ít phần nào cho bạn. Thân ái.034

Riêng yêu cầu thứ 2...mình sẽ tách thêm bài nửa.
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 m.vuong2211 , ledangvan , Noname , phuc_thanhtien
#2
Ôi. 007007007 . Em đã xem, rất tiện ạ.
Giả dụ trong trường hợp em có 1 table chứa data là file không quan trọng, và định kì muốn xóa những dữ liệu quá 6 tháng thì áp dụng như thế nào là ok vậy a.
Em đang nghĩ đến phương á, dùng query lọc dữ liệu đã qua 6 tháng, rồi dele thôi, còn auto thì em chưa nghĩ ra.
Chữ ký của m.vuong2211 Xin chào, mình là m.vuong2211, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -15.
Reply
Những người đã cảm ơn
#3
(11-04-15, 01:05 AM)m.vuong2211 Đã viết: Ôi. 007007007 . Em đã xem, rất tiện ạ.
Giả dụ trong trường hợp em có 1 table chứa data là file không quan trọng, và định kì muốn xóa những dữ liệu quá 6 tháng thì áp dụng như thế nào là ok vậy a.
Em đang nghĩ đến phương á, dùng query lọc dữ liệu đã qua 6 tháng, rồi dele thôi, còn auto thì em chưa nghĩ ra.

Tại form frmStatus bạn để ý đoạn code sau:

Mã PHP:
Private Sub Form_Load()
   
Dim ChuoiNgay As StringTimKiem As Variant
   Dim KyNay 
As Variant

[color=#FF0000]Đây là đoạn so sánh 1 tháng 1 lần, bạn chế 3 dòng dưới đây thành 6 tháng 1 lần.[/color]
   
KyNay Year(Date) & Right("0" Month(Date), 2)
   
ChuoiNgay "NamThang = '" KyNay "'"
   
TimKiem DLookup("Namthang""T_Compact"ChuoiNgay)

   If 
IsNull(TimKiemThen
       Docmd
.SetWarnings False
       Docmd
.RunSQL "INSERT INTO T_Compact(NamThang) VALUES(" KyNay ")"

[color=#FF0000]' Sau khi làm code trên xong Chèn đoạn SQL Query xóa tại đây: 6 tháng 1 lần tại đây[/color]

       
Docmd.SetWarnings True
       Docmd
.RunMacro "MacrofrmStatus"
       
Docmd.OpenForm "FCompact"
   
End If
End Sub 

Bạn tập làm code đi, có gì mình sửa tiếp, như vậy bạn sẽ có kinh nghiệm hơn..Chứ mình làm cho bạn thì quá dễ...

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 m.vuong2211 , Noname
#4
(11-04-15, 11:55 AM)maidinhdan Đã viết:
(11-04-15, 01:05 AM)m.vuong2211 Đã viết: Ôi. 007007007 . Em đã xem, rất tiện ạ.
Giả dụ trong trường hợp em có 1 table chứa data là file không quan trọng, và định kì muốn xóa những dữ liệu quá 6 tháng thì áp dụng như thế nào là ok vậy a.
Em đang nghĩ đến phương á, dùng query lọc dữ liệu đã qua 6 tháng, rồi dele thôi, còn auto thì em chưa nghĩ ra.

Tại form frmStatus bạn để ý đoạn code sau:

Mã PHP:
Private Sub Form_Load()
   
Dim ChuoiNgay As StringTimKiem As Variant
   Dim KyNay 
As Variant

[color=#FF0000]Đây là đoạn so sánh 1 tháng 1 lần, bạn chế 3 dòng dưới đây thành 6 tháng 1 lần.[/color]
   
KyNay Year(Date) & Right("0" Month(Date), 2)
   
ChuoiNgay "NamThang = '" KyNay "'"
   
TimKiem DLookup("Namthang""T_Compact"ChuoiNgay)

   If 
IsNull(TimKiemThen
       Docmd
.SetWarnings False
       Docmd
.RunSQL "INSERT INTO T_Compact(NamThang) VALUES(" KyNay ")"

[color=#FF0000]' Sau khi làm code trên xong Chèn đoạn SQL Query xóa tại đây: 6 tháng 1 lần tại đây[/color]

       
Docmd.SetWarnings True
       Docmd
.RunMacro "MacrofrmStatus"
       
Docmd.OpenForm "FCompact"
   
End If
End Sub 

Bạn tập làm code đi, có gì mình sửa tiếp, như vậy bạn sẽ có kinh nghiệm hơn..Chứ mình làm cho bạn thì quá dễ...

Thân ái.

Vâng ạ, em sẽ nghiên cứu chúng 015
Chữ ký của m.vuong2211 Xin chào, mình là m.vuong2211, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -15.
Reply
Những người đã cảm ơn
#5
(10-04-15, 04:50 PM)maidinhdan Đã viết: Gửi tới : Trần M.Vương <m.vuong2211@gmail.com>

Trích dẫn:Xin chào anh ạ, em có nghiên cứu ứng dụng Phần mềm quản lý công văn điện tử của anh, rất hay ạ, một số chức năng rất hay, ví dụ như chức năng Compact data và Auto Link Table.
A có thể share pass VBA để em học hỏi thêm Code của những cái này được không ạ.
Cảm ơn a đã xem qua Email.

Đầu tiên xin cảm ơn bạn về lời khen trên. Thật ra trên diễn đàn cũng có bài về chức năng Compact and Repair... nhưng chỉ giới hạn ở việc phải nhấn nút.

Vấn đề Pass VBA trước đây mình cũng đã từng Share pass VBA trong phiên bản 1.1 + 1.2 + 1.3 nhưng một số người lợi dụng để thương mại hóa nên mình ngừng shared. Nên bạn thông cảm. Nếu thích chức năng nào mình tách ra cho bạn tìm hiểu.

Tiện đây tôi xin tách ra Demo đầu tiên mà bạn yêu cầu để bạn nghiên cứu.

Demo này Tự động Compact and Repair... 1 tháng 1 lần ( Để minh họa bạn chỉ việc chỉnh hệ thống sang tháng tiếp theo là nó sẽ tự động bật tính năng Compact and Repair...( Compact xong sẽ không Compact nửa cho đến khi qua tháng sau) Bạn bật thử nhiều lần lên bạn sẽ thấy.

Link demo: Tài xuống

Hy vọng giúp ít phần nào cho bạn. Thân ái.034

Riêng yêu cầu thứ 2...mình sẽ tách thêm bài nửa.

Maidinhdan ơi cái này rất hay, nhưng nó chỉ thực hiện khi mở nó ra, có cách nào không mở mà tự nó compact không (Vì File cần compact thường là File dữ liệu mà nó chỉ được sử dụng thông qua kết nối link table chứ không mở trực tiếp)
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(26-08-15, 10:05 AM)ledangvan Đã viết: Maidinhdan ơi cái này rất hay, nhưng nó chỉ thực hiện khi mở nó ra, có cách nào không mở mà tự nó compact không (Vì File cần compact thường là File dữ liệu mà nó chỉ được sử dụng thông qua kết nối link table chứ không mở trực tiếp)

Ý của anh là muốn compact  file Back end là file chứa Data phải không, việc này hơi phức tạp nhưng vẫn có thể, để em làm Demo cho xem.

Có 1 vấn đề cần phải biết? File Data có đặt Pass hay không có pass? bởi code viết sẽ rất khác nhau. Anh muốn viết theo cái nào?
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 ledangvan , ongke0711
#7
(26-08-15, 10:10 AM)maidinhdan Đã viết:
(26-08-15, 10:05 AM)ledangvan Đã viết: Maidinhdan ơi cái này rất hay, nhưng nó chỉ thực hiện khi mở nó ra, có cách nào không mở mà tự nó compact không (Vì File cần compact thường là File dữ liệu mà nó chỉ được sử dụng thông qua kết nối link table chứ không mở trực tiếp)

Ý của anh là muốn compact  file Back end là file chứa Data phải không, việc này hơi phức tạp nhưng vẫn có thể, để em làm Demo cho xem.

Có 1 vấn đề cần phải biết? File Data có đặt Pass hay không có pass? bởi code viết sẽ rất khác nhau. Anh muốn viết theo cái nào?

Đúng là anh muốn compact  file Back end, hiện giờ phần mềm anh làm vẫn phải thủ công compact hơi bất tiện, phần chương trình chạy thì có thực hiện compact rồi nhưng phần dữ liệu cứ phải mở trực tiếp rồi mới compact được. File của anh không có pass.
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
Tôi cũng hóng cái demo Compact BE này các bác Dân để áp dụng vô cái chương trình con mình đang làm.
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
#9
(26-08-15, 10:39 AM)ledangvan Đã viết: Đúng là anh muốn compact  file Back end, hiện giờ phần mềm anh làm vẫn phải thủ công compact hơi bất tiện, phần chương trình chạy thì có thực hiện compact rồi nhưng phần dữ liệu cứ phải mở trực tiếp rồi mới compact được. File của anh không có pass.

(26-08-15, 03:53 PM)ongke0711 Đã viết: Tôi cũng hóng cái demo Compact BE này các bác Dân để áp dụng vô cái chương trình con mình đang làm.

Trả lời: maidinhdan

Để tránh làm loãng diễn đàn và tạo điều kiện cho thành viên diễn dàng tìm Demo, em lập topic khác để tiện thảo luận.


Demo xem tại đây....[Thủ Thuật] Demo_Compact & Repaire file Back End (làm giảm dung lượng nhiều file Back End cùng lúc)

Hình minh họa
[Hình: demoNenfileBackend.jpg]
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 ledangvan
#10
[b]maidinhdan ơi sao anh ấn nén mà nó chẳng thông báo và cũng không thấy nó nén được File nhỉ ?[/b]
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 538 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,400 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,315 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 489 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Hướng Dẫn Demo Cho tất cả thông báo tiếng việt vào một Macro maidinhdan 3 988 23-07-15, 03:09 PM
Bài mới nhất: maidinhdan

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ơ