Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)
#1
Nhiều bạn hay hỏi: Khi nhấn nút thêm thì nút thêm sẽ biến mất đồng thời nút Lưu sẽ hiện lên, như vậy khi thiết kế ta phải tốn đến 2 nút command.

Hôm nay giới thiệu các bạn đoạn code đơn gian để làm điều đó và chỉ cần thiết kế 1 nút duy nhất thôi.

Mục đích: Tạo ra 1 nút nhấn với 2 hoặc có thể nhiều chức năng. ( Bởi trong code sử dụng hàm Select case)

Khả năng ứng dụng:
- Tạo Nút: Sửa + Xóa
- Tạo Nút: Thêm + Lưu
- Tạo Nút: Đóng/Mở ( giống nút Design của Access khi mình thiết kế ứng dụng đó các bạn, lần 1 mình nhấn vào nó chạy form/query....nhấn thêm lần nửa nó lại mở giao diện thiết kế.

Xem hình minh họa
[Hình: 1nut2chucnang.png]

Mã PHP:
Code:
'---------------------------------------------------------------------------------------
Ten ModuleForm_Form1
' Tac giai  : maidinhdan@gmail.com
Ngay viet 8/10/2015
' Dien giai : 1 nut nhan co 2 chuc nang
'
---------------------------------------------------------------------------------------

Option Compare Database
Dim DongMo 
As Byte ' Khong khai bao nam duoi dong Option Explicit

Private Sub cmdthem_Click()
Select Case DongMo
Case 0
'
Set bien la 1
DongMo 
1
Me
.cmdthem.Caption "Thêm"
' Them moi
        DoCmd.GoToRecord , , acNewRec
Case 1
'
Set bien la 0
DongMo 
0
Me
.cmdthem.Caption "Xóa"
' Xoa
    DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    MsgBox "Da xoa"
End Select
End Sub 

Ở sự kiện mở form bạn thêm code:
Mã PHP:
DongMo

Chú ý: Không được khai báo tường minh biến DongMo As Byte ( Dim DongMo As Byte không được nằm dưới dòng Option Explicit)

Demo đính kèm

Chúc bạn thành công.


File đính kèm
.zip   Demo_1nutnhan_2chucnang.zip (Kích cỡ: 13.89 KB / Tải về: 80)
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 vulhu06 , ongke0711 , thucgia , caytregiavn77 , khanghychu , thdanh
#2
Chào bạn maidinhdan, cám ơn bạn đã chia sẽ bài viết 1 nút có 2 chức năng (thêm + xóa); tuy nhiên sau khi down về, mình làm thử mà không được (trình mình còn kém), sau khi nhấn nút Thêm thì nó không hiện thành nút Xóa; mong được sự chỉ bảo của bạn maidinhdan.
Trân trọng!
http://www.mediafire.com/download/74dybq....02%29.mdb
Chữ ký của caytregiavn77 caytregiavn77,gia nhập Thủ Thuật Access từ 13-01 -16.
Reply
Những người đã cảm ơn
#3
(14-02-16, 06:20 PM)caytregiavn77 Đã viết: Chào bạn maidinhdan, cám ơn bạn đã chia sẽ bài viết 1 nút có 2 chức năng (thêm + xóa); tuy nhiên sau khi down về, mình làm thử mà không được (trình mình còn kém), sau khi nhấn nút Thêm thì nó không hiện thành nút Xóa; mong được sự chỉ bảo của bạn maidinhdan.
Trân trọng!
http://www.mediafire.com/download/74dybq....02%29.mdb

Demo trên mình lỡ tay xóa tại khu vực thiết kế: chi tiết là Nhấp chuột phải lên nút lệnh,

Bước 2: Chọn thẻ Event, tại dòng On click nhấn vào .... ( chấm chấm ở cuối dòng, sau đó chọn chữ Code Build là xong hoặc bạn dán cụm từ này vào "[Event Procedure]"

Thân mến!

Gửi lại bạn demo hoàn chỉnh


File đính kèm
.zip   Demo_1nutnhan_2chucnang(Lan2).zip (Kích cỡ: 15.19 KB / Tải về: 14)
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 caytregiavn77
#4
Cám ơn bạn  maidinhdan nhiều, mình đã làm được rồi.
Chữ ký của caytregiavn77 caytregiavn77,gia nhập Thủ Thuật Access từ 13-01 -16.
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
  Gửi tin nhắn SMS bằng Access lmthu 6 337 25-06-16, 12:23 AM
Bài mới nhất: zinzin8x
  Cách Load lại Form sau khi nhấn nút Thêm, Sửa, Xóa! huynguyenbd 7 3,261 07-04-16, 08:28 PM
Bài mới nhất: ongke0711
  [Thủ Thuật] Giúp em tính tồn cuối khi có thêm dữ liệu trả lại dao cụ thaoxinh 2 260 07-01-16, 05:16 PM
Bài mới nhất: ongke0711
  Phân Quyền Chức Năng Cho Người Dùng Trong Access muaphonui_2010 8 7,797 09-10-12, 10:30 AM
Bài mới nhất: nhannt4
  [Lỗi] tự xuất hiện thêm một report và ẩn tất cả các reports hiện có ngamyeuem 3 951 15-08-12, 09:55 AM
Bài mới nhất: Xuân Thanh

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ơ