Moosak

أمااااااااااااااااااااااااال خلاص تمت الإضافة

تفضل أخي @ra7yl2006 🙂 هذه جملة الإحصاء التي استخدمتها للحصول على الناتج : =DCount("*";"[Gyab_Query]";"[كود الموظف] =" & [Forms]![المرتبات]![كود الموظف] & " And [gMonth] =" & [Forms]![المرتبات]![MonthCbo] & " And [gYear] =" & [Forms]![المرتبات]![yearCbo] & " ") ولكن بعد العديد من التعديلات الضرورية على بنية الجداول والنموذج مع إنشاء استعلام جديد باسم Gyab_Query للحصول على تاريخ وسنة الغياب .. aa.rar

تفضل أخي @figo82eg 🙂 للحصول على نوع الملف : =Right([Full];Len([Full])-InStrRev([Full];".")) للحصول على اسم الملف : =Left([Full];InStrRev([Full];".")-1) حيث أن [Full] هو اسم الحقل الذي يحوي أسم الملف كاملا إمتداد.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 وضعت هذه الدالة في عمود جديد بالاستعلام "المرتبات Q" وهي تحسب عدد أيام الغياب كلها بدون حصر التواريخ في فترة محددة .. Gyab: CInt(DCount("[كود الموظف]";"[تسجيل الغياب1]";"[كود الموظف] =" & [idemp])) لا أدري أين تريد وضع شرط الفترة الزمنية التي ستحسب عليها عدد أيام الغياب ؟

وعليكم السلام ورحمة الله وبركاته أخي عمر .. إن كنت تستخدم نسخة 2007 أو أقدم .. فجرب تغيير كلمة Recordset2 إلى Recordset يمعنى شيل رقم 2 من الحكاية .. وجرب 🙂

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

اللهم آمين أخي العزيز وإياكم 😊🤲

مشاركة بسيطة مع أساتذتنا الفضلاء وآباءنا الأعزاء 😊 هناك حل آخر بتحويل الحقول إلى نص طويل Long Text في الجدول وجعل خاصية ال Text Format تساوي Rich Text ثم يتم إدراج الحقول من جديد في النموذج والتقرير .. والتأكد من أن خاصية الفورمات للحقول هي Rich Text كذلك ( في النموذج والتقرير ) : والآن بمجرد تظليل النص سيظهر لي مربع التحكم وسيمكنني من التحكم بالخط والألوان كذلك 🙂👌🏼 والنتيجة في التقرير : reportsettings.accdb

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 .. تفضل التعديل : بعدها يتم حذف المجلد [ 1 ] والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 وهذا الكود المرتبط بزر الحذف : Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر : Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule ) : Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function AttachFilesToDB.rar

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

عمي المهندس قاسم أيدك الله بنصره 😊🌹.. الفرق بين الدالتين هو أن الدالة التي وضعتها أنا تحضر لك أول يوم من هذا الأسبوع تلقائيا بغض النظر عن أي يوم من الأسبوع نحن فيه .. أما الدالة التي تفضلت انت بها تنقص 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