Moosak

جرب هذا أخي قاسم 🙂 وأضن أن هذا الكود مكتوب بلغة الجافا

عمي المهندس قاسم أيدك الله بنصره 😊🌹.. الفرق بين الدالتين هو أن الدالة التي وضعتها أنا تحضر لك أول يوم من هذا الأسبوع تلقائيا بغض النظر عن أي يوم من الأسبوع نحن فيه .. أما الدالة التي تفضلت انت بها تنقص 5 أيام تحديدا من يومنا الحالي… فلو كنا في يوم الأحد مثلا ستدخل الفترة في أسبوعنا الماضي ..

لا أعتقد أنه يمكنك الزيادة على 255 .. فأكسس يعطيك طاقة استيعابية محددة لا يمكن تخطيها .. وللمزيد من المعلومات ، في هذا الرابط ستجد الطاقة الاسيعابية لكل عنصر أو كائن في أكسس 🙂 https://support.microsoft.com/en-us/office/access-specifications-0cf3c66f-9cf2-4e32-9568-98c1025bb47c

تفضل هذه المحاولة أخي @naguib_3778 🙂 استخدمت هذا المعيار : >=(Date()-Weekday(Date();7)+1) And <=Date() ووضيفته أن يحصر لك السجلات بين أول يوم من الأسبوع الحالي ( بدءا من يوم السبت ) والى اليوم الذي نحن فيه من نفس الأسبوع . وإذا كان الأسبوع يبدأ من يوم الأحد تغير الرقم 7 إلى الرقم 1 New Microsoft Access Database.accdb

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

وعليكم السلام أخي بلال 🙂 بعد العديد من المحاولات نجحت ولله الحمد Count Down Timer.accdb

طبعا هذا طلب جديد 🙂 فياريت لو تضيف الطلبات الجديدة على آخر ملف عملته لك .. بدل ما يبدأ الشغل من جديد من الصفر ..

أهلا بك أخي @naguib_3778 🙂 جرب تغيير المستخدمين كل مرة ... كلمة المرور 123 للجميع وتم إضافة النوع في الجدول 2المرسل.accdb

العفو أخي محمد 🙂 لحذف الملف بعد نقله عدل أكواد الزرين للتالي : Private Sub CopyBtn_Click() 'On Error Resume Next CopyFile Me.PicFile, Me.jjj DleteFile Me.jjj MsgBox "تم النقل بنجاح" End Sub Private Sub FolderCopyBtn_Click() 'On Error Resume Next CopyFolder Me.FolderFrom, Me.FolderTo DleteFolder Me.FolderTo MsgBox "تم النقل بنجاح" End Sub وأضف هاتين الدالتين للموديول FileFoldeCopyMod Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function Public Function DleteFile(FilePath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFile FilePath, True Set fs = Nothing End Function

متى نزل هذا الإصدار ؟؟ أليس الإصدار 365 أحدث منه ؟ لأن كل هذي الميزات موجودة سابقا في النسخة 365 !!

شكرا عمي @Eng.Qassim معلومة استفدت منها شخصيا ☺️ وأنا طبقتها على الجزء الأيسر من التقرير ونجحت ولله الحمد .. والباقي عليك أخي @elghoultk 🙂 Access Database.zip

جرب الآن أخي محمد .. 🙂 أحس أن هناك شي غير طبيعي في الموضوع 😁 غيرت عدة أشياء في الاستعلام لحد ما ضبطت الأمور .. زر النقل الأول لنقل الصورة فقط زر النقل الثاني ينقل المجلد .. إذا لايزال المطلوب لم يكتمل فخذ الفكرة وطبقها على ملفك ، أو عدل الملف لكي تتضح لنا الصورة أكثر .. لا يزال لم تتضح لي الحكمة من هذا الطلب .. 😏 Photo.rar

أستاذ محمد .. إنت عايز تنقل مجلد بالملفات اللي داخله ؟ ولا عايز تنقل ملف واحد بس ؟

العفو أخي @hougar 🙂 .. ولا تنسى تمر على الموضوع الجميل ☺️ :

طيب يا غالي ... جرب هذي الدالة : Public Function CopyFile(CopyFrom As String, CopyTo As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CopyFrom, CopyTo, True Set fs = Nothing End Function ولاستخدامها بهذي الطريقة : CopyFile("CopyFrom", "CopyTo")

أهلا بك أخي @elghoultk 🙂 لفتح نفس السجل في التقرير تضيف هذه العبارة في زر أمر فتح التقرير : ولجعل مربع النص يكبر ويتقلص حسب حجم النص الموجود فيه .. قم بتفعيل خاصية إمكانية التمدد وإمكانية التقلص Access Database.zip

بخلت علينا أوي بالشرح أستاذ محمد @محمد احمد لطفى 😅 يحتاج نجيب عراف ولا مشعوذ يخبرنا أنت عايز أيه بالضبط ؟! 😂

جرب هذه الدالة أخي @hougar 🙂 : DCount("[ID]","[ItemsTable]","[ExpiryDate] >=#"& date &"# And [ExpiryDate] <=#"& date+30 &"#") لعد المنتجات التي ستنتهي خلال ال 30 يوما القادمة .

الأول : الثالني :

مهندس محمد الأرقام اللي عطيتك كانت لجهاز الدوام أجربها بكرة إن شاء الله .. بس الحين اديني لجهازي الشخصي .. وهذي الأرقام : الأول: 101,V1.01|4C4C4544-0044-3610-8053-C8C04F513932 الثاني: 102,V2.00|4C4C4544-0044-3610-8053-C8C04F513932

الأول : 101,V1.01|F5E6D9AB-7EF9-E111-A0F2-C5CD35F1225F الثاني : 102,V2.00|F5E6D9AB-7EF9-E111-A0F2-C5CD35F1225F

وعليكم السلام ورحمة الله وبركاته أخي طارق 🙂 قمت بتحويل الاستعلام المسمى Q_CHILD إلى استعلام إجماليات بناءا على تاريخ التقديم وأظهر النتيجة المطلوبة .. وقام بجمع المبالغ في خلية واحدة. ولكن الاستعلام قام بتغيير مسميات الحقول فلم يعمل التقرير ، قمت بتغيير المسميات في التقرير ولكن لكثرتها ظهرت رسائل خطأ .. الآن تم عمل المطلوب في الاستعلام المذكور Q_CHILD .. وعليك تكملة الباقي 😁 مساعدات مرضية NEWWWW.zip

تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.mdb

جميلة وممتعة واذا دمجناها مع افكارنا فى الاكسيس النتيجة بتكون خرافية أيش رايك تشاركنا تجربتك في قسم ال #C بالمنتدى ؟ أنا أيضا عندي توجه لتعلم هذي اللغة 😊 لعل الله يحيي القسم على يديك 😁👌🏻

وعليكم السلام ورحمة الله وبركاته أخي هاني 🙂 عملتها لك في استعلام .. ويمكنك أن تصمم منه نموذج ، وممكن تجعل فيه شرط [تحديد السنة]. اسم الاستعلام : Qry_No_of_Days_Abcent تجميع غياب لكل طالب.mdb