نجوم المشاركات

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 للاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة استخدم ="#https://www.google.com/maps/place/" & [N] & " " & [E] . هذا مثال عملته الآن ، مع مراعاة الحقلين من نوع HyperLink ، ومصدر البيانات من النموذج وليس الجدول : . والنتيجة . جعفر 1466.HyperLink URL.accdb.zip

السلام عليكم تهنئة من القلب استاذ عمرو والى الامام

السلام عليكم ورحمة اللة تعالى وبركاته تم طرح الموضوع مسبقا >>----> هنا ولكن بدأ باستفسار من الاستاذ @أبو أحمد عن مجرد ادراج ملفات الصوت للاستماع اليها ثم تطرق بعد ذلك لسؤال عن شكل التصميم وطلب بعض التعديلات ولأهمية العمل من وجهة نظرى المتواضعة لكل من يريد استخدامه فى تعليم اخواننا ممن ابتلاهم الله بفقد البصر اولا اسال الله تعالى ان ينير بصيرتهم وايانا وكل امة محمد صل الله عليه وسلم ثانيا اسأل الله تعالى ان يتقبل هذا العمل المتواضع فيكتب بعد مماتى فى موازين اعمالى باب علم ينتفع منه وأخيرا المرفق الاصدار الثانى لا يعتمد على كائن مديا بلاير ولا على المكتبات التى تخصة لمن يواجه مشكلة مع الاصدار الاول ... وهو ما انصح به Braille.zip Braille V.0.2.zip

تفضل هذا التعديل Microsoft Access3.zip

تفضل التعديل يابو الحسن الدائن و المدين.zip

الف الف مبروك اخي عمرو اشرف @Amr Ashraf و اسأل الله العظيم رب العرش العظيم أن يجعل من علمك الذي تنشره في ميزان حسناتك و شفيعا لك و نشكر ادارة هذا الكيان العظيم في حسن اختيارهم و نسأل الله لنا و لكم التوفيق ,,, ,

السلام عليكم اخى ومعلمى وشيخنا الجليل بعد الاطلاع عالرابط الاخير بحثت ووجدت لك هذا لعله يفيدك ان شاء الله https://sqlbackupandftp.com/blog/how-to-automate-mysql-database-backups-in-windows

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

ماشاء الله عليك.. الرجل تعبان معاك من الصبح ...وانت تعطي لنفسك افضل اجابة 🤣

وعليكم السلام 🙂 يمكن اذا ناديناه بالاسم اللي يعرفوه الاعضاء @Amr Ashraf 🙂 وعصفورة قالت لي انه موسم الترقيات ، وهذه البداية ان شاء الله 🙂 اخي عمرو ، تستاهل هذا اللقب ، ولنا الشرف في العمل معك 🙂 جعفر

الله يخليك ، خليك جاهز علشان تقنع اللي ما هو مقتنع بطريقتي ، وما مقتنعين لأنها طويلة وبعدين نتحاسب 😁 جعفر

اخيرا فهمت فائدة السطرين تحياتي وللعلم الكود الحالي يبحث عن اسم الكتاب والمؤلف قيل ادخالهما الى المكتبة فاذا تم ادخالهما مسبقا يتم اعلام بان الكتاب تم ادخاله فعلا

وعليكم السلام 🙂 انت تريد العمل على 4 اعمدة ، بينما عندي مثال لحقل واحد ، هنا جعفر

الطريقة الصحيحة لا تحتوى على الحاق .. فقط استعلامات للحصول على المطلوب وتتغير بتغير الرتبة التى حصل عليها الشخص .. انظر الى النتيجة أليس هو المطلوب ؟ جرب تغير تاريخ Date In او تضيف رتبة جديدة بتاريخ لاحق ستتغير النتيجة تلقائيا بدون الحاق . الاستعلام المطلوب كما بالصورة QryLastDegree جرب ووافنى بالنتيجة .. بالتوفيق 1177264532_HR-Amr.accdb

تفضل 🙂 Private Sub Npos_AfterUpdate() ' Dim strMsg As String, strTitle As String, MMM As String Dim ttt As Integer, intStyle As Integer ttt = Me.Npos ' TTT = InputBox("Enter number between 1 and 11") Select Case ttt Case 1 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "استعجال المورد بسرعة التوريد _تاريخ / / " Case 2 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد باستبدال المهمات المرفوضة _تاريخ / / " Case 3 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتوفير شهادات المطابقة الفنية _تاريخ / / " Case 4 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بإصدار الرسومات التنفيذية _تاريخ / / " Case 5 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بسداد التامين النهائي _تاريخ / / " Case 6 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتعديل طريقة الدفع _تاريخ / /" Case 7 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "انذار المورد بالشراء خصما من مستحقاته _تاريخ / /" Case 8 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بجاهزية المهمات _تاريخ / /" Case 9 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تحويل من المخازن" Case 10 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بموافاتنا بالإضافات _تاريخ / /" Case 11 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التوريد بالكامل _تاريخ / /" Case 12 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التحويل للخارجيه" Case 13 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم إلغاء امر التوريد _تاريخ / / " Case 14 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "HOLD" Case 15 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم عمل تعاقد" Case 16 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم الارسال الى المركز الرئيسى بتاريخ" Case Else MsgBox ("برجاء إختيار رقم من القائمه") End Select Exit_Npos_AfterUpdate: Exit Sub Err_Npos_AfterUpdate: MsgBox Err.Description Resume Exit_Npos_AfterUpdate End Sub جعفر

حياك الله .... اولا جعلنا مصدر بيانات الكمبوبكس الخاص باسم الموظف استعلام ثم في حدث نعد التحديث لنفس الكمبو جعلنا الكود الذي رأيت و Column(2) يعني الحقل الثالث في الاستعلام المذكور Column(0) يعني الحقل الاول وهكذا استطعنا اسناد قيم الحقول الى مربعات النص في النموذج ...

السلام عليكم مشاركة ورأي غاب عن بال السائل ان المخرجات لن تظهر كاستعلام وانما كتقرير لذا التقرير سوف يقوم بالمهمة بكل يسر Downtime 2.accdb

تفضل المثال عملت جدولين واحد للماكينات والثانى للاعطال , ثم عملت 4 استعلامات لاستخلاص ترتيب الاعطال , فى الاستعلام الاخير QryResult مربوط بال4 استعلامات المساعدين و ستجد به النتيجة التى اقصدها . يمكن الاستغناء عن الاستعلامات باستخدام دالة IIF مثلا كالتالى : IIF([StoppageSerial]=1,[Reason]) ستقوم بعرض سبب العطل ان كان السيريال 1 فى الجدول .. فهمت الفكرة ؟ بالتوفيق . Downtime - Amr.accdb

سأعمل لك مثال بسيط لتوضيح الفكرة

هذه الطريقة قابلة للتطبيق ويمكنك مشاهدة مثال لها فى الموضوع التالى : اذا اردت حل بدون اكواد يمكنك ترقيم التوقفات فى جدول التوقفات وعمل استعلام به عدد من الاعمدة مثلا توقف1,توقف2,توقف3 وهكذا وتعمل استعلام يجلب التوقف بناء على رقمه فى العمود المناسب بحيث التوقف الاول سيظهر فى العمود توقف1 وهكذا فهمت الفكرة ؟ لكن يعيبها فى حالة عدم وجود توقفات للماكينة سيكون العمود فارغ او يكتب فيه بدون توقف مثلا .. فهمت الفكرة ؟ فى الاستعلامات لا اظن ولكن فى النماذج اعتقد يمكن بكود ما جعل كل عطل فى سطر داخل حقل نصى طويل مثلاً وعامة الفكرة غير عملية حتى اذا تم تطبيقها . بالتوفيق .

يتم استيرادها من الملفات الموجودة مسبقاً اختصارا للوقت والجهد , ولكن قد تحتاج لبعض التهيئة والترتيب لاستيرادها للجدول الجديد. السلام عليكم 🙂 طبعا هناك عدة طرق لهذا العمل ، ويعتمد اذا عندك ملف واحد او عدة ملفات ، واذا كانت الملفات ستتكرر لاحقا ، وعليه يمكننا مساعدتك في استيراد اول ملف وتجهيز الجدول والكود للملفات التالية 🙂 جعفر

جعله الله فى ميزان حسناتك، عمل مهم

اعتقد لو فتحت موضوع جديد وادرجت مرفق او مثال للمطلوب لكان افضل ... بارك الله فيك ..

اشكرك جزيل الشكر اخي moosak الله يعطيك العافية وينور طريقك فعلا هذا هو المطلوب بارك الله فيك ونفع من علمك وزادك علم

الحقيقة ... ولا تزعل .. الذي يدخل البرنامج .. يخرج احول تفضل التعديل حسب طلبك في الاقتباس اعلاه نظام الصادر2.rar

تم الإصلاح أخي كناري .. وتأكد دائما أنك تعطي الموديول أسماً مختلف عن اسم الدالة .. وإلا فستحصل على رسالة خطأ .. Database1.rar

في هذه الحالة ، اضف علامة ' قبل بقية الاسطر (امام كل سطر ضع علامة ' الى آخر سطر في الدالة) ، على الاقل علشان ما تحصل على خطأ ، وجرب البرنامج مرة اخرى.

تفضل .... واعلمنا بالنتيجة .... Database1 (7).accdb

الأخوة الأعضاء السلام عليكم بالمرفق نموذج الغرض منه عرض مادة مكتوبة لملفات متعددة الامتداد أو الصيغ وذلك بحسب تحديد نوع الامتداد أولاً قبل البحث عنه بالحاسب لفتحه من مكانه وتسجيل ذلك بجدول حفظ المسار لاستدعائه مرة أخري عند مواصلة جلسة القراءة وبعد عدة محاولات محاكاة وتطبيق مثال وجدته أثناء البحث أستطعت تنفيذ ذلك علي عملي ولكن فقط علي صيغة ملفات الـ Pdf وقد بقي وهو المطلوب كما يظهر بالصورة المرفقة المساعدة في شيئين: 1- تفعيل وتشغيل بقية الأختيارات الأخري لصيغ الامتدادات الأخري للملفات الموجودة بالنموذج داخل الكود. 2- تسجيل الامتداد وتاريخ بداية القراءة في الجدول عند أختيار كتاب جديد. أتمني مشاركتكم الفاعلة والإيجابية لحاجتي الضرورية وجزاكم الله خيرا نموذج القراءة من الكتب.accdb