العد التلقائى فى حقل معين

[monm]

لجعل حقل يجمع تلقائى بناءا على قيمة اضعها انا فى البداية وهو يكمل عليها Dnmax معادلة

[محمدنجار]

7 ساعات مضت, monm said:

لجعل حقل يجمع تلقائى بناءا على قيمة اضعها انا فى البداية وهو يكمل عليها Dnmax معادلة

:: وضح اكثر مالمطلوب رجاءا مع وضع مثال ان امكن اما دالة العد التلقائي فتكون بنيتها هكذا

DCount("[Fld]";"Tbl";"Condition")

 

[monm]

استاذنا الكريم المرفق المطلوب فيه حقل السنة فى النموذج الفرعى يتم كتابة السنة الاولى فقط ثم يتم التسلسل تلقائيا مثل حقل المسلسل

وكذلك خانة المجموع لا تعمل رغم أن المعادلة صحيحة

dgree.rar

[Shivan Rekany]

هناك نفس السؤال سئل سلمان الشهراني

اتفضل قبل قليل انا رديت عليه

 

تم تعديل أغسطس 2, 2017 بواسطه Shivan Rekany

[monm]

استاذى الفاضل اود أن اكتب انا بيدى اول رقم ثم يتولى هو الترقيم التلقائى اما فى المعادلة التى كتبتها فأول رقم ثابت وهو 99 

[monm]

نرجوا الرد للأهمية 

[monm]

 فى هذه المعادلة يبدأ العد من الرقم 100 ولكن المطلوب أن اكتب انا فى حقل السنة اول سنة اريد ان أبدأ بها ثم عليه هو تكملة التسلسل بعد ذلك =NZ(Dmax("[ID]","Tbl1"),99)+1 

[monm]

ارجو الرد يا اخوانى

[Shivan Rekany]

2 ساعات مضت, monm said:

ارجو الرد يا اخوانى

اتفضل اليك هذا الكود

Private Sub Form_Current()
On Error Resume Next
If Len(Me.year1 & "") < 1 And Len([Forms]![main]![Glose] & "") <> 0 Then Me.year1 = Nz(DMax("[year1]", "id", "[Glose]=" & [Forms]![main]![Glose]), " ") + 1 Else Exit Sub
End Sub

للعلم انا غيرت اسم الحقل للسنة من year الى year1 لانھ ھو اسم محجوز

وانا غیرت نوعیتھ من تیکست الێ نمبر

و انا ح«فت مفتاح اساسی لحقل ای دی لجدول ای دی ... لان في هذه الحالية لا يمكنك ان تكتب رقم مرتين

اليك قاعدة بعد تعديل

واسف على التاخير

 

dgree.rar

[monm]

مشكور استاذنا الكبير المعادلة تمام شغالة

 

بس فى عيب فى الكود أثر على الترقيم للتسلسل ولم يكتب تسلسل الارقام فماذا حدث

[Shivan Rekany]

9 ساعات مضت, monm said:

مشكور استاذنا الكبير المعادلة تمام شغالة

 

بس فى عيب فى الكود أثر على الترقيم للتسلسل ولم يكتب تسلسل الارقام فماذا حدث

الترقیم هو من نوع نمبر

اذا تريد ان يكتب الترقيم تلقائي غير نوع الحقل من نمبر الى ترقيم تلقائي

[monm]

الترقيم التلقائى غير مجدى لأن كل حالة يجب أن تبدأ من رقم واحد لذلك الترقيم التلقائى سوف يستمر فى الترقيم لجميع الحالات 

السؤال ما الذى حدث أثر على كود التسلسل وجعله لا يعمل ؟

[Shivan Rekany]

3 ساعات مضت, monm said:

الترقيم التلقائى غير مجدى لأن كل حالة يجب أن تبدأ من رقم واحد لذلك الترقيم التلقائى سوف يستمر فى الترقيم لجميع الحالات 

السؤال ما الذى حدث أثر على كود التسلسل وجعله لا يعمل ؟

اتفضل اليك هذا السطر بدل من القبل

Private Sub Form_Current()
On Error Resume Next
If Len(Me.year1 & "") < 1 And Len([Forms]![main]![Glose] & "") <> 0 Then Me.year1 = Nz(DMax("[year1]", "id", "[Glose]=" & [Forms]![main]![Glose]), " ") + 1 Else Exit Sub
   If Len(Me.id & "") = 0 Then Me.id = Nz(DMax("[id]", "id", "[Glose]=" & [Forms]![main]![Glose]), 0) + 1 Else Exit Sub
End Sub

وهذا تعديل على الملف

 

dgree (1).rar

[monm]

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

لعدالارقام   Lenوهل من شرح لهذا الكود لأنى اعلم أن دالة

وفى العمود نشكر هذا المنتدى ورجاله العظام والذين يساعدون فى نشر العلم وتعلم العرب الاستخدام الامثل للحاسب الالى 

[Shivan Rekany]

4 دقائق مضت, monm said:

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

لا داعي نحن نشكرك

4 دقائق مضت, monm said:

لعدالارقام   Lenوهل من شرح لهذا الكود لأنى اعلم أن دالة

لين هو دالة لتعداد المسافات الحروف 

انا استخدمت هذه الدالة بدل ان استخدم اذا يكون الحقل فارغ اي نول 

6 دقائق مضت, monm said:

وفى العمود نشكر هذا المنتدى ورجاله العظام والذين يساعدون فى نشر العلم

كلهم يشكروا كل اعضاء المنتدى .. نحن نعلم انتم تعلمون لكن نحن ايضا نتعلم من اخطاءكم وافكاركم

7 دقائق مضت, monm said:

وتعلم العرب الاستخدام الامثل للحاسب الالى

ليس العرب بل من يعلم اللغة العربية !!