كل الانشطه

شششششششششششششششششششكرا جزيلا

وعليكم السلام ورحمه الله وبركاته اتفضل الكود بالطلب الاول لعله يكون المطلوب 👇 Sub TransferDataValues() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil1") nextRow = wsDst.Cells(wsDst.Rows.Count, "A") '.End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow End If wsDst.Cells(nextRow, "A").Resize(4, 9).Value = wsSrc.Range("B3:J6").Value End Sub اتفضل الكود بالطلب التاني لعله يكون المطلوب 👇 Sub Transfe12() Dim wsSrc As Worksheet Dim wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil12") nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B9:J9").Value End Sub اتفضل الكود بالطلب التالت لعله يكون المطلوب 👇 Sub Transfe13() Dim wsSrc As Worksheet Dim wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil13") nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B13:J13").Value wsSrc.Range("B13:J13").ClearContents End Sub Copy of Horaire-18-06-2026-(04.12.06) (3).xlsb

السلام عليكم لدي ورقة Horaire2027 اريد ترحيل البيانات الى ورقة Feuil1 و Feuil12 و Feuil13 1- ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل 2-ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول 3-ترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول Horaire-18-06-2026-(04.12.06) (3).xlsb

الحمدلله أنها عملت معاك 🙂 وهذه هي أهم العناصر التي ستحتاج تنقلها لمشروعك :

هذه هى المشكلة بالضبط التى قابلتنى

اخى استبدلت الدالة ب Public Function IsFileExists(ByVal TxtPath As Variant) As Boolean On Error GoTo ErrHandler Dim sPath As String sPath = Trim$(Nz(TxtPath, "")) 'إزالة علامات الاقتباس sPath = Replace(sPath, """", "") If Len(sPath) = 0 Then IsFileExists = False Exit Function End If If Dir(sPath, vbDirectory) <> "" Then IsFileExists = True Else IsFileExists = False End If Exit Function ErrHandler: Debug.Print "IsFileExists Error" Debug.Print "Path = [" & sPath & "]" Debug.Print Err.Number & " - " & Err.Description IsFileExists = False End Function وعملت تمام ممكن شرح ما هى النماذج والدوال المطلوب للنثل للبرنامج بتاعى للعمل

اسم النموذج Auto Connect FrontEnd V3.0

هي في الأصل موجهة للأدمن (مدير البرنامج الرئيسي وليس بالضرورة يكون المبرمج نفسه ربما مدير المؤسسة أو تقني المعلومات في موقع العمل) أو لك كمبرمج لما تقدم دعم فني بالاتصال عن بعد .. ترتاح من الدخول للأكواد .. 🙂 وكثير ما تحصل المشاكل لما تنقطع الشبكة المحلية تلقة ال FE في جهة وال BE في عالم آخر .. فالمستخدم العادي يتوه .. لكن أنت ستعرف سبب المشكلة من خلال النموذج اللي يظهر لك .. وسيكون سهل عليك تشرح لمدير البرنامج في موقع العمل .. 🙂

خطأ52 هنا If Dir(TxtPath, vbDirectory) = "" Then وصف الخطأ bAD FILE NAME مع الشكر والتقدير

رغم اني مقتنع ان المستخدم العادي يكفيه فقط قاعدة الجداول الرئيسية مع اتاحة الرجوع لنسخة سابقة واحدة ومع ذلك انا مع المثل الذي يقول .. اذا جاءك اثنان فحك رأسك

بل هي للإثنين .. ولكن بواجهة أنيقة سهلة ومفهومة للمستخدم 🙂

وعليكم السلام اخوي ابوخليل اساس الموضوع هو المستخدم: 1. المستخدم عنده FE مسار للجداول BE (عادة في الشبكة) ، والمطور/المبرمج عنده مسار آخر BE لنفس قاعدة البيانات (مسار محلي D مثلا) ، 2. المبرمج عمل تعديلات ، وبعدها ارسل النسخة التالية من الواجهة الى المستخدم. هنا يقوم الكود/العمل اعلاه باعادة ربط الواجهة الجديدة FE بمسار جداوله تلقائيا. 3. والمبرمج لما يحتاج الى ربط الواجهة الى مساره ، يستخدم الامر التالي ، وتلقائيا يربط بمساره f_ReLink_To_Original(2)

وعليكم السلام متابع 🙂

السموحة اخوي موسى اذاً هي للمطورين زادكم الله علما ونفع بكم

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

السلام عبليكم كل واحد لديه تطبيق يوزعه يعاني من الزبائن من كيفية استخدام النظام طبعا قد يضع ملف نصي او pdf يقوم بفتحه للعميل اذا اراد ان يسال لكن المشكلة ان العميل لا يريد ان يقرا عشرات الصفحات يريد ان يظهر له على زر يظهر مشبك مثل المشبك الخاص باوفس او نموذج يقوم وسال الذكاء الصناعي فيبحث له عن الجواب بثواني معدودة التحديات التي ستواجوهنا vba لا يصلح مع الذكاء الصناعي تنزيل نموذج ذكاء صناعي حجمه لا يزيد من 500mb كيفية البحث في النصوص طبعا بحمد الله قمت بانشاء واحد والعملية سلسة ولا تطلب الكثير عند تنزيلها على جهاز العميل ؟

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

بمجرد فتح البرنامج

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

متى يظهر لك الخطأ تحديدا ؟

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

وعليكم السلام ورحمة الله وبركاته 🙂 ضع ملفك هنا أخي @abouelhassan ..

وعليكم السلام ورحمه الله وبركاته يمكنك مشاهده الموضوع ادناه لعله يفيدك 👇

وعليكم السلام ورحمه الله وبركاته يرجي التوضيح اكتر هل تريد تقسيم مبلغ القسط علي فترات متساويه ام علي عدد السنوات ام ماذا تريد يرجي ارفاق امثله لما تريده للتوضيح اكثر

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