Thủ Thuật Access - Class Moudules

danh sách các hàm VBA từ Allenbrowne

Tue, 28 Nov 2023 03:21:30 +0000

Danh sách chỉ mục này liệt kê mã VBA
Microsoft Access tips: VBA Function index (allenbrowne.com)

Cách chẻ từng câu trong đoạn thêm vào bảng

Mon, 27 Mar 2023 02:45:48 +0000

Chào các bạn,

Mình có tạo một form gồm : 1 textbox, 1subform và 1 nút lệnh
1. Mình muốn nhận được code cho nút lệnh để chẻ từng câu trong đoạn textbox thành từng câu rồi thêm vào bảng "Tsplit".
2. Hiện tại mình làm bằng tay copy từng câu rồi dán vào bảng.
3. Rất mong nhận được sự trợ giúp từ các bạn.

Cảm ơn.
Đính kèm: File minh hoa

Hiện Form và Module trong file mdb bị ẩn

Wed, 17 Nov 2021 07:13:49 +0000

Các bạn cho mình hỏi, mình có file database access bị ẩn hết Form và Module mà không biết có cách nào để hiển thị được.
Các bạn có Tool nào có thể mở được giúp mình.
Xin cảm ơn!

Làm sao kiểm tra những ký tự là chữ hay số

Fri, 31 Jul 2020 01:53:47 +0000

NHờ anh em giúp đỡ. Mình có 1 chuổi ký tự kiểu string, ví dụ "abcd123efg" mình lấy ra ký tự vị trí số 7 và kiểm tra nó là số hay là chữ. Mục đích mình nếu là sô thì mình đổi ký tự x này thành số này bằng cách dùng hàm CInt(x). Nhưng nếu là chữ thì bỏ qua.
Vấn đề của mình là không biết làm sao kiểm tra ký tự đó là số hay là chữ.
Mong mọi người giúp đỡ. Chân thành cảm ơn.

Kiểm tra code bằng F8. Không chạy được

Sat, 13 Jun 2020 03:01:30 +0000

Mình làm chường trình thời gian đầu mình đánh dấu kiểm tra code chạy bằng F8 (không biết gọi cái tên gi?) chạy rất tốt. rồi mình làm riết bây giờ nó không chay được, sau khi đánh dấu và nó không chạy nữa và ra kết quả nếu không có lỗi còn nếu có lỗi nó im re. Mình mở phiên bản cũ thì nó chạy F8 được. Nó bị gì vậy xin mọi người giúp đỡ. Cảm ơn nhiều.

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)

Fri, 11 Jan 2019 11:46:33 +0000

Trước đây cũng đã có các bài viết chia sẻ code các nút lệnh Tiến - Lùi - Sửa - Xoá của bác tranthanhan1962,
XuanThanh v.v.. và viết trong Standard module sử dụng rất hiệu quả.
Link tham khảo:
http://thuthuataccess.com/forum/post-395...l#pid39513
http://thuthuataccess.com/forum/thread-8467.html

Lần này tôi chia sẻ với các bạn một Form (Unbound) nhập liệu với các nút lệnh cơ bản nhất và đặc biệt là viết trong Class module.

Tại sao dùng Class module:
- Cũng giống như standard module là bạn có thể sử dụng (gọi) lại ở bất kỳ form nào mà không cần phải viết lại cho từng form.
- Riêng với Class module thì các hàm, thủ tục chỉ khởi chạy khi Form gọi nó và sẽ thoát và giải phóng khỏi bộ nhớ khi Form đóng lại. Do đó ứng dụng chạy sẽ chiếm ít tài nguyên hệ thống hơn là các hàm, thủ tục lưu trong standard module. Khi ứng dụng chạy thì toàn bộ các hàm trong standard module sẽ tự động load hết lên memory.
- Dùng Class thì số dòng code viết cho từng Form sẽ được giảm đi rất nhiều.
- Đối với các Form với nhiều Control xử lý phức tạp và lặp đi lặp lại nhiều thì dùng Class sẽ hiệu quả hơn (như ví dụ trong bài post trước của tôi về Form với các nút Sort và Filter theo từng Field).
- Thực ra không phải trường hợp nào bạn cũng dùng class. Có những sự kiện đơn giản chỉ cần dùng form module hoặc standard module là đủ xài rồi. Nếu dùng class thì hơi quá, giống như là dùng "Dao mổ bò để giết gà" vậy.
- Bạn có thể tham khảo thêm về Class module trong các link sau:
http://thuthuataccess.com/forum/thread-5297.html
http://www.kallal.ca/Articles/WhyClass.html
http://www.cpearson.com/excel/classes.aspx

Trở lại Form demo này. Tuy là demo cơ bản nhưng tôi nghĩ nó cũng khá đầy đủ cho một form nhập liệu để các bạn tham khảo.
- Form bao gồm 11 nút lệnh cơ bản: Thêm - Sửa - Xoá - Huỷ - Tìm kiếm - ...
- Xuất file sang Word (Pdf).
- Có form tìm kiếm theo tuỳ chọn Field.
- Bẫy các lỗi nhập liệu.

Qui định thiết kế trong Form:
- Các nút lệnh đặt tên có các ký tự đầu là "btn" -> button. Vd: btnAdd. Bạn không được thay đổi tên (name) các nút lênh vì có liên quan đến code gọi trong class. Nếu muốn đổi thì phải đổi đồng bộ luôn trong class.
- Các Textbox dùng để nhập liệu phải đặt thuộc tính Tag=Yes. Mục đích: để code xác định những textbox nào trên form để lấy dữ liệu cũng như gán dữ liệu cho nó. Các textbox này cũng đặt Name trùng với tên Field.

Code cho class module: đặt tên clsDataEntry

Mã PHP:
Option Explicit

Private mvarButtons(11) As String
Private WithEvents mctlForm As Access.Form
Private mlblLabelToUpdate As Access.Label
Private mlngTotalRecords As Long
Private mrstFormRecordset As DAO.Recordset
Private mstrSQL As String
Private mvarBookmark As Variant
Private mctlFocusSave As Control
Private mblnAddMode As Boolean
Private mblnEditMode As Boolean
Private mblnDisplayRecordPos As Boolean
Private mstrSourceTable As String
Private mstrPrimaryKey As String

Private Const mconBGAddNew = 13691373    'RGB(237, 233, 208)
Private Const mconBGSave = 16777215

Private Sub Class_Initialize()

' Muc dich: Gán các nút lenh (Navigation buttons) vào Array de goi trong hàm "processCMD"
'           Dùng de enabled/disable các nút lenh tuy theo.
' Chú ý:    Ten các nut lenh trong Form phai dong bo voi code trong class này.Vd: "btnFirst".
'           So luong các nut lenh cung phai nhat quán.

   On Error GoTo HandleError

   mvarButtons(0) = "btnFirst"
   mvarButtons(1) = "btnPrevious"
   mvarButtons(2) = "btnNext"
   mvarButtons(3) = "btnLast"
   mvarButtons(4) = "btnAdd"
   mvarButtons(5) = "btnEdit"
   mvarButtons(6) = "btnSave"
   mvarButtons(7) = "btnDelete"
   mvarButtons(8) = "btnUndo"
   mvarButtons(9) = "btnFind"
   mvarButtons(10) = "btnExit"
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Class_Initialize", "clsDataEntry")
End Sub

Private Sub Class_Terminate()

   On Error GoTo HandleError
   If Not mrstFormRecordset.EOF Then mrstFormRecordset.Close
   Set mrstFormRecordset = Nothing
   Set mctlFocusSave = Nothing
   Set mctlForm = Nothing
   Set mlblLabelToUpdate = Nothing
   Erase mvarButtons
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Class_Terminate", "clsDataEntry")
End Sub

Private Sub InitialiseData()

'   Lay du lieu va hien thi len form
'
   On Error GoTo HandleError
   Dim db As DAO.Database

   Set db = CurrentDb
   Set mrstFormRecordset = db.OpenRecordset(mstrSQL)
   With mrstFormRecordset
       If .RecordCount > 0 Then
           If .EOF Then
               mlngTotalRecords = 0
           Else
               .MoveLast
               mlngTotalRecords = .RecordCount
               .MoveFirst
               mvarBookmark = .Bookmark  'Luu vi tri
               Call DisplayData
           End If
       End If
   End With


   Call ToggleControls(True)
   Call UpdateButtonsState
   If mlngTotalRecords = 0 Then
       Call UpdateLabel("0 / 0")
   Else
       Call UpdateLabel("1 / " & mlngTotalRecords)
   End If
   Set db = Nothing
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "InitialiseData", "DataEntryOne")
End Sub

