Moosak

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

وعليكم السلام ورحمة الله وبركاته أخي محمد 🙂 أنظر هنا :

وعليكم السلام ورحمة الله وبركاته أخي عبدالله 🙂 لو صورت الجزئية التي يقف عليها المؤشر بالأصفر عند الضغط على ال Debug وعلى العموم يمكنك ببساطة تغيير الكود .. هناك الكثير من الأكواد التي تؤدي نفس العمل .. 🙂 هذا الكود الذي أستخدمه أنا ويعمل معي جيد ، الكود يأخذ نسخة لقاعدة البيانات كلها إذا كانت غير مقسمة . وإذا كانت مقسمة فإنه ينسخ ملف الجداول فقط . وفي كلا الحالتين الكود ينشئ النسخة في مجلد اسمه Backup بجانب البرنامج : Public Sub Backupme() On Error GoTo MyErr Dim OldFile, NewFile, CopyMyDB, wheretoBackup, BackupFolder, DBName As String If IsNull(DLookup("Database", "MSysObjects", "Type=6")) Then OldFile = CurrentProject.FullName wheretoBackup = CurrentProject.Path Else OldFile = DLookup("Database", "MSysObjects", "Type=6") wheretoBackup = Left(OldFile, InStrRev(OldFile, "\")) End If BackupFolder = wheretoBackup & "\Backup" On Error Resume Next If Len(Dir(BackupFolder)) = 0 Then MkDir BackupFolder Else End If On Error GoTo MyErr DBName = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1) NewFile = wheretoBackup & "\Backup\" & DBName & "-Backup-" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(OldFile, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MsgBox "Backup……..Done" & vbNewLine & vbNewLine & "Saved in :" & vbNewLine & NewFile, , " " MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Sub '=======================================(كود آخر) Public Function CreateBackup() As Boolean Dim Source As String Dim Target As String Dim a As Integer Dim objFSO As Object Dim Path As String Path = CurrentProject.Path 'get location of current folder Source = CurrentDb.Name Target = Path & "\BackupDB " Target = Target & Format(Now(), "mm-dd") & ".accdb" ' create the backup a = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") a = objFSO.CopyFile(Source, Target, True) Set objFSO = Nothing End Function وهذا الكود للمهندس محمد عصام :

تفضل أخي .. استخدمت نفس الكود هنا :

وعليكم السلام ورحمة الله وبركاته .. 🙂 هذا كود API وظيفته نقل التركيز من نافذة الأكسس إلى برنامج آخر أو إعادة التركيز إلى نافذة الأكسس مجدد : #If VBA7 Then Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr #Else Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long #End If الدالة تحتاج إلى المعامل التالي hwnd للبرنامج الذي تريد التركيز عليه سواء كان الأكسس أو برنامج آخر ( بعدما تكون قد فتحته كـ Object ) .. وطريقة استدعائه كالتالي : SetForegroundWindow oWMP.hwnd 'windows media player SetForegroundWindow Application.hwnd 'Access

وعليكم السلام ورحمة الله وبركاته أخي عمر .. 🙂 أعتقد أن عليك كتابة هذه بالطريقة التالية : [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvDate] وذلك في حال الإشارة لعنصر موجود في النموذج الفرعي .. invDateCh = DLookup("[InvDate]", "[TblBPCash]", "[InvDate] =#" & [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvDate] & "# And [InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvNo] & "' ")

الحل الأسهل أن تضيف إلى اسم الملف التاريخ والوقت لتتجنب تكرار الاسم 🙂 بحيث يكون اسم الملف هكذا مثلا : FileName = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy hh-nn-ss" & ".pdf"

هذا الملف يعمل لدي بشكل جيد .. 🙂

وهذه دالة أخرى في حال لم تعمل معك الطريقة السابقة الدالة توضع في موديول وتظيف المكتبة التالية :Microsoft Scripting Runtime Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function ثم تستخدمها بنفس الطريقة السابقة مع تعديم اسم الدالة : Dim txtPath as String txtPath = "D:\System\PDF\" & me.id DleteFolder txtPath

تفضل أخي العزيز : 🙂 Dim txtPath as String txtPath = "D:\System\PDF\" & me.id Kill txtPath

أهلا بك أخي @UserUser2 🙂 ضع هذه الدالة في موديول : Public Function IsFileExists(txtPath As String) As Boolean ' To check whether a given file or folder exists or not If Len(Dir(txtPath, vbDirectory)) = 0 Then IsFileExists = False Else IsFileExists = True End If End Function بعدها في النموذج أو مكان كتابة الكود للتحقق من وجود الملف أكتبها هكذا : Dim txtPath as String txtPath = "D:\System\PDF\" & me.id If IsFileExists(txtPath) = True Then 'الأمر الذي تريد فعله إذا كان المجلد موجود Else 'الأمر الذي تريد فعله إذا لم يكن المجلد موجود End IF

أخي العزيز @محمد احمد لطفى أعتذر منك عن عمل التعديل المطلوب لارتباطي بعدة مشاريع أخرى 🙂 وأترك المجال للإخوة الأعزاء لنرى إبداعاتهم 😅✌🏼️

أحسنت أخي محمد 👍🏼🌷

أخي أبو فتحي لم يقبل البرنامج التحويل للنسخة 2003 لهذه الأسباب : أقترح عليك الإنتقال لنسخة أحدث 🙂

شكرا لمروركم جميعا أساتذتنا ومعلمينا الأفاضل .. 😊 غمرتمونا بكرم دعواتكم وثنائكم تقبل الله منا ومنكم 🌷 شكرا لكم فردا فردا 🙂🌹 أخي محمد أحسنت وأحسن الله إليك .. 🙂🌷 كم وضعت قيمة الـ Sleep ؟

أخي محمد هناك أفكار كثيرة يمكن تطبيقها بسهولة وتختلف حسب الحاجة إليها… وعلى سبيل المثال : ـ نفس الرسالة بس يتغير الاسم كل مرة .. ومرفق واحد ـ رسالة مختلفة لكل شخص .. ومرفق خاص لكل واحد منهم.. ـ وأمثلة كثيرة لا حصر لها… 😁 طبعا يمكن عمل كل ذلك بإجراء تعديلات بسيطة على نفس الكود والجدول..

﴿كُلُّ مَن عَلَيها فانٍ۝وَيَبقى وَجهُ رَبِّكَ ذُو الجَلالِ وَالإِكرامِ﴾ [الرحمن: ٢٦-٢٧]

أنا شغلته على ويندوز 10 وأوفيس 365 وأوفيس 2010 ربما تكون إعدادات أمان أو برنامج فيروسات أو إعدادات الأمان (المواقع الموثوقة) لديك في الأوفيس ..

شكرازجزيلا لكم جميعا على كلماتكم الطيبة ودعواتكم المباركة 😊🌹 إن شاء الله 👍🏼 أخي qathi لم يظهر لدي أي مشكلة مما ذكرت .. وكل شي كان يعمل بسلاسة تامة .. لابد أن هناك خلل في إعدادات الجهاز عندك أو إعدادات الأكسس نفسه 🙂 وياليت لو نسمع آراء الإخوة ممن جربوا البرنامج .. 🌹

:: السلام عليكم ورحمة الله وبركاته :: 🙂 يطيب لي أن أهديكم هذه الهدية البسيطة 🎁 :: مرسال الواتسأب :: وهو برنامج بسيط جدا لإرسال الرسائل عن طريق الواتسأب .. مع إمكانية إرسال المرفقات كذلك ( صور أو مستندات ) 🙂 وله واجهتين رئيسيتين : 1 - الرسائل الفردية 2 - الرسائل الموجهة لعدة أشخاص :: وهذه صور لواجهات البرنامج :: طبعا من الضروري تنصيب برنامج الواتسأب للكمبيوتر وتشغيله قبل تشغيل البرنامج 🙂 وبملاحظاتكم ودعواتكم دوما نرتقي 🙂 :: وأخيرا :: التحميل :: ☺️👌🏼 مرسال الواتسأب.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 هل تقصد كتابة ( لا يساوي ) ؟ في ال VBA تكتب هكذا: لا يساوي <> أكبر من أو يساوي =< أصغر من أو يساوي =>

أنا تظهر معي هكذا ( أوفيس 365 ) : 🙂

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

وعليك سلام الله 🙂✋🏻 حسب ما تذكر الرسالة أن المشكة في الأمر الذي وضعته في حدث (عند التركيز) لمربع النص .. عد للكود الذي وضعته وتتبع المشكلة أو الخطأ الذي فيه.

وعليكم السلام ورحمة الله وبركاته 🙂 بدل القائمة المتعددة أيش رايك لو تعمل 3 حقول من نوع (صح/خطأ) للمقاسات الثلاثة وبهذا بيسهل عليك التعامل معها ..؟ إلا إذا كان عدد المقاسات يزيد وينقص ..