• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Hiển thi % khi xuat dữ liệu ra excel tu access
  

  Viết bởi: Nguyen SVN 05-12-19, 02:49 PM Chuyên mục: Forms - Bài trả lời (3)

• em muốn tạo 1 cái form kích cỡ nhỏ nhằm mục đích khi xuất dữ liệu ra excel thì nó hiển thị % tiến độ thực hiện việc xuất dữ liệu đó
  
  không biết có anh nào đã từng làm hay có bản demo không cho em tham khảo với ạ
  


•   class module cho Form và SubForm
  

  Viết bởi: Nguyen SVN 04-12-19, 03:42 PM Chuyên mục: Forms - Bài trả lời (6)

• Em đang viết cái class module cho Form và Sub Form anh chi cho em xin ý kiến với ạ?
  
  ①FORM
  
  Mã PHP:

  Option Compare Database
Option Explicit

'----------------------------------------------------------------------------------------
'---・CREATE : 2019/11/16 12:30 Nguyen
'----------------------------------------------------------------------------------------
'****************************************************************************************
'  Event Definition
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  Close Button
'----------------------------------------------------------------------------------------
'---BeforeClose
Public Event BeforeClose(Cancel As Integer)

'----------------------------------------------------------------------------------------
'  Delete Button
'----------------------------------------------------------------------------------------
'---BeforeDelete
Public Event BeforeDelete(Cancel As Integer)
'---AfterDelete
Public Event AfterDelete()
'---ErrorDelete
Public Event ErrorDelete(Number As Long, Description As String)

'****************************************************************************************
'  Variables
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  Property
'----------------------------------------------------------------------------------------
'---Form
Private Form_ As ClsContinuousForms
'---CloseButton
Private WithEvents CloseButton_ As ClsCloseButton
'---DeleteButton
Private WithEvents DeleteButton_ As ClsDeleteButton
'---Authority Mode
Private authMode_ As String
'---Authority
Private authority_ As String
'---AuthorityFRM
Private authFrm_ As String
'---AuthorityCTL
Private authCtl_ As String

'****************************************************************************************
'  Property
'****************************************************************************************
'---Form
Property Get Form() As ClsContinuousForms
    Set Form = Form_
End Property
'---CloseButton
Property Get CloseButton() As ClsCloseButton
    Set CloseButton = CloseButton_
End Property
'---DeleteButton
Property Get DeleteButton() As ClsDeleteButton
    Set DeleteButton = DeleteButton_
End Property
'---Authority Mode
Property Let AuthMode(value As String)
    authMode_ = value
End Property
'---Authority
Property Get Authority() As String
    Authority = authority_
End Property
'---AuthorityFRM
Property Let AuthFrm(value As String)
    authFrm_ = value
End Property
'---AuthorityCTL
Property Let AuthCtl(value As String)
    authCtl_ = value
End Property

'****************************************************************************************
'  Constructor
'****************************************************************************************
Private Sub Class_Initialize()
    ' Default Value Property
    Set Form_ = New ClsContinuousForms
    Set CloseButton_ = New ClsCloseButton
    Set DeleteButton_ = New ClsDeleteButton
    authMode_ = "01"
    authority_ = "1"
End Sub

'****************************************************************************************
'  Event
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  CloseButton
'----------------------------------------------------------------------------------------
'---BeforeClose
Private Sub CloseButton__BeforeClose(Cancel As Integer)
    RaiseEvent BeforeClose(Cancel)
End Sub

'----------------------------------------------------------------------------------------
'    CloseButton
'----------------------------------------------------------------------------------------
'---BeforeDelete
Private Sub DeleteButton__BeforeDelete(Cancel As Integer)
    RaiseEvent BeforeDelete(Cancel)
End Sub
'---AfterDelete
Private Sub DeleteButton__AfterDelete()
    RaiseEvent AfterDelete
