سهل احمد العريشي

نيابة هن جميع الأعضاء أرحب بك بيننا أهلا وسهلا بك هل عملت مشروع بمعنى هل عملت اي شئي من المشروع أم لا أم ترغب في برنامج جاهز على السريع يعني أخيك سهل احمد ( أبو نعيم )

منقول من شرح الأخ ( Pc Xpert) ________________________________ السلام عليكم اخي الفاروق انت تستعمل data control غير موجوده بالكومبيوتر الجديد عندما تستعمل داتا كونترول يجب ان تتاكد ان الكومبيوتر يحتوي على DAO 3.5 احد الطرق استعمال برنامج الدبلوي في الفي بي او لتاكد من ان الكومبيوتر يحتوي على jet 3.5 انظر الى الموقع هذا Program Files\Common Files\Microsoft Shared\Dao\Dao350.dll واذا كان الرفرنس لمشروع يحتوي على DAO 2.5/3.5 or 3.51 يجب ان يحتوي الكومبيوتر على ملف في الموقع هذا Program Files\Common Files\Microsoft Shared\Dao\Dao2535.tlb ايضا تستطيع التاكد من الفرجن عن طريق الكود Debug.Print DBEngine.Version اذا كان الرفرنس المشروع على DAO 3.5 or 3.51 واسهل الطرق؟ هي تركيب الام داك MDAC من موقع الميكروسوفت http://msdn.microsoft.com/dataaccess اتمنى اني وضحت الفكره والله الموفق ____________ الشكر موصول لصاحب التوضيح ولمشرفنا الفاروق اخيك سهل احمد ( ابو نعيم )

بسم الله الرحمن الرحيم أولا نحدد النموذج الرئيسي ولعمل ذلك نذهب الى شاشه الفيجوال ونجد بها قائمة Project في أعلى الشاشه ومن القائمةProject نذهب الى Hospital Properties يظهر لنا مربع حوار من القائمة الرئيسيه General نجد القائمة المنسدله Startup Object نحدد منها النموذج main ومن ثم نذهب الى القائمة الموجوده في اعلى المربع Make ونذهب الى القائمة المنسدله :icon ونحدد ايقونة البرنامج طبعا أجعلوها نفس النموذج main ومن ثم موافق الآن لنصحح الأخطاء في الأكواد ثانيا - طبعا أنا سوف أذكر ما أعرفه ولست خبير بل معرفتي بسيطة جدا في الفيجوال ...... طبعا في شاشة الفيجوال وعلى يمين الشاشه نجد النماذج نذهب الى نموذج main وبزر الماوس اليمين على النموذج تظهر لنا قائمة نختار منها ثاني أختيار View Code تظهر لنا شاشة بها أكواد خاصه بالنموذج ونجد هذا الكود أولا _____________________________________________ Private Sub cmd1_Click() On Error GoTo Err_cmd1_Click Dim stLinkCriteria As String Unload Screen.ActiveForm stDocName = "serch1" GetFormFromName(stDocName).Show 'AC2VB DoCmd.OpenForm stDocName, , , stLinkCriteria 'AC2VB DoCmd.GoToRecord , , acLast Exit_cmd1_Click: Exit Sub Err_cmd1_Click: MsgBox Err.Description Resume Exit_cmd1_Click End Sub ____________________________________ طبعا هو خاص بفتح شاشة البحث وهذا زر الأمر الموجود في النموذج main المسمى بحث طبعا هنالك ملاحظه تم وضعها من قبل البرنامج في السطر السادس في الفيجوال لفتح نموذج نكتب اسم النموذج ثم show نعد هذا الكود ليصبح هكذا _____________________________________________ Private Sub cmd1_Click() On Error GoTo Err_cmd1_Click serch1.Show ( طبعا هنا الأختلاف في فتح النماذج لاحظ أسم النموذج ثم النقطه ثم Show للفتح ) 'AC2VB DoCmd.GoToRecord , , acLast Exit_cmd1_Click: Exit Sub Err_cmd1_Click: MsgBox Err.Description Resume Exit_cmd1_Click End Sub _______________________________________________ هذا ينطبق على جميع الأوامر لفتح نماذج أخرى _______________________________________________ ثالثا نجد أسفل الكود السابق مباشره هذا الكود Private Sub Form_Load() Screen.ActiveForm.WindowState = 2 End Sub ______________ طبعا هنا الكود كما يظهر عند التحميل في الفيجوال لابد من تحديد أسم الفورم بعد تعديله يصبح هكذا _______________________________ Private Sub Form_main_Load() Screen.ActiveForm.WindowState = 2 End Sub حتى يعمل معنا بصوره صحيحه _____________________________ طبعا قد يكون شرحي فيه أخطاء ولكني هذا ما أعرفه وأن كان هنالك أخطاء فأرجو من الأخوان المساعده في الشرح وأرجو قبول أعتذاري من الأخوان ولكني ذكرت ما أعلمه وسوف نكمل بأذنه تعالى ___________________________ أخواني الشرح ليس مقصورا علي وأنما من لديه ولو معلومه بسيطه فليذكرها رجاء مساعدة لنا وجزاه الله كل الخير مرفق المثال بعد تعديل بعض الأكواد وتقبلوا تحياتي أخيكم سهل احمد ( ابو نعيم ) Ac2Vb.rar

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

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

