مهند عبادي

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

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

Dim D as Object Set D = CurrentDb.OpenRecordset("Students") With D Do while not(.EOF) .Edit For R = 0 to D.Fields.Count-1 .field(r) = .field(r)+1 next .Update .MoveNext Loop End With Set D = Nothing

أخي الكريم الحل أن تضع أسماء الحقول التي تريد الزيادة في مصفوفة .. كما في هذا الكود : Dim D as Object , FN(5) as string FN(0) = "FieldName1" FN(1) = "FieldName2" . . . . Set D = CurrentDb.OpenRecordset("Students") With D Do while not(.EOF) .Edit For R = 1 to 5 .field(FN(r)) = .field(FN(r))+1 next .Update .MoveNext Loop End With Set D = Nothing

Dim D as Object Set D = CurrentDb.OpenRecordset("Students") With D Do while not(.EOF) .Edit For R = 1 to 5 .field(r) = .field(r)+1 next .Update .MoveNext Loop End With Set D = Nothing

للمعلومية : فإن بعض أنواع الطابعات لها حجم هامش لا يمكن أن يقل حجم الهوامش عنه وربما هذا هو سبب أن الهوامش تعود إلى حجم 7 ملم تلقائياً !

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

أخي العزيز ابن مسقط .. لقد قمت بتعريب البرنامج على هذا الرابط : http://www.arabmoheet.net/forum/topic.asp?topic_no=2021

يسر إدارة منتديات المحيط العربي توجيه الدعوة إلى منتديات أوفيسنا للاشتراك في مشروع رائد ألا وهو إصدار مجلة عملية متنوعة المواد مشتركة بين أكثر من موقع عربي تفاصيل هذا المشروع هنا : http://www.arabmoheet.net/forum/top...ge=1entry5754 تحياتي للجميع مهند عبادي / نائب مدير منتديات المحيط العربي

الأخت الكريم Dima حل المشكلة الأولى : هو أن تعملي استعلام تجميع لمصدر بيانات النموذج باستخدام التعليمة Count وشرط على الحقل يساوي X مثلاً ثم تقرئين القيمة من هذا الاستعلام

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

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

أخي أبو وليد هذا مثال عملته لك لايضاح قصدي .. db1.rar

أخي أبو وليد الحل هو استخدام فونط يوجد به إشارة OK وعمل Label يكون محتواها هذه الإشارة إذا كان الحقل المطلوب = True

السلام عليكم أخي جمال .. ما الفائدة التي سيجنيها كائناً من كان من إظهار هذه الأشرطة إذا كانت القاعدة محولة إلى MDE ؟؟! ماذا سيفعل بهذه الأشرطة ؟ أعتقد أنه فعلياً لا توجد فائدة لمن يقوم بـهذا العمل بالإضافة إلى أنه عند فتح القاعدة بالضغط على Shift لن يتم تنفيذ أي كود لبرنامجك لذلك لا يمكننا أن نفعل شيئاً إزاء ذلك ..

أخي الفيلسوف ... هذه الدالة تماماً كما طلبتها أنت وقد أسميتها UniqueCount ليدل اسمها على وظيفتها Function UniqueCount(Expr As String, Domain As String, Optional Criteria As String = "True") As Long Dim A As String, R As DAO.Recordset If InStr(1, Expr, "*") > 0 Then UniqueCount = 0 Else A = "SELECT " & Expr & ", Count(" & Expr & ") AS Count FROM " & Domain & " WHERE (" & Criteria & ") GROUP BY " & Expr & ";" Set R = CurrentDb.OpenRecordset(A) UniqueCount = R.RecordCount End If End Function ضعها في وحدة نمطية في برنامجك .. ثم استدعها تماماً مثلما تستدعِ تعليمة Count ولكن تذكر أن تدرج في الـ References مكتبة Dao لكي تعمل الدالة عندك بشكل صحيح تحياتي لك

أخي الكريم جمال فايز والأخوة جميعاً هذا المثال الذي وعدتكم به والذي ينشئ الاستعلام عند الحاجة له .. ويحذفه بعد الانتهاء منه أرجو أن تجدوا به ضالتكم http://www.arabmoheet.net/forum/download.asp?topic_no=452

السلام عليكم تعليمة If هي الشرط المعروف في كل اللغات... ويوجد في VB و VBA تعليمة IIF وهي دالة (Function) أي تعود بقيمة وصيغتها هي SomeVar = IIF( Condition , Valur If True , Value If False) SomeVar : المتغير الذي يتم تخزين نتيجة الدالة IIF فيه Condition : شرط والتي تكون نتيجته True أو False ويمكن استدبدال الشرط بمتغير أو بحقل من نوع Boolean مثال : إذا كان لدينا حقل اسمه FLD ندخل فيه قيم .. ونريد لجميع القيم المدخلة أن تصبح سالبة القيمة نكتب في حدث بعد التحديث FLD = IIF(fld>0, -FLD,FLD)

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

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

أخي الخيال هل ظهر معك الجدول بهذه الطريقة ..؟ لأنه لن يظهر هكذا

السلام عليكم هذا ملف أكسس MDB عملت فيه نموذج AA يعتمد على جدول config choices هل يوجد أحد يستطيع أظهار هذا الجدول الرجاء المحاولة خاصة من الخبراء تحياتي لكم Hide Teble.rar

بفرض اسم المتغير اللي رح نعمل عليه القسمة هو A والرقم الثاني هو B والنتيجة في C نكتب : C = iif(nz(A,0)=0,0,B/A)

أشكر كل الأخوة على كلماتهم الجميلة الأخ الكريم aboasem33 يوجد هنا شرح لكيفية عمل الأزرار المستخدمة في البرنامج : http://www.arabteam2000-forum.com/index.php?showtopic=42373 وهنا شرح للأكواد الموجودة بالفورم الرئيسي http://arabmoheet.net/forum/topic.asp?topic_no=589

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