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

Table variables - Lưu các biến hệ thống vào bảng

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Table variables - Lưu các biến hệ thống vào bảng
• Table variables - Lưu các biến hệ thống vào bảng

• Table variables - Lưu các biến hệ thống vào bảng

  ongke0711 > 01-07-17, 04:35 AM

  Chủ đề này nói về việc tạo ra các biến và sử dụng lại nó trong nhiều Form, Report, code VBA bằng cách lưu vào một bảng sau đó dùng hàm để gọi nó. Tôi nghĩ chắc cũng có nhiều bạn đã sử dụng cách này rồi nhưng tôi vẫn post lên để các bạn khác có thể tham khảo.
  Trong thực tế khi thiết kế các ứng dụng, bạn vẫn thường tạo ra các biến toàn cục để tái sử dụng lại trong các form như: tên User, mức độ phân quyền, kỳ báo cáo v.v.. Thường thì mình hay lưu các thông tin này bằng một control nào đó trên Form sau đó cho form này ẩn đi hoặc lưu nó vào biến toàn cục hoặc có thể dùng DLookup trong các bảng khác nhau để lấy thông tin khi cần.
  Cách mình chia sẻ trong chủ đề này có thể sẽ tiện lợi hơn cho bạn khi thiết kế ứng dụng đó là tạo ra các biến thường sử dụng (tạm gọi là biến hệ thống) và lưu nó vào một Table để có thể lấy ra khi cần. Việc lưu giá trị cho các biến này cũng như lấy giá trị trả về của các biến thông qua 2 hàm tự tạo (UDFs) Get và Let như trong Class module vậy.
  
  
  - Tạo 1 Table đặt tên là ‘sysvariables’ có 4 trường: 
    + id: dạng Number, PK
    + varname: Text, dùng lưu tên biến
    + varvalue: Text, dùng lưu giá trị của biến. Dữ liệu dạng Date, Number đều lưu vào đây thành dạng Text.
    + description: diễn giải nội dung biến
  
  Hình minh họa:
  
  
  Sau đó bạn tạo 2 hàm: 1 hàm dùng để gán trị cho biến, lưu vào table. 1 hàm dùng lấy giá trị của biến trong table đưa vào form, query, code VBA. Hàm này cũng đơn giản. Tôi dùng ADO, các bạn có thể dùng DAO, Dlookup() cho gọn cũng được.
  Copy đoạn code sau vào module đặt tên basSysVariables (tùy bạn).
  
  Hàm lấy trị trả về của biến:
  
  

  Mã PHP:

  Public Function getsysvar(id As Integer) As String[/font][/font]
   On Error GoTo ErrorsHandler
   Dim rs As ADODB.Recordset

   getCnn    '-->Sub gọi kết nối

   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       getsysvar = Trim(rs!varvalue)
   Else
       getsysvar = False

   End If
   rs.Close
   Set rs = Nothing

ex:

   On Error Resume Next
   If rs.State <> adStateClosed Then rs.Close
   Set rs = Nothing
   Exit Function

ErrorsHandler:
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

[font=Tahoma][font=Tahoma]End Function 


  
  
  - Hàm gán giá trị cho biến rồi lưu vào Table.
  
  

  Mã PHP:

  Public Function letsysvar(id As Integer, sValue As String) As Boolean[/font][/font]

   On Error GoTo ErrorsHandler
   Dim rs As ADODB.Recordset
   Dim strSQL As String

   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly

   If Not (rs.BOF And rs.EOF) Then
       strSQL = "UPDATE sysvariables SET varvalue = '" & sValue & "' "
       strSQL = strSQL & "WHERE id = " & id
       cnn.Execute strSQL
       letsysvar = True
   Else
       letsysvar = False
   End If

   rs.Close
   Set rs = Nothing

ex:
   On Error Resume Next
   Exit Function

ErrorsHandler:
   letsysvar = False
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

[font=Tahoma][font=Tahoma]End Function 


  
  
  Ví dụ:
  
  
  
  
  Bên cạnh đó nếu dùng hàm với tham số 'id' dạng số như vậy đôi khi mình cũng không nhớ nổi số 'id' nào cho biến nào. Ví dụ: id=1 là biến 'Company'. id=12 là AppName. Do vậy biến hóa chút cái hàm này để đưa tham số là tên biến luôn cho dể nhìn, dễ nhớ
  hoặc một các khác là dùng Enum.
  Nếu muốn đổi tham số là tên biến thì dùng trường [varname] trong câu lệnh SQL thay vì 'id'. 
  Nếu dùng Enum thì bạn phải khai báo kiểu Enum như bên dưới rồi đưa vào hàm.
  
  

  Mã PHP:

  Public Enum SysVariables
