امير عاطف

الأخ ALWARITH : عندما تقوم بفتح الاعدادات الاقليمية وتختار اخر تبويب وهو Advanced واسفل الكومبو بوكس الخاص بالبلد تجد مربع قائمة عنوانة Code Page Conversion Tables وتجد بها الكثير من خيارات ترميز اللغة زمن بينها الترميز الذي يفهم من خلاله الكمبيوتر الكود وهذه الخيارات تختلف من اعدادات اقليمية لبلد عن اخرى

استخدم الدالة NZ حيث عندما لا تجد الدالة قيمة تعوض عنها بقيمة صفرية مثلاً: NZ([Sales])-NZ([Purchases]) وهنا اذا لم يجد قيمة بالمشتريات او المبيعات فيتم الاستعاضه عنها بالرقم صفر ولا يظهر الخطأ

قم بتعيين الخيار (Complete)(مكتمل) عند تنزيل نسخة الأوفيس وايضاً راجع هنـــا

الأخ Dr. Crash : نعم يوجد اداة ActiveX تسمى Microsoft Web Browser يمكنك تجربتها وللوصول اليها اذهب الى القائمة اذاكانت لديك الواجهة انجليزية: Insert>>ActiveX Control>> Microsoft Web Browser واذا كانت لديك الواجهةة عربية: ادراج>>عنصر تحكم ActiveX<< Microsoft Web Browser

DoCmd.RunSQL "UPDATE TableName SET TableName.Class = forms!formname!Class2 " & _ "WHERE (((TableName.class)=forms!formname!Class1));" حيث Class هو اسم حقل الفصل بالجدول المسمى TableName Class2 هو اسم مربع النص داخل النموذج المسمى FormName الذي تريد كتابة الفصل الجديد داخلة Class1 هو اسم مربع النص داخل النموذج المسمى FormName الذي تريد كتابة الفصل القديم والذي تريد استبداله داخله

اذهب الى الخاصية Custom للأداة وقم بالتأشير عليها وتجد تبويب اسمه Color واختر اللون الذي تريده للخلفية

اهلاً ومرحباً بك الاخ rawya يمكنك الذهاب للسطر التالي للخلية عن طريق الضغط على Ctrl+Enter بعد الانتهاء من كتابة السطر وبذلك تذهب للسطر التالي وهكذا ....

السر وراء الاعدادات الاقليمية حيث اللغة المحددة لديك لا تستطيع قراءة لغة كود الــ VBA عندما قمت بتعديلها تم قراءة الكود بدون مشاكل

المثال بعد التعديل من هنــــا

الأداه بالوين زيب AniGIF.zip

جزاك الله خير الجزاء على الهدية

ويمكن كتابة سطر الكود السابق بـ 4 طرق وكل تؤدي الى نفس النتيجة .. وهي : أولاً: Forms!MainForm!SecondSubForm.Requery ثانياً: Forms![MainForm]![SecondSubForm].Requery ويتم اللجوء الى الأقواس المربعه دائماً عندما يحتوي اسم النموذج او اسم العضو الذي داخل النموذج على مسافات ويفضل استخدام الأقواس المربعة دائماً سواء يوجد مسافات بالاسم ام لا ثالثاً: Forms("MainForm")![SecondSubForm].Requery رابعاً: Forms(0)![SecondSubForm].Requery حيث رقم صفر هنا يعني ويشير الى أول نموذج موجود في مصفوفة النماذج التي لديك واذا قمنا بكتابة الرقم 1 اذاً يشير الى ثاني نموذج واذا قمنا بكتابة الرقم 2 فهذا يشير الى ثالث نموذج لدينا .... وهكذا

ايضاً اذا اردت تطبيق الصلاحيات المسجله على نموذج محدد يجب ان تقوم باستدعاء الثلاث دوال التالية وهي : w e r وذلك عن كريق وضع الكود التالي عند الحدث الحالي On Current للنموذج الذي تريد تطبيق الصلاحيات عليه Call w Call e Call r

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

العلامة "." توضع قبل خاصية للكائن و Requery هنا هي خاصيه للكائن SecondSubForm العلامة "!" توضع قبل عضو من اعضاء الكائن وليس خاصية و SecondSubForm هي احد اعضاء الكائن MainForm و MainForm هي احد اعضاء الكائن Forms وهكذا اتمنى ان تكون اكتملت الفكرة

السؤال للعضو firemaha وهو ما الفرق بين العلامة . والعلامة ! في هذا السطر Forms!MainForm!SecondSubForm.Requery

هل قمت بسحب الوحدة النمطية ايضاً ؟

إن شاء الله يفي هذا الكود بالغرض ... حيث تضع هذا الكود لحدث النقر لزر الأمر وسوف يقوم بفتح المربع الخاص بايجاد الصورة إن شاء الله On Error GoTo Officena ' employee_pic اسم كائن صورة الموظف هو Me.employee_pic.Action = acOLEInsertObjDlg ExitProcedure: Exit Sub Officena: Select Case Err.Number Case 2001 'هذا الإجراء يقوم بإلغاء العملية السابقة Resume ExitProcedure Case Else MsgBox "خطأ رقم " & Err.Number & ": " & "الرجاء ابلاغ المبرمج بالمشكلة", vbOKOnly + vbInformation, "Officena" Resume ExitProcedure End Select مع التحية

هناك اكثر من حل لهذه المشكله هنــــــــــا

اتحدث عن دوال المجال التجميعيه حيث 99% منها موجود وفي حالتك هذه انت تحتاج لهذا النوع من ادوال اما باقي الدوال غير دوال المجال ان شاء الله سوف يتم ادراجها مع التحيه

فكرة اخرى لتحكم بصلاحيات الاضافة والحذف والتعديل بالنماذج login.zip

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

الأخ Dr. Crash لكي تجعل الحقول هي التي تظهر داخل الكومبو بوكس وليس السجلات يجب عليك الذهاب الى خصائص مربع التحرير والسرد(Combo Box) ثم تقوم بعمل تغيير للخاصية (نوع مصدر الصف)(Row Source Type)الى Field List(قائمة حقول) وبعد ذلك ان شاء الله عندما تقوم بفتح مربع التحرير والسرد(Combo Box)سوف تجد اسماء الحقول بداخله

هذه الميزه مدمجة مع القرص المدمج الخاص بأوفيس 2003 بالنسبه لإستخدام التعريب الخاص بـ Office XP : اعتقد انه لايمكن لأن كل اصدار مستقل بذاته

الأخ alwa7eed : اذا اردت نقل الكومبو الذي يقوم بالبحث من النموذج الفرعي الى النموذج الرئيسي(وذلك الأفضل بالطبع) فما عليك الاّ مسح اسم النموذج الفرعي الأول فقط من الأكواد ومن اسفل حقل [اسم الموظف] لخانة المعايير بمصدر السجل للنموذج الفرعي الثاني