كل الانشطه

اشكرك جزيل الشكر اخي وصديقي فووووكش❤️ ... ساكمل المهمه بعمل نموذج صغير اعمل على تغيير القيمه الافتراضيه من الجدول شكرا لك وللزملائنا جميعا في اوفيسنا

صديقي بشار ،، القيمة الافتراضية هي قيمة ثابتة تحددها إما من خصائص العنصر داخل النموذج او التقرير. او داخل الحقل في جدول. أو كما كان المقترح باستخدام Dlookup تفضل الملف كتجربة ، وافتح النموذج 0 واختر قيمة . ثم اذهب لنموذجك الصفوف.accdb

جزاكم الله خيرا أخي العزيز hegazee

استاذي الغالي فوووكش انا عملت جدول اسمه ff وحاولت ان اضع دالة Dlookup في خانة القيمة الافتراضيه في الكمبوبكس ولم انجح , رح احاول في ال Dfirst انا مستغرب عند التحويل الى accde لاتعمل القيمه الافتراضيه في الكمبوبكس =DLookup("[nom]"; "ff"; "[no]='Forms![form1]![aa] '")

العفو أخي أسعد .. وإياكم أخي ، ولكم بمثل ما دعيتم

شكرا جزيلا أخي الكريم وبارك الله فيك وأسكن الفردوس الأعلي معلش أنا بتعبك معاي

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

أهلاً أخي أحمد .. الحل يسير إن شاء الله تعالى .. قبل أمر الطباعة في الدالة ExportToPDF_SmartPrinter .. فقط كل ما عليك هو نقل التركيز الى التقرير . بحيث قم بإضافة السطر التالي قبل أمر الطباعة . DoCmd.SelectObject acReport, reportName, False يصبح الكود كالتالي :- Public Function ExportToPDF_SmartPrinter() Dim reportName As String Dim defaultPrinter As String Dim prt As Printer Dim pdfPrtName As String On Error Resume Next reportName = Screen.ActiveReport.Name If Err.Number <> 0 Then MsgBox "لا يوجد تقرير نشط", vbExclamation + vbMsgBoxRight, "" Exit Function End If On Error GoTo 0 pdfPrtName = "" For Each prt In Application.Printers If InStr(1, prt.DeviceName, "PDF", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Cute", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Foxit", vbTextCompare) > 0 Then pdfPrtName = prt.DeviceName Exit For End If Next prt If pdfPrtName = "" Then MsgBox "لم نتمكن من العثور على طابعة افتراضية وهمية في نظامك" & vbCrLf & vbCrLf & _ "يرجى تثبيت طابعة مجانية على الويندوز مثل بي دي إف فاكتوريً", vbCritical + vbMsgBoxRight, "" Exit Function End If defaultPrinter = Application.Printer.DeviceName Set Application.Printer = Application.Printers(pdfPrtName) DoCmd.SelectObject acReport, reportName, False DoCmd.PrintOut acPrintAll Set Application.Printer = Application.Printers(defaultPrinter) End Function جرب بنفسك وأخبرني

أخي أسعد ، أكيد يمكن تحقيق مطلبك بسهولة .. تابع معي :- سنقوم بإضافة تجميع جديد لنفس الحقل alsaf_Id الموجود أساساً في ملفك . وهنا سيكون لديك تجميعين لنفس الحقل ، صحيح ؟؟ وسننقل هذا التجميع الجديد ليكون أول تجميع كما في الصورة :- لاحظ انه يوجد تجميعين لنفس الحقل . وهنا نركز قليلاً .. في المجموعة الأولى التي أضفناها وسحبناها لأعلى سلسلة التجميع ، سنقوم بسحب العناصر الخاصة باسم الصف الى القطاع الخاص بها ، ونقوم بتصغير رأس الصفحة الذي أصبح فارغاً ، وسنجعل للقطاع الخواص التالية :- في مجموعة التجميع القديمة ( التي أصبحت الثانية ) اترك العناصر التي باللون الأزرق كما هي ، ولكن سنغير من خصائص هذا القطاع لتصبح :- وكفى الله المؤمنين القتال ملفك بعد التعديل على النموذج نفسه :- emad4.zip

لماذا لم تجبي أخي الفاضل ؟

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