[/font]
   Company = 1
   Address = 2
   Director = 3
   ChiefAccountant = 4
   TaxCode = 5
   Tel = 6
   IncomeTaxRate = 7
   PeriodBegin = 8
   PeriodEnd = 9
   PrevPeriodBegin = 10
   PrevPeriodEnd = 11
   AppName = 12
   AppVersion = 13
   AppOwner = 14
   AppVersionDate = 15
   PathBEFile = 16
   PathBKFile = 17
   PathExportFile = 18
   UserName = 19
   UserLevel = 20
   DebugMode = 21
[font=Tahoma]End Enum 


  
  
  
  
  Cách dùng 3 hàm đều trả về trị như nhau.
  
  
  
  Các trường hợp sử dụng trong Query và Report.
  
  
  
  
  
  
  
  Chú ý: 
  - Hàm này trả về chuỗi (String) nên phải dùng các hàm convert để chuyển đổi sang dạng dữ liệu theo yêu cầu.
  - Hàm dùng tham số = Enum không dùng được trong Query nhé.
  
  Về thủ thuật sử dụng bảng lưu các biến cơ bản là như vậy. Các hàm get, Let này có thể dùng Dlookup() để lấy trị. Tôi cũng đã làm thử cách khai báo thêm kiểu Enum varType để chuyển đổi trị trả về thành Date, Number hay Boolean thẳng trong hàm luôn nhưng nó lại không dùng được cho Query (Saved query) nên thôi bỏ ra. Các bạn tay nghề cao sẽ biến hóa nhiều nữa  .
  
  Một trong nhưng cách khác nếu dùng Dlookup thì bạn phải sửa cái table lưu biến này chút nữa. Thêm các trường như :Stringval, DateVal, NumVal, BoolVal. Biến nào thuộc dạng nào sẽ lưu vào trường tương ứng.
  Vd: 
  varname      |  ...  | ... | DateVal    | ...     
  ------------------------------------------------- 
  PeriodBegin                01/07/2017
  
  Hàm dùng Dlookup:
  
  

  Mã PHP:

  Function getsysvarDate(var As String) As Date
Dim crit As String
crit = "varname = '" & variable & "'"
getsysvarDate = DLookup("Dateval", "sysvariables", crit)
End Function 


  
  Vd: getsysvarDate("PeriodBegin") = 01/07/2017
  
  
  Sau đâu là toàn bộ code cho module basSysVariables.
  
  

  Mã PHP:

  Option Explicit

' |=================================================================================|
' | Các giá tri bien duoc luu trong Table thay vi luu bang cac Control trong Form   |
' | hoac Form invisible.                                                            |
' | Dung hàm de lay (Get) cac bien dung cho Form và dùng duoc trong Query. Dung hàm |
' | gán giá tri (Let) cho các bien trong table.                                     |
' | Có 3 kieu ham:                                                                  |
' | 1. Dùng tham so 'id' de lay tri cua bien. Cách này gon hon nhung Dev phai nho   |
' |    'id' nào là bien nào.                                                        |
' | 2. Dùng kieu Enum làm tham so 'id' cho hàm. Giup Dev de su dung hon. Hàm có tham|
' |    so la Enum se không dùng duoc trong Query.                                   |
' | 3. Dung tham so là String (lay field 'varname') có the dùng duoc trong Query.   |
' |                                                                                 |
' | Nhuoc diem: Phai dùng các hàm Convert nhu CDate, CLong, CBool de chuyen doi     |
' |             chuoi tra ve tu ham getsysvar().                                    |
' |=================================================================================|


Global cnn As ADODB.Connection

Public Const conJetDate = "\#mm\/dd\/yyyy\#"

Public Enum SysVariables
   Company = 1
   Address = 2
   Director = 3
   ChiefAccountant = 4
   TaxCode = 5
   Tel = 6
   IncomeTaxRate = 7
   PeriodBegin = 8
   PeriodEnd = 9
   PrevPeriodBegin = 10
   PrevPeriodEnd = 11
   AppName = 12
   AppVersion = 13
   AppOwner = 14
   AppVersionDate = 15
   PathBEFile = 16
   PathBKFile = 17
   PathExportFile = 18
   UserName = 19
   UserLevel = 20
   DebugMode = 21
