أبو هادي

السلام عليكم أخي moayad دالة Round هي دالة للتقريب وليست للفصل . بكل تأكيد معادلة محمد طاهر ممتازة وذكية ، وهنا أضيف معادلة أخرى للفصل قد ينفع بها : = A1 - Fix(Abs(A1)) تحياتي .

السلام عليكم أعتقد أن تقصد قيمة مربع النص وليس خاصيته وهي كالتالي : Text1 = a & "-" & b تحياتي .

السلام عليكم المثال حسب طلبك . تحياتي . Remove_AL.zip

السلام عليكم بكل تأكيد إذا قمت بنسخ المعادلة كما كتبتها أنا فسوف تعطيك ناتج الثلاثة حقول الأولى زائدا 4 . حيث أني كتبت المعادلة خطأ فبدل أن أكتب Nz(t4) كتبتها Nz(4) . تحياتي .

السلام عليكم :) الصراحة الذي فهمته أنك تريد المجموع للحقول جميعا ولكن مشكلتك مع بعض الحقول التي تحتوي على Null . وحلها يكون باستخدام دالة Nz وذلك كالتالي : total = Nz(t1) + Nz(t2) + Nz(t3) + Nz(4) آمل أني فهمت مقصدك . تحياتي .

السلام عليكم أخي مصلح .. هل سيهرب خوفا أو كرها :( :d :lol: شكرا لك على دعمك الا محدود ، كما لا أنسى شكر كل من مر على موضوعي هذا . تحياتي .

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

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

السلام عليكم مثال لإدخال ومتابعة التقويم الدراسي السعودي آمل أن ينتفع به . تحياتي . SaudiEducationCalendar_.zip

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

السلام عليكم أخي ha98 لو استخدمت ربط الجدولين لوحدهما بدون جدول ثالث فلن تنجح العملية حتما .. وأنا مسئول عما أقول . ما اقترحه أخونا القحم قد ينجح لو وجد نفس رقم الكود في الجدولين ولكن مع وجود قيمة Null في أحد حقلي القيمة ، وهذه يسهل حلها باستخدام دالة Nz وهي تغني عن استعمال دالة IIF وذلك كالتالي : onh: Nz([avl])-Nz([isu]) تحياتي .

السلام عليكم 3in1 3 حلول في مثال واحد . تحياتي . تم استبدال الملف المرفق حيث كان القديم يحتوي على خطأ وقد تم التعديل الإستعلامين رقمي 1 و 2 حيث تم تحويلهما إلى استعلامين مجاميع . السادة الذين أنزلوا المثال سابقا : ahmedspcc ، ابومؤنس ، ashraf ، قبوس .. عليهم بإنزال المثال من جديد . Movements.zip

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

السلام عليكم أخي الكريم .. افتح النموذج Form1 وستجد المجاميع هناك :( . تحياتي .

السلام عليكم أخي مصلح .. لايمكن عمل ذلك للأسف إلا مع تعقيد العملية وذلك باختيار أكثر من تسمية label وأنا أريد تسهيلها وتبسيطها بقدر الإمكان . هنا آخر تنقيح للكود فقط ولن يؤثر على أداء الشريط للذين قاموا بإنزال المثال سابقا ، علما أنه تم إضافة بسيطة فقط وهو إمكانية تعطيل النسبة المئوية : Sub ProgCtrl(Ctrl As Control, _ ByVal Value As Variant, _ Optional ByVal Orientation As Byte = 1, _ Optional ByVal Min As Variant = 1, _ Optional ByVal Max As Variant, _ Optional ByVal Percentage As Boolean = True) '-----------------------------------------------------------' '-- Progressive Control rev5 -- 09/02/2004 -- by Abo Hadi --' '-----------------------------------------------------------' Const LeftToRight As Byte = 1 Const RightToLeft As Byte = 2 Const UpToDown As Byte = 3 Const DownToUp As Byte = 4 Const FontHeight As Integer = 250 Dim InStrVal With Ctrl If Not .ControlType = acOptionGroup Then Exit Sub If Not .Enabled Then Exit Sub InStrVal = InStr(1, .Tag, ",") If IsEmpty(Max) Then Select Case InStrVal Case 0: Exit Sub Case 1: Max = Val(Trim(Mid(.Tag, 2))) Case Is > 1 If Trim(Left(.Tag, InStrVal - 1)) <> "" Then Min = Val(Trim(Left(.Tag, InStrVal - 1))) End If Max = Val(Trim(Mid(.Tag, InStrVal + 1))) End Select End If End With If Max < Min Then InStrVal = Min Min = Max Max = InStrVal End If If Value < Min Then Value = Min If Value > Max Then Value = Max If Min < 0 Then Max = Max - Min + 1 Value = Value - Min + 1 Min = 1 End If With Ctrl.Controls(0) If Orientation < LeftToRight Or _ Orientation > DownToUp Then Orientation = LeftToRight Select Case Orientation Case LeftToRight .Height = Ctrl.Height .Top = Ctrl.Top .Width = (Ctrl.Width / (Max - Min + 1)) * Value .Left = Ctrl.Left Case RightToLeft .Height = Ctrl.Height .Top = Ctrl.Top .Width = (Ctrl.Width / (Max - Min + 1)) * Value .Left = Ctrl.Left + (Ctrl.Width - .Width + 1) Case UpToDown .Height = (Ctrl.Height / (Max - Min + 1)) * Value .Top = Ctrl.Top .Width = Ctrl.Width .Left = Ctrl.Left Case DownToUp .Height = (Ctrl.Height / (Max - Min + 1)) * Value .Top = Ctrl.Top + (Ctrl.Height - .Height + 1) .Width = Ctrl.Width .Left = Ctrl.Left End Select .BackColor = vbBlue 'QBColor(1) .Caption = "" If Percentage Then .Caption = Format(Value / Max * 100, "0") & "%" .TopMargin = IIf(.Height > FontHeight, (.Height - FontHeight) / 2, 0) .ForeColor = vbWhite 'QBColor(7) .FontName = "Tahoma" .FontSize = 8 .TextAlign = 2 End If .Visible = True End With DoEvents End Sub Private Sub CmdRun_Click() Dim Min, Max, Value Min = 1 Max = 1000 For Value = 1 To Max Call ProgCtrl(Me.Frame1, Value, Me.OptOrientation, Min, Max, True) Next Value End Sub تحياتي .

السلام عليكم أخي الفاضل .. لم أجرب من قبل ولكن يبدو لي إمكانية ذلك من خلال حدث Load بعد إمكانية الحصول على مجموع السجلات قبل فتح النموذج أو من خلال حدث Open . سأحاول غدا إن شاء الله تعالى . الحقيقة أنا لا أهتم بهذه الأمور كثيرا ، حتى هذه الأداة فقد تكون من النادر أن أستخدمها في برامجي ، ولكني تحمست للوصول لهذه الفكرة .. دعاوتكم . تحياتي .

السلام عليكم مثال حسب طلبكم تحياتي . BankNotes.zip

السلام عليكم SELECT Table1.القيمة, Sum(Table1.القيمة) AS المجموع FROM Table1 GROUP BY Table1.القيمة; بافتراض اسم الجدول Table1 وحقل الرقمي اسمه القيمة افتح استعلام جديد بنسق SQL ثم الصق الكود أعلاه .. وهذا كل شيء . تحياتي .

السلام عليكم تعديلات خطيرة لا تفوتكم شريط التقدم يعمل في كل الإتجاهات كل واحد ينزل نسخته وبالترتيب لو سمحتوا ، لا نريد زحاما :d تحياتي . ملاحظة : تم تعديل الملف فى مشاركة لاحقة

السلام عليكم أضف هذا الكود للنموذج وجرب : Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1 End Sub Private Sub Form_Timer() Call CmdRun_Click Me.TimerInterval = 0 End Sub تحياتي .

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

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

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

السلام عليكم موضوع ذو صلة : http://www.officena.net/ib/index.php?showt...pic=1033&hl=ole تحياتي .

السلام عليكم شكرا لك أخي Daniello . لقد تم تعديل طفيف على المثال . يفضل ملاحظة أن تكون التسمية label للأداة غير مرئية . تحياتي . تم حذف الملف المرفق لإرفاق نسخة أحدث بالأسفل .