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

Về CSDL quản lý và cập nhật

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • [Help] Về CSDL quản lý và cập nhật
• Về CSDL quản lý và cập nhật

• Về CSDL quản lý và cập nhật

  hungthanmx > 20-08-16, 10:26 AM

  Chào tất cả mọi người, mình mới lọ mọ vào diễn đàn, mong được mọi người giúp đỡ nhiều.
  Mình đang có bài tập Access như sau, xin được mọi người chỉ giáo:
  - Mình có file Access gồm 2 bảng: 1 bảng CSDL lưu trữ tên và tình trạng làm việc của nhân viên, 1 bảng là Update như file đính kèm.
  - Mình đã tạo relationship cho 2 bảng bởi field ID.
  - Ý mình muốn đối với file này, đó là khi mình nhập dữ liệu vào bảng CSDL, thì dữ liệu của bảng Update tự nhảy (tự động điền):
      + ID: Tự nhảy về ID đang cập nhật ở bảng CSDL.
      + Ngày cập nhật: Tự nhảy về ngày hiện tại.
      + Tình hình cập nhật: Tự nhảy theo cấu trúc: "Thay đổi [Tên cột] từ [Giá trị cũ] sang [Giá trị mới]".
      + Người cập nhật: Tự nhảy về user đang dùng máy.
  - Vấn đề ở đây là:
      + Mình không biết làm những cái trên, mong mọi người chỉ giáo 
      + Mình cũng đã nghĩ tới cách nhập tay vào bảng Update, sử dụng bảng con. Khi thao tác ở bảng CSDL thì sẽ có bảng con là bảng Update, mình ấn dấu cộng thì nó sẽ hiện ra, cập nhật tới đâu mình đánh tay đến đó. Tuy nhiên, khi thao tác trên bảng thì nó tự nhảy ID từ bảng CSDL sang bảng Update được thật, rất tiện, nhưng khi chuyển sang form thì nó lại không nhảy ô ID, cũng không hiện ô ID mà đánh luôn. Nếu theo cách này cũng xin nhờ mọi người chỉ điểm 
  File đây ạ, suýt quên: https://drive.google.com/file/d/0B135QFv...sp=sharing
  Cám ơn mọi người rất nhiều 

• RE: Về CSDL quản lý và cập nhật

  toancvp > 20-08-16, 05:28 PM

  Hình như bạn có chút nhầm lẫn trong ý tưởng thiết kế, form nhập liệu của bạn là form cho "bảng cha", theo mình ko nên là form dùng cập nhật dữ liệu cho "bảng con". Bởi vì bạn hình dung hôm nay nhập ID 001 chẳng hạn, ngày mai bạn thay đổi tình trạng của 001 thì sẽ phải vào Edit chứ ko phải Add new.

• RE: Về CSDL quản lý và cập nhật

  hungthanmx > 20-08-16, 08:38 PM

  (20-08-16, 05:28 PM)toancvp Đã viết: Hình như bạn có chút nhầm lẫn trong ý tưởng thiết kế, form nhập liệu của bạn là form cho "bảng cha", theo mình ko nên là form dùng cập nhật dữ liệu cho "bảng con". Bởi vì bạn hình dung hôm nay nhập ID 001 chẳng hạn, ngày mai bạn thay đổi tình trạng của 001 thì sẽ phải vào Edit chứ ko phải Add new.

  
  Cám ơn bạn đã góp ý
  Tuy nhiên mình cũng k hiểu ý bạn lắm :v
  Còn ý của mình là mình có bảng CSDL lưu trữ thông tin, khi mà bất kỳ ai vào thay đổi nội dung của bảng này thì tình trạng thay đổi của nó sẽ được cập nhật vào bảng Update (2 bảng link theo số ID, để mình có thể nhìn cả tổng thể thay đổi của tất cả dữ liệu và của mỗi dữ liệu).
  Mong được chỉ giáo thêm T.T

• RE: Về CSDL quản lý và cập nhật

  toancvp > 21-08-16, 12:34 PM

  Ở #1 thì bạn muốn rằng khi "đó là khi mình nhập dữ liệu vào bảng CSDL", nên mình cho rằng thiết kế như hiện tại là ko hợp lý vì cách bạn bố trí form CSDL như vậy mang tính thay đổi dữ liệu cũ nhiều hơn là nhập mới.
  Như ý bạn ở #3 thì "khi mà bất kỳ ai vào thay đổi nội dung của bảng này", vậy theo mình nên dùng append Query.
  Tạo một query có các Field thể hiện như ý bạn muốn, tạo điều kiện lọc là [ID] trong Form CSDL để nó chỉ ra một ID duy nhất thôi.
  Sau đó biến nó thành Append Query, nối vào các dữ liệu mà bạn muốn.
  Ở event After Update của Form CSDL thì tạo cái macro SetWarning = No, sau đó Open Query vừa tạo là ra.

