I try to use code following code to update the table but received error. I don't know how to fix this error. Anyone know please help me.
Private Sub DungTy_AfterUpdate()
Dim T05b As Recordset
Set T05b = CurrentDb.OpenRecordset("T05b Chi tiet LABDIP", dbOpenTable)
T05b.Index = "Color_code"
T05b.Seek "=", Color_Code
If Not T05b.NoMatch Then
Do
If T05b.EOF Then Exit Do
If T05b!Loai_ND Like "GL" Then
T05b!SlgSDung = T05b!Nong_do DungTy / 1000
TTien = Dgia SlgSDung
End If
T05b.MoveNext
Loop
End If
T05b.Close
Call TinhGiaNhuom
End Sub