Đá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
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 108 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 7 432 05-08-16, 10:53 PM
Bài mới nhất: hungefi
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 263 29-07-16, 11:36 PM
Bài mới nhất: toancvp

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ơ