Private Function KeyAutoIncrement(strField) As Boolean

' Tra ve gia tri True neu Primary Key là AutoNumber.
' Dung de thiet lap cac thuoc tinh riêng cho Field này trong Form.Vd: Enabled:No, Background...

   On Error GoTo HandleError
   If (mrstFormRecordset.Fields(strField).Attributes And dbAutoIncrField) Then
       KeyAutoIncrement = True
   Else
       KeyAutoIncrement = False
   End If
   Exit Function

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "KeyAutoIncrement", "clsDataEntry")
End Function

Private Sub ToggleControls(blnVal As Boolean)

' Muc dich:  Locked/ Unlocked các textbox nhap lieu

   On Error GoTo HandleError
   Dim fld As Field
   Dim ctl As Control
   Dim strControlName As Variant

   For Each fld In mrstFormRecordset.Fields
       Set ctl = mctlForm.Controls(fld.Name)
       If ctl.Tag = "yes" Then    'Phai thiet lap Tag: Yes cho các textbox dùng nhap lieu.
           'Bo qua Field Primary key neu nó là Autonumber
           If Not KeyAutoIncrement(fld.Name) Then
               ctl.Locked = blnVal
           End If
       End If
   Next fld

   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "ToggleControls", "clsDataEntry")
End Sub

Public Property Set LabelToUpdate(ByVal lblVal As Label)
'  Khai bao doi tuong label nào dùng de hien thi thong tin record navigation
   On Error GoTo HandleError
   Set mlblLabelToUpdate = lblVal
   
   Exit Property
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Set LabelToUpdate", "clsDataEntry")
End Property

Private Sub UpdateLabel(strMsg As String)

'  Cap nhat noi dung lable hien trang record

   On Error GoTo HandleError
   If mblnDisplayRecordPos Then
       mlblLabelToUpdate.Caption = strMsg
   End If
   Exit Sub
   
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "UpdateLabel", "clsDataEntry")
End Sub

Public Sub ProcessCMD(intIndex As Integer)

' Muc dich: Duoc goi cho moi nút lenh (Them, Sua, Xoa, tien, lùi...).
'           indx: Tham so xác dinh nút nào duoc bam.

   On Error GoTo HandleError
   Select Case intIndex
   Case 0  'First
       mrstFormRecordset.MoveFirst
       Call ProcessDisplay("1 / " & mlngTotalRecords)
   
   Case 1  'Previous
       With mrstFormRecordset
           .MovePrevious
           Call ProcessDisplay(.AbsolutePosition + 1 & " / " & mlngTotalRecords)
       End With
   
   Case 2  'Next
       With mrstFormRecordset
           .MoveNext
           Call ProcessDisplay(.AbsolutePosition + 1 & " / " & mlngTotalRecords)
       End With
   
   Case 3  'Last
       mrstFormRecordset.MoveLast
       Call ProcessDisplay(mlngTotalRecords & " / " & mlngTotalRecords)
   
   Case 4  'AddNew
       Call ToggleControls(False)    ' unlock tat ca textbox nhap lieu
       Call FormatControls(mconBGAddNew)  'Dinh dang background textbox nhap lieu khi them moi
       mblnAddMode = True
       If mlngTotalRecords > 0 Then
           'Luu vi tri record truoc khi AddNew. Neu Undo thi se tra vè vi tri cu.
           mvarBookmark = mrstFormRecordset.Bookmark
       Else
           mvarBookmark = ""
       End If
       Call UpdateLabel("Dòng m" & ChrW(7899) & "i")
       Call UpdateButtonsState
       Call ClearData
   
   Case 5  'Edit
       '.LockEdits = True  ' Neu trong moi truong da nguoi dung (multi users) thì dùng .LockEdits de bay loi Edit
       Call ToggleControls(False)
       mblnEditMode = True
       Call FormatControls(mconBGAddNew)
       Call UpdateButtonsState
   
   Case 6  'Save
       Call ToggleControls(True)
       If mblnAddMode Then
           Call AddNewRecord
           mlngTotalRecords = mlngTotalRecords + 1
           Call UpdateLabel(mlngTotalRecords & " / " & mlngTotalRecords)
       Else
           If mblnEditMode Then
               Call EditRecord
           End If
       End If
       Call FormatControls(mconBGSave)
       mblnAddMode = False
       mblnEditMode = False
       Call UpdateButtonsState
   
   Case 7  'Delete
       If MsgBoxUni("B" & ChrW(7841) & "n mu" & ChrW(7889) & "n xóa dòng này?", _
                 vbYesNo, "Xác nh" & ChrW(7853) & "n xóa dòng") = vbYes Then
           Call DeleteRecord
           Call UpdateButtonsState
       End If
   
   Case 8  'Undo
       Call UndoEdit
       Call UpdateButtonsState
   
   'Case 9  'Find
       'Thiet lap rieng frmFind tùy tung form
       
   Case 10  'Exit
       DoCmd.Close acForm, mctlForm.Name
   End Select
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "ProcessCMD", "clsDataEntry")
End Sub

Public Sub GotoRecord(pkey As Variant)

' Muc dich: Di chuyen toi record chi dinh. (Standard Search)
'        pkey: Primary key value

   On Error GoTo HandleError
   With mrstFormRecordset
       .FindFirst mstrPrimaryKey & "=" & pkey
       Call ProcessDisplay(.AbsolutePosition + 1 & " / " & mlngTotalRecords)
   End With
   Exit Sub
   
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "GoToRecord", "clsDataEntry")
End Sub

Private Sub ProcessDisplay(strMsg As String)
   On Error GoTo HandleError
   Call DisplayData
   Call UpdateLabel(strMsg)
   Call UpdateButtonsState  'Phai setfocus vào control khac truoc khi en/disable
   Exit Sub
   
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "ProcessDisplay", "clsDataEntry")
End Sub

Private Sub UndoEdit()

'  Dùng Unbound form nen chi can tra vè hien trang cu, chua luu du lieu vao table

   On Error GoTo HandleError

   Call ToggleControls(True)
   Call FormatControls(mconBGSave)
   If mlngTotalRecords > 0 Then
       If mblnAddMode Then    ' Tra ve vi tri record cu truoc khi AddNew
           mrstFormRecordset.Bookmark = mvarBookmark
           Call UpdateLabel(mrstFormRecordset.AbsolutePosition + 1 & " / " & mlngTotalRecords)
       End If
       Call DisplayData
   Else
       Call ClearData
       Call UpdateLabel("0 / 0")
   End If
   mblnAddMode = False
   mblnEditMode = False

   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "UndoEdit", "clsDataEntry")
End Sub

Private Sub AddNewRecord()

'  Luu record moi vao table

   On Error GoTo HandleError
   Dim ctl As Control
   Dim fld As DAO.Field
   Dim varField As Variant
   Dim indx As Integer

   With mrstFormRecordset
       .AddNew
       For Each fld In mrstFormRecordset.Fields
           Set ctl = mctlForm.Controls(fld.Name)
           If ctl.Tag = "yes" Then    'Chi cap nhat du lieu tu textbox có Tag=yes
               varField = ctl.Value
               If KeyAutoIncrement(fld.Name) Then
                   mctlForm.Controls(fld.Name) = .Fields(fld.Name)
               Else
                   'Chuyen textbox co zero length thành Null neu can
                   mrstFormRecordset(fld.Name) = IIf(varField = "", Null, varField)
               End If
           End If
       Next fld

       .Update
       .MoveLast    'Di chuyen den record vua moi them
   End With

   RequerySubform

   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "AddNewRecord", "clsDataEntry")
End Sub

Private Sub EditRecord()

   On Error GoTo HandleError
   Dim ctl As Control
   Dim fld As Field
   Dim varField As Variant
   With mrstFormRecordset
       .Edit
       For Each fld In mrstFormRecordset.Fields
           Set ctl = mctlForm.Controls(fld.Name)
           If ctl.Tag = "yes" Then
               If Not KeyAutoIncrement(fld.Name) Then
                   varField = TriM$(Nz(ctl.Value))
                   varField = IIf(Len(varField) = 0, Null, varField)
                   mrstFormRecordset(fld.Name) = varField
               End If
           End If
       Next fld
       .Update
   End With

   RequerySubform

   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "EditRecord", "clsDataEntry")
End Sub

Private Sub DeleteRecord()

