محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته نعم يمكن الاستفادة من خدمة google drive او one drive بعد تنزيل البرنامج وتسجيل الدخول الى حساباك قم تخديد المجلد للبرنامج ثم قم بعمل نسخ احتياطي تلقائي وضع به مسار مجلد google drive او one drive تحياتي https://www.google.com/drive/download/ https://www.microsoft.com/ar-ww/microsoft-365/onedrive/download

وعليكم السلتم ورحمة الله وبركاته تفضل اخي الكريم هذا موضوع مشابه لما تريد تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم If Me.z1 = "x" Then Me.num1.Value = Me.num1.Value - (Me.num1.Value * 2) End If z.rar تحياتي

يمكنك اخفاء الحقول التي لا يوجد لها قيمة اليك مثال على حقل سونار في حدث في الحالي يتم اخفاء او اظهار الحقل بناءا على وجود قيمة في الحقل Private Sub Form_Current() If Len(Me.سونار & vbNullString) = 0 Then Me.ÓæäÇÑ.Visible = False Else Me.سونار.Visible = True End If End Sub APE_OK 1- Copy.rar تحياتي اكمل بنفس الطريقة

بالتوفيق اخي الكريم لا تنسى الضغط على افضل اجابة تحياتي

شغال على ويندوز 10 عندي بدون مشاكل ممكن توضيح للذي يحدث معك او الرساله التي تظهر تحياتي

السلام عليكم مرحبا اخي الكريم بالنسبة فكرة عمل نسخة احتياطية للبرنامج لا بد ان تكون دقيق في هذه العملية اولاً : هل المسار ثايت ام يحدده المستخدم في كل مرة اذا كان المسار ثابت فيجب ان يكون دقيق جداً فمثلا انت تكتب في المسار "نسخ احتياطى" ولا يوجد مجلد بهذا الاسم ولكن الاسم الموجود "تسخة احتياطية" وهناك اكثر من خطأ في المسار لديك وانصحك وبشدة ان تستخدم كلمات انجليزية ( علماً بأني ضعيف في الانجليزي لكن من خلال المشاكل التي لا حصر لها التي واجهتني في عملي اضطررت لحفظ بعض الكلمات والاستفادة من خدمة جوجل للترجمه في اوقات كثيرة ) ثانياً : هل النسخ الاحتياطية للجداول فقط ام للبرانامج بالكامل اذا كانت للجداول فقط فستحتاج الى تحديد الجداول مسبقاً وهذا والحمد لله لم نتعرض له لانه يحتاج الى كثير من الاكواد ثالثاً : عملية الاسترجاع يتم تحديد ذلك بناءا على بند ثانياً فانت لم تقم بنسخ الجداول وهذ افضل وبما ان النسخ الاحتياطي تم لكامل البرنامج فما عليك الا نسخ Copy من مجلد النسخ الاحتياطي الى مكان البرنامج الاصلي ولصق Paste وتغيير اسم البرنامج وحذف التاريخ والوقت وارى والله اعلم ان هذا الاختيار به فائدة كبيرة فقد تكون قاعدة البيانات الحالية بها مشاكل فتقوم بنسخ الاحتياطية الخالية من المشاكل وتكمل عملك بنجاح تم تعديل الاكواد والمسارات وسيتم باذن الله عمل نسخة احتياطية لكامل البرنامج حسب تاريخ اليوم في مجلد اليوم الخاص به ( السبت - الاحد ... الجمعه ) اوراق دفع.rar تحياتي

يا اخي الله يرضى عليك هذا طلبك في مشاركة سابقة عموما تفضل اخي الكريم تم تعطيل هذه الاسطر 'Me.B3 = Null 'Me.B4 = Null 'Me.B5 = Null البرنامج-22.rar تحياتي

حقيقة استمتع جدا بقراءة ردودك استاذنا جعفر لانك لا تعطي الحل فقط بل تشرحه وهذا ما احاول ان افلعه فليس المساعدة بوضع الحل ولكن تحديد المشكلة ومعرفة كيفية الحل فبارك الله فيك وجزاك الله خيرا تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم البرنامج-22.rar تحياتي

وللفائدة يمكنك انشاء وتغيير ايقونة سطح المكتب بالكود التالي Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") Dim strDesktop As String strDesktop = WshShell.SpecialFolders("Desktop") Dim X As Object Set X = WshShell.CreateShortcut(strDesktop & "\Officena.lnk") X.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name X.WindowStyle = 1 X.IconLocation = CurrentProject.Path & "\N.Ico" X.Description = "Officena" X.WorkingDirectory = strDesktop X.Save تحياتي

وعليكم السلام ورحمة الله وبركاته غير الخصائص كما بالصورة تحياتي

