Embedded Files
Post date: Aug 23, 2013 3:00:53 AM
จดไว้กันลืม
Private Sub Command0_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim i As Integer
Dim Answer As String
Answer = MsgBox(“ต้องการลบข้อมูลจริงหรือไม่”, vbYesNo, “ยืนยันการลบ”)
If Answer = vbYes Then
Set db = CurrentDb()
Set rs = db.OpenRecordset(“select * from student_error”, dbOpenDynaset)
If rs.RecordCount <> 0 Then
rs.MoveFirst
Do While Not rs.EOF
Screen.MousePointer = 11
db.Execute “delete * from dbo_tb_student_status where ayear=2553 and term=1 and pclass=’Í.2′ and idstudent=” & rs.Fields(2).Value & “;”, dbSeeChanges
i = i + 1
rs.MoveNext
Loop
End If
Screen.MousePointer = 0
Text4 = “Delete ” & i & ” records.”
End If
End Sub
Report abuse