Kính chào quý anh chị em
Em muốn tạo 1  con virút dễ thương để bảo vệ chương trình của em
Nhưng em không biết tạo nên nhờ mọi người giúp sức 
nội dung như sau:
/////////////////////////////////////
tạo một nút nhấn, sau khi nhấn vào nút đó thì hiện ra 100 bảng thông báo.
điều này làm cho người dùng phải tắt đi 100 lần thì chương trình mới chạy bình thường
///////////////////////////////////////////////////////////
em xin đa tạ rất nhiều.

Cái này gọi virus thì ghê quá, gọi ứng dụng troll người ta thì được.

Dễ thương nhưng mà hơi … ác (bạn có kiên nhẫn để bấm 100 lần không?)

Hơi tào lao. Một, cái này không thế gọi là virus, xử lý trên phần mềm của chính mình thi muốn làm gì thì làm, có động chạm đến ai đâu mà gọi là virus. Hai, Không ai thèm bấm 100 lân đâu, bấm 1-2 cái là vô task manager tăt nó luôn rồi, có khi xóa luôn không cần quan tâm đến nó.
Bảo vệ chương trinh không cần dễ thương mà các thông báo phải rõ ràng - cụ thể - ngắn gọn. (nếu cần cũng có thể tàn nhẫn một chút thì người ta mới sợ và bán được sản phẩm). Đầu tiên là dụ người ta sử dụng. Tức là phải cho người ta sử dụng một thời gia cho người ta cảm thấy đã . Sau đó thực hiện một thông báo "Chương trình chỉ còn sử dung được N lần sau đó sẽ xóa toàn bộ dữ liệu, xin liên hệ tác giả. Điện thoại: XXX....", Thông báo chỉ còn N-1, N-2 lân...Lần cuối cùng thì delete toàn bộ dữ liệu. Nếu người sử dụng cảm thây chương tringf OK chăc cắn sẽ A-lô.

 cái này 

(13-05-20, 07:20 PM)tranthanhan1962 Đã viết: Lần cuối cùng thì delete toàn bộ dữ liệu. Nếu người sử dụng cảm thây chương tringf OK chăc cắn sẽ A-lô.

em mới bắt đầu vào nghề, nên chưa biết nhiều
Nhưng ý tưởng delete này rất là hay, bạn có thể chỉ mình là
khi nhấn vào 1 nút thì xoá tất cả các bảng, hay dữ liệu gì không?
Đa tạ bạn nhiều!
-----------------------------------
Em biết đây không phải là virút nên đã cố tình đặt trong dấu nháy kép "" để diễn tả một ý khác
Thật xin lỗi vì sự hiểu nhầm này.

Tạo thì khó, xóa thì dễ nhưng làm vậy để mần chi, ban hiện thông báo 1,2 lần là khó chịu rồi   

(14-05-20, 09:50 PM)buida Đã viết:

(13-05-20, 07:20 PM)tranthanhan1962 Đã viết: Lần cuối cùng thì delete toàn bộ dữ liệu. Nếu người sử dụng cảm thây chương tringf OK chăc cắn sẽ A-lô.

em mới bắt đầu vào nghề, nên chưa biết nhiều
Nhưng ý tưởng delete này rất là hay, bạn có thể chỉ mình là
khi nhấn vào 1 nút thì xoá tất cả các bảng, hay dữ liệu gì không?
Đa tạ bạn nhiều!
-----------------------------------
Em biết đây không phải là virút nên đã cố tình đặt trong dấu nháy kép "" để diễn tả một ý khác
Thật xin lỗi vì sự hiểu nhầm này.

Đâu cần nút gì, đưa lệnh xóa sau lệnh msgbox là được
Ví dụ:
msgBox("Da het han su dung", vbOKOnly, "Thong bao")
DoCmd.RunSQL "DELETE Tên_Table.* FROM Tên_Table;"
Có bao nhiêu table thì có bao nhiêu lệnh xóa, bảo đãm không còn 1 record