• RE: Về CSDL quản lý và cập nhật

  ongke0711 > 21-08-16, 04:03 PM

  (20-08-16, 10:26 AM)hungthanmx Đã viết: ...
  - Ý mình muốn đối với file này, đó là khi mình nhập dữ liệu vào bảng CSDL, thì dữ liệu của bảng Update tự nhảy (tự động điền):
      + ID: Tự nhảy về ID đang cập nhật ở bảng CSDL.
      + Ngày cập nhật: Tự nhảy về ngày hiện tại.
      + Tình hình cập nhật: Tự nhảy theo cấu trúc: "Thay đổi [Tên cột] từ [Giá trị cũ] sang [Giá trị mới]".
      + Người cập nhật: Tự nhảy về user đang dùng máy.
  ...

  
  Cái bạn muốn là một dạng theo dõi, ghi lại nhưng thay đổi dữ liệu khi người dùng cập nhật dữ liệu (Track change).
  Hàm sau đây (WriteChanges) sẽ thực hiện điều này. Hàm sẽ thực hiện Insert thông tin các trường được cập nhật và nội dung cập nhật vào table "tblUpdate".
  Chú ý: 
  - Những form mà bạn muốn theo dõi phải là dạng Bound Form. Sử dụng sự kiện Before Update của form và OldValue của Control để ghi lại những thay đổi phát sinh.
  - Tên table không được đặt trùng tên với các từ khóa mặc địng của Access. Vd: bạn đặt tên table "Update" là vi phạm, khi chạy code sẽ báo lỗi.
  
  
  
  - Hàm WriteChanges()
  

  Mã PHP:

  Public Function WriteChanges()

   Dim frm As Form
   Dim ctl As Control
   Dim frmname As String, user As String, sql As String, changes As String
   Dim db As DAO.Database

   Set frm = Screen.ActiveForm
   Set db = CurrentDb

   frmname = Screen.ActiveForm.Name
   user = Application.CurrentUser
   changes = ""

   sql = "INSERT INTO tblUpdate " & _
        "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
        "VALUES (#" & Date & "#,'" & frmname & "', '" & user & "', "
   
   For Each ctl In frm.Controls
     Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acOptionGroup
              If IsNull(ctl.OldValue) And Not IsNull(ctl.Value) Then
                 changes = changes & _
                 ctl.Name & "--" & "BLANK" & "--" & ctl.Value & _
                 vbCrLf
              ElseIf IsNull(ctl.Value) And Not IsNull(ctl.OldValue) Then
                 changes = changes & _
                 ctl.Name & "--" & ctl.OldValue & "--" & "BLANK" & _
                 vbCrLf
              ElseIf ctl.Value <> ctl.OldValue Then
                 changes = changes & _
                 ctl.Name & ": " & ctl.OldValue & "--> " & ctl.Value & _
                 vbCrLf
              End If
     End Select
   Next ctl

  sql = sql & "'ID=" & frm.txtID & "-" & changes & "');"
   db.Execute sql, dbFailOnError

   Set frm = Nothing
   Set db = Nothing

End Function 


  
  - Ở sự kiện Form_BeforeUpdate:
  

  Mã PHP:

  Private Sub Form_BeforeUpdate(Cancel As Integer)
   WriteChanges
   Me.subUpdate.Requery
End Sub 


  
  Link file demo: http://www.mediafire.com/download/6l3hcj...esForm.mdb

