Xin kiểm tra giúp code

Win Thúi

New Member
Hội viên mới
Dear mọi người,
Em mới tập tành vào access + VBA. Các anh chị xem giúp em 2 đoạn code sau (trên cùng 1 form) có phải đang bị "đụng" nhau không ạ?
Vì khi em chạy chạy nút Update thì VB không báo lỗi, nhưng giá trị không được đưa vào table.
Em xin cảm ơn!

Mã:
Private Sub cbDwgFU_AfterUpdate()
    Me.tbMax_Hi_Lo = Me.cbDwgFU.Column(1)
    Me.tbR_Face = Me.cbDwgFU.Column(2)
    Me.tbR_Gap = Me.cbDwgFU.Column(3)
    Me.tbReport_FU = Me.cbDwgFU.Column(4)
    Me.tbDate_FU = Me.cbDwgFU.Column(5)
    Me.cbWD1 = Me.cbDwgFU.Column(6)
    Me.cbWD2 = Me.cbDwgFU.Column(7)
    Me.cbWD3 = Me.cbDwgFU.Column(8)
    Me.cbWD4 = Me.cbDwgFU.Column(9)
    Me.cbWD5 = Me.cbDwgFU.Column(10)
    Me.cbWD6 = Me.cbDwgFU.Column(11)
    Me.tbWPS = Me.cbDwgFU.Column(12)
    Me.tbProcess = Me.cbDwgFU.Column(13)
    Me.tbReport_VS = Me.cbDwgFU.Column(14)
    Me.tbDate_VS = Me.cbDwgFU.Column(15)
End Sub

Và đoạn thứ 2 như sau:
Mã:
Private Sub cmdUpd3_Click()
    'When we click on button Update
        CurrentDb.Execute "UPDATE JOINTS " & _
                            "SET Max_Hi_Lo='" & Me.tbMax_Hi_Lo & _
                                "', R_Face='" & Me.tbR_Face & _
                                "', R_Gap='" & Me.tbR_Gap & _
                                "', Report_FU='" & Me.tbReport_FU & _
                                "', Date_FU='" & Me.tbDate_FU & _
                                "', WD_1='" & Me.cbWD1 & _
                                "', WD_2='" & Me.cbWD2 & _
                                "', WD_3='" & Me.cbWD3 & _
                                "', WD_4='" & Me.cbWD4 & _
                                "', WD_5='" & Me.cbWD5 & _
                                "', WD_6='" & Me.cbWD6 & _
                                "', WPS='" & Me.tbWPS & _
                                "', Process='" & Me.tbProcess & _
                                "', Report_VS='" & Me.tbReport_VS & _
                                "', Date_VS='" & Me.tbDate_VS & "'" & _
                            "WHERE J_No='" & Me.cbJFU & "' AND Dwg_No='" & Me.cbDwgFU & "'"
    End If
        'Clearn form
            cmdCle3_Click
        'Refer data in list on subform
            Me.subFU.Form.Requery
End Sub
 
Mod ơi xoá dùm em topic này nhé.
Em đã tìm được nguyên nhân rồi ạ.
Thank all.
 
như tiêu đề, anh em nào rãnh qua team giúp giùm mình với , mò từ sáng giờ mà không cài được. xin cảm ơn ae trước.

220675108
pass: 2811
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top