Sub cmdBeginProcessing_Click()
dim db as Database,strCriteria as String
dim rs1,rs2 as Recordset
set db =Currentdb
set rs2=db.Openrecordset("tblStudents",dbopenSnapshot)
set rs1=db.Openrecordset("tblStudentGroup",dbopenDynaset)
Do while not rs2.EOF
IF rs2![StudentGrade]=4 Then
strCriteria = "GeniusGruop"
Else
strCriteria = "NormalGroup"
End If
rs1.FINDFIRST "StudentGroup = " & strCriteria ' Line 12
IF Not rs1.NoMatch THEN
rs1.Edit
rs1!Amount = rs1!Amount + 1
rs1.Update
Endif
rs2.MoveNext
LOOP
End Sub
ปัญหาตอน Run จะมีหน้าต่าง Compile Error พร้อมมีHighLightที่Codeบรรทัด 12
ท่านไหนทราบปัญหา กรุณาให้คำแนะนำด้วย ขอขอบพระคุณล่วงหน้าครับ