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

مشاركة في الجزء الخاص بحفظ نسخة كل أسبوع 🙂 لدي تجربة سابقة قد طبقتها في برامج صممتها سابقا .. الفكرة : أني عملت جدول لتخزين عمليات الحفظ الاحتياطي ، عند كل عملية حفظ يتم تخزين ( التاريخ والوقت - مسار الحفظ ) .. ، ولكي يتأكد البرنامج إن كان تم حفظ نسخة هذا الأسبوع أم لا .. عملت دالة تقوم بفحص حقل التاريخ في الجدول .. فإذا وجدت أن هناك نسخة محفوظة خلال تواريخ هذا الأسبوع تلغي عملية الحفظ .. وإذا لم يجد سجل محفوظ يقوم بتشغيل كود حفظ النسخة الاحتياطية وهو بدوره سيقوم بتخزين بيانات النسخة في الجدول .. 🙂 وهذا الكود الخاص بدالة فحص حقل التاريخ في جدول النسخ الاحتياطية المحفوظة : Function CheckBackupWeek() As Boolean 'هذي الدالة تفحص إذا كان هناك نسخة محفوظة سابقا في جدول النسخ الإحتياطية خلال الأسبوع الحالي 'True : نعم يوجد , False: لا يوجد ' Declare variables Dim RS As Recordset Dim startWeek As Date Dim endWeek As Date ' Get the start and end dates of the current week startWeek = DateAdd("d", -(Weekday(Date) - 1), Date) endWeek = DateAdd("d", 6, startWeek) startWeek = Format(startWeek, "mm/dd/yyyy") endWeek = Format(endWeek, "mm/dd/yyyy") 'Debug.Print startWeek, endWeek ' Open the recordset Set RS = CurrentDb.OpenRecordset("SELECT * FROM BackUpsT WHERE [DateTime] BETWEEN #" & startWeek & "# AND #" & endWeek & "#") ' Check if the recordset is empty If RS.EOF Then ' Return False if the recordset is empty CheckBackupWeek = False Else ' Return True if the recordset is not empty CheckBackupWeek = True End If ' Close the recordset RS.Close End Function وهذه طريقة استخدام دالة الفحص ومناداة كود النسخ الاحتياطي في حال وجود نسخة سابقة أم لا : If CheckBackupWeek() = False Then ' يفحص من جدول النسخ الاحتياطية إذا كانت هناك نسخة محفوظة سابقا خلال هذا الأسبوع ' إذا ما وجدها يحفظ وإذا وجدها ينتقل للإجراء التالي Call DoBackup Else ' توجد نسخة سابقة لذلك يخرج Exit Function End If تحياتي 🙂

جزاك الله خير وبارك فيك وبعلمك استاذنا الغالي ابا خليل تم التجربة تم ارساله رسلة نصيه مع مرفق صوره وتمت بنجاح الله يعطيك العافيه

اخي الكريم تحية طيبة يرجى التوضيح اكثر ماهي المعايير التي حكمت عليها بان الاستعلام خاطئ ؟؟ الشقة 802 ينتهي ايجارها ب 11-5 ومن الطبيعي ظهورها في الاستعلام !! WHERE (((Year([Duration_to]))=[forms]![f3]![txtyear1]) AND ((Month([Duration_to]))=[forms]![f3]![txtMonth])) معيار الاستعلام هو السنة و الشهر فقط و بالتالي هو يرجع نتائج صحيحة ! يرجى التوضيح اكثر للمساعدة

تفضل اخي الكريم Out-Get_Table_Excel.rar

استخدم هذا البرنامج

فعلا ترجمة الاسماء العربية من الانترنت غير دقيقة بس ممكن تعمل جدول بالاسماء العربية وما يقابلها باللغة الانكليزية ..راح تسهل عليك المهمة

لا اخي الكريم تختار المسار من الزر الاول للحفظ و تختار المسار من الزر الثاني للاستيراد 1.bmp 2.bmp

يوم 1 على كثير برفع لك طلبك بموضوع مستقل وجديد بطرح البرامج بلنكات موقع Google للتحديث برامج بنفس موضوع مثال Button تغير تكست بوكس للمواضيع اذا نفع او دخول للمكتبه بعد أنشاء موقع خاص ب Google للعرض تحديثات وتحميل

الحمدلله 🙂

الظاهر من الخطأ أن الويندوز لا تسمح لك بإنشاء ملفات في مجلد الويندوز .. بدلا من ذلك جرب عمل المجلد في الـ C مباشرة .. هكذا : "WhereToSave = "c:\Bakup بالمناسة هذه ليست دالة خاصة بالأكسس .. وإنما هي دالة أنا قمت بإنشاءها سابقا .. فلو احتجت أن تستخدمها في برنامج آخر يجب عليك أن تنسخها كاملة في موديول من موديولات البرنامج الجديد .. 🙂 وهذه هي كاملة .. : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "") If FullLinkedPath <> "" Then LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function

