Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo nút mở rộng thu nhỏ trong access
#11
(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.
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
#12
Cảm ơn bạn nhiều.
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
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
  Xin video hướng dẫn access cơ bản nhất tuongtndg 1 71 09-12-17, 10:16 PM
Bài mới nhất: maidinhdan
  Nhiều người cùng phát triển 1 ứng dụng Access killitmore 4 145 08-11-17, 01:24 PM
Bài mới nhất: cpucloi
  Phát hiện nhiều sự tào lao của Access 2016 tranthanhan1962 12 334 03-11-17, 11:16 PM
Bài mới nhất: DooHoaangPhuuc
  Hướng Dẫn Lưu 1 file access sẽ về 2 thư mục folder thanhtruong 14 1,643 30-10-17, 11:39 AM
Bài mới nhất: ongke0711
  [Help] Import từ MS Access vào phần mềm Bravo tuanvn291089 1 104 24-10-17, 09:03 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ơ