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

Tạo nút mở rộng thu nhỏ trong access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Tạo nút mở rộng thu nhỏ trong access
• Tạo nút mở rộng thu nhỏ trong access

• RE: Tạo nút mở rộng thu nhỏ trong access

  maidinhdan > 09-06-16, 09:50 AM

  (09-06-16, 09:10 AM)nguyenhungcuong Đã viết: Mình mới làm quen với code nên mình cũng không hiểu và không biết lấy ở đoạn nào, bạn có thể giúp mình được không? Cảm ơn bạn nhiều.

  
  Mình hướng dẫn bạn lần nửa, code đơn giản mà
  
  Xem đoạn này: Đây là nút click phóng to/thu nhỏ
  
  

  Mã PHP:

  Private Sub cmdOptions_Click()
    On Error GoTo cmdOptions_Click_Err
    DoCmd.SetWarnings False   ' Tắt thông báo hệ thống'
    
    If Me.cmdOptions.Caption = fTxt(Me.Name & "_cmdOptions") Then          ' So sánh tên Coption là Thu nhỏ hay phóng to'
        DoCmd.MoveSize 1000, , 14000                                                           ' Đây là đoạn bạn cần quan tên; Sẽ phóng to form nè'
        Me.cmdOptions.Caption = fTxt(Me.Name & "_cmdOptions", 2)             ' Cho nút click caption là Thu nhỏ'
    Else
        DoCmd.MoveSize 1000, , 7600                                                             ' Thu nhỏ form lại'

        Me.cmdOptions.Caption = fTxt(Me.Name & "_cmdOptions")                 ' Cho nút click caption là Phóng to'
    End If
  
' Các dòng dưới này chỉ là chỉ dẫn khi gặp trục trặc'
cmdOptions_Click_Exit:
    DoCmd.SetWarnings True
    Exit Sub
cmdOptions_Click_Err:
    MsgBox Err.Description, , " Loi!"
    Resume cmdOptions_Click_Exit
End Sub 


  
  Riêng hàm If......then..... Else...tôi không cần giải thích nhé: Nếu được lồng để sử dụng cùng trong 1 nút mà ý ban hỏi
  Riêng hàm FTxt là cái hàm mà tác giả tự làm để tham chiếu đến table thông qua hàm dò tìm thôi không quan trọng.
  
  Bạn chỉ cần để ý tới : [DoCmd.MoveSize Chiều rộng, , chiều cao]
  
  Xong.

• RE: Tạo nút mở rộng thu nhỏ trong access

  nguyenhungcuong > 10-06-16, 12:39 PM

  Cảm ơn bạn nhiều.
• Bài trước Bài tiếp