عندي مشكلة في حذف السجل ساعدوني

السلام عليكم و رحمة الله و بركاته

ما يحصل فعلا هو أن السجل الأخير يتم حذفه لكن المشكلة في الإجراء showdata فبعد حذف آخرسجل يكون قيمة Recordcount بالتأكيد أقل من 1 و بالتالي فإن الإجراء showdata ينتهي بدون تحديث واجهة المستخدم.

طيب اخوي ما هو الحل في رأيك ارجوك

ياجماعة والله محتاج للحل معقوله ما في احد ممكن يفيدن

السلام عليكم ورحمة الله وبركاته

أخي فجر333

اقتباس

المشكلة في الإجراء showdata

أضف لل showdata أمر بتفريغ صناديق النص

 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""

فتصبح بهذا الشكل

Private Sub showdata()
	Text1.Text = ""
	Text2.Text = ""
	Text3.Text = ""
	d.Recordsets.Refresh
	If t.RecordCount < 1 Then Exit Sub
	Text1.Text = t![Name]
	Text2.Text = t![num]
	Text3.Text = t![price]
End Sub