'  Dùng phuong thuc .Delete cua DAO Recordset.
'  Chi dùng duoc cho Recordset dang Dynaset, khong duoc cho Snapshot
'  DAO Recordset tu dong Delete ma khong thong bao. Nó khong tu dong di chuyen qua record tiep nên phai .MoveNext

   On Error GoTo HandleError
   Dim lngAbsolutePosition As Long


   With mrstFormRecordset
       lngAbsolutePosition = .AbsolutePosition
       .Delete
       mlngTotalRecords = mlngTotalRecords - 1
       If mlngTotalRecords = 0 Then    'Vua Xoa record cuôi cùng cua recordset
           Call ClearData
           Call UpdateLabel("0 / 0")
       Else
           If lngAbsolutePosition = mlngTotalRecords Then    'Là dong cuoi cùng
               .MovePrevious
           Else
               lngAbsolutePosition = lngAbsolutePosition + 1
               .MoveNext
           End If
           Call DisplayData
           Call UpdateLabel(lngAbsolutePosition & " / " & mlngTotalRecords)
       End If
   End With

   Call RequerySubform

   Exit Sub
HandleError:
   If Err.Number = 3200 Then
       MsgBoxUni "B" & ChrW(7841) & "n không th" & ChrW(7875) & " xóa dòng này!" & vbCrLf & ChrW(272) & "ã có d" & ChrW(7919) & " li" & ChrW(7879) & "u phát sinh liên quan.", vbExclamation, "C" & ChrW(7843) & "nh báo."
   Else
       Call basHandleError.LogError(Err.Number, Err.Description, "", "DeleteRecord", "clsDataEntry")
   End If
End Sub

Private Sub DisplayData()

' Hien thi Record hien tai len Form.

   On Error GoTo HandleError
   Dim ctl As Control
   Dim fld As Field
   Dim indx As Integer

   For Each fld In mrstFormRecordset.Fields
       Set ctl = mctlForm.Controls(fld.Name)
       If ctl.Tag = "yes" Then
           If mrstFormRecordset(fld.Name).Type = dbDate Then
               ctl.Value = Format(mrstFormRecordset(fld.Name), "dd/mm/yyyy")
           Else
               ctl.Value = mrstFormRecordset(fld.Name)
           End If
       End If
   Next fld
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "DisplayData", "clsDataEntry")
End Sub

Private Sub ClearData()

'  Xoa noi dung textbox

   On Error GoTo HandleError
   Dim ctl As Control
   Dim fld As Field
   For Each fld In mrstFormRecordset.Fields
       Set ctl = mctlForm.Controls(fld.Name)
       If ctl.Tag = "yes" Then
           ctl.Value = ""
       End If
   Next fld
   Exit Sub

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "ClearData", "clsDataEntry")
End Sub

Private Sub RequerySubform()
   Dim ctl As Control
   For Each ctl In mctlForm.Controls
       If ctl.ControlType = acSubform Then
           ctl.Requery
       End If
   Next ctl
End Sub

Private Sub FormatControls(lngColor As Long)

'   Dinh dang background cua các textnhap lieu: màu vàng khi thêm mói, tra vè nhu cu khi Save.

   On Error GoTo HandleError
   Dim ctl As Control
   Dim fld As Field

   For Each fld In mrstFormRecordset.Fields
       Set ctl = mctlForm.Controls(fld.Name)
       With ctl
           If .Tag = "yes" Then
               ' Bo qua Field Autonumber
               If Not KeyAutoIncrement(fld.Name) Then
                   .BackColor = lngColor
               End If
           End If
       End With
   Next fld
   DoEvents

FormatControls_Exit:
   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "FormatControls", "clsDataEntry")
   Resume FormatControls_Exit
End Sub

Private Sub UpdateButtonsState()

' Muc dich: Enabled/ Disabled các nút lenh (Thêm, Sua, Xóa...)
'           1=Enabled; 0=Disabled.
' Gán hàng loat (11 nút lenh) dua theo chuoi 11 ký tu 0 1 (strButtonState).

   On Error GoTo HandleError
   mctlFocusSave.SetFocus
   If mblnAddMode Then    'Thêm record moi
       Call EnableDisableButtons("00000010100")  'Vd: Enable nút Sua, Huy (index 6,8 =1)
   ElseIf mblnEditMode Then    'Sua record
       Call EnableDisableButtons("00000010100")
   Else    'Hien trang binh thuong
       With mrstFormRecordset
           If (mlngTotalRecords = 0) Then
               Call EnableDisableButtons("00001000001")   'Enable nút Them, Dóng
           ElseIf mlngTotalRecords = 1 Then
               Call EnableDisableButtons("00001101001")   'Them, Sua, Xoa
           ElseIf .AbsolutePosition = 0 Then    'dang o record dau tien
               Call EnableDisableButtons("00111101011")
           ElseIf (.AbsolutePosition = mlngTotalRecords - 1) Then    ' dang o record cuoi
               Call EnableDisableButtons("11001101011")
           Else
               Call EnableDisableButtons("11111101011")  ' dang o các record giua
           End If
       End With
   End If
   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "UpdateButtonsState", "clsDataEntry")
End Sub

Private Sub EnableDisableButtons(strButtonState As String)

' Muc dich:   Enable/ Disable hàng loat Array (11 nút lenh) dua theo chuoi 11 ký tu (0, 1) (strButtonState).
'             1=enabled; 0=disabled

   On Error GoTo HandleError
   Dim intindx As Integer
   Dim intButtonLength As Integer
   Dim strEnabled As String

   strButtonState = TriM$(strButtonState)
   intButtonLength = Len(strButtonState)
   For intindx = 1 To intButtonLength
       strEnabled = Mid$(strButtonState, intindx, 1)
       With mctlForm.Controls(mvarButtons(intindx - 1))
           If .Enabled <> (strEnabled = "1") Then
               .Enabled = (strEnabled = "1")
           End If
       End With
   Next intindx
   DoEvents

EnableDisableButtons_Exit:
   On Error Resume Next
   Exit Sub
HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "EnableDisableButtons", "clsDataEntry")
   Resume EnableDisableButtons_Exit
End Sub

Public Property Let FormRecordsetSQL(ByVal sSQL As String)

   On Error GoTo HandleError
   mstrSQL = sSQL    ' Truyen cau lenh SQL làm Form Recordset
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Let FormRecordsetSQL", "clsDataEntry")
End Property

Public Property Set FocusControl(ByVal cValue As Control)
' Khi thiet lap Disable control bat buoc phai focus vào 1 control khác nó.

   On Error GoTo HandleError
   Set mctlFocusSave = cValue
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Set FocusControl", "clsDataEntry")
End Property

Public Property Let SourceTable(ByVal sSourceTableName As String)
'  Gan thuoc tinh nay de du phong. Chua dùng den trong class này.

   On Error GoTo HandleError
   mstrSourceTable = sSourceTableName
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Let SourceTable", "clsDataEntry")
End Property

Public Property Get SourceTableName()

   On Error GoTo HandleError
   SourceTableName = mstrSourceTable
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Get SourceTable", "clsDataEntry")
End Property

Public Property Let DisplayRecordPosition(ByVal blnShowHide As Boolean)

   On Error GoTo HandleError
   mblnDisplayRecordPos = blnShowHide
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Let DisplayRecordPosition", "clsDataEntry")
End Property

Public Property Let PrimaryKey(ByVal sPKFieldName As String)

   On Error GoTo HandleError
   mstrPrimaryKey = sPKFieldName
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Let PrimaryKey", "clsDataEntry")
End Property

Public Property Set FormCtl(ByVal frmVal As Access.Form)
'frmVal: Gan Form chua cac NavButton xu ly cho class

   On Error GoTo HandleError
   Set mctlForm = frmVal
   Call InitialiseData
   Exit Property

HandleError:
   Call basHandleError.LogError(Err.Number, Err.Description, "", "Property Set FormCtl", "clsDataEntry")
End Property 

Code cho Form thì chỉ cần khởi tạo class ở sự kiện Form_Open là các nút lệnh có thể chạy: tham khảo thêm trong file.

Link demo: http://www
.mediafire.com/file/rzynj8tcera43e3/DataEntry_NavigationButtons_Class.rar/file

Class ADO - Kết nối SQL Server (Demo)

Fri, 02 Jun 2017 08:42:21 +0000