قم بكتابة الموقع الجديد في المكان الذي ذكرته هكذا : "WhereToSave = "c:\windows\Bakup حيث أن BECurrentPath هو اسم الدالة التي تحضر لك الموقع الحالي لقاعدة البيانات . وكذلك عليك أن تحذف السجل المحفوظ لهذا الأسبوع من الجدول لكي يقوم البرنامج بحفظ نسخة جديدة لهذا الأسبوع .. 🙂

@بنتظار @gamal gamal تجربتك و اقتراحاتك تفيد في مجال واهداء للعامه وليس فقط للمسلمين ولكن عندي بعض برامج تحت تنفيذ بس اخلص اكمل برنامج وللادارة في علاج بالادب افضل من كوي راس ولكن بالعناد حل آخر @محب العقيدة ما هي دقة شاشة الوندوز في جهازك؟! اذا كان يوجد 1920 اختر او بتحديث جديد يضم كافة شاشات والآن اذهب الى وضع التصميم وعدل المقاسات تصميم نوافذ التي تتناسب مع دقة شاشة جهازك واعادة التشغيل

انظر الصورة ::::: - استخدم هذا الكود في الحدث الموضح في الصورة - يجب ان يكون النموذج مفتوحا ليعمل If Me.tab.Value = Time() Then PlaySound (Application.CurrentProject.Path & "\tab.wav") End If

حاول اخي تحميل الملف من المرفقات وقم بنسخ المعادلات =MAX.SI.ENS($F$2:$F$7000;$C$2:$C$7000;K2) او =MAX(SI($C$2:C7000=K2; $F$2:F7000)) او =SOMMEPROD(MAX(($C$2:$C$7000=K2)*($F$2:$F$7000))) او =MAX(INDEX((K2=$C$2:$C$7000)*$F$2:$F$7000;)) H23_V2.xlsx

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

الساده الافاضل تبعا إلى الموضع اعلاه تم التوصل الى المعادلة عن طريق مساعدة خارجية وتم رفعها للإفاده واذ وجدت طريقة أفضل أكون شاكرا SumFormula_.xlsx

تبارك الله حفظك الله وراعاك اخي الحبيب تمت الفكرة وبارك الله فيك اخي وجعلك الله دوما عونا لنا

تفضل : 🙂 Dim i, n i = GetUUID n = DCount("*", "[AllowedUUIDsT]", "[AllowdUsersUUID] ='" & i & "'") If n = 0 Then MsgBox "لا يحق لك الدخول" DoCmd.Quit Else Exit Sub End If لا تنسى تخزين الـ UUID المسموح لها بالدخول في الجدول AllowedUUIDsT صيانة2.mdb

استاذي الكريم بارك الله فيك و جعلك منارة لكل متعلم : يرحم والديك تمام التمام

أستاذي الفاضل @ابو عبد الرحمن اشرف بعد دمج مرفق استاذنا @Moosak جزاه الله خير قصر علينا الوقت باقي التجربة ووافنا بالرد . Zip Folder and CopyLast_3.rar

تفضل أستاذي وتحياتي لكم . RapportQ-2.rar

طيب .. قمت بعمل المطلوب في الملف المرفق .. 🙂 كل ما عليك فعله هو نقل جميع العناصر إلى برنامجك وسيعمل تلقائيا بدون الحاجة إلى أي تدخل 🙂 العناصر المراد نقلها : المرفق : Weekly Backup.accdb

هناك نقطة أضنك انتبهت لها أستاذنا @ابوخليل 🙂 لو أراد نقل البرنامج لجهاز آخر سيضطر لفتح محرر الأكواد لتغيير رقم الـــ UUID .. هنا أعتقد أنه من الأفضل بأن يتم تخزين الأرقام المصرح لها بالدخول في جدول .. ويستدعي الكود الرقم من الجدول بدل كتابته يدويا في الكود .

بالنسبة لسؤالك الأول بالمرفق زر للتقرير الجديد . أما بالنسبة لسؤالك الثاني وضح أي شاشة صورها . تفضل المرفق وغداً نلتقي. RapportQ-1.rar

تفضل اخي الكريم الأخطاء هي كالتالي : 1- عند اختيار استيراد يتم تحديد مسار و ليس ملف و الاكسس بحاجة الى مسار الملف كاملا مع اسمه 2- خطا في جملة SQL للاستيراد لان الحقل balance هو حقل محسوب و بالتالي لا يمكن ادراج بيانات ضمنه Out-Get_Table_Excel.rar

هذا هو المطلوب أخي جزاك الله خيرا

Sub CreateFolder() Dim folderPath As String folderPath = "C:\Users\UserName\Desktop\NewFolder" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath MsgBox "Folder created successfully!" Else MsgBox "Folder already exists!" End If End Sub

تفضل لازم تحدد الحقل الي لما تضغط على رقم 1 يكتب داخل الحقل رقم 1 و كذلك لبقية الارقام و فوق الارقام حطيت لك مربح يبين الحقل المحدد اتمنى تناسبك الفكرة alizaeyd.accdb

اعتقد هذا هو طلبك Replace.accdb