Lỗi khi thêm dữ liệu vào CSDL Access

[ngocquangyb]

Mình có một vấn đề như sau: Khi thêm một bản ghi vào trong CSDL dùng cách sau

Set db = currentDB
Set rs = db.OpenRecordset("tblPhuongAnKT")
rs.AddNew
rs.Fields("NgayThangNam").Value = txtNgayThangNam
rs.Fields("TenKhachHang").Value = txtTenKhachHang
rs.Fields("TenHang").Value = txtTenHang
rs.Fields("MaHang").Value = txtMaHang
rs.Fields("SoDangKy").Value = txtSoDangKy
rs.Fields("KichThuocVi").Value = txtKichThuocVi
rs.Fields("GiayIn").Value = txtGiayIn
rs.Fields("DacTinh").Value = txtDacTinh
rs.Fields("KhoGiay").Value = txtKhoGiay
rs.Fields("BoTriMay").Value = txtBoTriMay
rs.Fields("LoaiOng1").Value = txtLoaiOng1
rs.Fields("ChuViOng1").Value = txtChuViOng1
rs.Fields("Mau11").Value = txtMau11
rs.Fields("Mau12").Value = txtMau12
rs.Fields("LoaiOng2").Value = txtLoaiOng2
rs.Fields("ChuViOng2").Value = txtChuViOng2
rs.Fields("Mau21").Value = txtMau21
rs.Fields("Mau22").Value = txtMau22
rs.Fields("YeuCauKT").Value = txtYeuCauKT
rs.Fields("GhiChu").Value = txtGhiChu
rs.Fields("MauChuan").Value = oleMauChuan
rs.Fields("SoMau").Value = n
rs.Update
rs.Close

Câu lệnh trên được viết trên sự kiện “cmdLuu_click()” trên form nhập dữ liệu của Access. Các câu lệnh thực hiện thì OK nhưng có một vấn đề xảy ra là khi số bản ghi trong bảng nhiều (trên 20 bản ghi) thì một số bản ghi tự động bị xoá mất dữ liệu hoặc bị bản ghi mới add vào đè lên. Bạn nào đã có kinh nghiệm xử lý vấn đề này xin chỉ giúp mình với.
Thank very much.

View more random threads:

• Dữ liệu không cập nhật kịp thời khi In report
• 10 thủ thuật bảo mật cơ sở dữ liệu Access
• Lỗi khi import dữ liệu vào table
• Cho mình hỏi về Link table qua mạng Lan với
• Về các bài hướng dẫn tạo một phần mềm quản lý bán hàng bằng Access
• Connect ODBC trong ACCESS!
• Đưa nhiều record vào một Unbound
• tìm tên khách hàng và hiển thị tất cả các dữ liệu liên quan lên form và subform
• Xuân Thanh cho mình hỏi tí!
• xây dựng môt số hàm thông dụng

[laihaihoa]

Ðề: Lỗi khi thêm dữ liệu vào CSDL Access

Mình có một vấn đề như sau: Khi thêm một bản ghi vào trong CSDL dùng cách sau

Set db = currentDB
Set rs = db.OpenRecordset("tblPhuongAnKT")
rs.AddNew
rs.Fields("NgayThangNam").Value = txtNgayThangNam
rs.Fields("TenKhachHang").Value = txtTenKhachHang
rs.Fields("TenHang").Value = txtTenHang
rs.Fields("MaHang").Value = txtMaHang
rs.Fields("SoDangKy").Value = txtSoDangKy
rs.Fields("KichThuocVi").Value = txtKichThuocVi
rs.Fields("GiayIn").Value = txtGiayIn
rs.Fields("DacTinh").Value = txtDacTinh
rs.Fields("KhoGiay").Value = txtKhoGiay
rs.Fields("BoTriMay").Value = txtBoTriMay
rs.Fields("LoaiOng1").Value = txtLoaiOng1
rs.Fields("ChuViOng1").Value = txtChuViOng1
rs.Fields("Mau11").Value = txtMau11
rs.Fields("Mau12").Value = txtMau12
rs.Fields("LoaiOng2").Value = txtLoaiOng2
rs.Fields("ChuViOng2").Value = txtChuViOng2
rs.Fields("Mau21").Value = txtMau21
rs.Fields("Mau22").Value = txtMau22
rs.Fields("YeuCauKT").Value = txtYeuCauKT
rs.Fields("GhiChu").Value = txtGhiChu
rs.Fields("MauChuan").Value = oleMauChuan
rs.Fields("SoMau").Value = n
rs.Update
rs.Close