End Enum

Public Sub getCnn()

   On Error GoTo ErrorsHandler

   Select Case True
   Case cnn Is Nothing
       Set cnn = CurrentProject.Connection
       cnn.CursorLocation = adUseClient
   Case cnn = ""
       Set cnn = CurrentProject.Connection
       cnn.CursorLocation = adUseClient
   Case Else
       '...
   End Select

ex:
   Exit Sub

ErrorsHandler:
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Sub

Public Function getsysvar(id As Integer) As String

   On Error GoTo ErrorsHandler
   
   Dim rs As ADODB.Recordset

   getCnn

   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       getsysvar = Trim(rs!varvalue)
   Else
       getsysvar = False
   End If
   
   rs.Close
   Set rs = Nothing
   
ex:
   On Error Resume Next
   If rs.State <> adStateClosed Then rs.Close
   Set rs = Nothing
   Exit Function
   
ErrorsHandler:
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Function

Public Function letsysvar(id As Integer, sValue As String) As Boolean

   On Error GoTo ErrorsHandler
   
   Dim rs As ADODB.Recordset
   Dim strSQL As String
   
   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       strSQL = "UPDATE sysvariables SET varvalue = '" & sValue & "' "
       strSQL = strSQL & "WHERE id = " & id
       cnn.Execute strSQL
       letsysvar = True
   Else
       letsysvar = False
   End If

   rs.Close
   Set rs = Nothing
ex:
   On Error Resume Next
   Exit Function

ErrorsHandler:
   letsysvar = False
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Function

' |=================================================================================|
' | Thay the tham so 'id' bang Enum 'SysVariables'. Cách này giúp Dev de nho hon.   |
' |=================================================================================|

Public Function getsysvar2(id As SysVariables) As Variant

   On Error GoTo ErrorsHandler
   
   Dim rs As ADODB.Recordset
   Dim strFld As String

   getCnn
   
   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       getsysvar2 = Trim(rs!varvalue)
   Else
       getsysvar2 = False
   End If
   
   rs.Close
   Set rs = Nothing
   
ex:
   On Error Resume Next
   If rs.State <> adStateClosed Then rs.Close
   Set rs = Nothing
   Exit Function
   
ErrorsHandler:
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Function

' |=================================================================================|
' | Dung tham so 'varvalue' giúp Dev de nho hon.Cánh này phai dung cac ham convert  |
' | de chuyen String thành các dang tuong ung nhu: CDate(getsysvar2("PeriodBegin")) |                                 |
' |=================================================================================|

Public Function getsysvar3(vName As String) As String

   On Error GoTo ErrorsHandler
   
   Dim rs As ADODB.Recordset
   Dim strFld As String

   getCnn
   
   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE varname = '" & vName & "'"), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       getsysvar3 = Trim(rs!varvalue)
   Else
       getsysvar3 = False
   End If
   
   rs.Close
   Set rs = Nothing
   
ex:
   On Error Resume Next
   If rs.State <> adStateClosed Then rs.Close
   Set rs = Nothing
   Exit Function
   
ErrorsHandler:
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Function

Public Function letsysvar2(id As SysVariables, sValue As String) As Boolean

   On Error GoTo ErrorsHandler
   
   Dim rs As ADODB.Recordset
   Dim strSQL As String

   Set rs = New ADODB.Recordset
   rs.Open ("SELECT sysvariables.varvalue FROM sysvariables WHERE id = " & id), cnn, adOpenForwardOnly, adLockReadOnly
   If Not (rs.BOF And rs.EOF) Then
       strSQL = "UPDATE sysvariables SET varvalue = '" & sValue & "' "
       strSQL = strSQL & "WHERE id = " & id
       cnn.Execute strSQL
       letsysvar2 = True
   Else
       letsysvar2 = False
   End If

   rs.Close
   Set rs = Nothing
ex:
   On Error Resume Next
   Exit Function

ErrorsHandler:
   letsysvar2 = False
   MsgBox "Ma loi: " & Err.Number & vbCrLf & "Dien giai: " & Err.Description
   Resume ex

End Function 


  
  
  Link file demo: http://www.mediafire.com/file/18342kzkj2...s_demo.mdb[url=http://www.mediafire.com/file/18342kzkj2mrjy5/TableVariables_demo.mdb][/url]
  
  
  Happy weekend!
  
• Bài trước Bài tiếp