مهند عبادي

الفكرة أخي أن تقوم بعمل حقل من نوع كائن OLE وتخزن فيه مستندات الوورد

أخي saeedmg تسعدني مساعدتك بكل سرور .. وهذا هو المطلوب .. ولفتح برنامج وورد لتحرير الملف انقر نقراً مزدوجاً على الكائن WordFile.rar

me.RecordsetType = Snapshot DoCmd.OpenQuery "اسم الاستعلام الذي تريده" me.RecordsetType = DinaSet

السلام عليكم رغم أن هذا المنتدى متخصص بالأوفيس .. ولكني أرى أن إضافة قسم متخصص بفيجوال بيسك أمر ضروري ... بسبب : 1- كل برامج الأوفيس تعتمد في برمجتها الداخلية على VB 2- من الناحية التصنيفية .. توجد بعض المواضيع التي يجب أن تكون في قسم VB وليس في أي قسم آخر .. كما هو الحال مثلاً في الأدوات OCX وبرمجتها للاستخدام في أوفيس .. الخ ما رأيكم ؟؟

أخي saeedmg ... أظن أن ما تريده موجود في هذا الملف المرفق .. WordFile.rar

Me.Filter = "ضع هنا عبارة sql التي تعبر عن الفلتر الذي تريده" Me.FilterOn = True

أظن أن الأخ أبو عبد الرحمن يريد هذا الكود : بفرض أن مربع السرد والتحرير اسمه Com وأن نموذج الصحة اسمه Health Private Sub Com_Click() If [Com] = "الصحة" then DoCmd.openform "Health" Else DoCmd.Close acForm ,"Health" End If End Sub

If Me.NewRecord And Me.CurrentRecord > 1 Then [Name] = DLast("[name]", "mytable") [City] = DLast("[City]", "mytable") [Country] = DLast("[Country]", "mytable") End If

رغم أنك حولت موضوع النقاش إلى اتجاه آخر .. ولكن سؤال لك .. هل هذا ما تريده في الملف المرفق ! testemessage.rar

أخي جمال فايز .. بفرض حقل رقم الطالب SN حقل الاسم Name حقل المجموع Total حقل المعدل Ava افتح استعلام جديد واكتب في SQL هذا الاستعلام وهذا ما تريده SELECT TOP 5 SN, Name, Total, AVA FROM T1 ORDER BY AVA DESC , Total DESC, Name;

أخي biskra مافي داعي لكل هذا العذاب .. يكفي أنك تضع الزر على نموذج Access ثم تضغط Alt + F11 للدخول إلى نافذة البرمجة .. ثم اختار الزر من صندوق الأدوات ثم من صندوق الخصائص اختار خاصية OnClick أخي محمد طاهر هذه الظريقة التي ذكرتها توقف الحركة فقط !

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

الآن سأضع لكم الأداة التي قمت ببرمجتها وهي زر ذو مواصفات متععدة ومرنة وذا مظهر رائع آمل أن يعبكم وبإمكان كل الأخوة أن يستفيدو منه دائماً .. وبنفس الوقت يجرى تجربته على نموذج VB وكيف أنه عندما يكون التركيز موجوداً فوقه ونضغط Enter يتم توليد جدث Click ... ثم نفس التجربة على نموذج Access ومقارنة النتيجة MagicBtn.zip

أخوتي الأفاضل .. حاولت إرفاق الكائن .. ولكن لا أدري لماذا لا يظهر عندي إمكانية إرفاق الملف !!

أخي الكريم : أبوعبدالله2 لنفترض أنك في برنامجك يلزم لك تخزين عدد مرات تشغيل برنامجك .. وأن الاسم الذي ترغب بإكلاقه على برنامجك هو "المعين لحل المعالات الرياضية" وأن اسم المتحول الذي ستستخدمه لتخزين عدد مرات تشغيل البرنامج هو repetition حسناً .. عند تشغيل البرنامج وعند فتح الفورم الرئيسي نكتب ما يلي : repetition = GetSetting "المعين لحل المعالات الرياضية","Var","Repet No",0 لا حظ أن : "Repet NO" هو اسم كيفي استخدمته للدلالة على هذه القيمة التي أقرؤها .. ويدعى هذا الاسم بـ ( مفتاح ) رقم 0 : هو القيمة الافتراضية التي سيعيدها هذا التابع في حال لم نكن قد خزنا من قبل قيمة لهذا المفتاح ، أي عند أول استخدام للبرنامج سيعيد لنا تابع GetSetting القيمة صفر ثم نكتب بعد سطر التعليمات السابق ما يلي : Repetition = Repetition + 1 SaveSetting "المعين لحل المعالات الرياضية","Var","Repet No",Repetion وبهذان السطران نكون قد زدنا على قيمة المتحول Repetition قيمة +1 ثم قمنا بتخزينه مكان القيمة السابقة له

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

تتطلب تعليمة saveSetting أربع ممرات : اسم التطبيق اسم مجموعة الخيارات اسم الشيء المطلوب تخزين قيمته (المفتاح) قيمته مثال : SaveSetting "MyApp","Startup", "Left", 50 ولقراءة القيمة نستخدم GetSetting بنفس الممرات السابقة الثلاث الأولى وتكون الممررة الرابعة(اختياراية) هي القيمة الافتراضية (في حال عدم وجود هذا المفتاح في الريجستري) مثال : MyLeftvalue = GetSetting "MyApp","Startup", "Left", 25

أخي الفاضل بامكانك تخزين مثل هذه المعلومات في الريجستري وذلك باستخدام تعليمة SaveSetting ثم قراءتها عند الحاجة باستخدام GetSetting

أخي WinMaster .. بإمكانك وضع أي كائن OCX من عندك ضمن نموذج Access ثم شغل النموذج وضع التركيز عليه ثم اضغط Enter ستجد أن التركيز ينتقل للعنصر التالي وكمثال استخدم عنصر Microsoft Forms CommandButton 2.0 الموجود على كل جهاز

السلام عليكم هنالك مشكلة عند برمجة كائن OCX (زر أمر) ثم وضعه في نموذج Access المشكلة تتلخص في أن Access عند الضغط على مفتاح Enter ويكون التركيز موجود للكائن (الزر) فإنه لا يمرر الحدث KeyDoun أو KeyPress إلى الكائن بل ينقل التركيز إلى الأداة التالية ويشكل حدث ExitFocus فقط للكائن فكيف يمكن حل هذه المشكلة ؟؟؟ خاصة أن هذا الكائن (الزر) لا يعاني من أي مشكلة عند ادراجه في برنامج VB عادي !!

retVal = Shell("regsvr32 /s " & myDLL, vbHide)