أبو هادي

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

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

السلام عليكم عزيزي أبو سليمان .. بارك الله فيك . لابد أن تكون الدالة ممتازة وخصوصا أنها من أبي سليمان ، ولكنها ليست بديلة عن الدالة الأولى حيث اختلاف الوظيفة . فالدالة الأولى للتبديل بين العمودين الثاني والثالث لمصدر البيانات عندما يكون أحدهما بالعربي والآخر بالإنجليزي . والدالة الأخرى للتبديل بين العمودين الثاني والثالث لعرض الأعمدة . تحياتي .

السلام عليكم سأرجع لكم عزيزي أبو سليمان الليلة إن شاء الله . حل المشكلة هو إضافة سطر بعد أمر فتح التقرير كالتالي : DoCmd.OpenReport stDocName, acPreview, , , , stOpenArgs Exit Sub تحياتي .

السلام عليكم الأخ ahmedghoname .. شكرا لك وجزاك الله خير ، البرنامج لم ينته بعد ، آمل أن ننته منه قريبا إن شاء الله تعالى . الأخ فهد الدوسري .. شكرا لك وبارك الله فيك ، ما اقترحته عزيزي موجود فعلا بالمثال ولكنه لم يربط بعد بالنماذج . تحياتي .

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

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

السلام عليكم Median تعني المتوسط Average تعني المعدل فلو عندنا مجموعة أرقام كالتالي : 4 6 7 8 9 12 15 فالمتوسط هنا هو الرقم الذي يقع في منتصف المجموعة بعد ترتيبها وهو 8 . والمعدل هنا هو مجموع قيم عناصر المجموعة / عدد العناصر وهو 8.7143 وهذه مصممة لاستخدامها مع الجداول والإستعلامات مثلها مثل سلسلة دوال المجاميع مثل: DCount DSum DAvg وبنفس الطريقة وبنفس الوسائط . ملاحظة : تم التعديل على الدالة وتم تبديل إسمها لتناسب سلسلة الدوال الأصلية . تحياتي .

السلام عليكم هذه الدالة تُرجعُ المتوسط لمجموعة من الأعداد . والمتوسط هو الحصول على العدد الذي يقع في منتصف المجموعة بحيث يتساوى مجموع الأعداد التي تقل عن المتوسط مع مجموع الأعداد التي تزيد عن المتوسط . وإذا تصادف ان يكون في المنصف عددان يؤخذ معدلهما وذلك بقسمة مجموعهما على 2 . Function DMedian(Expr As String, Domain As String, _ Optional Criteria As String = "") As Double Dim dbs As Database Dim rst As Recordset Dim Count As Long Dim MidRec As Double Dim Total As Double Set dbs = CurrentDb Set rst = dbs.OpenRecordset(Domain, dbOpenDynaset) If Trim(Criteria) <> "" Then rst.Filter = Criteria rst.Sort = Expr Set rst = rst.OpenRecordset If rst.RecordCount = 0 Then GoTo ExitFunction rst.MoveLast Count = rst.RecordCount MidRec = Count / 2 With rst .MoveFirst If Count > 2 Then .Move Round(MidRec + 0.01, 0) - 1 Total = rst(Expr) If Fix(MidRec) = MidRec Then .MoveNext Total = (Total + rst(Expr)) / 2 End If End With DMedian = Total ExitFunction: rst.Close Set dbs = Nothing End Function آمل أن ينتفع بها تحياتي .

السلام عليكم تم التعديل في المشاركة التالية : http://www.officena.net/ib/index.php?showt...indpost&p=31207 تحياتي .

السلام عليكم الأخ أبو وليد ، حذف هذه السطور سوف يعطل معالجة المشكلة التي تحدثها أداة مجموعة الخيارات . فإبقائها أفضل على أن يكون اتجاه النموذج من الشمال إلى اليمين . شكرا لك على جهودك أخي أبو سليمان . لقد تم التعديل على الكود ليحتوي أداة الـ TabControl . تحياتي . ChangeOrientation20050311.rar

السلام عليكم - لم أستطع التغلب على مشكلة الإزاحة في النماذج ذات الإتجاه يمين إلى اليسار . - تم التعامل مع تسمية النموذج . - تم تبديل الوسيطة من Form إلى Object . - تم تطويره ليتعامل مع كل النماذج الفرعية والنماذج الفرعية للفرعية وهكذا دون حد أي Subform/Subform/Subform/............ وهكذا . يحتاج إلى تجربة مع التقارير والمحتوية تقارير فرعية بالتحديد حيث أعتقد أن هناك مشكلة . تحياتي . ChangeOrientation20050306.rar

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

