مسفر
الخبراء-
Posts
365 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
3
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو مسفر
-
لا اعلم ما الفائدة من إظهار وإخفاء العنصر وما الرابط بين العنصر ومربع التحرير والسرد ليس هنالك علاقة أرجو توضيح الفكرة
-
كود إخفاء الإستعلامات والنماذج والوحدات النمطية والتقارير
مسفر replied to سمير الجبالي's topic in قسم الأكسيس Access
جرب هذا للنموذج من أكواد الأخت زهرة إخفاء نموذج Application.SetHiddenAttribute acForm, "اسم النموذج", True إخفاء استعلام Application.SetHiddenAttribute acQuery, "اسم الاستعلام", True التقرير Application.SetHiddenAttribute acReport, "اسم التقرير", True -
-
كود إخفاء الإستعلامات والنماذج والوحدات النمطية والتقارير
مسفر replied to سمير الجبالي's topic in قسم الأكسيس Access
أيضا أرفق لك كود من الأخت زهرة جزاها الله عنا وعنكم خيرا كثيرا إخفاء وإظهار الكائنات.rar -
كود إخفاء الإستعلامات والنماذج والوحدات النمطية والتقارير
مسفر replied to سمير الجبالي's topic in قسم الأكسيس Access
هذا الكود من الأخ محمد طاهر على ما أذكر لإخفاء الجداول Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next Set tbl = Nothing db.Close Set db = Nothing أما لإظهارها هذا الكود وأيضا من الأخ محمد طاهر Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing -
لا لم أرى هذا الملف ولم يفتح معي ولكن السؤال هنا لماذا يقوم المبرمج بكل الاعمال التي يجب على المستخدم أن يقوم بها كأخذ نسخة احتياطية من البرنامج مثلا هي من اختصاص المستخدم بإيعاز من المبرمج أثناء شرح البرنامج وكيفية التعامل معه للمستخدم أنا وضعت النسخة السابقة للنسخ في الشريط الأساسي من البرنامج وشرحت للمستخدم البرنامج واهمية النسخ عدم أخذ نسخة احتياطية تكون مسؤولية المستخدم لا مسؤولية المبرمج هذا في رأي والله اعلم
-
أخي العزيز اعتقد انك لم تقرأ الوحدة النمطية بشكل جيد Public Sub TimerCopy() ' كود للقيام بعملية حفظ نسخة احتياطية عند مضي مدة على آخر عملية حفظ حسب الوقت الذي يحدده المستخدم ' يمكن استدعاؤه من التايمر في النموذج الرئيس أو في حدث عند إغلاق النموذج الرئيس جرب ضع ( CALL TimerCopy ) في حدث عند الإغلاق في النموذج الرئيسي وأغلق النموذج تجد حفظ نسخة تلقائي من غير تدخل من المستخدم وإيضا تستطيع وضعه في إغلاق البرنامج بشكل عام أو في التايمر بعد مضي وقت معين
-
تكون الملفات مع الجداول وليس مع النماذج فالبرنامج الأول الذي ذكره الزملاء سابقا لقاعدة البيانات المقسمة أما هذه فلا يكون البرنامج ككل أما إذا اردت استخدامها فلابد أن تكون مع الجداول كسيرفر مستقل . وقد جربتها في أحد البرامج سابقا لأحد الدوائر الحكومية
-
أولا إنشاء مجلد على الدي يحمل اي اسم مثلا ( نسخ احتياطي ) أو ( Backup ) ثم نذهب إلى البرنامج ونحدد المجلد المذكور في نافذة تحديد مكان تحديد النسخ
-
حدد مكان حفظ النسخ وتذهب الرسالة المزعجة أولا تحديد الجداول قبل كل شي المراد نسخها ثم تحديد مكان النسخ والأفضل على باراتشن غير السي الأفضل دي ويكون ملف مخصص للبرنامج بمسمى البرنامج اللي أنت صممته ( BringData) هذه أساس كل شي فيها خيارات الحفظ أي الموقع المراد حفظ النسخ فيه تحديد الجداول اسحب جميع الجداول والنماذج والوحدة النمطية لبرانامجك تجد كل شي موجود في تحديد الجداول حدد ما تريد وحدد مكان النسخ واضغط حفظ نسخه وينتهي الموضوع وإذا أردت شرح فيديو لا بأس
-
لا ادري ما الموضوع بالضبط لكن أنا أستخدم هذه الطريقة وهي لملف قد تم تحميله من قبل ولكن لا اعلم من صاحبه فجزاه الله خيرا هذه النسخة جربتها مع العملاء في برنامجي نعم لكل شي عيوب وله إيجابيات ولكن في الأكسس خاصة نظر إلى التحديث فالتحديث يتطلب تغير في النماذج إضافة جداول وغيرها ولكل طريقته وأسلوبه والله ولي التوفيق CopyTables.rar
-
لا شكر على واجب سهل الله عليك مبتغاك جزاك الله خيرا
-
ربما تريد أن يكون بهذه الطريقة والله أعلم Database4.accdb
-
أرجو أن يكون هذا طلبك التنسيق.accdb
-
بدل <ribbon startFromScratch="false"> <ribbon startFromScratch="true"> وستختفي الصفحة الرئيسية
-
الله يعطيك العافية أبو خليل وصلت الفكرة التي أريدها وطببقتها على برنامجي بعد الاطلاع على برنامجك ولم استخدم الا نموذجين فقط واستعلامين من برنامجي أحدهما للتقارير التي اريد طباعتها ودون استخدام الأكواد أو الوحدة النمطية فلك الشكر والاحترام والتقدير
-
السلام عليكم ورحمة الله وبركاته لدي جدول الطلاب والصفوف والفصول وجدول المواد وجدول التقديرات الذي أريد نموذج عندما اختار الصف والفصل والمادة حسب الشرط في الاستعلام يظهر لي جميع طلاب الصف حتى أقدر كل طالب في المادة أي أعطيه تقدير ثم أحفظ وإذا غيرت المادة يظهر لي نفس الطلاب بدون تقديرات أضع لهم التقديرات وهكذا مثل برنامج معارف لوزارة التربية والتعليم تماما
-
جزاك الله خير وصلت للطريقة عن طريق الماكرو بارك الله فيك ورزقك الله من حيث لا تحتسب
-
يتعذر تشغيل الكود لأن اللي عندي 2007 جزاك الله خيرا ورحم الله والديك وغفر الله لنا ولك ورحمنا فهو أرحم الراحمين
-
ارجو وضع كود لفتح معالج الاستيراد والتصدير التابع لأكسس شاكرا لكم مروركم
-
كيف يتم فتح الموقع على بينات الرسائل
مسفر replied to ابو ياسين المشولي's topic in قسم الأكسيس Access
نعم مجاني لكن لا بد من اشتراك وتستطيع دمجه في برنامجك بأي طريقة تريد الاشتراك في مواقع الارسال وليس للبرنامج موقع تشترك فيه وتشتري رسائل ثم يعطوك اسم مستخدم وكلمة مرور من خلالها تستطيع الارسال إذا أدرجتها في البرنامج انا شخصيا اعمل به في برامجي موقع المدار التقني انا مشترك فيه -
كيف يتم فتح الموقع على بينات الرسائل
مسفر replied to ابو ياسين المشولي's topic in قسم الأكسيس Access
هذا نموذج من أحد المواقع أنا استخدمه في الارسال من داخل أكسس Access.mdb -
كيف يتم فتح الموقع على بينات الرسائل
مسفر replied to ابو ياسين المشولي's topic in قسم الأكسيس Access
ممكن اعرف الهدف من فتح نموذج ارسال الرسائل من الموقع ؟ لماذا لا يكون الارسال من الاكسس نفسه من نموذج داخل الاكسس ؟ -
الله يرحم والديك قل آمين جزاك الله خير الجزاء ورزقك الله من حيث لا تحتسب
-
الله يعطيك العافية أبو خليل جزاك الله خير تم الحذف بالنسبة للامتداد واسم القاعدة تمام متاكد منه مية بالمية حطيت القاعدة جنب القاعدة فحذفها النموذج والماكرو والوحدة النمطية اللي انا حددتهم لك مني كل الشكر والتقدير والاحترام ولكن سؤال هل أستطيع وضع نموذج داخل البرنامج يستطيع حذف نموذج أخر ووخده نمطية وماكروا او استعلام أو جدول من داخل القاعدة نفسها اذا كذا يكون اسهل لي من هذا كله