Đá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
  [Hỏi] Cách tạo Cbo để lọc các mặt hàng trong Sub Form samacxanh 3 256 17-10-18, 10:33 AM
Bài mới nhất: vulhu06
  Tạo thêm trường số thứ tự trong subform? feeling 1 119 05-10-18, 08:08 AM
Bài mới nhất: cpucloi
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 645 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Help] Sự kiện gotforcus và after update ko đúng trong Main-sub form NguyenDungAnh 9 388 09-09-18, 11:03 PM
Bài mới nhất: NguyenDungAnh
  [Help] Khoá phím shift + khóa Design View trong access Cuong Servenet 1 188 22-08-18, 02:18 PM
Bài mới nhất: tranthanhan1962

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