Câu lệnh trên được viết trên sự kiện “cmdLuu_click()” trên form nhập dữ liệu của Access. Các câu lệnh thực hiện thì OK nhưng có một vấn đề xảy ra là khi số bản ghi trong bảng nhiều (trên 20 bản ghi) thì một số bản ghi tự động bị xoá mất dữ liệu hoặc bị bản ghi mới add vào đè lên. Bạn nào đã có kinh nghiệm xử lý vấn đề này xin chỉ giúp mình với.
Thank very much.

Lỗi là cái chắc. Nếu muốn AddNew thì làm như thế này :
C1:

[COLOR=#000000]
[/COLOR][COLOR=#007700]....      [/COLOR][COLOR=#0000BB]rs[/COLOR][COLOR=#007700]![/COLOR][COLOR=#0000BB]NgayThangNam [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]txtNgayThangNam      rs[/COLOR][COLOR=#007700]![/COLOR][COLOR=#0000BB]TenKhachHang [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]txtTenKhachHang      [/COLOR][COLOR=#007700]....[/COLOR] 

C2

[COLOR=#000000]
[/COLOR][COLOR=#007700]...     [/COLOR][COLOR=#0000BB]rs[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Fields[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]txtNgayThangNam     rs[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Fields[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]txtTenKhachHang     [/COLOR][COLOR=#007700]....[/COLOR] 

Thân mến

[chicilonmedia]

Ðề: Lỗi khi thêm dữ liệu vào CSDL Access

Mình có một vấn đề như sau: Khi thêm một bản ghi vào trong CSDL dùng cách sau

Set db = currentDB
Set rs = db.OpenRecordset("tblPhuongAnKT")
rs.AddNew
rs.Fields("NgayThangNam").Value = txtNgayThangNam
rs.Fields("TenKhachHang").Value = txtTenKhachHang
rs.Fields("TenHang").Value = txtTenHang
rs.Fields("MaHang").Value = txtMaHang
rs.Fields("SoDangKy").Value = txtSoDangKy
rs.Fields("KichThuocVi").Value = txtKichThuocVi
rs.Fields("GiayIn").Value = txtGiayIn
rs.Fields("DacTinh").Value = txtDacTinh
rs.Fields("KhoGiay").Value = txtKhoGiay
rs.Fields("BoTriMay").Value = txtBoTriMay
rs.Fields("LoaiOng1").Value = txtLoaiOng1
rs.Fields("ChuViOng1").Value = txtChuViOng1
rs.Fields("Mau11").Value = txtMau11
rs.Fields("Mau12").Value = txtMau12
rs.Fields("LoaiOng2").Value = txtLoaiOng2
rs.Fields("ChuViOng2").Value = txtChuViOng2
rs.Fields("Mau21").Value = txtMau21
rs.Fields("Mau22").Value = txtMau22
rs.Fields("YeuCauKT").Value = txtYeuCauKT
rs.Fields("GhiChu").Value = txtGhiChu
rs.Fields("MauChuan").Value = oleMauChuan
rs.Fields("SoMau").Value = n
rs.Update
rs.Close

Câu lệnh trên được viết trên sự kiện “cmdLuu_click()” trên form nhập dữ liệu của Access. Các câu lệnh thực hiện thì OK nhưng có một vấn đề xảy ra là khi số bản ghi trong bảng nhiều (trên 20 bản ghi) thì một số bản ghi tự động bị xoá mất dữ liệu hoặc bị bản ghi mới add vào đè lên. Bạn nào đã có kinh nghiệm xử lý vấn đề này xin chỉ giúp mình với.
Thank very much.

Bạn bỏ phần .Value đi thử coi
rs.Fields("NgayThangNam").Value = txtNgayThangNam
=> rs.Fields("NgayThangNam") = txtNgayThangNam