End Sub
'---Error Delete
Private Sub DeleteButton__ErrorDelete(Number As Long, Description As String)
    RaiseEvent ErrorDelete(Number, Description)
End Sub

'****************************************************************************************
'  Sub Function
'****************************************************************************************
'---Bind
Public Sub Bind(Frm As Access.Form)
    Form_.Bind Frm
    CloseButton_.Bind Frm
    DeleteButton_.Bind Frm

'    'Authority
'    If Nz(authFrm_) <> "" And Nz(authCtl_) <> "" Then
'        authority_ = MOD_Authority.RetAuthorityLV(authFrm_, authCtl_, False)
'        Select Case authMode_
'            Case "01"
'                Call MOD_Authority.ReflectFRM(Frm, authority_)
'            Case "02"
'                'do nothing
'            Case "03"
'                Call MOD_Authority.ReflectFRM03(Frm, authority_)
'            Case "SUB"
'                Call MOD_Authority.ReflectFRMSUB(Frm, authority_)
'        End Select
'    End If
End Sub 

  
  
  ②SUB　FORM
  
  Mã PHP:

  Option Compare Database
Option Explicit

'----------------------------------------------------------------------------------------
'---・CREATE : 2019/11/16 12:30 Nguyen
'----------------------------------------------------------------------------------------
'****************************************************************************************
'  Event Definition
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  Delete Button
'----------------------------------------------------------------------------------------
'---BeforeDelete
Public Event BeforeDelete(Cancel As Integer)
'---AfterDelete
Public Event AfterDelete()
'---ErrorDelete
Public Event ErrorDelete(Number As Long, Description As String)

'****************************************************************************************
'  Variables
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  Property
'----------------------------------------------------------------------------------------
'---Delete Button
Private WithEvents DeleteButton_ As ClsDeleteButton
'---Authority
Private authority_ As String
'---Authority FRM
Private authFrm_ As String
'---Authority CTL
Private authCtl_ As String

'****************************************************************************************
'  Property
'****************************************************************************************
'---Delete Button
Property Get DeleteButton() As ClsDeleteButton
    Set DeleteButton = DeleteButton_
End Property
'---Authority
Property Get Authority() As String
    Authority = authority_
End Property
'---Authority FRM
Property Let AuthFrm(value As String)
    authFrm_ = value
End Property
'---Authority CTL
Property Let AuthCtl(value As String)
    authCtl_ = value
End Property

'****************************************************************************************
'  Constructor
'****************************************************************************************
Private Sub Class_Initialize()
    ' Default Value Property
    Set DeleteButton_ = New ClsDeleteButton
    authority_ = "1"
End Sub

'****************************************************************************************
'  Event
'****************************************************************************************
'----------------------------------------------------------------------------------------
'  Delete Button
'----------------------------------------------------------------------------------------
'---Before Delete
Private Sub DeleteButton__BeforeDelete(Cancel As Integer)
    RaiseEvent BeforeDelete(Cancel)
End Sub
'---AfterDelete
Private Sub DeleteButton__AfterDelete()
    RaiseEvent AfterDelete
End Sub

'---Error Delete
Private Sub DeleteButton__ErrorDelete(Number As Long, Description As String)
    RaiseEvent ErrorDelete(Number, Description)
End Sub

'****************************************************************************************
'  Sub Function
'****************************************************************************************
'---Bind
Public Sub Bind(Frm As Access.Form)
    DeleteButton_.Bind Frm

'    'Authority
'    If Nz(authFrm_) <> "" And Nz(authCtl_) <> "" Then
'        authority_ = MOD_Authority.RetAuthorityLV(authFrm_, authCtl_, False)
'        Call MOD_Authority.ReflectFRMSUB(Frm, authority_)
'    End If
End Sub 

  
  


•   Cần phần mềm quản lý hồ sơ sức khỏe cán bộ
  

  Viết bởi: thinhnt10 02-12-19, 11:22 PM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp

