• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)
• Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

• Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

  maidinhdan > 10-08-15, 06:22 PM

  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
  
  
  

  Mã PHP:

  Code:
'---------------------------------------------------------------------------------------
' Ten Module: Form_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= 0 


  
  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.

• RE: Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

  caytregiavn77 > 14-02-16, 06:20 PM

  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

• RE: Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

  maidinhdan > 18-02-16, 03:42 PM

  (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

• RE: Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

  caytregiavn77 > 18-02-16, 04:37 PM

  Cám ơn bạn  maidinhdan nhiều, mình đã làm được rồi.
• Bài trước Bài tiếp