monm قام بنشر أغسطس 2, 2017 قام بنشر أغسطس 2, 2017 لجعل حقل يجمع تلقائى بناءا على قيمة اضعها انا فى البداية وهو يكمل عليها Dnmax معادلة
محمدنجار قام بنشر أغسطس 2, 2017 قام بنشر أغسطس 2, 2017 في 2/8/2017 at 00:43, monm said: لجعل حقل يجمع تلقائى بناءا على قيمة اضعها انا فى البداية وهو يكمل عليها Dnmax معادلة Expand :: وضح اكثر مالمطلوب رجاءا مع وضع مثال ان امكن اما دالة العد التلقائي فتكون بنيتها هكذا DCount("[Fld]";"Tbl";"Condition")
monm قام بنشر أغسطس 2, 2017 الكاتب قام بنشر أغسطس 2, 2017 استاذنا الكريم المرفق المطلوب فيه حقل السنة فى النموذج الفرعى يتم كتابة السنة الاولى فقط ثم يتم التسلسل تلقائيا مثل حقل المسلسل وكذلك خانة المجموع لا تعمل رغم أن المعادلة صحيحة dgree.rar
Shivan Rekany قام بنشر أغسطس 2, 2017 قام بنشر أغسطس 2, 2017 (معدل) هناك نفس السؤال سئل سلمان الشهراني اتفضل قبل قليل انا رديت عليه تم تعديل أغسطس 2, 2017 بواسطه Shivan Rekany 1
monm قام بنشر أغسطس 2, 2017 الكاتب قام بنشر أغسطس 2, 2017 استاذى الفاضل اود أن اكتب انا بيدى اول رقم ثم يتولى هو الترقيم التلقائى اما فى المعادلة التى كتبتها فأول رقم ثابت وهو 99
monm قام بنشر أغسطس 4, 2017 الكاتب قام بنشر أغسطس 4, 2017 فى هذه المعادلة يبدأ العد من الرقم 100 ولكن المطلوب أن اكتب انا فى حقل السنة اول سنة اريد ان أبدأ بها ثم عليه هو تكملة التسلسل بعد ذلك =NZ(Dmax("[ID]","Tbl1"),99)+1
Shivan Rekany قام بنشر أغسطس 4, 2017 قام بنشر أغسطس 4, 2017 في 4/8/2017 at 21:08, monm said: ارجو الرد يا اخوانى Expand اتفضل اليك هذا الكود 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 قام بنشر أغسطس 5, 2017 الكاتب قام بنشر أغسطس 5, 2017 مشكور استاذنا الكبير المعادلة تمام شغالة بس فى عيب فى الكود أثر على الترقيم للتسلسل ولم يكتب تسلسل الارقام فماذا حدث
Shivan Rekany قام بنشر أغسطس 5, 2017 قام بنشر أغسطس 5, 2017 في 5/8/2017 at 00:13, monm said: مشكور استاذنا الكبير المعادلة تمام شغالة بس فى عيب فى الكود أثر على الترقيم للتسلسل ولم يكتب تسلسل الارقام فماذا حدث Expand الترقیم هو من نوع نمبر اذا تريد ان يكتب الترقيم تلقائي غير نوع الحقل من نمبر الى ترقيم تلقائي
monm قام بنشر أغسطس 6, 2017 الكاتب قام بنشر أغسطس 6, 2017 الترقيم التلقائى غير مجدى لأن كل حالة يجب أن تبدأ من رقم واحد لذلك الترقيم التلقائى سوف يستمر فى الترقيم لجميع الحالات السؤال ما الذى حدث أثر على كود التسلسل وجعله لا يعمل ؟
Shivan Rekany قام بنشر أغسطس 6, 2017 قام بنشر أغسطس 6, 2017 في 6/8/2017 at 04:16, monm said: الترقيم التلقائى غير مجدى لأن كل حالة يجب أن تبدأ من رقم واحد لذلك الترقيم التلقائى سوف يستمر فى الترقيم لجميع الحالات السؤال ما الذى حدث أثر على كود التسلسل وجعله لا يعمل ؟ Expand اتفضل اليك هذا السطر بدل من القبل 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 قام بنشر أغسطس 6, 2017 الكاتب قام بنشر أغسطس 6, 2017 شكرا جزيلا تجاوبك معى لعدالارقام Lenوهل من شرح لهذا الكود لأنى اعلم أن دالة وفى العمود نشكر هذا المنتدى ورجاله العظام والذين يساعدون فى نشر العلم وتعلم العرب الاستخدام الامثل للحاسب الالى
Shivan Rekany قام بنشر أغسطس 6, 2017 قام بنشر أغسطس 6, 2017 في 6/8/2017 at 09:08, monm said: شكرا جزيلا تجاوبك معى Expand لا داعي نحن نشكرك في 6/8/2017 at 09:08, monm said: لعدالارقام Lenوهل من شرح لهذا الكود لأنى اعلم أن دالة Expand لين هو دالة لتعداد المسافات الحروف انا استخدمت هذه الدالة بدل ان استخدم اذا يكون الحقل فارغ اي نول في 6/8/2017 at 09:08, monm said: وفى العمود نشكر هذا المنتدى ورجاله العظام والذين يساعدون فى نشر العلم Expand كلهم يشكروا كل اعضاء المنتدى .. نحن نعلم انتم تعلمون لكن نحن ايضا نتعلم من اخطاءكم وافكاركم في 6/8/2017 at 09:08, monm said: وتعلم العرب الاستخدام الامثل للحاسب الالى Expand ليس العرب بل من يعلم اللغة العربية !!
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.