الداله max تعطي ناتج خاطئ

أخي العزيز

أنصح بإستخدام Dmax علي الجدول الذي تقوم بتخزين البيانات فيه

مباشرة لتفادي وجود Filter علي الفورم

Dim m As Long
m = DMax("outID", "out") + 1
'MsgBox m
Forms![Addout]![outID] = m

حيث outid هو الحقل الموجود في جدول Out و المطلوب زيادة واحد عليه فى الفورم addout

الأخ ابو عبدالملك

هل الحقل الذي تحفظ فيه أرقام الوارد رقمي أم نصي ؟

وما هي فائدة قاعدة البيانات الأخرى ؟

وهل تأكدت أن الموظف لم يحذف السجل في الرقم الناقص ؟

ولك تحياتي

-أخي مصراوي شكرا على الرد والحقيقه أنني لا أعرف dmaxإطلاقاًفيا ليت توضحها وتوضخ الفرق بينها وبين max

- الأخ أبو حمود أشكرك على الرد وعلى كثرة ما أتحفتنا به من فوائد وإليك توضيخ ما طلبت

1- الحقل رقمي

2- فائدة قاعدة البيانات الإخرى لآنني صممت البرنامج ليعمل على ثلاث أجهزه (جهاز خادم وسيكون عليه البيانات فقط وجهازين عليهما البرامج (موظف صادر وموظف وارد)طبعاً إذا كانت access جيده في ذلك لأن أحد الأخوه ذكر لي أن هذه الطريقه جيده وأنا إلى الآن لم أطبقهالكني صممت برنامجي من البدايه ليعمل بما يتوافق مع ذلك -خاصة عند الحصول على رقم جديد-

3-الموضف لم يحذف السجل وتأكت من ذلك.

4- كذلك تتبعت سير البرنامج ووجد أنه يحصل على أعلى رقم بشكل صحيح ويضيف إليه 1 بشكل صحيح ويضيفه إلى الجدول بشكل صحيح فاندهشت وإحترت في الأمر متى يحصل وأن تعطي الداله maxرقم غير موجود !!!!!!!!!!!؟؟؟؟

5-تراني عليمي في ها البرمجه يعني هوايه فقط لكن أعتقد أنني قرأت الكثيرفي برمجة vb (سبق وأن رديت علي في هذا المنتدى حول ذلك)

==شكراً للجميع==

ما هي طريقة حصولك على MAX ؟

قد تكون المشكلة لها علاقة بالتأمين أقصد تأمين السجلات .

ولك تحياتي

تقوم هذه الدالة بالبحث عن أقصي قيمة لحقل معين فى جدول معين كما فى المثال أعلاه

بحثت فيه عن أقصي قيمة للحقل Outid الموجود فى الجدول out

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

الأخ أبو حمود الطريقه

set rs = db.open recordest "select max(field1) from table"

فقط ثم يكون عندي سجل واحد آخذ قيمته وأضيف إليه 1

الأخ /مصراوي لم توضح الفرق بين الدالتين

مع شكري و تقديري للجميع

Dmax لا تحتاج الي تعريف Rescordset و لكن تعمل مياشرة

الاخ الكريم لا يمكن اوامر اكسس الدوران(loop) على جميع السجلات لتحصيل شرط ما، ولعمل ذلك استخدم الدوران في DAO.

الاخ العزيز هذه المشكلة لها احتمال وهو ان Max تبحث في الكائنات المخفية والتي تحفظ الرقم التلقائي حتى وان تراجع المستخدم بعد ادخال السجل، وبالتالي عند استدعائها(Max) تنظر الى الكائنات المخفية وتاخذ نتائجها!!

أخي العزيز / أبو عبد الملك

انصحك باستخدام هذه الوحدة النمطية

Public Function ALast(mytable As String, MyControl As String)

Dim MyDB As Database

Dim MyRs As Recordset

Set MyDB = CurrentDb

Set MyRs = MyDB.OpenRecordset(mytable, DB_OPEN_DYNASET)

If MyRs.RecordCount = 0 Then

ALast = 0

Exit Function

End If

MyRs.Sort = MyControl

MyRs.MoveLast

ALast = MyRs(MyControl)

MyRs.CLOSE

Set MyDB = Nothing

End Function

وفي حدث ( عند النقر ) للزر المكلف بفتح عدد جديد ضع الكود التالي :

Me!اسم الحقل في النموذج = ALast("اسم الجدول", "اسم الحقل في الجدول") + 1

الأخ أبو حود أنا في إنتضار ردك

الأخ مصراوي شكراً على التوضيح

الأخ سين ميم ماذا تقصد بالدوران فأنا أستخدم داله يفترض أن تودي الناتج حسب معناها أو ما يطلب منها

- الداله تطبق على عمودمحدد من جدول محدد فهي على إعتقادي أنها ستعطي الناتج من نفس العمود في نفس الجدول بغض النضر عن أي إعتبارات أخرى

الأخ أبو بشاير / ٍسأفحص هذا الكود حسب توافقه مع برنامجي وأخبرك بالنتائج إذا كان ينطبق (معليش تراني بطي شوي)

شكراً للجميع ؛؛؛؛؛

الأخ ابوعبدالملك

لم يتضح لي سبب المشكلة .

أعانك الله .

ولك تحياتي