Sau khi bạn Dân gợi ý mình nên ngâm cứu chuyển qua lập trình ADO kết hợp với SQL Server (trước giờ chỉ dùng DAO) thì mình cũng đã tìm tòi, sưu tầm, học hỏi…nên cũng bắt đầu nắm được một số cái cơ bản của việc sử dụng thư viện ADO với provider OLEDB để kết nối với SQL server. Bên cạnh đó nó cũng kết nối với nhiều loại CSDL khác.
Nay mình chia sẽ cái Class ADO dùng kết nối với 3 loại CSDL: SQLServer, Access, Excel
- Class này cũng là dạng cơ bản chi có cái tích hợp thêm các chuỗi kết nối tùy từng loại CSDL sẽ đưa ra chuỗi Connection tương ứng. Mình thấy nó cũng phù hợp vì trong 1 ứng dụng thường sẽ có phần lấy dữ liệu từ Excel nên đưa vô sẳn class cho tiện.
- Class có hàm để chạy các Stored Procedure cũng như các câu lệnh SQL.
- Mình có sử dụng kỹ thuật kiểm tra IP của bạn Dân để kiểm tra Server online hay không trước khi chạy kết nối chứ không nó chạy mất mấy phút rồi mới báo lỗi kết nối. Bên cạnh đó cũng kiểm tra đường dẫn OK không đối với kết nối máy trong mạng LAN.
- Tôi dùng CSDL Northwind và các stored proc của nó để test trong demo này. Các bạn chạy file "SQL2000SampleDb.msi" đính kèm trong folder để cài dữ liệu mẫu của Northwind lên SQL Server nhé.

Tuy nhiên có 1 vấn đề này cần các bạn hỗ trợ đó là: mình không truyền được tham số (parameter) dạng ngày\tháng cho store proc trong demo này (stored proc 4, 5 trong demo). Các tham số khác (2, 3 tham số) thì truyền bình thường và chạy tốt. Các bạn kinh nghiệm qua vụ này hướng dẫn sửa giùm nhe. Loay hoay với nó suốt mà làm chưa được.

Cập nhật:
Vụ này mình đã sửa được rồi. Đó là do tên của Stored Procs có khoảng trắng nên nó báo lỗi chứ không phải do tham số truyền vào sai.

Các bạn xem qua và đóng góp ý kiến để học hỏi thêm nhé.

Code cho Class ADO.

Mã PHP:
Option Explicit

Private mobjConn                    As Object 'ADODB.Connection

Private mblnIntegratedSecurity      As Boolean
Private mstrModuleName              As String   'Dung trong thong bao loi, error trap
Private mstrConnectionString        As String
Private mstrCurrentServer           As String
Private mstrCurrentDatabase         As String
Private mstrDatabaseType            As DBaseType

Private mlngRecordCount             As Long

Private Const adUseClient           As Long = 3
Private Const adLockReadOnly        As Long = 1
Private Const adStateOpen           As Long = 1
Private Const adCmdStoredProc       As Long = 4
Private Const adParamOutput         As Long = 2
Private Const adOpenDynamic         As Long = 2
Private Const adOpenstatic          As Long = 3

Public Enum DBaseType
   dbSQLServer = 1
   dbAccess = 2
   dbExcel = 3
End Enum

Public Enum EditMode
   ReadOnly = 0
   EditAddDelete = 1
End Enum

Private Sub Class_Initialize()
    
   mstrModuleName = "clsADOConnectDB"
   'Set mobjConn = New ADODB.Connection
   Set mobjConn = CreateObject("ADODB.Connection")
    
End Sub

Private Sub Class_Terminate()
   On Error Resume Next
   mobjConn.Close
   Set mobjConn = Nothing
   On Error GoTo 0
    
End Sub

Public Property Get ConnectionString() As String
   ConnectionString = mstrConnectionString
End Property

Public Property Let ConnectionString(ByVal NewValue As String)
   mstrConnectionString = NewValue
End Property

Public Property Get CommandTimeOut() As Integer
   CommandTimeOut = mobjConn.CommandTimeOut
End Property

Public Property Let CommandTimeOut(ByVal NewTimeOut As Integer)
   mobjConn.CommandTimeOut = NewTimeOut
End Property

Public Property Get CurrentDatabase() As Integer
    'Read-only property
   CurrentDatabase = mstrCurrentDatabase
End Property

Public Property Get CurrentServer() As String
    'Read-only property
   CurrentServer = mstrCurrentServer
End Property

Public Property Get DatabaseType() As DBaseType
   DatabaseType = mstrDatabaseType
End Property

Public Property Let DatabaseType(ByVal NewValue As DBaseType)
   mstrDatabaseType = NewValue
End Property

Public Property Get IntegratedSecurity() As Boolean
   IntegratedSecurity = mblnIntegratedSecurity
End Property

Public Property Let IntegratedSecurity(ByVal NewValue As Boolean)
   mblnIntegratedSecurity = NewValue
End Property

Public Sub CloseDB()
'Dong ket noi toi Database
   If Not mobjConn Is Nothing Then
       If (mobjConn.State And adStateOpen) = adStateOpen Then
           mobjConn.Close
           Set mobjConn = Nothing
       End If
   End If
End Sub

Public Function ConnectDB(Optional ByVal DatabaseType As DBaseType = 1, _
                         Optional ByVal TargetServer As String = "", _
                         Optional ByVal TargetDatabase As String = "", _
                         Optional ByVal IntegratedSecurity As Boolean = False) As Boolean
'------------------------------------------------------------------------------------------
'Mo ket noi toi Server và Database chi dinh. Nêu không có tham so thì dùng lai ket noi cu.
'------------------------------------------------------------------------------------------

   Dim blnNewConnect As Boolean
   Dim blnReturn As Boolean
   Dim strDataSource As String
   Dim strDB As String
   Dim strConn As String
   Dim vError As Variant
   Dim sErrors As String

   blnReturn = True
   blnNewConnect = True

   On Error GoTo ConnectDBError

   If Not mobjConn Is Nothing Then   'Kiem tra xem có Connection chua, có rôi thi dung ket noi cu
       If mobjConn.State And adStateOpen = adStateOpen Then  '-> Da có ket noi
           blnNewConnect = False
       End If
   End If

   If blnNewConnect Then
       'Tao ket noi moi
       If TargetServer = "" Or TargetDatabase = "" Then
           'Neu khong chi dinh ten Server, Database thì dùng lai Connection cu voi tham so cu
           If Len(mstrConnectionString) > 0 Then
               strConn = mstrConnectionString
           Else
               'Xay dung chuoi ket noi moi bang hàm BuilConnectionString
               strConn = BuildConnectionString(mstrDatabaseType, mstrCurrentServer, _
                                               mstrCurrentDatabase, mblnIntegratedSecurity)
           End If
       Else
           'Xay dung chuoi ket noi moi bang hàm BuilConnectionString voi cac tham so cung cap
           strConn = BuildConnectionString(DatabaseType, TargetServer, TargetDatabase, _
                                           mblnIntegratedSecurity)
       End If
       mobjConn.ConnectionString = strConn
       mobjConn.Open
   End If

ConnectDBResume:
   ConnectDB = blnReturn
   Exit Function

ConnectDBError:
   blnReturn = False
   'ShowErrorMessages Err, mstrModuleName, "ConnectDB"
   Select Case Err.Number
   Case -2147467259
       MsgBoxUni "Thông s" & ChrW(7889) & " k" & ChrW(7871) & "t n" & ChrW(7889) & "i d" & ChrW(7919) & " li" & ChrW(7879) & "u không " & ChrW(273) & "úng.", vbCritical, "Thông báo"
   Case -2147217843
       MsgBoxUni "Sai tên " & ChrW(273) & ChrW(259) & "ng nh" & ChrW(7853) & "p ho" & ChrW(7863) & "c m" & ChrW(7853) & "t kh" & ChrW(7849) & "u.", vbCritical, "Thông báo"
   Case Else
       ShowErrorMessages Err, mstrModuleName, "ConnectDB"
   End Select
   Resume ConnectDBResume

End Function

Public Function BuildConnectionString(ByVal DatabaseType As DBaseType, _
                                     ByVal TargetServer As String, _
                                     ByVal TargetDatabase As String, _
                                     ByVal IntegratedSecurity As Boolean, _
                                     Optional ByVal UserID As String, _
                                     Optional ByVal Password As String) As String

   Dim strExt As String  'Extension cua Excel file: xls,xlsx,xlsm,xlsb

   'Xay dung chuoi ket noi
   Select Case DatabaseType
   Case 1   'SQLServer
       If Len(UserID) Then  'Có Username/Pass dang nhap
           mstrConnectionString = "Network Library=DBMSSOCN;" & _
                                  "PROVIDER=SQLOLEDB;DATA SOURCE=" & TargetServer & _
                                  ";INITIAL CATALOG=" & TargetDatabase & _
                                  ";User Id=" & UserID & ";Password=" & Password & ";"
       Else
           '"Provider=SQLNCLI10;"
           mstrConnectionString = "Network Library=DBMSSOCN;Provider=SQLOLEDB;" & _
                                  "Server=" & TargetServer & ";" & _
                                  "Database=" & TargetDatabase & ";" & _
                                  "Trusted_Connection=Yes;"
       End If
   
   Case 2   'MS Access
       Select Case glngAppVersion
       Case 10
           If Len(Password) Then
               mstrConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                      "Data Source=" & TargetServer & TargetDatabase & ";" & _
                                      "Jet OLEDB:Database Password=" & Password & ";"
           Else
               mstrConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                      "Data Source=" & TargetServer & TargetDatabase & ";"
                                      
           End If
       Case Is > 10
           If Len(Password) Then
               mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                      "Data Source=" & TargetServer & TargetDatabase & ";" & _
                                      "Jet OLEDB:Database Password=" & Password & ";"
           Else
               mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                      "Data Source=" & TargetServer & TargetDatabase & _
                                      ";Persist Security Info=False;"
           End If
       End Select
   Case 3   'MS Excel
   
       strExt = UCase(Mid(TargetDatabase, InStrRev(TargetDatabase, ".") + 1))
       Select Case strExt
       Case "XLSX"
           mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetDatabase & ";" & _
                                  "Extended Properties = 'Excel 12.0 Xml;HDR=YES'"
       Case "XLSB"
           mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetDatabase & ";" & _
                                  "Extended Properties = 'Excel 12.0;HDR=YES'"

       Case "XLSM"
           mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetDatabase & ";" & _
                                  "Extended Properties = 'Excel 12.0 Macro;HDR=YES'"

       Case "XLS"
           'to connect Excel 97-2003 from Excel 2007+
           mstrConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetDatabase & ";" & _
                                  "Extended Properties = 'Excel 8.0;HDR=YES'"
       End Select
   Case Else
       'Truong hop Database khac, tu dieu chinh chuoi ket noi lai cho phu hop
       'mstrConnectionString = "Provider=SQLOLEDB;Server=" & TargetServer & _
                              ";Database=" & TargetDatabase & ";Trusted_Connection=yes;"
   End Select

   mstrCurrentServer = TargetServer
   mstrCurrentDatabase = TargetDatabase
   mstrDatabaseType = DatabaseType
   mblnIntegratedSecurity = IntegratedSecurity
   BuildConnectionString = mstrConnectionString

End Function

Public Property Get SQLConnection() As Object 'ADODB.Connection
   'Tra ve Conn object.
   If Not mobjConn Is Nothing Then
       On Error Resume Next
       Set SQLConnection = mobjConn
       On Error GoTo 0
   End If
End Property


Public Function GetRecordset(strSQL As String, Optional EMode As EditMode = 0) As Object    'ADODB.Recordset

   Dim objRSet As Object    'ADODB.Recordset

   On Error GoTo GRError
   mlngRecordCount = 0

   If ConnectDB() Then
       'Set objRSet = New ADODB.Recordset
       Set objRSet = CreateObject("ADODB.Recordset")
       objRSet.CursorLocation = adUseClient
       objRSet.Open strSQL, mobjConn, adOpenKeyset, adLockOptimistic
       mlngRecordCount = objRSet.RecordCount
       Set GetRecordset = objRSet

       'Ngat ket noi Recorset voi Database - disconnect connection.
       Select Case EMode
       Case 0  'ReadOnly
           objRSet.ActiveConnection = Nothing
       Case 1  'EditAddDelete
           'Khong dong connection
       End Select

   End If

GRResume:
   CloseDB
   Exit Function

GRError:
   ShowErrorMessages Err, mstrModuleName, "GetRecordset"
   Resume GRResume

End Function

Public Sub ExecuteQuery(SQLToExecute As String, Optional CloseDatabase As Boolean = True)

'Dung de thuc thi cau lenh Select Query SQL

   On Error GoTo EAQError

   Dim rs As ADODB.Recordset
   If ConnectDB() Then
       Set rs = mobjConn.Execute(SQLToExecute)
   End If

EAQResume:
   If CloseDatabase Then CloseDB
   Exit Sub

EAQError:
   ShowErrorMessages Err, mstrModuleName, "ExecuteActionQuery"
   Resume EAQResume

End Sub

Public Function ExecuteActionQuery(SQLToExecute As String, Optional CloseDatabase As Boolean = True) As Boolean

'Dung de thuc thi cau lenh Action Query SQL
   Dim blnReturn As Boolean

   blnReturn = True

   On Error GoTo EAQError

   If ConnectDB() Then
       mobjConn.Execute SQLToExecute
   End If
   Exit Function

EAQResume:
   On Error Resume Next
   If CloseDatabase Or Not blnReturn Then CloseDB
   ExecuteActionQuery = blnReturn
   Exit Function

EAQError:
   blnReturn = False
   ShowErrorMessages Err, mstrModuleName, "ExecuteActionQuery"
   Resume EAQResume

End Function

Public Function ExecuteSPWithADOCommand(StoredProcName As String, _
                                       OutputParameter As String, OutputValue As Variant, _
                                       ParamArray InputParameters() As Variant) As ADODB.Recordset
'InputParameters: Phai la 1 cap Ten arameter có ký tu @ o dau va Gia tri Para.
'Neu nhieu Param thi cu viet noi tiep thanh tung cap, cách nhay dau phay.
'OutputParmeter cung them ky tu @ o dau.

   Dim objCmd As ADODB.Command
   Dim rsCmd As ADODB.Recordset
   Dim intParam As Integer
   'Dim recordsAffected As Long

   On Error GoTo ESPError

   If ConnectDB() Then
       Set objCmd = New ADODB.Command
       With objCmd
           .ActiveConnection = mobjConn
           .CommandText = StoredProcName
           .CommandType = adCmdStoredProc
           .Parameters.Refresh
           'Lay tham so
           For intParam = 0 To UBound(InputParameters) Step 2
               .Parameters(InputParameters(intParam)).Value = _
               InputParameters(intParam + 1)
               Debug.Print InputParameters(intParam) & "-" & InputParameters(intParam + 1)
           Next intParam
           'Xac dinh co tham so Output khong
           If Len(Trim(OutputParameter)) > 0 Then
               .Parameters(OutputParameter).Direction = adParamOutput
           End If
           '.Execute
           Set rsCmd = New ADODB.Recordset
           rsCmd.Open .Execute(recordsAffected)
       End With

       Set ExecuteSPWithADOCommand = rsCmd

       'Lay gia tri cho Output Para
       If Len(Trim(OutputParameter)) > 0 Then
           OutputValue = objCmd.Parameters(OutputParameter).Value
       Else
           OutputValue = vbNullString
       End If
   Else
       'Neu bi mat ket noi nhung khong bi loi phat sinh
       OutputValue = vbNullString
       Set ExecuteSPWithADOCommand = Nothing
   End If
   Exit Function
   
ESPResume:
   On Error Resume Next
   Set ExecuteSPWithADOCommand = Nothing
   Set objCmd = Nothing
   CloseDB
   Exit Function

ESPError:
   ShowErrorMessages Err, mstrModuleName, "ExecuteSPWithADOCommand"
   Resume ESPResume

End Function



Public Sub ShowErrorMessages(ByVal StandardErrorObject As VBA.ErrObject, _
   ByVal SourceModule As String, ByVal SourceMethod As String)
    
   'Su dung cho bay loi cua class.
   Dim strMsg As String
    
   'Loi co ban cua he thong.
   If StandardErrorObject.Number <> 0 Then
       strMsg = "Error: " & CStr(Err.Number) & vbCrLf & vbCrLf & "Description: " & _
       Err.Description & vbCrLf & vbCrLf
   End If
    
   strMsg = strMsg & SourceModule & "::" & SourceMethod & vbCrLf
    
   Err.Clear
    
   MsgBoxUni strMsg, vbCritical, "Liên h" & ChrW(7879) & " ng" & ChrW(432) & ChrW(7901) & "i qu" & ChrW(7843) & "n tr" & ChrW(7883) & " ch" & ChrW(432) & ChrW(417) & "ng trình " & ChrW(273) & ChrW(7875) & " tr" & ChrW(7907) & " giúp"
    
End Sub 

Link file: http://www.mediafire.com/file/b28rf1vflx...O_Demo.rar

[Video] Hướng dẫn sử dụng Class Modules

Sat, 18 Mar 2017 14:41:37 +0000

Bài 1. Giới thiệu về Class Modules trong Access và khai báo biến toàn cục Public

Bài 2. Khai báo Private và kiểm soát các biến khi truyền vào Class

