Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cach Tao Class Trong VBA
#1
Chia se cach tao class  nút đóng cho form nhé anh.  Bác nào có cách nào nữa thì chia sẻ em biết với nhé

[code]Option Compare Database
Option Explicit
Public Event BeforeClose(Cancel As Integer)
Private WithEvents MyFrm As Access.Form
Private WithEvents CloseBtn As Access.CommandButton
Private name_ As String
Property Let Name(value As String)
    name_ = value
End Property

Private Sub Class_Initialize()
    name_ = "ketthuc"
End Sub
Private Sub CloseBtn_Click()
    Dim Cancel As Integer

    RaiseEvent BeforeClose(Cancel)

    If Cancel Then
        Exit Sub
    End If

    DoCmd.Close acForm, MyFrm.Name
End Sub

Public Sub Bind(Frm As Access.Form)
    Set MyFrm = Frm
    Dim ctl As Access.Control
    For Each ctl In MyFrm.Controls
        Select Case ctl.ControlType
            Case acCommandButton
                Select Case ctl.Name
                    Case name_
                        Set CloseBtn = ctl
                        CloseBtn.OnClick = "[EVENT PROCEDURE]"
                        Exit For
                End Select
        End Select
    Next ctl
End Sub
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Xuân Thanh
#2
thiết kế class có tác dụng gì vậy bạn
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
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
  Demo Form nhập liệu với bộ nút lệnh Tiến - Lùi - Nhập - Sửa - Xoá (dùng Class module) ongke0711 0 109 11-01-19, 07:46 PM
Bài mới nhất: ongke0711
  Dùng phím mũi tên bàn phím để di chuyển tiến lùi record (Class module) ongke0711 1 202 09-01-19, 12:19 AM
Bài mới nhất: khuuquytrung
  Sắp xêp, lọc dữ liệu trong Continuous Form dùng Class ongke0711 7 351 04-01-19, 01:55 AM
Bài mới nhất: ongke0711
  Câu lệnh nào ẩn button trong form? William 15 1,428 26-12-18, 12:39 PM
Bài mới nhất: ongke0711
  [Help] Đánh số thứ tự các dòng lệnh trong VBA Cuong Servenet 5 266 07-12-18, 08:20 AM
Bài mới nhất: Cuong Servenet

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối