صالح حمادي

استعمل هذا الكود Dsum("Quantity","fatora","id2='" & [رقم العميل] & "'")

لا يمكنك ذلك استعمل الشكل التالي : hd_adna و لا تجعل الحرف الأول من اسم الحقل رقم و لا تدخل الرموز مثل % و ! و العمليات و الأقواس و غيرها من الرموز لأن لها دور معين في البرمجة و استعمالها في أسماء الحقول يحدث خلل و لخبطة في الكود

تحت هذا الكود أكتب باقي المعادلات. و لا يجب القيام بتكرار مقدمة أو مأخرة الكود. بهذا الشكل rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd) rs!eana1 = (rs!eana - (rs!eana / 10) * rs!hrmnd) مع كتابة rs! قبل اسم كل حقل. هناك بعض الأخطاء في تسمية الحقول بالجدول مثل استعمال اشارة الناقص بين كلمتين مثل (hd-adna) فعند استعمال هذا الاسم في الكود سوف يقرأها على أنها hd ناقص adna و أيضا هذا التسمية (7%elwa) يجب استعمال اسماء واضحة دائمة و الإبتعاد عن الرموز التي قد تخلط عليك الأمر في البرمجة

مشاركة مع إخوتي و أساتذتي الكرام تفضل ربما هذا ما تبحث عنه تصفية بواسطة كومبو بوكس رقم 1.rar

السلام عليكم و رحمة الله تعالى و بركاته تفضل استعمل هذا الكود سوف يطبق العملية على جميع السجلات: Dim i As Integer Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst For i = 1 To rs.RecordCount If t = cood Then rs.Edit rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd) rs.Update End If rs.MoveNext Next i Set rs = Nothing و بإمكانك إضافة باقي المعادلات العمليات الحسابية.rar

فكرة أحلى الكود يعمل جيدا شكرا

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

السلام عليكم و رحمة الله تعالى و بركاته. أستأذنك أستاذ القدير جعفر في إضافة تعديل بسيط على الكود الذي قمت بتقديمة. الكود الذي كتبته أستاذي يقوم بتحديد الخانة الغير محددة و نزع التحديد عن الخانة محددة لقد أضفت تعديل بسيط ليقوم الكود بتحديد كامل الخانات أو إزالة التحديد من جميع الخانات كما طلب السائل. Dim f As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!done For i = 1 To RC If f = "true" Then rst.Edit rst!done = False rst.Update Else rst.Edit rst!done = True rst.Update End If rst.MoveNext Next i rst.Close: Set rst = Nothing Selection.rar

لقد تعلمت كل هذا بفضل الله تعالى و بفضل الإحتكاك بخبرتكم النيرة في هذا المجال. و رغم تواضعك الكبير إلا أنك تمتلك خبرة كبيرة في VBA و لا أحد يستطيع أن ينكر ذلك (كيف لا و التواضع سيمة من سيمات العمالقة) الله يحفظ يا غالي مشكور على المداخلة

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

مرحبا بك أخي حلبي شكرا لك

ربما يكون من الطابعة الإفتراضية قم بتغيير الطابعة الإفتراضية للجهاز

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

هذا الفورم عندما تقوم بتكبيره في وضعية ملأ الشاشة يزداد حجم النموذج فقط بينما العناصر الموجودة بداخل النموذج تبقى صغيرة لاحظ شكله الآن بعد التعديل قم بتكبير و تصغير النموذج و لاحظ جيدا الفرق form.rar

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

أطال الله في عمرك و جعل أعمالك و أعمالنا خالصة لوجهه الكريم العفو أخي القعر و فيك بارك الله

مرحبا بك أستاذي أبا جودي فينك يا غالي طال غيابك

السلام عليكم بعد إذنك أخي تشفان. يمكن ذلك بوضع الكود التالي في مصدر عنصر التحكم للمربع النص الذي يظهر عدد المؤسسين: ="عدد المؤسسين هو " & "(" & DCount("idn";"staff";"[minalmoaasisin]=true") & ")" برنامج الجمعية 2017.rar

و فيك بارك الله أستاذ تشفان

مرحبا بك أستاذ عبد الله . و مشكور على هذه المداخلة. لكن لو تلاحظ أخي عبد الله أنه عند إستخدام الإرتساء فإن الفراغات بين العناصر تزول و لا تظهر بالشكل الذي نريده

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله. من المعروف أنه حين نجعل النموذج في وضعية ملأ الشاشة يزداد حجم النموذج و تبقى العناصر بنفس حجمها السابق مما يجعل شكل النموذج غير لائق نوعا ما. و نستطيع أن نتجاوز هذه المشكلة باستعمال الطريقة التالي: نقوم بإنشاء وحدة نمطية جديدة و نلصق بها الكود التالي: Function salah(frm As Form) On Error Resume Next Dim x, y, x1, y1 As Integer Dim moyH, moyW As Double Dim obj As Control Dim str As String x = frm.InsideHeight 'ارتفاع النموذج قبل التكبير y = frm.InsideWidth ' عرض النموذج قبل التكبير DoCmd.Maximize x1 = frm.InsideHeight 'ارتفاع النموذج بعد التكبير y1 = frm.InsideWidth ' عرض النموذج بعد التكبير moyH = x1 / x 'معامل الإرتفاع moyW = y1 / y ' معامل العرض For Each obj In frm.Controls With obj .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH .FontSize = .FontSize * moyH End With Next End Function و أيضا أضف هذا الكود في حدث عند التحميل للنموذج: salah Me و لا تنسى أن تغير خاصية النموذج منبثق إلى نعم هذه الطريقة سوف تقوم بتكبير النموذج إلى وضعية ملأ الشاشة و تقوم بتكبير عناصر النموذج لملاءمة الوضعية الجديدة لنموذج. و الله هو الموفق. تكبير العناصر مع ملأ الشاشة لنموذج.rar

آمين يا رب العالمين و لك بالمثل أخي حياك الله و رفع من قدرك

تفضل أخي حلبي و شكرا على الملاحظة تأثيرات النماذج.rar

شكرا أستاذ شيفان

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