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

Append cả giá trị 0 vào table mới

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Append cả giá trị 0 vào table mới
• Append cả giá trị 0 vào table mới

• Append cả giá trị 0 vào table mới

  hueqlhc > 14-05-14, 11:19 PM

  Tôi có dữ liệu như sau:
  http://www.mediafire.com/download/67k8qq...CT_-_5.mdb
  Có 2 vấn đề muốn các ace giúp đỡ.
  1. Tôi có qryUPDATEXDLLThang dùng để tạo một table mới với các trường dữ liệu mới đã thành công. Nhưng đối với các giá trị 0 thì nó không cập nhập được. Vậy có thể dùng lệnh nào để thực hiện, mong các bạn chỉ giáo.
  2. Nếu đã cập nhập được thì tôi muốn khi dữ liệu bị trùng thì nó sẽ không cho cập nhập.
  Mong các ace giúp đỡ nhiều. Thanks.

• RE: Append cả giá trị 0 vào table mới

  Minh Tiên > 15-05-14, 03:32 PM

  1. Tôi thấy qryUPDATEXDLLThang của bạn là "Append query" chứ không phải là "Make query" nên không tạo mới table được. Việc bạn tạo mới 1 table với các trường có giá trị là 0 vẫn OK mà !
  2. Nếu không muốn Update các giá trị trùng thì hãy dùng code đi nhé !
  Mình lấy 1 ví dụ một sub Update như sau:
  

  Mã:

  Private sub Update()
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("TableName", dbOpenTable) 'TableName là tên Table của bạn cần Update.
    rs.Index = "Primarykey"
    rs.Seek "=", "Field" 'Field là tên trường tương ứng với trường bạn lập chỉ mục trong TableName của bạn. Nếu dùng trực tiếp trên Form bạn có thể thay "Field" bằng Me.TextboxName.Value
    If rs.NoMatch Then
        rs.AddNew
        rs!Field = "Field" 'Nếu sub bạn đặt trong form bạn có thể thay "Field" bằng Me.TextboxName.Value
        rs!Field1 = "Field1" 'Tương tự như trên.
        ...
        rs.Update
    End If
    rs.Close
    Set db = Nothing
End sub

  Bạn hãy biến tấu cho ứng dụng của bạn nhé. Chúc bạn thành công !
  Thân chào !

• RE: Append cả giá trị 0 vào table mới

  hueqlhc > 15-05-14, 11:08 PM

  (15-05-14, 03:32 PM)tmtien261 Đã viết: 1. Tôi thấy qryUPDATEXDLLThang của bạn là "Append query" chứ không phải là "Make query" nên không tạo mới table được. Việc bạn tạo mới 1 table với các trường có giá trị là 0 vẫn OK mà !
  2. Nếu không muốn Update các giá trị trùng thì hãy dùng code đi nhé !
  Mình lấy 1 ví dụ một sub Update như sau:
  

  Mã:

  Private sub Update()
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("TableName", dbOpenTable) 'TableName là tên Table của bạn cần Update.
    rs.Index = "Primarykey"
    rs.Seek "=", "Field" 'Field là tên trường tương ứng với trường bạn lập chỉ mục trong TableName của bạn. Nếu dùng trực tiếp trên Form bạn có thể thay "Field" bằng Me.TextboxName.Value
    If rs.NoMatch Then
        rs.AddNew
        rs!Field = "Field" 'Nếu sub bạn đặt trong form bạn có thể thay "Field" bằng Me.TextboxName.Value
        rs!Field1 = "Field1" 'Tương tự như trên.
        ...
        rs.Update
    End If
    rs.Close
    Set db = Nothing
End sub

  Bạn hãy biến tấu cho ứng dụng của bạn nhé. Chúc bạn thành công !
  Thân chào !

  
  Vấn đề 1 có lẽ do mình đặt câu hỏi chưa kỹ nên bạn hiểu nhầm. Ý mình là mặc dù các đơn vị khác không có dữ liệu nhưng khi thực hiện query qryUPDATETHANG thì nó vẫn xuất hiện các trường với giá trị bằng 0.
  Vấn đề 2 thì mình vẫn đang biến tấu theo như bạn đã chỉ.
  Thanks. Mong các bạn hồi âm sớm.

• RE: Append cả giá trị 0 vào table mới

  Minh Tiên > 16-05-14, 11:34 AM

  Xin lỗi "hueqlhc", mình vẫn chưa hiểu hết ý của bạn. Bạn hãy nói rõ hơn tí nhé ! Có thể cho VD càng tốt, khi đó các Pro sẽ giúp bạn.
  Thân chào !
• Bài trước Bài tiếp