• RE: Về CSDL quản lý và cập nhật

  hungthanmx > 22-08-16, 09:53 AM

  (21-08-16, 04:03 PM)ongke0711 Đã viết: Cái bạn muốn là một dạng theo dõi, ghi lại nhưng thay đổi dữ liệu khi người dùng cập nhật dữ liệu (Track change).
  Hàm sau đây (WriteChanges) sẽ thực hiện điều này. Hàm sẽ thực hiện Insert thông tin các trường được cập nhật và nội dung cập nhật vào table "tblUpdate".
  Chú ý: 
  - Những form mà bạn muốn theo dõi phải là dạng Bound Form. Sử dụng sự kiện Before Update của form và OldValue của Control để ghi lại những thay đổi phát sinh.
  - Tên table không được đặt trùng tên với các từ khóa mặc địng của Access. Vd: bạn đặt tên table "Update" là vi phạm, khi chạy code sẽ báo lỗi.
  
  
  
  - Hàm WriteChanges()
  

  Mã PHP:

  Public Function WriteChanges()

   Dim frm As Form
   Dim ctl As Control
   Dim frmname As String, user As String, sql As String, changes As String
   Dim db As DAO.Database

   Set frm = Screen.ActiveForm
   Set db = CurrentDb

   frmname = Screen.ActiveForm.Name
   user = Application.CurrentUser
   changes = ""

   sql = "INSERT INTO tblUpdate " & _
        "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
        "VALUES (#" & Date & "#,'" & frmname & "', '" & user & "', "
   
   For Each ctl In frm.Controls
     Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acOptionGroup
              If IsNull(ctl.OldValue) And Not IsNull(ctl.Value) Then
                 changes = changes & _
                 ctl.Name & "--" & "BLANK" & "--" & ctl.Value & _
                 vbCrLf
              ElseIf IsNull(ctl.Value) And Not IsNull(ctl.OldValue) Then
                 changes = changes & _
                 ctl.Name & "--" & ctl.OldValue & "--" & "BLANK" & _
                 vbCrLf
              ElseIf ctl.Value <> ctl.OldValue Then
                 changes = changes & _
                 ctl.Name & ": " & ctl.OldValue & "--> " & ctl.Value & _
                 vbCrLf
              End If
     End Select
   Next ctl

  sql = sql & "'ID=" & frm.txtID & "-" & changes & "');"
   db.Execute sql, dbFailOnError

   Set frm = Nothing
   Set db = Nothing

End Function 


  
  - Ở sự kiện Form_BeforeUpdate:
  

  Mã PHP:

  Private Sub Form_BeforeUpdate(Cancel As Integer)
   WriteChanges
   Me.subUpdate.Requery
End Sub 


  
  Link file demo: http://www.mediafire.com/download/6l3hcj...esForm.mdb

  
  Ôi đây là cái em cần này )
  Vì mới tìm hiểu Access nên chưa rõ cụ thể lắm.
  Em chỉ muốn làm kiểu đơn giản này để cập nhật CSDL thôi
  Cám ơn các bác đã chỉ giáo nhiều T.T
  Em sẽ cố gắng tìm hiểu thêm T.T

• RE: Về CSDL quản lý và cập nhật

  toidjtjmtoi > 18-09-17, 05:35 PM

  (21-08-16, 04:03 PM)ongke0711 Đã viết:

  (20-08-16, 10:26 AM)hungthanmx Đã viết: ...
  - Ý mình muốn đối với file này, đó là khi mình nhập dữ liệu vào bảng CSDL, thì dữ liệu của bảng Update tự nhảy (tự động điền):
      + ID: Tự nhảy về ID đang cập nhật ở bảng CSDL.
      + Ngày cập nhật: Tự nhảy về ngày hiện tại.
      + Tình hình cập nhật: Tự nhảy theo cấu trúc: "Thay đổi [Tên cột] từ [Giá trị cũ] sang [Giá trị mới]".
      + Người cập nhật: Tự nhảy về user đang dùng máy.
  ...

  
  Cái bạn muốn là một dạng theo dõi, ghi lại nhưng thay đổi dữ liệu khi người dùng cập nhật dữ liệu (Track change).
  Hàm sau đây (WriteChanges) sẽ thực hiện điều này. Hàm sẽ thực hiện Insert thông tin các trường được cập nhật và nội dung cập nhật vào table "tblUpdate".
  Chú ý: 
  - Những form mà bạn muốn theo dõi phải là dạng Bound Form. Sử dụng sự kiện Before Update của form và OldValue của Control để ghi lại những thay đổi phát sinh.
  - Tên table không được đặt trùng tên với các từ khóa mặc địng của Access. Vd: bạn đặt tên table "Update" là vi phạm, khi chạy code sẽ báo lỗi.
  
  
  
  - Hàm WriteChanges()
  

  Mã PHP:

  Public Function WriteChanges()

   Dim frm As Form
   Dim ctl As Control
   Dim frmname As String, user As String, sql As String, changes As String
   Dim db As DAO.Database

   Set frm = Screen.ActiveForm
   Set db = CurrentDb

   frmname = Screen.ActiveForm.Name
   user = Application.CurrentUser
   changes = ""

   sql = "INSERT INTO tblUpdate " & _
        "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
        "VALUES (#" & Date & "#,'" & frmname & "', '" & user & "', "
   
   For Each ctl In frm.Controls
     Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acOptionGroup
              If IsNull(ctl.OldValue) And Not IsNull(ctl.Value) Then
                 changes = changes & _
                 ctl.Name & "--" & "BLANK" & "--" & ctl.Value & _
                 vbCrLf
              ElseIf IsNull(ctl.Value) And Not IsNull(ctl.OldValue) Then
                 changes = changes & _
                 ctl.Name & "--" & ctl.OldValue & "--" & "BLANK" & _
                 vbCrLf
              ElseIf ctl.Value <> ctl.OldValue Then
                 changes = changes & _
                 ctl.Name & ": " & ctl.OldValue & "--> " & ctl.Value & _
                 vbCrLf
              End If
     End Select
   Next ctl

  sql = sql & "'ID=" & frm.txtID & "-" & changes & "');"
   db.Execute sql, dbFailOnError

   Set frm = Nothing
   Set db = Nothing