أعزائي هذا برنامج للأخ صلاح الدين اعتبره مثال نبدأ به حمل المثال وقد حولت بعض اسماء الجدوال من العربي الى اللغه الانجليزيه شاهدو المثال وسوف أقوم بتحويله الى فيجوال وأرفق النماذج لنعمل معا على تصحيح الأخطاء الموجوده بها وتقبلو تحياتي أخيكم سهل احمد ( ابو نعيم ) Hospital.rar

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

هنالك طريقة أخرى وهي كالتالي 1- أنشئ نموذج جديد في طريقة عرض التصميم 2- من القائمة أدراج أختر كائن 3- تجد في صندوق الحوار اختيارين من ضمن الأختيارات العديده الأول ادراج شريحه للباوربوينت والثاني عرض تقديمي للبوربوينت أختر الثاني أو الأول حسب ماتريد 4- أما أن تختار شرائح تعدها أنت أو استيراد شرائح معده مسبقا وتقبل تحياتي اخيك سهل احمد ( ابو نعيم )

هذا مشروع لتحويل برنامج اكسس الى فيجوال أرجو ممن يريد المشاركه الدخول وتسجيل اسمه حتى نعرف عدد المشاركيين وتقبلو تحياتي اخيكم سهل احمد ( ابو نعيم )

هذا مثال لعرض بيان المراجعين تم وضع كود في زر الأمر ( CmdToday ) لعرض اليوم السابق واليك الكود في زر الأمر (CmdToday) عند النقر Private Sub CmdToday_Click() Me.cmbAppointmentDate = Date - 1 Call cmbAppointmentDate_AfterUpdate End Sub لاحظ انه تم وضع( -1 ) ليعرض اليوم السابق وفي حالة حذف( -1 ) من الكود فسوف يتم عرض اليوم فقط وبأمكانك عرض اليوم التالي بوضع ( +1 ) بلا من ( -1 ) وتقبل تحياتي اخيك سهل احمد ( ابو نعيم )

يا أخت جنان حياك الله والله يحفضلك هم ويرعاهم هم الأول والله يعينك انا الحين في أجازه علشان كذا متواجد بأستمرار وأي خدمه لكم انا في خدمة الجميع اخيك سهل احمد ( ابو نعيم )

حياك اخت جنان وشكرا لكي على تقيمك اخيك سهل احمد ( ابو نعيم )

هذا رابط به الشرح عن الطريقه ولكن الصور غير موجوده في الشرح ولكني قمت بوضعها في الملف المرفق ارجو ترتيبها وفق الشرح رابط الشرح http://www.officena.net/ib/index.php?showtopic=398 وهذا رابط حماية وتأمين قواعد البيانات وفيه جميع ما ترغبين في التعرف عليه http://www.officena.net/ib/index.php?s=&act=SF&f=21 وتقبلي تحياتي اخيك سهل أحمد ( ابو نعيم ) منتديات أوفيسنا - صلاحيات المستخدمين باستخدام الخيارات_files.rar