وعليكم السلام ورحمة الله وبركاته لتغيير ايقونة وعنوان البرنامج ضع الكود التالي في وحدة نمطية جديدة Function ChangeProperty(strPropName As String, varPropType As String, varPropValue As Variant) As Integer Dim dbs As DAO.Database Dim prp As DAO.Property Set dbs = CurrentDb On Error GoTo PROC_ERROR dbs.Properties(strPropName) = varPropValue ChangeProperty = True PROC_EXIT: On Error Resume Next Set prp = Nothing Set dbs = Nothing Exit Function PROC_ERROR: If Err.Number = 3270 Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume PROC_EXIT End If End Function وفي زر الامر ضع الكود التالي ChangeProperty "AppIcon", dbText, CurrentProject.Path & "\N.ico" ChangeProperty "AppTitle", dbText, "officena" Application.RefreshTitleBar تحياتي

السلام عليكم اكيد طبعاً لانك وضعت له قيمة افتراضية ما رأيك بارفاق الجزء الذي به المشكلة لفهم الموضوع اكثر وللوصول لحل اسرع باذن الله تحياتي

تمام ان شاء الله عند اختار اسم البنك اولا ثم اسم المشروع ثم اسم المستفيد >>> تتم التصفية Up-شركة ال حماد اوراق دفع.rar تحياتي

بالتوفيق اخي ابا عبدالرحمن تحياتي

تفضل اخي الكريم تم عمل تصفية للمستفيد حسب البنك Up-شركة ال حماد اوراق دفع.rar تحياتي

تمام استاذنا الفاضل وصلت المعلومة الآن فهمت لماذا لا تفضل استخدام dsum مباشرة في الاستعلام وتفضل استخدام استعلامين الاول تجميعي والثاني مبني على الاول بارك الله فيك استفدت كثيرا من المعلومة تحياتي

من بعد اذن الاخوة الكرام ممكن نجرب الحل بالطريقة التالية وان كان بها عيوب ارجوا توضيحها للاستفادة ولكم الشكر Expr1: Nz(DSum("[crelative_num]";"[TBc]";"[idv] =" & [TBv]![idv]);0) Expr2: Nz(DSum("[hrelative_num]";"[TBh]";"[idv] =" & [TBv]![idv]);0) vvv.rar تحياتي

يمكن ذلك بعمل ربط بين الجداول التي تريدها من البرنامج القديم مع برنامجك الجديد ربط وليس استيراد link to the data وليس import table تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم جميع الحقول التي تستخدم فيها ارقام اجعلها ارقام Number ولا تجعلها عملة لانك مع تطوير البرنامج قد تجد مشاكل فيما بعد انت في غني عنها ... والله اعلم ساذكر لك طريقة سهلة وبسيطة باذن الله ارجو ان تناسبك سنضع حقل جديد في جدول فاتورة وليكن باسم Balance وسنضع في النموذج بوضع مربع تحرير وسرد غير منضم مصدره جدول العملات SELECT [العملات].id, [العملات].[اسم الدوله], [العملات].[رمز العمله] FROM العملات ORDER BY [العملات].id; ثم نضع في حدث عند النقر لهذا المربع الكود التالي Me.Balance = Me.الباقي & Me.Combo7.Column(2) بهذه الطريقة يمكنك التعديل في اي وقت ولكل عملية بين العملات ببساطة ان شاء الله مرفق المثال ارجو ان يناسبك التعديل 3تجريبي.rar تحياتي

تفضل اخي الكريم الشعبة Xr: Mid(Right([f1-1];9);1) المادة Xr1: Replace([f1-1];[Xr];"") stu_Table1.rar تحياتي

وعليكم السلام ورحمة الله وبركاته بالتوفيق اخي الكريم وبرجاء ضع علامة صح بجوار الاجابة الصحية كما هو موضخ بالصورة ( كمثال ) حنى يعُعلم ان الموضوع تم الاجابة عليه تحياتي

وعليكم السلام ورحمة الله وبركاته ليس السبب التاخر في البحث ولكن السبب كما هو موضح بالرسالة ان التركيز على عنصر لا يمكن البخث فيه كزر الامر الذي قمت بالضغط عليه ( ايقونة البخث ) لذلك ضع قبل الكود الخاص باظهار مربع الخوار البخث الكود التالي docmd.goToControl "Text1" او ضع مثال ليتم التعديل عليه تحياتي

وعليكم السلام ورجمة الله وبركاته تفضل اخي الكريم كود ابسط في موديول جديد ضع الكود التالي Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وللاخفاء استخدم الكود التالي Call HideAccess وللاظهار استخدم الكود التالي Call ShowAccess db101.rar تحياتي