pherotao > 09-11-17, 06:12 PM
' tim xem soCT nay da co hay chua'
[/font]
k = 1
Do Until k = 0
vsoct = Right("000" & i, 3)
k = Len(Nz(DLookup("SoChungTu", "tblxuatnhap", "[NgayCT]=#" & Format(Me.txtngayct, "mm/dd/yyyy") & "# AND SoChungTu ='" & vsoct & "'"), ""))
i = i + 1
Loop
vrs.Close
Set vdata = Nothing
[font=Tahoma] SoChungTu = vsoct