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:

• Xuân Thanh cho mình hỏi tí!
• Autonumber nó không chạy từ 1 mà là chạy từ số nào đó
• Đếm ngày trong một Tháng/Năm
• Chỉ giúp em chỗ sai của đoạn code này.
• Hàm DSum() với 2 điều kiện chuỗi số và chữ
• Tìm kiếm với hai điều kiệm trong 1textbox
• Tổng quát về phần mềm quản lý nhập - xuất - tồn
• Hiển thị thông tin từ table lên form
• Xuất report access sang word,excell
• Bấm nút có thêm Record đã điền trong textbox

[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