مهند عبادي

عليك باستعمال لغات البرمجة في بيئة دوس كلغة qbasic أو Clipper أو TB5 ..الخ

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

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

تفضل أخي فهد .. هذا المثال بعد تطبيق جواب السؤالين عليه توضيح.rar

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

بالنسبة للسؤال الثاني فإن الFunction الذي كتبته فوق للسيد أبو هاجر غير صحيح .. وهذا Function عملته لنفس الموضوع : Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآا") tempstr = ReplaceChar(…

بالنسبة للسؤال الأول : Dim Rec2Go As Long DoCmd.GoToRecord , , acLast Randomize Rec2Go = Int(Rnd(-Timer) * Me.Recordset.RecordCount - 1) + 1 DoCmd.GoToRecord , , acGoTo, Rec2Go

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

أخي فهد أنا آسف على التأخر بالرّد ولكن صدقني أن المشاغل كثيرة جداً على أي حال هذا هو الملف بعد التعديل db2.rar

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

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

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

الدرس الخامس : تحكمات متقدمة (2) 1- أشرطة التمرير : إن نمط عرض أشرطة الأدوات في MsFlexGrid له إحدى هذه القيم الشريط القيمة أو استخدم الثابت بلا 0 flexScrollBarNone عمودي فقط 1 flexScrollBarHorizontal أفقي فقط 2 flexScrollBarVertical عمودي وأفقي 3 flexScrollBar…

أخي الكريم .. ضع في حدث عند الفتح للتقرير ما يلي بفرض أن اسم الخقل الذي يصف تريد عمل الفلتر عليه هو Person Name .. وأن اسم من تريد طباعة التقرير له موجود في نموذج اسمه Form1 في مربع نص اسمه thename .. Me.Filter = "[Person Name] = '" & Forms.form1.thename & "'"…

هذا آخر تطوير لفكرة الأزرار .. وأصبح المطلوب لعمل أزرار من بالشكل الذي نريده في البرنامج .. ما علينا سوى أن نعمل ما يلي : 1- نضع أداة صورة نحمل فيها الصورة التي نريدها كخلفية للزر 2- نضع أداة Label فوق أداة الصورة السابقة وبنفس حجمها تماماً .. نكتب فيها العبار…

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

أظن أن ما تحتاجه أخي الكريم .. هو استعلام تجميعي .. بحيث تقوم بعمل تجميع للحقل الذي تريد أن لا تتكرر القيم ضمنه

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

في مربع النص نكتب مصدر عنصر التحكم : =DCount("[رمز]";"TabelName";"[رمز]='N'") وفي الثاني نستبدل N بـ c أو D TabelName .. ضع بدلاً عنه اسم مصدر السجلات في التقرير

أخي s_ayed أنت بحاجة إلى FUNCTION تشفير خاص لتظبقه على الكلمة عند تخزينها .. وFunction لفك التشفير عند قراءتها هذا مثال على تشفير بسيط جداً لكلمة .. وبالنسبة لك إذا كنت ماهراً بالرياضيات .. يمكن أن تبتكر تشفير معقد أكثر يصعب فكه Public Function CodeIt( s as st…