.............Còn tiếp... tối nay làm 2 video thôi

Demo bài thực hành đính kèm phía dưới

Baithuchanh-Class-bymaidinhdan.zip (Kích cỡ: 49.72 KB / Tải về: 49)

Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao)

Fri, 11 Nov 2016 09:40:58 +0000

Hầu hết các ngôn ngữ lập trình dùng để viết phần mềm ứng dụng nào cũng sử dụng class modules để quản lý dữ liệu, đến đây chúng ta bàn về Access của chúng ta, rất ít bài về chủ đề này. Trên diễn đàn cũng có bài giới thiệu về class của anh Lehongduc, MinhTien...

Mở màng bài đầu tiên không phải bài hướng dẫn mà là bài giới thiệu những gì sẽ hiện diện trong chủ đề này

Và mình rất muốn cùng các bạn cùng thảo luận và trao đổi với các bạn về class cụ thể 5 vấn đề như sau:
1. Kinh nghiệm viết class của bản thân
2. Các công cụ hỗ trợ viết class. để viết nhanh nhất ( Trước khi làm gì phải có Đồ nghề trước); nhiều bạn ngại không dùng class vì nó dài dòng, lê thê... nhưng khi có đồ nghề thì chuyện đó nó nhỏ hà.
3. Các Demo bài tập Class từ cơ bản đến nâng cao ( Có video để các bạn dễ theo dõi và trao đổi)
4. Sử dụng đồng thời DAO và ADO thao tác nếu có nhiều thời gian, không thì mình chỉ chọn 1 cái.
5. Class Modules và Modules để giao tiếp với một số kiểu dữ liệu bên ngoài mà không phải là file Access.
6. Tính kế thừa của Class.

* Rất mong các bạn cùng tham gia chia sẽ, riêng bản thân mình thì 1 tuần sẽ có 1 ca khúc về chủ đề này

Thân ái!

[Using Class Module] Các phương pháp bổ sung Component vào dự án của bạn

Fri, 07 Oct 2016 13:31:15 +0000

Tính làm 1 bài viết về Class Modules để cùng trao đổi và học hỏi thêm về cáh thức tạo và vận hành Class trong VBA Access và tạo ra các thư viên liên kết động *.dll, hay các Ad-In file để làm ứng dụng khác ta lấy ra sử dụng.

Tình cơ đọc được bài viết này trên GPE cũng hay nên chia sẽ trước

Trích dẫn:Bài viết của anh: [b]Đào Việt Cường[/b] Cu Tí sành điệu
Chúng ta biết đến chức năng Add-Ins trong MS Excel như một công cụ bổ sung truyền thống. Hầu hết các mục đích bổ sung đều xuất phát từ việc mở rộng nhu cầu ứng dụng. Với các định dạng *.xla, chúng ta có gần như tất cả những gì chúng ta muốn. Chúng ta thường sử dụng cách này vì việc bổ sung và quản lý nó thuận tiện bằng công cụ Add-Ins Manager. Tuy nhiên cách thức bổ sung này bộc lộ một số nhược điểm:

- Chỉ bổ sung được các tập tin *.xla (Microsoft Excel Add-In file)
- Không tối ưu: một khi add-in được bổ sung vào MSE nó tự động kích hoạt khi trình Excel khởi động ngay cả khi bạn không mở ứng dụng của bạn.
- Không bảo mật: nhiều phần mềm dò tìm mật khẩu có thể phá được password trong *.xla của bạn.
- Tốc độ: do chưa được biên dịch ra ngôn ngữ máy, tốc độ xử lý sẽ thấp hơn (có thể do trình biên dịch phải compile mã chương trình)
- Phân tán và khả năng chia sẻ thấp

1. Bổ sung các component bằng "con đường Browse":
Các bạn đã có dịp tìm hiểu về các về các thành phần cơ bản có trong một dự án VBA. Cũng từ đó, bộ lọc Browser cho các bạn biết các thành phần nào có thể được thêm vào dự án của bạn từ bên ngoài:
Type Libraries(*.olb, *.tlb, *.dll)

Executable Files (*.exe, *.dll)

ActiveX Controls (*.ocx)

Hầu hết các component được bổ sung bằng con đường Browse này. Để thấy nhiều hơn, các bạn hãy ấn nút Browse trên hộp thoại References. Để ý đến mục Files of Type mặc định là Type Libraries(*.olb, *.tlb, *.dll) các bạn thấy mục đầu tiên là Microsoft Office Excel file (*.xls, *.xla). Mục này sẽ cho các bạn nhiều khám phá bất ngờ! Các bạn hãy thực hành và quan sát các hiện tượng xảy ra bên trong dự án của bạn sau khi bổ sung một *.xls hoặc *.xla vào dự án.

2. Bổ sung các component bằng thủ tục đăng ký hệ thống RegSvr32:
Phương pháp này hầu như chỉ áp dụng đối với các thư viện liên kết động (*.dll) hoặc các điều khiển ActiveX (*.ocx). Thủ pháp ở đây là thông qua lệnh Regsvr32 chúng ta có thể để "đăng ký" vào hệ thống các thành phần muốn được bổ sung. Các bạn thực hiện như sau:
Từ trình đơn RUN của Windows (tại thanh Start) nhập vào các thông tin:

RegSvr32 \
Trong đó:
- là tập tin *.dll hoặc *.ocx
- là đường dẫn đến tập tin
Nếu đăng ký thành công, bạn sẽ nhận được một message thông báo:

DllRegiterServer \ succeeded
Sau khi đăng ký, component sẽ được bổ sung vào danh sách References, các bạn cần mở lại hộp thoại References để đánh dấu chọn component đó trước khi sử dụng

Nếu bạn muốn gỡ bỏ các đăng ký hãy thêm từ khoá / u vào sau RegSvr32 như sau:

RegSvr32/ u \

______________________________________________________________________________________________

