أبو هادي

السلام عليكم بافتراض أن الـ text box إسمه Text1 نضع في حدث عند التبديل : Private Sub Text1_Change() If Len(Me.Text1.Text) > 6 Then SendKeys "{BS}" Beep End If End Sub أو يمكن الكتابة في الـ Validation Rule كالتالي : Len([Text1])<=6 تحياتي .

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

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

السلام عليكم يمكن اختصارها بدون استخدام IF كالتالي : Me.text1.Visible = Not IsNull(Me.text1) تحياتي .

السلام عليكم حل مؤقت . تحياتي . SUMIF.zip

السلام عليكم اسمحوا لي بالمشاركة معكم بإضافة فكرة أخرى لعمل الرصيد . تحياتي . Rased2.zip

السلام عليكم مثال لمعرفة كل المستخدمين لجميع قواعد بيانات أكسس المرتبطة ببرنامجك . المطلوب : تصدير جميع محتويات هذا المثال إلى برنامجك ثم افتح النموذج الرئيس . المحتويات : جدولان ونموذجان وموديول واحد . جربوا واخبرونا . تحياتي . LinksCurrentUsers.zip

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

السلام عليكم حل مؤقت : بافتراض أن العمود المعني هو A نضع القيم في عمود آخر وليكن B ولتكن فيه المعادلة كالتالي : =IF(A1=0;"";A1) ثم نأخذ أقل قيمة في هذا العمود أي B . حيث قمنا باستبدال الأصفار بلا شيء وسوف لن تؤثر على الدالة للحصول على القيمة الأدنى . تحياتي

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

السلام عليكم لم أستطع التعديل . تحياتي .

السلام عليكم الحدث المرتبط بالعقدة الموجودة على الشجرة : Private Sub TreeView1_NodeClick(ByVal Node As Object) If Node.Children Then MsgBox Node.Child.Text End If End Sub تحياتي .

السلام عليكم الأخ micro تم فحص المثال والتعديل عليه ثم اختباره وهو الآن يعمل بشكل ممتاز . مع ملاحظة أنه يمكن التعديل في الصورة من النموذج أو من التقرير مباشرة . بدل في الزاوية واطبع ثم قارن النتائج . تحياتي . micro.zip

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

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

السلام عليكم جرب هذه الدالة : Round(5.777777,2) كما أتذكر هي متوفرة في أكسس 2002 أما الأسبق فأنا غير متأكد من وجودها . تأكدت من وجودها الآن في أكسس 2000 كذلك أما في أكسس 97 فيمكن استخدام هذا الدالة : Format(5.777777,"0.00") تحياتي .

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

السلام عليكم أخي الأستاذ طارق .. فينك من زمان ؟ الفكرة ممتازة ومختصرة .. أنا عملت نفس الفكرة سابقا ولكن إجراءاتها طويلة حبتين بسبب عدم علمي باستخدام F2 ، شكرا لك . عموما لا أستطيع أن أرفض لك طلبا :) . هذه فكرة حسب ما أردت ، تستطيع تطويرها بأن تختار الحقول التي تريدها فقط في الـ ComboBox وأن تضع للحقول إسماء مستعارة Alias حسب الأسماء الموجودة في النموذج . تحياتي . Acc_AboHadi_97.zip

السلام عليكم مثال 2 في 1 . Form2 مثال للشجرة مطبق على دليل محاسبي . Form1 مثال بسيط لترجمة الأسماء . تحياتي . Treectrl.zip

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

السلام عليكم شكرا لك أخي محمد على المثال ، وأعتقد أن الإفتراضي لبداية الأسبوع هو الأحد دائما دون الإعتبار للإعدادات الإقليمية . أما أن رقم 7 تعطي 0 فأعتقد هي منطقية حيث أنه من الفحوصات الداخلية للدالة هو أخذ باقي القسمة على 7 أي الـ Mod 7 . تحياتي .

السلام عليكم مطلوب تجربة هذا الكود وملاحظة النتائج : Sub test2() Dim K As Long For K = CLng(#8/16/2003#) To CLng(#8/22/2003#) MsgBox Format(K, "dddd") & Chr(13) & _ "الإفتراضي " & Weekday(K) & Chr(13) & _ "المطلوب " & Weekday(K, vbSaturday) Next K End Sub تحياتي .

السلام عليكم Sub Test() Dim mm As Byte Dim yy As Integer mm = 12 yy = 1424 '-- للحصول على تاريخ نهاية الشهر هجري أو ميلادي MsgBox CDate(DateSerial(yy, mm + 1, 1) - 1) '-- للحصول على طول الشهر هجري أو ميلادي MsgBox Day(DateSerial(yy, mm + 1, 1) - 1) End Sub تحياتي .

السلام عليكم الأخ الكريم محمد طاهر والأخوة الكرام .. لقد توصلت للحل وكان الحل أمامنا ولكن لم ننتبه له وكان هناك إصرار داخلي أن الحل موجود حيث أنه من غير المنطقي أن لا تكن هذه الميزة موجودة مع كل التقدم الهائل في عالم البرمجة ، وهذا ما جعلني أن أواصل البحث والتجارب حتى وقعت على الحل كما هو موضح أدناه : DoCmd.OpenForm "Form1", , , , , acDialog والحل هو اختيار الـ WindowMode إلى acDialog . طبعا هذا سوف يكون حافزا كبيرا لي لمواصلة عمل صندوق رسائل عربي مميز بإذن الله تعالى . ولكم تحياتي جميعا .

السلام عليكم كذلك يمكن ذلك بهذه الطريقة بشرط وضع هذه الأكواد في موديول ThisWorkSheet . Sub NextSheet() '-- الصفحة التالية --' On Error Resume Next Me.Sheets(Me.ActiveSheet.Index + 1).Select End Sub Sub PreviosSheet() '-- الصفحة السابقة --' On Error Resume Next Me.Sheets(Me.ActiveSheet.Index - 1).Select End Sub Sub LastSheet() '-- آخر صفحة --' On Error Resume Next Me.Sheets(Me.Sheets.Count).Select End Sub Sub FirstSheet() '-- أول صفحة --' On Error Resume Next Me.Sheets(1).Select End Sub تحياتي .