Tim kiem dung cac phuong thuc Find.. . trong thu tuc tien hanh doi to , doi lop duoc nhap tu ban phim.

Sub tim_kiem_dung_find_doi_ten_lop()

Dim db As Database, rec As Recordset, dk As String

Dim tlop As String, tenmoi As String

Set db = CurrentDb()

Set rec=db.OpenRecordset("dshs", dbOpenDynaset)

'DOI TO 5 THANH TO 1

dk = "[TO]='5' "

rec.FindFirst dk

Do Until rec.NoMatch

rec.Edit

rec("TO") ="1"

rec.Update

rec.FindNext dk

Loop

' DOI TEN LOP NHAP VAO

rec.moveFirst

tlop=InputBox$("ten lop cu can doi ten ")

tenmoi=InputBox$("ten lop moi")

dk="[lop]= "& " ' " & tlop 7 " ' "

rec.FindFirst dk

Do Until rec.NoMatch

rec.Edit

rec("lop") =tenmoi

rec.Update

rec.FindNext dk

Loop

rec.Close

End Sub