كل الانشطه

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الجدول المرفق تم اضافة اسم تلميذ جديد في آخر الجدول Tbl_student ومحتاج ارحل الجدول الي استعلام بحيث يلغي الهمزة من الاسم ويحول ى الي ي ويحول ة الي ه ويزيل المسافة بين كلمة عبد والاسم بعدها بعد ذلك يسكن الاسم حسب صفه وبالترتيب الابجدي بين زملائه emad4.rar

تمام أخى موسى هذا ما كنت أفعله ( الطريقتين ) فى أوفيس 2003 مع مشقة الأولى لكن خاصية Auto Resize يبدو أنها قد تطورت فى الإصدارات اللاحقة وأصبحت مريحة

وعليكم السلام ورحمة اله وبركاته .. 🙂 هناك طريقتان تخطران في بالي الآن .. الأولى : حرك النافذة (النموذج) إلى الموضع الذي تريده والحجم الذي تريده ثم إضغط على Ctrl+S في الكيبورد والأكسس سيحفظ لك حجم وموضع النموذج وسيفتح عليه في المرة القادمة .. آمل أن تعمل معك على نسخة 2003 🙂 .. الثانية : استخدم الكود التالي عند الفتح ، مع التركيز على خاصيتي الطول والعرض وتغيير الأرقام حتى تصل إلى الأرقام الحقيقية لطول وعرض النموذج ( هذه الأرقام بوحدة التويبس وليس السانتيمتر ) .. DoCmd.MoveSize , , 5200, 7800 للعلم : خاصيتي Right , Down هذه تحددان مكان ظهور النموذج عند فتحه .. جربهما قد تجدهما مفيدتين لك أيضا 🙂

وحيث أن الأغلبية لا تستخدم أوفيس 2003 فى المدارس أنا _ فقط _ استخدمه فى التصميم إذن لا بأس من ملاحظة الأخ العزيز منتصر الانسي شكراً له

هذا صحيح لكن تأثير ذلك فى أوفيس 2003 غير مجدية ، ويظل التدخل اليدوي هو الحل بعد محاولات متكررة بينما فى أوفيس 2010 فهى فعالة فعلاً

خاصية Auto Resize (تقريباً ستكون تغيير الحجم تلقائيًا في النسخة العربي) ضمن خصائص النموذج

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

مع العلم أن الأوفيس الذي معي 2013 وهل من الممكن جعل الملف يعمل معي على الأوفيس 2013؟

لم يفتح لي الملف وأتت رسالة

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

صديقي بشار ،، القيمة الافتراضية هي قيمة ثابتة تحددها إما من خصائص العنصر داخل النموذج او التقرير. او داخل الحقل في جدول. أو كما كان المقترح باستخدام 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 = الأول على العموم ملفك يعمل عندي بدون مشاكل :-