Đá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] link data access 32bit từ máy sử dụng access 64bit thucgia 1 78 25-03-17, 12:25 PM
Bài mới nhất: cpucloi
  Bạn nào có công cụ sửa lỗi File access cho mình với ledangvan 0 74 14-02-17, 11:13 AM
Bài mới nhất: ledangvan
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 12 2,301 10-02-17, 10:57 AM
Bài mới nhất: nguyenduykhanhpt
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 130 15-01-17, 01:00 PM
Bài mới nhất: ongke0711
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 218 09-01-17, 06:19 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ơ