กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
352 3
URL.หัวข้อ /
URL
ใช้ โค๊ดนี้ลบ recordset ครับแต่มี error message
จะใช้ โค๊ดนี้ลบ recordset ครับแต่มี error message ว่า datatype mismatch????
Private Sub cmdDelete_Click()
Dim intdel As Integer, Rst As Recordset, DBS As Database
Set DBS = CurrentDb
Set Rst = DBS.OpenRecordset("ตารางที่จะลบ record")
intdel = MsgBox("Are you sure?", vbCritical + vbYesNo, "Delete Record")
If intdel = vbYes Then
Rst.Delete
Rst.MoveNext
End If
If Rst.EOF Then
Rst.MoveLast
End If
Err_cmdDelete_Click:
Exit Sub
End Sub
ไม่ทราบว่าขาดอะไรไปหรือเปล่าครับ
Private Sub cmdDelete_Click()
Dim intdel As Integer, Rst As Recordset, DBS As Database
Set DBS = CurrentDb
Set Rst = DBS.OpenRecordset("ตารางที่จะลบ record")
intdel = MsgBox("Are you sure?", vbCritical + vbYesNo, "Delete Record")
If intdel = vbYes Then
Rst.Delete
Rst.MoveNext
End If
If Rst.EOF Then
Rst.MoveLast
End If
Err_cmdDelete_Click:
Exit Sub
End Sub
ไม่ทราบว่าขาดอะไรไปหรือเปล่าครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02426
เขียน ฟอร์ม access เพลินๆ เจอ massage ว่า Error accessing Files Network connection may have been lost หลังจากนั้น click อะไรๆบนโปรแกรมก็จะเจอข้อความนี้ตลอด แก้ไขอย่างไรดีครับ
3 @R02429
ลองอ่านกระทู้ http://agserver.kku.ac.th/basiceng/webboard/question.asp?GID=1036
ผมเดาว่าน่าจะเป็นสาเหตุเดียวกันครับ
ผมเดาว่าน่าจะเป็นสาเหตุเดียวกันครับ
Time: 0.1295s
เมื่ออยู่ในหน้าต่างเขียนโค้ด ให้ไปที่เมนู Tools>References แล้วมองหา Microsoft DAO 3.6 Object Library แล้วคลิกเลือก
จากนั้นให้ออกมา แล้วเปลี่ยนโค้ดบันทัดนี้ด้วยครับ
Dim intdel As Integer, Rst As DAO.Recordset, DBS As DAO.Database