add new 1 record vào table trong access không được (1 người xem)

[hoanghuytfs]

Hi các bạn !
- nhờ các bạn vui lòng sửa giúp mình đoạn code bị lỗi như sau :
- kết nối ADO giữa excel -> file access , 2 file để chung 1 thư mục, đường dẫn cố định
- thực hiện add new 1 record vào 1 table trong access nhưng giá trị không được thêm vào table
=> đây là đoạn code :

Option Explicit
Public CNN As New ADODB.Connection


Sub KETNOIDATABASE_OPEN()
Set CNN = New ADODB.Connection
Dim duongdanfileDB As String

duongdanfileDB = "Data Source =d:\DATA.mdb"
With CNN
.Provider = "Microsoft Jet 4.0 OLE DB Provider"
.ConnectionString = duongdanfileDB
'.Properties("Jet OLEDBatabase Password") = "AAAA" neu file DB co pass thi them dong nay
.CursorLocation = adUseClient
.Open
End With

End Sub


Sub IMPORTDATA_FROMEXCEL_TOTABLE()

Dim rst_tbtTHPHIEU As New ADODB.Recordset

' Kiem tra tinh trang ket noi
If CNN.State <> 1 Then Call mod_CONNECTADO.KETNOIDATABASE_OPEN

'1.////cap nhat TABLE :tbl_SCAN_THPHIEU
rst_tbtTHPHIEU.Open "tbl_TH_PXK", CNN, adOpenDynamic, adLockPessimistic, adCmdTable
With rst_tbtTHPHIEU
.AddNew
.Fields("SOTO_SCAN") = Sheets("PXK").Range("C1").Value
.Fields("NGAY_SCAN") = Sheets("PXK").Range("E1").Value
.Fields("CUAHANG_SCAN") = Sheets("PXK").Range("C2").Value
End With
MsgBox " DA CAP NHAT XONG "
CNN.Close
Set CNN = Nothing
rst_tbtTHPHIEU.Close
Set rst_tbtTHPHIEU = Nothing

End Sub

 

[susu16b]

Hi các bạn !
- nhờ các bạn vui lòng sửa giúp mình đoạn code bị lỗi như sau :
- kết nối ADO giữa excel -> file access , 2 file để chung 1 thư mục, đường dẫn cố định
- thực hiện add new 1 record vào 1 table trong access nhưng giá trị không được thêm vào table
=> đây là đoạn code :

..................
With rst_tbtTHPHIEU
.AddNew
.Fields("SOTO_SCAN") = Sheets("PXK").Range("C1").Value
.Fields("NGAY_SCAN") = Sheets("PXK").Range("E1").Value
.Fields("CUAHANG_SCAN") = Sheets("PXK").Range("C2").Value
End With
................
End Sub

Trong tbl_TH_PXK không có các trường màu đỏ. Mà chỉ có: SOPHIEUXUAT, NGAYXUAT, CUAHANG
Ngoài ra bạn còn thiếu 1 dòng lệnh quan trọng là:
.Update
sau khi:
.AddNew