أحمد العيسى

أشكرك .. تم الحل مؤقتاً من خلال نموذج مرتبط بالجدول واستخدام قائمة ترتيب الجدولة .. لتلك الحقول ليقف المؤشر عند زر خروج قبل تكرار كتابة السجلات

السلام عليكم بقاعدة بياناتى جدول يحتوى على حقول أساسية يجب تعبئتها أولاً ومن هذا الجدول يتم أخذ محتوى تلك الحقول كعناوين مكررة فى أغلب تلك القاعدة والمطلوب تكرماً إذا تم ملئ آخر حقل بالجدول يتم العودة لتحديد الحقل الأول بنفس السطر دون خلق سطر ( سجل ) جديد بالجدول أرجو أن تكون الفكرة واضحة

كل الشكر لكل من يقوم بالرد وعرض ما يراه من حلول الطاقة الاستيعابية موجود مثلها فى مثالى ولكن بأسلوب آخر عند تشغيل التقرير تنبثق دالة إدخال تطالبك بالعدد المطلوب وضعه بكل فصل من إجمالى القسم كله الورقة كما هو واضح من تصميمها يمكن استيعاب عدد أقصاه 46 فإذا أردت عدد أقل لا يتم استكمال الجدول لنهاية الصفحة فارغاً مطلوب تكرماً : التعديل على مثالى الموضوع بأول مشاركة ليحقق هذا التخطيط

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

السلام عليكم عندى قاعدة بيانات تستخدم لإنشاء قوائم فصول بعدد أقصاه 46 طالبة بالفصل فى الورقة الواحدة لكن يمكن فى بدء تشغيل التقرير التحكم فى العدد المطلوب طباعته فى الفصل الواحد بعدد أقل مثل تلك المطلوب تفضلاً استكمال التقرير برمجياً ليتيح رسم الجدول فارغاً لنهاية الورقة بدون بيانات مستكملاً الـ 46 خانة لاستخدام هذه الفراغات فى تعبئة أى طالبة مستجدة على الفصل يدوياً الملف المطلوب التعديل عليه بالمرفقات ، وشكراً جزيلاً مقدماً db1.mdb

تمام أشكرك أخى الفاضل على تفضلك بالإضافة

السلام عليكم يوجد فى قاعدة بياناتى كود يتحكم فى تحميل ملف خارجى من المكان الافتراضى My Documents وأريد أن يتم تغير هذا الافتراضى إلى الموضع الذى أريد لهذا الكود أن يفتح عليه وليكن روت القطاع C وهذا هو كود مايكروسوفت مصحوباً بصورة تشغيله: Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String Dim objFilePicker As FileDialog Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) With objFilePicker .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .Title = "Select File" With .Filters .Clear .Add "Excel Files", "*.xls" End With .FilterIndex = 1 .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub

أشكرك أخى جعفر والله فكرتنى بأخى الغالى أبو هادى المرفق يعمل بلا مشاكل

بارك الله فيك أخى جعفر على تفضلك بالرد .. لقد تم تنقيح ما أشرت عليه ، لكن ما زالت المشكلة موجودة 1 - عند تشغيل الفورم و جدول قاعدة البيانات به " بيانات " نضغط على زر تصدير فينتج ملف أكسل من جدول القاعدة 2- بعد ذلك نضغط على زر حذف بيانات الجدول فيتم إزالة محتوى الجدول من القاعدة ويصبح الجدول فارغاً من البيانات 3- ثم عند الضغط على زر استيراد لجلب جدول أكسل المستخرج فى خطوة 1 تظهر رسالة الخطأ التالية أين الخطأ : db2.mdb

السلام عليكم للأخت زهرة ملف كمثال منها به زر استيراد جدول من ملف أكسل سبق تصديره من قاعدة بيانات معينة وعندما تقوم بحذف محتويات الجدول بتلك القاعدة ( وأصبح خالياً كخطوة أساسية) ، يمكنك استيراده بسهولة عندما طبقت كل هذا على مثالى db1.mdb ظهر خطأ فى عملية الاستيراد سؤالى : أين الخطأ عندى ، وما البديل لكى يتم تلاشى هذا الخطأ ؟؟ بالمرفقات الملفين المذكورين الأول للأخت زهرة بارك الله فيها . أشكركم مقدماً على تفضلكم بالرد . za-Export&Import.mdb db1.mdb

تمام أخى محمد طالما أن التقرير يستند إلى استعلام إذن لا داعى لهذه التركيبة العجيبة ، مع العلم أن دالة Right([Year_name];4) تعطى نفس النتيجة شكراً جزيلاً على تفضلك بالرد

البعض يفضل إرفاق ملف للتعديل عليه لا بأس .. الملف مرفق db1.mdb

السلام عليكم فى قاعدة بيانات جدول باسم Tbl_basic وحقل عام دراسى باسم Year_name ويتم الحصول على هذا العام الدراسى " 2019 / 2020 " فى أى تقرير بذلك السطر ="أرقام موبايلات المدرسين فى عام " & DLookUp("[Year_name]";"Tbl_basic") هل من الممكن اقتصاص الأرقام 2020 فقط من العام الدراسى بدالة Left (DLookUp("[Year_name]";"Tbl_basic"),4) جربت هذا التداخل .. لكن لم ينجح فى انتظار رأيكم .. شكراً لكم مقدماً

بلا شك أدى الغرض منه مع تعديل بسيط =IIf(Year([birth])<=1971;[birth]+#31/12/1959#;IIf(Year([birth])=1972 Or Year([birth])=1973;[birth]+#31/12/1960#;IIf(Year([birth])=1974 Or Year([birth])=1975;[birth]+#31/12/1961#;IIf(Year([birth])=1976 Or Year([birth])=1977;[birth]+#31/12/1962#;IIf(Year([birth])=1978 Or Year([birth])=1979;[birth]+#31/12/1963#;IIf(Year([birth])>=1980;[birth]+#31/12/1964#)))))) وإن كنت أفضل كود نمطى بدلاً من دالة IFF شكراً مرة أخرى

كل الشكر لك أخى عصام على مبادرتك

السلام عليكم كما هو واضح بالعنوان مطلوب كود يقوم بحساب وقت الخروج على المعاش استناداً لتاريخ الميلاد فى القانون الجديد علماً بأنه عندما كان الخروج على سن 60 عاماً كان الموضوع بسيطاً جداً من خلال التكوين التالى =[birth]+#31/12/1959# وهذا ما تم معرفته فى القانون الجديد حتى مواليد 71 سيخرجون على سن 60 عاماً مواليد عام 72 و73 سيخرجون على المعاش على سن 61 عاما أي عام 2032. أما مواليد 74 و75 سيخرجون على المعاش في سن 62 عاما أي عام 2034، وكذلك مواليد 76 و77 سيخرجون على المعاش في سن 63 عاما أي عام 2036، ومواليد 78 و79 سيخرجون على المعاش في سن 64 عاما أي عام 2038. ومن المقرر أن يبدأ التطبيق الفعلي للقانون على مواليد 1980 وما بعدها، إذ سيخرجون على المعاش على سن 65 عاما، بداية من 2040.

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

أشكرك جداً هذا فى نظام أوفيس 2010 وما بعده ماذا عن وجود المقابل لذلك فى أوفيس 2003

السلام عليكم الغريب أن هذا الملف عملته من زمن بعيد على أكسل 2003 وأضفت إليه زر أمر للخروج من خلال الضغط عليه الآن قد اعترانى النسيان فى كيفية التعديل على هذا الزر أو حتى تحريكه من مكانه إلى مكان آخر أرجو من حضراتكم إلقاء النظر على هذا الملف ، وإرشادى لما قد نسيته ولكم مني خالص الشكر MenuExel.xls

أشكرك أخى الفاضل بارك الله فيك

السلام عليكم مطلوب رسالة تنبيه للمستخدم بعدم وجود بيانات يمكن تصديرها من جدول أكسس الأساسى إلى ملف أكسل قبل استخدام الأمر DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS, "C:\" & "Teacher" & ".xls", False كما هو متبع مع التقارير بالتعليمة Report_NoData مع جزيل الشكر

ما زالت المعلومات غير كافية يرجى من لديه معلومة من الزملاء الآخرين أن يبادر بها هنا التطبيق أعلاه يعتبر "Runtime" وقد حاولت تنفيذه فى بيئة محمولة من أوفيس 2010 وكانت هذه الرسالة إذن لكى يعمل هذا التطبيق هو يحتاج أكسس 2010 الذى تم تنصيبه بطريقتة المعتادة أو Access Runtime السؤال بطريقة أخرى : هل لديكم ملف مشابه لهذا الملف ، وكيف يمكن تحويله عملياً إلى الصيغة ذات اللاحقة إياها

أشكرك أخى kaser906 مع كامل احترامى للأستاذ صالح حمادى لا أعتقد أن "هديته" تننتج قوائم تتشابه مع الصور أعلاه المطلوب كتاب متقدم ، أو شرح خبير مخضرم كيف تم هذا العمل خطوة بخطوة

هذه النقطة غير واضحة .. إذ ما المقصود بتغيير اللاحقة يدوياً ، وإذا حدث ذلك فسيعترض الأكسس !! باختصار : نتمنى من لدية الخبرة والوقت .. أن يشرح لنا مشروع مشابه لذلك التطبيق أو يدلنا عليه لقد تم استخدام تنسيق مبتكر مع إدراج نفس القوائم فى كل نموذج والتحرك من خلالها كـ VB.net و يوجد المزيد من شاشات التنقل الرائعة .. هذا ما نتمنى الوصول إليه ..

إذا أمكن .. هل من شرح بالتفصيل لهذا التحزيم ، فالمفترض ان التحزيم ينتج ملف EXE