-
Posts
774 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Khalid Jnb
-
-
السلام عليكم
مشاركة مع استاذنا محمد ابوعبد الله
بالملف المرفق نموذج يتوسط الشاشة تماما
كل ماعليك هو ضبط الاعدادات كما في النموذج ونقل الوحدة النمطيه لجهازك (Tewsit Form)
ومن خصائص النموذج - حدث - عند التحميل ضع الكود التالي الخاص باستدغاء الوحدة النمطية
Call MovCenter(Me.WindowHeight, Me.WindowWidth)
تحياتي
-
2
-
-
-
اخي العزيز
اي صورة تقصد
لم افهم عليك
تحياتي
-
اخي العزيز
يوضع بالاستعلام
تحياتي
-
السلام عليكم
بعد اذن اسناذ @jjafferr واستاذ @essam rabea
مرفق الملف الاصلي للكود انا عملته لاحد الاخوه حول القوائم الفرعية
كان الكود لايعمل على اكسس 2010 الا بعد ماقمت بتثبيت اكسس 2016 في جهازي
تحياتي
-
3
-
-
السلام عليكم
تفضل اخي الكريم حسب مافهمت من طلبك (للتجربة)
اول شيء تختار اسم الموظف
ثاني شيء تختار اسم ملف الورد من النافذه
ثالث شيء للتصدير
تحياتي
-
1
-
-
السلام عليكم
كود لاحد الاخوة هنا بالموقع
اتمنى ان يكون المطلوب
علما ان ليس لدي طابعة لاجربه
تحياتي
-
1
-
-
السلام عليكم
ملف تجريبي لملفك
مخطط 1 تم عمله بالاكسس
مخطط 2 تم عمله بالاكسيل
في رابط فيديو لعمل المخططات والرسوم البيانية بالاكسس
تحياتي
-
1
-
-
اخي العزيز
اعتذر لاتوجد لدي طابعة بالمنزل لكان الموضوع تم نجربته
تحياتي
-
السلام عليكم
اولا هل كتبت اسم الطابعة بالكامل كانون او غيرها
قم بتغيير الاسم
تحياتي
-
السلام عليكم
استاذ اشرف سامحني ليس لدي طابعة بالبيت لكي اجرب العمل
المهم
حسب مافهمت من طلبك
جرب المرفق واعلمنا النتائج
تحياتي
-
اخي الكريم ameer.iraq.93
من قواعد المشاركة فى الموقع
لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة)
-
1
-
-
السلام عليكم
اعذرني ليس لدي طابعة بالمنزل للتجربة
بس ممكن تكرر القيود المراد طباعتها مثلا التقارير من 1- 5
اعمل زر اخر للتجربة وجرب هذ الكود
Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal
اعلمنا النتائج
تحياتي
-
-
1
-
-
السلام عليكم
هذا مثال انا عملته قبل قليل لاحد الاخوه عن طريق العلاقات
ثلاث قوائم منسدلة
اتمنى ان تستفيد منه
تحياتي
-
-
1
-
1
-
-
السلام عليكم
اخي الكريم
انت عامل جدول واحد فقط
هل تريد عمل قوائم منسدلة بالنموذج ام ماذا ؟ طلبك غير واضح
اذا ممكن صورة او شرح وافي
تحياتي
-
اخي العزيز
من الافضل ارفاق لتا مثال
تحباتي
-
-
2
-
-
-
السلام عليكم
تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور
وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id)
بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ
اعلمنا النتائج
تحياتي
-
3
-
-
السلام عليكم
اخي @رابح1999
اظن الملف المرفق هو ماتريد ان تعمله بالضبط
اتمنى يكون المطلوب
اعلمنا النتائج
تحياتي
-
1
-
-
اخي النموذج الرئيسي فهمته والنموذج الفرعي الاول فهمته
شو فائدة النموذج الفرعي الثاني انت لاتحتاج اليه اصلا
-
تفضل اخي الكريم
الكود بالاستعلام وعند عند الظغط على الزر امام كل اسم يظهر اسمه في النموذج
تحياتي
كيفيه اخذ نسخه من ملف تلقائيا في اكثر من مجلد بنفس الاسم في اماكن متفرقه
في قسم الأكسيس Access
قام بنشر
السلام عليكم
هل تقصد اخذ نسخة احتياطية من قاعدة البيانات عند الاغلاق
تحياتي