زمن فترة التعديل التى يتيحها المنتدى قليلة جداً مما يجعل العضو يكتب فى تبويب جديد لشر ح ما استجد من أمور أرجو زيادتها من إدارة المنتدى بخصوص الكود المشار إليه بالماوس لم يعمل الناتج منه معي بشكل صحيح 100 % اكتشفت أن التقرير يلزمه شي غريب ليتم تحويله إلى PDF وهو وجود هذا الكود من ضمن أكواد التقرير ، مثل هذا : Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) End Sub وكل تقرير لا يحتوي على الكود السابق لا يتم تحويله بالطابعة الافتراضية إلى PDF وهذا أيضاً شئ غير مؤكد بدليل أن التقرير الموجود بالملف المرفق لا يحتوي عليه بعد العديد من التجارب إذا قمت باستدعاء التقرير من النموذج وأردت تحويله بالطابعة الوهمية إلى PDF فسوف تجد أن ملف الـ PDF هو صورة النموذج لكن إذا قمت بعرض التقرير مباشرة دون المرور على النموذج فإنه لا يوجد مشكلة لزيادة الإيضاح أرفقت ملف به نموذج وثلاث تقارير وأرجو حل مشكلة استدعاء التقرير من النموذج الطابعة الوهمية المستخدمه هى pdf Factory ExToPDF2.mdb

حبيبي يا بشار .. الحمد لله كيف رح تغير القيمة الإفتراضية 😅 اذا وضع التصميم مقفل ؟؟؟ إلا إن كان التغيير برمجياً ودون تحديد قيمة افتراضية داخل خاصية القائمة

كيفك فوووكش ,, هل جربت تغير القيمه الافتراضيه في ملف accde من الاول الى الثاني او الثالث المشكله عندي في ملف ال accde

وعليكم السلام ورحمة الله وبركاته اسمح لي أخي بشار بسؤالك سؤال واحد .. هل القائمة المنسدلة هذه قيمها ثابتة كما في مثالك ؟؟؟؟ برأيي بما انك حددت قيمة افتراضية = نص = لغة عربية فقد تواجه مشكلة في الأجهزة التي لغة الترميز فيها لا تدعم اللغة العربية . هذا من جهة من جهة أخرى اعتقد أنك لو اسندت القيمة الافتراضية الى قيمة رقمية بحيث :- القائمة المنسدلة تتكون من عامودين . حيث الأول رقم فريد والثاني اسم الصف مثلاً وبالتالي سيكون الرقم 1 = الأول على العموم ملفك يعمل عندي بدون مشاكل :-

السلام عليكم ورحمة الله وبركاته,, عندي مشكلة عند تحويل قاعدة البيانات الى accde لاتعمل القيمه الافتراضيه بالقائمه المنسدله مرفق مع الشكر لكم New folder.rar

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

أخى / Foksh شكراً على مساهماتك لتلك الأكواد ، ومن خلالها وصلت إلى التعديل التالي وكل بنود القائمة المختصرة متاحة على أكسس 2003 وأيضا متاحة (رغم البهتان للسمات ) على أكسس 2024 وتم الاستغناء تماماً عن Snapshot Viewer لأن شركة مايكروسوفت ألغت دعم ملفات لقطات Access التي تنتهي بامتداد (.snp) بشكل تلقائي في حزمة أوفيس 2010 وما بعدها ، حيث أصبحت صيغة مهجورة. سأرفع لك الملف لمراجعته .. لأن الكود المشار إليه بالماوس لم يعمل الناتج منه معي بشكل صحيح 100 % فأحياناً يقوم بتحويل التقرير إلى PDF ، ومع تقرير آخر يقوم بتحويل شكل النموذج المختار منه إلى PDF ربما أحتاج لمراجعة الخصائص المختلفة لكل التقارير .. قد يكون أحدها هو السبب ، وإن كنت أشك فى ذلك ExToPDF.mdb

شكرا جزيلا أخي الفاضل وبارك الله فيك واكثر من أمثالك

تفضل الملف على حسب فهمي: في الورقة الأولى اضغط على زر ترحيل يتم ترحيل كل ما هو غير "دوام كامل" بناء على الحالة في العمود G في الورقة الثانية بمجرد تغيير الحالة لدوام كامل يتم استعادة البيانات في الورقة الأولى كيفية نقل صف بشرط ورجوعه عند انتفاء الشرط.xlsm

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

لسلام عليكم لدي نموذج اسمه الصفحة بداخل النموذج ثلاثة نماذج كل نموذج له عمل -كود تحميل ومعاينة الصورة يظهر فيه خطأ . -عند معاينة الصورة داخل النموذج اريد تكبير وتصغير الصورة بعلامة + و - داخل النموذج -اريد ادراج ايقونة تعديل عند الضغط على ايقونة يسمح له بتعديل المعلومات.

تفضل استاذ @بلال بلال المرفق بعد التعديل . Import Excel From Gmail_Belal-5.rar

بس هو شغال عندي على اكسيل 2021 كيفية نقل صف بشرط ورجوعه عند انتفاء الشرط.xlsx