كيف يمكن انقاص عدد السجلات المعروض في التكتست بوكس عند الحذف

ايه يا جماعة محدش رد يعني علي سؤالي ؟؟؟

انا ملاحظ كدة اني سألت 3 اسئلة في 3 موضوعات مختلفة ومفيش ولا رد علي اي منهم هي الموضوع صعب ولا اسئلتي مش مفهومة ولا في ايه ؟

السلام عليكم

أضف جزء من المثال أو كود على الأقل

علشان الواحد يعرف كيف يجاوب

Sub RecordCount()
'
 If DATARS.RecordCount = 0 Then
	RecordLen.Text = " 0  من  0"
	Else
	RecordLen.Text = DATARS.AbsolutePosition & "  من  " & _
					 DATARS.RecordCount
 End If
'
End Sub

أخي المزمجر او اي عضو اخر يقرأ الموضوع هذا الكود الي كنت استخدمه في زيادة السجلات عند عمل اضافة

هذا الكود في حدث الفورم لود

Dim rsr As New ADODB.Recordset

rsr.CursorLocation = adUseClient

rsr.LockType = adLockOptimistic

rsr.Open "exports", cn, adOpenDynamic

Dim rr As String

If rsr.RecordCount = 0 Then

Text4 = 0

Exit Sub

Else

rr = rsr.RecordCount

Text4 = Val(rr)

End If

اما هذا الكود في حدث الكليك لزر الحفظ للبيانات المدخلة

Dim rss As New ADODB.Recordset

Dim n As String

rss.CursorLocation = adUseClient

rss.LockType = adLockOptimistic

rss.Open "imports", cn, adOpenDynamic

If rss.RecordCount = 0 Then

Text9 = 0

Exit Sub

Else

n = rss.RecordCount

Text9 = Val(n)

End If

ارجو ان يكون الكودان واضحين علما بأني استخدم مكتبة ado

منتظر الرد يا اخواني

سلامو عليكم

اخ سامح يا ريت في حاجة لو تسمع عنها اسمها محرر الاكواد يا ريت تتعب نفسك شوية وتضع اكوادك وتنسقها بداخله زي ما انتا بدك الحل بسرعة احنا بدنا نفهم الاكواد بسرعة عشان نقدر نفيدك .................

السلام عليكم

في حال قواعد البيانات إن لم يكن قسم من المشروع موجود فسيكون الجواب يحتاج للتفكير الكثير :wacko:

و نظراً لضيق وقتي B)

في المرفقات مثال كنت عدلت عليه

يحتوي الفكرة التي تحتاجها

حاول الجمع بين المشروعيين لتصل للمطلوب

بالتوفيق......

و السلام عليكم

NOUR_zatea.rar