هذا مثال لطريقة عمل help ب الpowerpoint ك power point show - pps و من ثمّ فتحه بواسطة الأكسيس .. أتمنى أن يفيدك اخيك سهل احمد( ابو نعيم ) Ppthelp.zip

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

حياك الله عزيزي سليم اخيك سهل احمد ( ابو نعيم )

اخي العزيز محمد اذا لم تحدد انت موقع وضع الملف ستجده هنا----------- C-Program Files-Inno Setup 4-Output-setup وستجد ايقونة برنامجك بعنوان ( setup ) وتقبل تحياتي اخيك سهل احمد ( ابو نعيم )

أخي العزيز برجاء المرور على هذا الرابط وذلك حتى تستفيد من هذا المنتدى وتجد ما تريده بأذن الله http://www.officena.net/ib/index.php?s=&act=SF&f=30 وتقبل تحياتي اخيك سهل احمد ( ابو نعيم )

اخي لو أمكن ارفاق المثال أو رابط التحميل اللذي قمت بالتحميل منه حتى اتمكن من مساعدتك وعموما جرب اسم المستخدم 100 كلمة المرور 100 اخيك سهل احمد ( ابو نعيم )

هلا بك اخت ليلى المعذره على التأخير بس خلي بالك طويل شاهدت مثالك وفعلا قمت بشئي جميل ولكن اين الحقل الذي يظهر اسم المستخدم عموما لأني على ثقه أنك سوف تحتاجين مستقبلا للصلاحيات فقد أوردت لكي هذا المثال وبه الشاشات التاليه حذف مستخدم أظافة مستخدم جديد تغير كلمة المرور لمستخدم سابق شاشة الصلاحيات وانتي تغيرينها على ما شئت عندك من نماذج أرجو معاينة المثال جيدا من نواحي الأستعلامات والنماذج وأي صعوبه تأكدي بأننا في الخدمه عذرا لأنك قد قطعت شوطا لا بأس به احببت أن أجعلك تكملين بنفسك لأني واثق من ذلك أرجو أعلامي بما توصلتي اليه ولاحظي انه مدرج في الجدول حقل بأسم الرمز وهو للدخول الى شاشة الصلاحيات فمن كان رمزه mas فهو الوحيد القادر على الخول والتغيير عموما اسماء المستخدمين والباسورد هي نفس الأسماء اللتي اوردتها في مثالك وتقبلي تحياتي اخيك سهل أحمد ( ابو نعيم ) dbd.rar

اخي العزيز عبدالله شكرا لك توصلك مع الموضوع أما بخصوص ما ذكرته ( شكلك تبي تاكل رواتب الموظفين ) فأعتقد يوم مو مشكله من موظف يعني يومية الموظف 120 * عدد الموظفين 780 مثلا = 93600 ريال شهريا مبلغ جدا بسيط ---------طبعا الأمر عباره عن دعابه واخينا العزيز Dragon X نحسبه من الأفاضل والله حسبه ولكن لماذا لا يكون الراتب له جدول منفصل بمعنى افضل يسمى سلم الرواتب ومنه يدرج راتب كل موظف هذا رأي وتقبلو تحياتي اخيكم سهل احمد ( ابو نعيم )

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

ادرج استعلامك جديد وأجعله استعلام تحديد وضع به البيانات اللتي تريد اظهارها من الجداول التي اخترتها وفي حقل التاريخ ضع في المعاير هذه العباره [ أدخل التاريخ ] وعند تشغيل الأستعلام سوف يطالبك بأدخال التاريخ ضع التاريخ اللذي تريده وسوف يظهر لك المطلوب وتقبل تحياتي اخيك سهل احمد ( ابو نعيم )

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

اي برنامج تقصد اذا كان البرنامج على اكسس عند فتح القاعده والشرح بالعامي علشان توضح الأمور معاك اكبس مفتاح الشيفت وخليك معلق على المفتاح وانت تفتح القاعده راح تفتح معاك القاعده بدون ما تشتغل روح للجداول وافتحها الين تلقى الجدول اللي فيه كلمة المرور اذا كانت على شكل نجوم روح لخصائص الحقل وغير قناع الأدخال يعني احذف كلمة (Password ) اللي موجوده فيه وبكذا اذا فتحت الجدول راح تكون البيانات واضحه اخيك سهل احمد ( ابو نعيم )