Đá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
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 12 1,305 6 Giờ trước
Bài mới nhất: ongke0711
Photo Hướng Dẫn Cách tạo nhiều Button cho Continuous Form jeck09nt 3 186 27-02-19, 08:36 AM
Bài mới nhất: lmthu
  [Help] Filter trong .ACCDB Cuong Servenet 1 184 08-02-19, 09:04 AM
Bài mới nhất: ongke0711
  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 246 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 307 09-01-19, 12:19 AM
Bài mới nhất: khuuquytrung

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