عبد الفتاح كيرة

رائع جدا أود أن أنبهك إلى أننى طلبت هذا الكود لتطبيق على حقل فى قاعدة بيانات أكسيس ويمكن نقل الكود و تعديله ليعمل على أكسيس وقد توصلت لهذا الكود لكنه لم يختبر بعد Do until Rs. Eof For x = 1 to 5 For y = 1 to 5 If x = y then goto skipme Rs.edit Rs!classn = I Rs.update Rs.movenext Skipme: Next I Next x Loop

حفظكم الله و رعاكم

السلام عليكم و كل عام و أنتم بخير لدى حقل لرقم الفصل وحقل مجموع الطالب فى السنة السابقة أرغب فى ملء هذا الحقل حسب النمط التالى بالتتابع حيث يتم ترتيب مجموع التلاميذ تنازليأ و النمط هو مثلا 5 فصول 1_2_3_4_5 2_3_4_5_1 3_4_5_1_2 4_5_1_2_3 5_1_2_3_4 وهكذا بحيث تتحقق أكبر نسبة من التوازن بين مجموع المجاميع فى الفصول كيف يمكن كتابة كود لحلقة تكرار تحقق النمط السابق وفقكم الله

السلام عليكم كل عام و أنتم بخير على قدر ما فهمت عند كتابة تاريخ فى datename يتم فحص الشهر فى هذا التاريخ 31/30/28/29 بدون تدخل و على حسب نتيجة الفحص يتم تحديد أحد مربعات الاختيار فى etar الخطوات أولا غيرت حقل datename إلى تاريخ ثانيا : هذه وظيفة لحساب عدد أيام أى شهر فى أى تاريخ تكتب فى نفس المودويل Function EndOfMonth(mDate As Date) As Variant EndOfMonth = Day(DateSerial(Year(mDate), Month(mDate) + 1, 0)) End Function ثالثا فى حدث "بعد التحديث " ل datename نكتب الكود التالى Private Sub DateName_AfterUpdate() Select Case EndOfMonth(Me.DateName) Case 31 Me.etar = 2 Case 30 Me.etar = 1 Case 28 Me.etar = 3 End Select End Sub و هذا ملفك بعد التعديل وفقكم الله ProgEmp20.rar

كل عام وانتم بخير

شكرا لكم تم حل المشكلة جعلت المتغير رقما من نوع double وغيرت خصائص الحقل إلى ثابت ولا أدرى لأيهما الفضل فى الحل جزاكم الله خيرا

السلام عليكم كل عام و أنتم بخير إخوتى الكرام لدى كود برمجى يرجع فى أحد سطوره .5 يعنى نصف i=i+.5 المشكلة أنه يرجع واحدا صحيحا و السؤال كيف يمكن إلغاء التقريب و هذا هو الكود كاملا و هو عبارة عن وظيفة تعد المدرسين على درجة كادر معين فى مادة معينة و تواجدهم فى المدرسة يساوى 1 أو 2 يعنى توجد كلى أو جزئى المفروض فى التواجد الجزئى الذى يساوى 2 أن يرجع الكود نصفا وفقكم الله Private Function getcountW(ss2 As Double) As Double Dim i As Integer Dim skn As Integer i = 0 skn = Me.kn Do Until rs.EOF If rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 1 Then i = i + 1 ElseIf rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 2 Then i = i + Fix(0.5) End If rs.MoveNext Loop getcountW = i rs.MoveFirst End Function

الحل الخامس هو المذكور فى مشاركة الأخ رضوان وهو بفلترة ال recordset الحلول التى توصلت لمعرفتها من البحث فى الشبكة فى الملفات التالية انظر إلى البارامتر فى الاستعلام و البارامتر فى الكود فى حدث الحالى للفورم https://drive.google.com/folderview?id=1Kz0GHr3zRO5ycXYalkvFJiEwcCtnbT1l سأقوم بشرح الطرق إن شاء الله عند فتح الكمبيوتر ربما تفيدنا الصور فى شرح بعض الطرق

تجمع لدى خمسة حلول لمشكلة البارامتر لكن هل يزال الأخ يحتاجها من 2005 ؟

اكتب الكود هنا

أنشئ استعلام تحديث فى معيار الحقل الذى تريد تحديثه اجعل القيمة إحالة لمربع النص فى النموذج بعد ذلك فى النموذج أنشئ زرا لتشغيل هذا الاستعلام وفى نهاية الكود حدث النموذج

اكتب كود الحفظ هنا

هناك نوعان من الاستعلامات الأول استعلامات تنتج سجلات كاستعلام التحديد وهناك استعلامات تنفذ إجراءات كاستعلام التحديث و الحذف استخدم DoCmd.openquery

إذا كنت تفتح التقرير من زر أمر فى نموذج ضع الكود التالى لفتح التقرير و تمرير اسم الحقل الذى تريد الترتيب حسبه وهو فى هذا المثال حقل اسمه name DoCmd.OpenReport "YourReportName", acViewPreview, , , , "Names" ثم فى حدث عند الفتح للتقرير ضع الكود التالى Me.OrderBy = Me.OpenArgs Me.OrderByOn = True

وفقك الله أخى الكريم

وفقك الله أخى الكريم

السلام عليكم بعد غيبة طويلة عن هذا المنتدى للسكنى فى البيت المجاور بيت الأكسيس أقدم لكم هذا الرابط المفيد جدا بارك الله فيكم https://excelchamps.com/blog/useful-macro-codes-for-vba-newcomers/

مع الشكر الجزيل المهم عندى سؤال هذه المعرفة ب ال classes تفيد المبرمج و تفتح له آفاقا جديدة أم أن لها بدائل فى الوظائف و الإجراءات العادية بمعنى آخر هل تستحق الجهد المبذول فى دراستها و التعرف عليها وفقكم الله موضوع كبير و مطلوب

موضوع كبير و مطلوب

وفقنا الله و إياكم لما يحب و يرضى وجعل عملكم و عملنا خالصا لوجهه الكريم

جزاك الله خيرا أخانا المحترم أبا خليل

جزاك الله خيرا أبا خليل المحترم حاولت تنفيذ الاستعلام الفرعى منفردا لرؤية نتائجه لكنه لم يتعرف على الحقل الموجود فى النسخة المستعارة من الجدول tagrs ممكن أبا خليل تصور لى نتيجة الاستعلامين مشكورا كى أتخيل طريقة الحل؟ شكرا لك على الرد والاهتمام

عمالقة أوفيسنا الكرام لأنى أثق فى علمكم أود شرحا لطريقة الحل هذه جزاكم الله خيرا

هل من شرح لهذه الطريقة أخى الوزير @AlwaZeeR

و الله النتيجة مبهرة و الحمد لله لكن هذه الجمل تحتاج لشرح مفصل و فائدة الترتيب التصاعدى و التنازلى فى الاستعلامين فتفضل بشرح ذلك جزاك الله خيرا