• Hi All
  Như tiêu đề hiện tại em đang cần 1 phần mềm quản lý hồ sơ sức khỏe cán bộ cho cơ quan em. không biết trong gia đình mình ai có cho e xin thông tin rổ giá vào sđt 0989 882 556 cái này em đang cần rất gấp ạ. bác nào có hoặc có ai biết vui lòng liên hệ cho e theo sđt 0989 882 556 hoặc để lại sđt trong box này với nhé
  Xin cảm ơn ae đã quan tâm và xem bài ạ
  


•   Load dữ liệu từ subform lên unbound form
  

  Viết bởi: longkd_bvct@yahoo.com.vn 02-12-19, 05:00 PM Chuyên mục: Forms - Bài trả lời (3)

• chào mọi người ạ. 
  em tạo 1 form dạng main-sud. subform gồm các trường id, hoten, nam sinh, gioitinh, diachi, sdt. main form dạng unbound.
  làm thế nào để khi em click vào record trên subform thì nó tự động hiển thị record tương ứng trên unbound form ạ.
  


•   Phủ định 1 action trong chính event của control
  

  Viết bởi: mrsiro 29-11-19, 11:25 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• Mình có 1 label có màu đen, viết code khi click vào label đó thì đổi thành màu vàng, bây giờ mình muốn khi tiếp tục click vào label đó thì đổi thành màu đen, nếu click lần nữa thì lại màu vàng, cứ thế.
  
  Để làm việc này có nhiều cách: Khai báo 1 biến chung để ghi lại trạng thái click của label. Hoặc có thể viết code lấy ra giá trị của màu label đó.
  
  Mình muốn hỏi có cách nào khác không, trước mình có đọc đâu đó trên mạng đoạn code phủ định rất hay mà giờ ko nhớ.
  
  Ở trên là ví dụ label thôi, thực tế thì nếu có đoạn code phủ định thì ứng dụng rất tiện: Bấm phát mở form, bấm tiếp đóng form. Bấm mở toàn bộ group, bấm tiếp đóng toàn bộ group......
  



Chủ đề Mới nhất

Thơ Họa Nguyễn Thành Sáng... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 12:14 AM- » Bài trả lời: 350- » Lượt xem: 13,234

Kiểm tra kiểu kết nối ODB... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AnNguyen-06-12-19, 06:05 PM- » Bài trả lời: 2- » Lượt xem: 76

changkhoonline77 có Ứng d... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thuyyeu99-06-12-19, 03:59 PM- » Bài trả lời: 17- » Lượt xem: 291

thêm tính năng cho diễn đ... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: Noname-06-12-19, 09:32 AM- » Bài trả lời: 1- » Lượt xem: 85

Hiển thi % khi xuat dữ li... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyen SVN-05-12-19, 04:09 PM- » Bài trả lời: 3- » Lượt xem: 75

class module cho Form và ... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-05-12-19, 12:07 PM- » Bài trả lời: 6- » Lượt xem: 122

Cach đưa 1 đoạn code lên ... -Chuyên mục: Vấn đề chung-Đăng bởi lần cuối: Xuân Thanh-04-12-19, 11:21 AM- » Bài trả lời: 3- » Lượt xem: 95

Dùng DAO để thêm, xóa, sử... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ongke0711-03-12-19, 09:34 PM- » Bài trả lời: 9- » Lượt xem: 2,127

[Demo-Phần 2] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: thuyyeu99-03-12-19, 06:10 PM- » Bài trả lời: 55- » Lượt xem: 8,025

[Demo Phần 1] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: thuyyeu99-03-12-19, 06:02 PM- » Bài trả lời: 32- » Lượt xem: 4,594




Diễn đàn Thống kê

» Thành viên: 3,476 » Thành viên mới nhất: adatsm85 » Các chủ đề diễn đàn: 8,916 » Các bài viết diễn: 40,151 Thống kê đầy đủ