End Function 


  
  - Ở sự kiện Form_BeforeUpdate:
  

  Mã PHP:

  Private Sub Form_BeforeUpdate(Cancel As Integer)
   WriteChanges
   Me.subUpdate.Requery
End Sub 


  
  Link file demo: http://www.mediafire.com/download/6l3hcj...esForm.mdb

  
  cho mình hỏi biến nguoicapnhat lấy ở đâu vậy bạn

• RE: Về CSDL quản lý và cập nhật

  ongke0711 > 18-09-17, 08:46 PM

  (18-09-17, 05:35 PM)toidjtjmtoi Đã viết: cho mình hỏi biến nguoicapnhat lấy ở đâu vậy bạn

  
  sql = "INSERT INTO tblUpdate " & _
          "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
  ...
  
  Nó không phải là biến mà là tên trường ở table ghi lại thông tin khi có người sửa đổi dữ liệu.
  Table gồm các trường: NgayCaphat, FormCapNhat,NguoiCapNhat, TinhHinhCapNhat

• RE: Về CSDL quản lý và cập nhật

  toidjtjmtoi > 19-09-17, 10:13 AM

  (18-09-17, 08:46 PM)ongke0711 Đã viết:

  (18-09-17, 05:35 PM)toidjtjmtoi Đã viết: cho mình hỏi biến nguoicapnhat lấy ở đâu vậy bạn

  
  sql = "INSERT INTO tblUpdate " & _
          "([NgayCapNhat],[FormCapNhat], [NguoiCapNhat], [TinhHinhCapNhat]) " & _
  ...
  
  Nó không phải là biến mà là tên trường ở table ghi lại thông tin khi có người sửa đổi dữ liệu.
  Table gồm các trường: NgayCaphat, FormCapNhat,NguoiCapNhat, TinhHinhCapNhat

  
  mình thay from rồi mà người cập nhật nó cứ mặc định gi là admin . Mà nó không ghi nhận được thay đổi của subform phải ko bạn ? . Mình thay đổi subform nó không ghi nhận lại

• RE: Về CSDL quản lý và cập nhật

  ongke0711 > 19-09-17, 10:41 AM

  (19-09-17, 10:13 AM)toidjtjmtoi Đã viết: mình thay from rồi mà người cập nhật nó cứ mặc định gi là admin :

  
  Bạn phải đọc hiểu kỹ các đoạn code rồi mới áp dụng, tùy biến cho mình chứ.
  - Trong đoạn code tôi có khai báo cái biến 'user':
    user = Application.CurrentUser  
  ==> tức là nó sẽ lấy User của hệ thống đang mở ứng dụng Access. Bạn là quyền Admin của máy nên nó sẽ hiển thị là 'Admin'.
  - Bạn khai báo lại cái biến 'User' này bằng tên User đăng nhập ứng dụng của bạn nếu bạn đã có thiết lập phân quyền đăng nhập.
  Vd: user= Me.txtUser  --> txtUser là textbox chứa tên người dùng đăng nhập ở form Login.
• Bài trước Bài tiếp