كل الانشطه

اخي الكريم من حيث الإمكانية فهو ممكن ولكن سيقتصر عمل الأكسس على الواجهة الأمامية فقط أما قاعدة البيانات فستكون إحدى قواعد البيانات الكبيرة مثل SQL Server أو Azure أو MySQL بالإضافة إلى أنه سيكون مطلوب منك موقع لإستضافة قاعدة البيانات وإنترنت مستقر لكن السؤال لماذا تريد لإستخدام أكسس للعمل عبر النت مع وجود لغات برمجة متخصصة للويب؟ فكما جاء في الحديث النبوي {"كل ميسر لما خلق له" صدق رسول الله} والأكسس هو منصة لإنشاء تطبيقات قواعد بيانات بسيطة لبيئة أعمال صغيرة إلى متوسطة الحجم ضمن شبكة محلية أما الربط عبر النت فحتى ولو كان سيعمل فلن يعمل بنفس كفاءة التطبيقات المصممة بلغة متخصصة في تطبيقات الويب مثل جافا سكريبت و HTML مثلاً

تمام شكرا جزيلا أخي الفاضل

وعليكم السلام ورحمة الله وبركاته .. بناء على ما فهمته من شرحك . في الوضع الحالي الطالب "أحمد فوزي عبد الهادي وهبة" سيكون ترتيبه رقم 1 في الصف الثالث في التقرير . لأن اسمه يبدأ بالألف المهموزة . وبعد تعديل الاستعلام وبحسب طلبك فإن ترتيبه الصحيح بالفرز الأبجدي سيكون الخامس . كما في الصورة ، فهل هذا صحيح ؟ إذا ، ما سيلزمنا هو نقطة واحدة فقط ، وهي تعديل الإستعلام ليصبح قادراً على عرض أسماء الطلاب بدون التهميز ... إلخ ؛ ليصبح :- SELECT DISTINCT Tbl_student.alsaf_Id, Tbl_fsl.fsl, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد") AS StudentName, Tbl_student.gender, Tbl_fsl.fsl_id, Tbl_student.eldina_id FROM Tbl_student INNER JOIN Tbl_fsl ON Tbl_student.fsl_id = Tbl_fsl.fsl_id ORDER BY Tbl_student.alsaf_Id, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد"); وأما بخصوص الفرز والترتيب الأبجدي ، فسبق أن قمنا بهذه الخطوة داخل التجميع . لذا جرب انقل الاستعلام الى تقرير rpt_AllSAF ، وشاهد النتيجة إن كانت صحيحة .

الاخوة الكرام الافاضل السلام عليكم كنت محتاج راي ومشورة الاخوة اباطرة الاكسس هل ممكن البرنامج يشتغل عن طريق الويب من اي مكان لانه موضوع هام جدا ارجو التفضل بالافادرة من حضاراتكم

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :- تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها . إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا .. ملف المشروع مفتوح المصدر :- Menu Builder V.2.zip كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..

استاذى الفاضل ومعلمى الخبير Foksh فمت باستبدال القيمة 11 في الدالة لتصبح 2952 الخاصة بعرض التصميم والوضع كما هو انظر الصورة فى التعليق السابق

الخبير الفاضل ممكن لوتكرمت انظر الصورة

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الجدول المرفق تم اضافة اسم تلميذ جديد في آخر الجدول 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