ابراهيم - ابو ريان

الاخ العزيز محمد طاهر بالنسبة للملف GETCPUID تصميمه مغلق ولم اتمكن من فتح الكود ب F11 +ALT ولكن قمت بإستيراد النماذج والوحدة النمطية من ملفك الاخير الى ملف آخر هذا انتهى والحمد لله والشكر الجزيل لله ثم لكم . ولكن المشكلة الآن ما دام أنه يوجد ملف كراك للتسجيل الآلي وهو عام غير مخصص لبرنامج معين فلو حصل العميل على هذا الملف من السهل ان يقوم بتسجيل النسخه على اي جهاز آخر وكنت اضن ان تغيير اسم الجدول المرتبط id سيحل الاشكال ولكن لا فائدة حيث اني وضعت الكود الذي عند الفتح على الفورم1 في مثالكم على الشاشة الرئسية في برنامجي واعطى رسالة ان هذه النسخة ليست شرعية واستطعت تسجيله على ملف الكراك الذي استخدمته كما هو من المنتدى دون اي تعديل فيه . هذا حسب فهمي للموضوع وإذا كان هناك شئ آخر ارجو توضيحه لي ولكم جزيل الشكر .

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

هل سؤالي صعب لدرجة لا احد يعرفه :') ام تعبتم من اسئلتي المستمرة - حقيقة لا اعرف ولاكن اذكركم جميعا ان الله في عون العبد ما كان العبد في عون اخيه واختكم محتاجه والله للإجابة عن سؤالها

قرات في هذا المنتدى موضوع عن الحماية برقم المعالج وهناك مثال مرفق للاخ رضا عقيل ولكن لم استطع الوصول الى فك البرنامج ومشاهدة الوحدات النمطية وتصميم النماذج بالرقم ان الاخ رضا قد تكرم بإعطاء الباسورد للوحدات النمطية فهل هناط طريقة تتبع ؟ وهذا رابط الموضوع http://www.officena.net/ib/index.php?showtopic=177

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

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

لقد صممت برنامج لاحد الشركات واريد ان يطالب عند اول مرة يتم تشغيله فيها ببيانات الشركة ومن ثم تكون هذه البيانات على رؤوس التقارير والنماذج

بعد محاولات استطعت اخيرا من جعل كود لتحويل التاريخ معمول على الفيجوال بيسك( وكنت قد حملته من احد المواقع ) يعمل على برنامج الاكسس ولا ادري اذا كان هذا الكود تم انزاله من قبل في هذا المنتدى ام لا ولكن قصدت الفائدة للجميع db5.zip

لدي برنامج للموظفين به نماذج خطابات فمجرد ان اضع رقم الموظف يتم عمل الخطاب في حقل نص الخطاب والمشكلة انه عند ما اردت عمل الخطاب بنص ذو اسطر متساوية كما في الورد مثال (انسخ النص التالي وضعه على برنامج الورد ثم اختر اداة المحاذاة justify او ظبط سوف يظهر لك النص اسطر متساوية) تشهد ادارة الشركة بان الموظف فلان الفلاني قد عمل لديها من الفترة 01 /07 /2003 الى الفترة 01/04/2005 وقد كان من تبايسب بسيابتسي باسيبت ستسيابتبا بايستبايستباسي وقد منح هذهكذتهتبسينب ليبلت لتبيل لتبين بين لب لبيلل بييليبتسيبنبسيب يبيسب يسبيسبيسبيسبييبيسبيسبب يسبمسيتبنم سي.وقد منح هذه الشهادة بناء على طلبه. لا استطيع عمل ذلك بل لا يوجد غير خيارات محاذاة لليمين و محاذاة لليسار وتوسيط اما الخيار justify او ظبط فغير موجود هل يمكن عمل كود لذلك ام ان هناك طريقة اخرى.

اخي الكريم البرنامج يكشف كلمة المرور لجميع الإصدارات من اوفيس لكن المشكلة فقط في الإصدار المنصب على win xp وآسف على نسيان ذكر هذه الملاحظة. وشكرا جزيلا على هذه التذكير .

اخي الكريم في حدث after update على افتراض ان لديك حقل هو رقم الهاتف والحقل الذي يليه هو عنوان المشترك وتريد في حالة تغيير رقم الهاتف ان يعطيك رسالة تفيد بالتغيير فهل تريد حفظ التغييرات ام لا اذا اخترت نعم فان المؤشر سيتجه الى الحقل الذي يليه وهو عنوان المشترك واذا نقرت لا فان المؤشر سيعود مكانه في حقل رقم الهاتف محتفظا بالقيمة القديمة انسخ ثم الصق الكود التالي msg$ = "هل تريد تعديل رقم الهاتف بالفعل" Title = "تنبيه عن تعديل " If [رقم الهاتف].OldValue > 0 Then response = MsgBox(msg, 36, Title) If response = 6 Then DoCmd.GoToControl "عنوان المشترك" If response = 7 Then [رقم الهاتف] = [رقم الهاتف].OldValue Cancel = True

برنامج فك كلمة مرور قاعدة البيانات في الاكسس فهل ستعتمد عليها بعد الآن ___________________________________.zip

لتحديد ظهور بياناتك في التقارير خلال فترة زمنية اتبع الآتي: أولا : نفرض ان لدينا عملاء قمنا بإدخال حركات الوارد منهم تطبيق نفس الخطوات الواردة في موضوعي السابق (الاستعلامات والتحكم في ظهور البيانات في التقارير) يختلف في النموذج والإستعلام وهذا ما سأشرحه هنا 1- النموذج اعمل نموذج جديد في خصائص النموذج وفي التبويب "غير ذلك" حرر الخاصية منبثق الى نعم ضع تسمية في النموذج واكتب فيها عرض حركات العملاء من الفترة ثم ضع مربع نص وافتح خصائصه واجعل اسمه التاريخ الافتتاحي ثم ضع تسمية في النموذج واكتب فيه الى الفترة ثم ضع مربع نص آخر امام التسمية واجعل اسمه التاريخ الختامي - اجعل اسم النموذج هو عرض حركات العملاء خلال فترة زمنية في خصائص النموذج الخاصية عند الفتح انقر انشاء الحدث ثم اكتب الكود التالي: Me.Caption = Me.OpenArgs ضع كذلك في النموذج زر عرض وزر الغاء في الزر عرض اكتب الكود Me.Visible = False وفي الزر إلغاء اكتب الكود DoCmd.Close الآن اتجه الى الاإستعلام افتح التصميم للإستعلام وتحت حقل تاريخ الحركة (يراعى ان يكون نوع البيانات للحقل تاريخ/وقت طبعا هذا عند تصميم الجدول ) نكتب جملة SQLالتالية : [>=[forms]![عرض حركات العملاء خلال فترة زمنية]![التاريخ الافتتاحي] And <=[forms]![عرض حركات العملاء خلال فترة زمنية]![التاريخ الختامي] ثم راجع موضوع (الاستعلامات والتحكم في ظهور البيانات في التقارير) لتعرف ما تعمله مع التقرير . وقد ارفقت مثالا يوضح هذا الدرس هذا وبالله التوفيق.

اخي الكريم في زر امر الطباعة ضع في خانة اجراء حدث عند النقر الامر التالي: Me.Visible = False وسوف يختفي النموذج ويظهر التقرير الى الامام اذا لم يتم حل مشكلتك رجاء ارسال ملفك الي وشكرا.

في تصميم الإستعلام اكتب كلمة true تحت اسم الحقل check box وسوف تظهر عند تشغيل الإستعلام السجلات التي تم اختيارها فقط هذا على حسب ما فهمته من سؤالك وإذا لم يتم المطلوب رجاء الا تتردد في مراسلتي على الايميل وارسل لي الملف وبه الاستعلام .

السلام عليكم ورحمة الله وبركاته :- الطريقة التقليدية لعرض بيانات عميل مثلا ان نكتب في الاستعلام تحت رقم العميل بين قوسين اكتب رقم العميل ثم نربطه بالتقرير وعند فتح التقرير تظهر لنا رسالة ادخال قيمة معلمة ثم نضع رقم العميل وتظهر لنا البيانات ولكن لا نستطيع تغيير شكل هذه الرساله فما رأيك لو انك عملت نموذج (FORM) ووضعت فيه مربع فارغ وغيرت الوانه بنفسك وخصائصه ثم عند فتح التقرير يخرج لك هذا النموذج الصغير مكتوب فيه اكتب رقم العميل المراد البحث عنه فتتكتب رقم العميل ثم تظغط على OK ليفتح لك التقرير الا تبدو هذه الطريه اجمل اريد ان اشرح موضوعي بإستخدام المثال التالي :- لدي قاعدة بيانات بها معلومات عن العملاء احمد رقمه 1 محمد رقمه 2 سالم رقمه 3 واريد عرض بيانات محمد فقط فإن علي القيام بالآتي :- اولا : انشاء نموذج وليكن اسمه (تحديد بيانات عميل) ثانيا :- إنشاء استعلام ثالثاا : اشاء تقرير رابعا:انشاء وحدة نمطية في النموذج نضع تسمية ( لإعطاء بيانات عن العميل اكتب الرقم ) نضع مربع نص ونسميه رقم العميل افتح خصائص النموذج وفي تبويب "غير ذلك" امام خاصية منبثق حرر الى نعم نضع زر امر ونسميه (عرض ) ونفتح خصائص زر الامر وفي التبويب حدث امام الخاصية عند النقر انقر على انشاء حدث ثم اكتب بين السطرين Me.Visible = False اعمل زر آخر وسمه(الغاء) وفي خصائصه في حدث عند النقر اكتب الامر DOCMD.CLOSE وفي خصائص النموذج تحت التبويب حدث ننقر انشاء حدث عند الفتح ونكتب بين السطرين Me.Caption = Me.OpenArgs نتجه الآن الى الإستعلام ةفي عرض التصميم نكتب تحت رقم العميل عبارة SQL هذه [forms]![تحديد بيانات عميل]![رقم العميل] نتجه الآن الى التقرير افتح خصائص التقرير وفي التبويب حدث انقر امام اجراء حدث ستفتح لك الآن نافذة فيجوال بيسك اكتب بين السطرين : Private Sub Report_Open(Cancel As Integer END SUB الكود التالي : DoCmd.OpenForm "تحديد بيانات عميل", , , , , acDialog, "تحديد بيانات عميل" If Not IsLoaded("تحديد بيانات عميل") Then Cancel = True End If ملاحظة تبدو كتابة الكود معكوسة لذا ارجو نسخها ومن ثم لصقها في نافذة الكود في الاكسس وسوف تظهر انشاء الله بالشكل الطبيعي) اتجه الآن الى الوحدة النمطية وقم بنسخ ثم لصق الكود التالي:- Option Compare Database Option Explicit Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function وعند طلبك الإستفسار عن عميل وهو غير مسجل لديك يتم عرض رسالة تقول بانه لا توجد بيانات لهذا العميل لعمل ذلك اتبع الآتي : افتح خصائص التقرير : في التبويب حدث وامام خاصية عند عدم وجود بيانات انقر انشاء حدث في نافذة الكود بين السطرين :- Private Sub Report_NoData(Cancel As Integer) End Sub انسخ ثم الصق الامر التالي MsgBox "لا توجد بيانات للعميل المراد البحث عنه تأكد من صحة كتابة الرقم " Cancel = True اعذروني على هذه الإطالة وكنت اريد ان ارفق مثال يوضح ما سبق ولكن لم اجد خاصية ارفاق ملف . إذا اعجبكم هذا الموضوع سوف نتابع انشاء الله كيفية عرض البيانات خلال فترة زمنية يعني مثلا عرض تفاصيل فاتورة العميل من الفترة حتى الفترة . وشكرا لكم .