السلام عليكم جربوا المثال المرفق وارجعوا لي بالنتائج . اضغطوا زر Lang لتحويل الإتجاهات بين اليمين واليسار . تحياتي . ChangeOrientation.rar

السلام عليكم لقد توصلت إلى حل لتبادل مواقع الأعمدة في نماذج الـ datasheet يمكن الإستفادة منه في تبديل اللغة : Sub ChangeColumnOrder(eMe As Form) Dim Cols Dim Ctrl As Control Dim Ctrls As Long Dim Count As Integer On Error Resume Next If eMe.DefaultView <> 2 Then Exit Sub ReDim Cols(1 To eMe.Controls.Count) As String For Each Ctrl In eMe.Controls With Ctrl If .Section = 0 Then If .ControlType <> acLabel Then Count = Count + 1 Cols(.ColumnOrder) = .Name End If End If End With Next If Count < 2 Then Exit Sub Ctrls = Count For Count = 1 To Ctrls eMe(Cols(Count)).ColumnOrder = Ctrls - eMe(Cols(Count)).ColumnOrder - Count Next Count End Sub تحياتي .

السلام عليكم جرب أن تستخدم في كود أخي رضوان : -1 بدل نعم/True 0 بدل لا/No ملاحظة : لم أجربها ولكن أعتقد أنها ستعمل . تحياتي .

السلام عليكم روعة أخي خضر ، بارك الله فيك . تحياتي .

السلام عليكم أعزائي ، هل بدأت فترة الراحة ؟ نود أن ننتهي من الإصدار الأول أولا ثم نأخذ راحة بعدها . تحياتي .

السلام عليكم بعد إذن أخي خضر الرجبي ، هذا كود عملته الآن ، جربه وارجع لنا بالنتائج : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Cntl As Control On Error Resume Next For Each Cntl In Me.Controls With Cntl If .Section = 0 Then If Me.Report.CurrentRecord Mod 2 = 0 Then .BackStyle = 1 .BackColor = vbGreen Else .BackStyle = 0 End If End If End With Next End Sub تحياتي .

السلام عليكم التبعات "الهزات الإرتدادية" :d : مثلا أنا أستخدم هذا الحقل في دالة Day light saving وأعتقد أن الأخ خضر يستخدمه في تعديل وإضافة بلد وقد تكون أنت تستخدمه كذلك ، فآمل التأكد أنه لا مشاكل بعد حذفه . تحياتي .

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

السلام عليكم نعم أخي أبو سليمان .. فقد ابتدأت اقتراحي بسؤال : نعم أرجو إنهاء ما بحوزتكم والتعليق على التالي : ثم التالي : وأعتقد بعدها نستطيع اعتماد البرنامج كإصدار أول ، ونأخذ بعدها استراحة ، ثم نضع خطة لتطويره لاحقا . تحياتي .

السلام عليكم لا عليك أخي أبو سليمان . مرفق المثال مرة أخرى . أخي آمل حذف حقل التوقيت الصيفي في ملف البلدان "نعم/لا" حيث كما أعتقد لا حاجة له الآن بعد إضافة جدول التوقيت الصيفي . من ضمن التبعات لهذا التعديل دالة التوقيت الصيفي تستطيع التعديل عليها فقط بتعطيل فحص قيمة الحقل . ملاحظة : أرى لو نجبر المستخدم باختيار الحد الأقصى من المدن في نموذج النتيجة حيث يظهر التقرير بشكل أفضل ، كما أرى أن أوقات الليل إذا ستكون سببا في زيادة عرض التقرير فيمكن الإستغناء عنها . لو تنسقا أنت وأخي خضر بالنسبة لتحويل اللغة بحيث تكون موحدة في كل النماذج إن أمكن ذلك وإلا فهي ليست بمشكلة . كذلك لو يتم تقريب تنسيق النماذج بقدر المستطاع يكون أفضل . هل لديكما اقتراحات قبل أن نذهب إلى اقتراح خضر بالنسبة لإنزال البرنامج وتحديثاته من الموقع . تحياتي . الملفات المرفقة Prayers20050228.rar ( 622.55ك ) عدد مرات التنزيل: 30

السلام عليكم الأمور على خير إن شاء الله ، إذا لم أتمكن الليلة فسيكون قبل24 ساعة من الآن إن شاء الله تعالى ، حيث أني أمر بدورة "مايكروبية" والمزاج "مش رايق" . أشكر اهتمامكم واصبر على الشايب شوية ، ولكن آمل عدم إدخال أي تعديلات الآن من جهتكم لأني بصراحة عملت تعديلات ليست بالقليلة المرة السابقة ولكني لم أوضحها لكم وعند الدمج طارت ومضطر أن أمضي بعض الوقت لتذكرها أولا ولإعادة تعديلاتها :d تحياتي .

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