Nào hãy tiếp tục tìm hiểu 1 số cái cơ bản về Class Module ( Bài viết được trích từ http://www.vovisoft.com)

1. Sử dụng Class Module

Class Module là gì ? Là tổng hợp của các bộ phận trong ứng dụng của các bạn. Gọi tắt là COM ( Component Object Model ). Phương pháp viết chương trình hiện đại là xử dụng components, một cơ chế trong ứng dụng của các bạn. Như chúng ta biết : Hệ thống viễn thông ngày càng phát triển và đóng một vai trò quan trọng trong đời sống hàng ngày của mọi người trên thế giới. Và trong hệ thống viễn thông, đại đa số, họ xử dụng COM components. Do đó, trong việc viết chương trình ứng dụng, các bạn không thể thiếu các COM components được.

Ứng dụng của các bạn, nếu được tách ra thành từng cơ cấu (components) thì rất dể dàng trong việc phát triển (developement) và giử gìn...Sau đây, chúng tôi sẽ lần lượt giải thích làm sau việc xử dụng Class Module là hữu ích.

2. Sử dụng Object và Components
COM components, chính nó là bộ phận mang lấy một chức năng nhất định trong ứng dụng. Chính nó cũng là một ứng dụng, cũng có code, methodes, functions và được hoán chuyển thành .dll, .bas,..., và từ đó, nó được xử dụng như COM.

Dưới đây là hình ảnh cho thấy các bạn có thể tạo thành một component và cùng một lúc có thể tạo thành 2 instances lúc run time

Khi bạn đã có Components rồi, bạn có thể lấy từ trong dự án của bạn hay là dự án ở ngoài... đều xử dụng được hết.

3. Những lợi ích khi xử dụng Components

*Sử dụng nhiều lần : Khi các bạn tạo thành cho mình một bộ phận trong ứng dụng rồi (component) thì bộ phận đó sẽ được xử dụng nhiều lần. Hoặc trong ứng dụng của bạn nhưng ở trong những form khác chẳng hạn...Hay là những người trong nhóm phát triển ứng dụng vẫn có thể xử dụng component đó...
Chỉ cần bạn bỏ bộ phận đó trong kho nhu liệu là bạn có thể xử dụng bất cứ lúc nào. Với Object browser, bạn có thể gọi component đó và xử dụng nhiều lần.
*Làm giảm bớt sự phức tạp : Những người làm việc cùng nhóm với bạn sẽ không mất nhiều thời gian và công sức khi tìm hiểu những chức năng từng bộ phận trong phương trình ứng dụng.
*Dể dàng trong việc sửa đổi : Khi cần thay đổi phương trình ứng dụng, các bạn không cần phải tốn nhiều thời gian và tránh được rất nhiều bugs khi nâng cấp ứng dụng...

Class Module là gì ? Bài viết lấy hình ảnh trên VB6

Các bạn muốn có một COM component trong ứng dụng của mình, chuyện đầu tiên là các bạn phải có một class module trong ứng dụng của bạn trước. Rối sau đó, các bạn có thể xử dụng bộ phận COM đó trong suốt quá trình hoàn chỉnh ứng dụng hay cho các vay mượn tùy theo yêu cầu của chương trình.

Class Module, đơn giản là một loại Visual Basic code module. Ðược viết dưới dạng *.cls và tương tợ như *.bas , Khác biệt ở chổ là Class Module bao gồm chức năng (funtion) mà chức năng này có thể xử dụng ở những form khác trong cùng một ứng dụng. Mỗi một class module ứng cho một bộ phận trong ứng dụng và các bạn có thể có vài thể loại class module trong ứng dụng của mình.

Ðể xử dụng class module, các bạn phải làm cho nó một instance, rồi sau đó thông qua instance đó, mà các properties, methods, events của nó để rồi hoàn thành một cái class cho ứng dụng.

Thí dụ điển hình là như vầy :

Muốn có một Employee class mà nó có properties là : Lastname, Firstname. Method là hired. Bạn phải làm một instance cho Employee object. Rồi sau đó, muốn tìm chi tiết về các nhân viên bất cứ ở đâu trong ứng dụng, chúng ta chỉ cần xử dụng Employee class module mà thôi.

Chương 3_Phần 2_Ðoạn 1 : Xử dụng Class Builder

Ðể dể dàng cho việc tạo thành Class, Visual Basic có một công cụ gọi là Class Builder. Nó tự động làm cho bạn một số việc và chuyện của các bạn là điền vào chi tiết mà thôi. Ðây là công cụ để tạo thành Class : ( Trước đây mình cũng post 1 bài trên diễn đàn tool hỗ trợ viết Class này)

Sau đây là những phần mà Class Builder bao gồm :
Property Builder

Method Builder

Event Builder

Attributes

Chương 3_Phần 2_Ðoạn 2 : Class Module Events

Ðể tạo dể dàng cho các bạn viết ứng dụng, Visual Basic đã viết sẳn cho các bạn 2 events. Ðó là initialize và terminate

Initialize event : Nhất định các bạn phải kiểm soát các nhu liệu hay tài liệu cần thiết cho ứng dụng của mình, do đó, initialize event là event đầu tiên mình phải xử dụng. Sau đây là các hàng code :

Mã PHP:
Private Sub Class_Initialize ()
'Initialize Data
 iDept = 5
 End Sub 

Terminate event : Dùng để chấm dứt công việc. Sau đây là các hàng code

Mã PHP:
 Private Sub Class_Terminate()
 'Any termination code
 End Sub 

Và dỉ nhiên các bạn có thể thêm vào nhiều event nữa tùy theo yêu cầu của người xử dụng.

Chương 3_Phần 2_Ðoạn 2 : Adding Component information and Help

Vì có nhiều classes trong ứng dụng, cho nên để dể dàng trong việc xử dụng, chúng ta cần phải thêm vào các chi tiết nói về chức năng của class đó. Và mỗi khi mủi chuột chỉ đến đâu thì những lời giải thích về chức năng đó hiện ra. Theo các bước sau đây thì các bạn có thể thêm vào các lời giải thích :

Nhìn vào hình ảnh dưới đây, chúng ta sẽ thấy làm sao để điền thêm chi tiết vào bộ phận Class

Chương 3 _Phần 2_Ðoạn 4 : Xử dụng Object Browser

Ðể nhận xét một cách tổng quát một class trong ứng dụng, hãy xử dụng Oject Browser. Object Browser trong Visual Basic là một công cụ dùng để nhìn xem các properties, methods, events chứa đựng trong một class. Trên View menu, bấm trên Object Browser, các bạn sẽ có một Object Browser. Theo các bước trên, các bạn sẽ có được :

Có 2 bản danh sách cho thấy project có bao nhiêu classes? Trong class có bao nhiêu members ?...Và Object Browser cho chúng ta nhìn biết các bộ phận tron ứng dụng dể dàng hơn.

Chương 3 _Phần 3 _Ðoạn 1 : Tạo thành Property

Property xác định nhu liệu hay chức năng của một class. Thí dụ như một class Employee có thể có các properties như FirstName, LastName, HireDate…Các bạn có thể xác định property trong ứng dụng của mình bằng 2 cách :

Sử dụng Public Variables : Các bạn không cần phải viết code khi property được hình thành, bạn chỉ cần xác định Public variable để giử nhu liệu mà thôi. Thí dụ như sau

Mã PHP:
Public FirstName As String 

Sử dụng Property Procedure : Dùng cách này nếu các bạn muốn viết code khi hình thành property. Với property procedure, các bạn có thể làm những việc sau đây :

    Tiến hành procedure khi các dử kiện của property được xác định
    Làm cho property có một chức năng nhất định như giao trả một nhu liệu giới hạn nào đó.
    Không cho phép property thay đổi.

Property procedure có 3 phần : Set, Let, Get. Khi hình thành property procedure, các bạn xác định theo từng cặp, thí dụ như : Set và Get, Let và Get. Bởi vì lý do giản dị là property set hay let phải được tiến hành trước, rồi sau đó, procedure get mới có thể cung cấp nhu liệu mà procedure Set hay Let xác định. Như thí dụ điển hình sau đây :

Mã PHP:
Public Property Let FirstName(passedName As String)
                        mvarFirstName = Ucase(passedName)
End Property 

Mã PHP:
Public Property Get FirstName() As String
                        FirstName = mvarFirstName
End Property 

Sử dụng default Property : Theo những bước sau đây các bạn sẽ xác định được default property

Chương 3_Phần 3_Ðoạn 2 : Tạo thành Methods

Methods đại diện cho một chức năng trong ứng dụng của bạn mà class bao gồm. Thí dụ như class Employee có 2 methods là Hire và PayIncrease. Ðể tạo thành method cho một bộ phận trong ứng dụng, bạn chỉ cần tạo thành Public Sub hay là Function procedure trong class module đó.

Sau đây là thí dụ làm sao để tạo thành một method là thêm dữ kiện vào trong kho nhu liệu :

Mã PHP:
Public Function Hire() As Boolean
        ‘ add employee record to database here
 MsgBox “Employee was added to the Database”
            ‘ if successful
 Hire = True
End Sub 

Sau đây là thí dụ để tạo thành method tăng lương cho nhân viên :

Mã PHP:
Public Function PayIncrease (dPercent  As Double) As Integer
            mvarSalary = mvarSalary * (1 + dPercent)
End Function  

Chương 3_Phần 3_Ðoạn 3 : Xử dụng Named Constants

Khi các bạn xử dụng cách thay thế (variables) thì trong suốt quá trình ứng dụng tiến hành, variables sẽ giao trả cho bạn nhiều nhu liệu chứa trong Database (Kho nhu liệu). Nhưng với Named Constants (thay thế bằng cách đặt tên), các bạn sẽ có lợi điểm là Named Constant chỉ giao trả một nhu liệu nhất định mà thôi. Thí dụ như trong trường hợp phải xài 2 nút Yes và No cho một lựa chọn, bạn chỉ cần xài Named Constant là vbYesNo mà thôi.

Tạo thành Named Constants : Ðơn giản như chúng ta xử dụng variable vậy. Sau đây là thí dụ làm sao để có Named Constant tên là JobLevel

Mã PHP:
Public Enum JobLevel
          jExecutive = 1
          jManagement = 2
          jStaff = 3
End Enum 

Với Named Constant này, bạn có thể thêm method vào trong class module của mình. Như method xem cấp bậc việc làm của nhân viên như sau :

Mã PHP:
Public Sub CheckExecutiveStatus(iLevel As JobLevel
            If iLevel = jExecutive Then
                        MsgBox “Executive Level Status Approved”
            Else
                        MsgBox “Executive Status Denied”
            End If
End Sub 

Xử dụng Enumerations (cách xếp thứ tự bằng số) như là Property value : Các bạn đã có Named Constant, các bạn cũng đã biết property value đi theo từng cặp Set và Get hay là Let và Get...Thì để xác định một chứ năng giao trả một dử kiện nhất định cho class module của mình, phương pháp hữu hiệu nhất là xử dụng Enumerations Property value. Thí dụ bạn xáx định một property có tên là ActiveJobLevel thì hãy theo những bước sau đây :

Private mvarJobLevel As JobLevel

Mã PHP:
Public Property Let ActiveJobLevel (jl As JobLevel)
            mvarJobLevel = jl
End Property 

Mã PHP:
Public Property Get ActiveJobLevel () As JobLevel
            ActiveJobLevel = mvarJobLevel
End Property 

Chương 3_Phần 3_Ðoạn 4 : Thêm Events vào trong Class Module

Trước đó chúng ta đã biết Visual Basic có sẳn 2 events là Initialize và Terminate. Và chúng ta cũng có thể thêm events vào trong class của mình tùy theo yêu cầu. Thí dụ như chúng ta có một component gọi là COrder. Chúng ta có thể dựng nên một event gọi là Status khi COrder tiến hành. Theo 2 bước sau đây, chúng ta có thể thêm events vào trong class :

DeClare the event (Nhận định the event)
Raise the event (Dựng lên the event)

Nhận định event : Xử dụng keyword là Event để nhận định. Chẳng hạn như :

Mã PHP:
Public Event Status(ByVal StatusText As String) 

Dựng lên event : Xử dụng RaiseEvent statement để dựng lên event. Chẳng hạn như :

Mã PHP:
Public Sub SubmitOrder()
          ‘code to submit an order goes here
          RaiseEvent Status (“Checking Credit...”)
          ‘code to check the credit goes here
          RaiseEvent Status (“Processing Order...”)
          ‘code to process an order goes her
End Sub 

Những liên hệ khác với component : Khi nhận định Event, chúng ta có thể xử dụng ByVal (by value) hay ByRef (by reference). Do đó tùy theo trường hợp nhận định event mà chúng ta dựng event lên. Nếu ByRef, chúng ta phải làm sao để class có thể trao đổi nhu liệu và event được tiến hành. Chẳng hạn như thí dụ sau đây :

Mã PHP:
Dim iLimit As Integer
iLimit = 400
‘raise the event to be handled by the client
RaiseEvent LimitChanged(iLimit)
‘now check to see if the client changed the limit
If iLimit <> 400 Then
‘client did not accept the new limit
End If 

Ai còn bài nào giới thiệu lên tiếp nhé

Sử dụng Class Module trong lập trình Access

Sun, 12 May 2013 08:05:07 +0000

Kính gửi các: Acc có nhu cầu.
Mình tìm trên diễn đàn nhưng không thầy hướng dẫn hay Demo sử dụng Class trong Access, mình đã tìm tham khảo tại địa chỉ: http://www.di-mgt.com.au/cl_Simple.html và mình đã áp dụng OK cho "Tiện ích của mình.
Nay xin chia sẽ cho các Acc có nhu cầu. Do mình tìm trên diễn đàn chưa có nên mạo muội lập Chủ đề mới. Xin BQL thông cảm nếu CT đã có.
Demo

Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA

Wed, 20 Jun 2012 10:51:02 +0000

Chào các Bạn,

Hôm nay tôi muốn trao đổi với các Bạn về vấn đề "Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA" như một giải pháp tối ưu cho các ứng dụng được thiết kế với VBA trong Microsoft Access. Trao đổi này có đính kèm file nguồn để làm ví dụ minh họa.

Để lấy một ví dụ cụ thể, ở đây giả định ta có nhu cầu thiết kế 1 ứng dụng Microsoft Access dùng để quản lý 1 danh bạ điện thoại.

Ứng dụng của chúng ta sẽ bao gồm 1 file dữ liệu và 1 file ứng dụng. Các Bạn có thể tạo File dữ liệu bằng Microsoft Access hoặc SQL SERVER. Ở đây tôi tạo file dữ liệu bằng SQL SERVER.
File dữ liệu đã được nạp trên 15.000 mẫu tin.
Khi file ứng dụng được nạp, ta sẽ cho kết nối với file dữ liệu bằng thủ tục Log-In.

Mục đích của tôi thông qua cách thiết kế trên nhằm:
+ minh họa khả năng của Access VBA có thể lập trình theo hướng đối tượng;
+ kết nối được với nguồn dữ liệu ngoài, ở đây là nguồn SQL SERVER;
+ có thể tạo được những Unbound Form nhằm đáp ứng nhu cầu truy xuất dữ liệu với nhiều người dùng qua mạng máy tính, đồng thời cải thiện được tốc độ xử lý dữ liệu.

Về Cấu trúc của file dữ liệu:
Với ứng dụng này ta chỉ cần có 1 file dữ liệu với 1 bảng dữ liệu. Tất nhiên các Bạn có thể tùy biến thêm nếu thấy cần.
- Tôi đặt tên file dữ liệu này là danhba
- Và tạo 1 bảng dữ liệu có tên là tblDanhsach, với các cột dữ liệu như sau:
+ Ten: tên của 1 người cụ thể trong danh bạ, kiểu dữ liệu Text
+ HoChulot: họ và chữ lót, kiểu dữ liệu Text
+ Gioitinh: xác định giới tính, kiểu dữ liệu Yes/No (mặc định là Nam, với giá trị là True)
+ Ngaysinh: ngày sinh, kiểu dữ liệu Date
+ Dtdd: số điện thoại di động, kiểu dữ liệu Text
+ Dtnha: số điện thoại ở nhà riêng, kiểu dữ liệu Text
+ Dtvp: số điện thoại ở văn phòng làm việc, kiểu dữ liệu Text

Với ứng dụng làm ví dụ sẽ cho ta biết cách:
1. Kết nối với nguồn dữ liệu bên ngoài MS. Access, ở đây là SQL SERVER
2. Viết 1 Class module như thế nào
3. Tạo 1 Unbound Form và gắn kết dữ liệu trên đó như thế nào

Trong bài sau tôi sẽ trình bày tiếp vào nội dung chính của chuyên đề này.
Rất mong các Bạn cùng tham gia nghiên cứu và trao đổi.

Nội dung các file đính kèm:
1. File ứng dụng MS. Access với định dạng mdb có mã nguồn
2. File SQL (Text) dùng để tạo database trên SQL SERVER cục bộ (local) nếu các Bạn muốn tạo.

Cũng xin trao đổi rõ thêm: File ứng dụng và file dữ liệu nêu trên mới chỉ là "sườn" còn "thô", để nó trở thành 1 ứng dụng hoàn chỉnh, chúng ta còn phải tinh chỉnh nhiều thứ; đó cũng chính là công việc mà tôi muốn mời các Bạn cùng tham gia trao đổi, qua đó chúng ta thu hoạch được những kiến thức căn bản chắc chắn hơn về chuyên đề này.

Tài liệu tham khảo:
Tài liệu tôi dùng để tham khảo chính để viết loạt bài này (bao gồm ứng dụng làm ví dụ) là loạt sách:
Beginning Access 2003 VBA, Beginning Access 2007 VBA
của Denise M. Gosnell

Chào các Bạn,
Xin nói thêm về chuyện ứng dụng và dữ liệu còn "thô":

Nói chúng "thô" bởi lẽ:

1. File dữ liệu SQL SERVER chỉ mới có các bảng dữ liệu thôi. Như vậy chúng chỉ mới là chỗ để lưu dữ liệu phát sinh, chưa làm được việc xử lý dữ liệu (ta dễ thấy một phần những việc đơn giản trong việc xử lý dữ liệu này như: lưu, xóa, trích xuất thông tin, lọc thông tin).
Bản thân SQL SERVER là 1 hệ thống quản trị cơ sở dữ liệu mạnh, chứ không chỉ đơn thuần là nơi để lưu dữ liệu. Ta sẽ bàn tới cách giao nhiệm vụ xử lý dữ liệu cho cái file dữ liệu SQL SERVER đã tạo ở trên. Hiện nay việc xử lý dữ liệu vẫn còn do file ứng dụng đãm trách thông qua các câu lệnh SQL trong các module.

2. Nếu chạy file ứng dụng đang có ta sẽ thấy khi mở Form "frmContact" (dùng để cập nhật và xem dữ liệu) sẽ còn mất 1 ít thời gian mà ta có thể cảm nhận được. Mục tiêu của chúng ta là phải làm sao cho nhanh đến mức không cảm thấy phải chờ một chút nào.
Tôi đã kiểm tra thử mở form nói trên với kết nối internet qua 1 USB 3G của Viettel (loại 7.2 Mbps) trên xe hơi đang chạy: thời gian nạp xong form mất khoảng 25 giây.

Có Bạn nào tìm được lý do nào khác không?

Link tải File ứng dụng minh họa, bản cập nhật ngày 15/7/2014:
http://www.mediafire.com/download/j5v854...150714.rar

CreateDanhbaDB.zip (Kích cỡ: 1.12 KB / Tải về: 436)

qldanhba.zip (Kích cỡ: 54.47 KB / Tải về: 436)