تحديد عدد السجلات

موضوع منقول من المنتدي القديم

الكاتب : فتى الوادي

تحديد عدد السجلات ..

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

أريد ظهور رسالة عند تسجيل كل 100 سجل في الجدول ؟!؟!

يعين بعد المئة الأولى تطلع الرسالة ... ثم بعد المئة الثانية تطلع رسالة أخرى .. وهكذا ..

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

الكاتب: فتى الوادي بتاريخ: 9/1/2002 7:40:57 PM

--------------------------------------------------------------------------------

بسيطة

الموضوع يصير كالتالي:

عرف متغير من نوع Integer بحيث يكون متغير عام يعني Global

خلي القيمة الإبتدائية له تساوي صفر

بعد كل عملية اضافة اضف واحد الى المتغير

عندما تصل قيمته الى 100 اظهر رسالة أو افعل ما تريد حدوثه ثم أرجع قيمة المتغير الى صفر

وااطريقة التالية توضح خوارزمية الحل وليست كود 100%

Global i Integer

i=0;

"بعد انتهاء عملية الإضافة"

i=i+1;

if (i=100) then

msgbox"وصلنا 100 سجل..مبروك!!"

i=0;

else......

الكاتب: saeedaita بتاريخ: 9/2/2002 1:25:52 AM

--------------------------------------------------------------------------------

إجابة

طريقة أخرى

If Me.RecordsetClone.RecordCount Mod 100 = 0 Then
MsgBox "رسالة"
End If

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 9/2/2002 2:46:25 AM

--------------------------------------------------------------------------------

إجابة

الملاحظ على الطريقة التي ذكرتها أنه تصلح إذا كان يضيف المائة سجل في جلسة عمل واحدة بمعنى أنه لايغلق قاعدة البيانات خلال ذلك .

طريقة بحفظ الرقم في الريجستري :

Dim المجموع_السابق As String
المجموع_السابق = GetSetting(Application.CodeProject.Name, Me.Name, "المجموع_السابق")
If المجموع_السابق <> "" Then
المجموع_السابق = CInt(المجموع_السابق) + 1
Else
المجموع_السابق = 0
End If

If المجموع_السابق = 10 Then
MsgBox "رسالة"
المجموع_السابق = 0
End If
Call SaveSetting(Application.CodeProject.Name, Me.Name, "المجموع_السابق", المجموع_السابق)

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 9/2/2002 4:08:44 AM

--------------------------------------------------------------------------------

إجابة

نسيت أن أغير الرقم 10 في الكود السابق إلى 100 .

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 9/2/2002 4:11:08 AM

--------------------------------------------------------------------------------

يامدراء متى تحل مشكلة عدم تحرير الرد

عبارة (الملاحظ على الطريقة التي ذكرتها ) أقصد الأخ saeedaita وفقه الله لكل خير

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 9/2/2002 4:14:20 AM

--------------------------------------------------------------------------------

زادكم الله علماً ...

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

أشكر لكم جهدكم ...

الملاحظة التي عندي أن النوذج الذس أعمل عليه خالي من البيانات Me.DataEntry = True

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

أريد توضيح للحل الذي ذكره الأخ ( saeedaita ) مع أيضاح أين يوضح الكود ...

وشكراً للجميع ...

الكاتب: فتى الوادي بتاريخ: 9/2/2002 1:21:28 PM

--------------------------------------------------------------------------------

حل

جربت الكود ومشى معي

مكانه في خصايص النموذج في حدث بعد التحديث

Dim MyCount As Long
MyCount = DCount("*", "[Gd]")
If MyCount <100  Then Exit Sub
If Right(CStr(MyCount), 2) = "00" Then
MsgBox "مئة سجل"

End If

--------------------------------------------------------------------------------

الكاتب: osama457 بتاريخ: 9/4/2002 10:14:52 AM

--------------------------------------------------------------------------------

فكرة الكود جميلة

وفقك الله وزادك علماً .

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود.