Đá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
  Chuyển đổi Access 97 sang Access 2007 huuduy.duy 6 341 11-08-17, 08:49 PM
Bài mới nhất: tranthanhan1962
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 1 98 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 581 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962
  Sửa các VBA và macaro khi chuyển access 2003 sang 2007 thanhtruong 9 515 24-06-17, 01:15 AM
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 8 939 23-06-17, 03:25 PM
Bài mới nhất: thanhtruong

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ơ