اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

مرحبا بكل الأعضاء في هذا الصرح العظيم، وأود ان اعبر عن شكري و امتناني لهذا المنتدى الرائع ❤️

لدي سؤال لو أمكن ان اسأله هنا، هل يوجد بديل لبرنامج الاكسس ويكون نفس الخصائص به، يعني يكون مشابه أكثر من ٩٥٪ من برنامج الاكسس، من حيث ادراج (الجداول و الاستعلام والنماذج و التقارير و الموديل و الوحدات النمطية) وبنفس الواجهات الرسمية GUI لإنشاء قاعدة بيانات متكاملة، اعتذر مرة أخرى اذا كان بغير الإمكان طرح هذا النوع من الأسئلة هنا🌹🌹

قام بنشر

استاذ @gavan من وجهة نظري كل البرامج تعتمد على تقسيم القاعدة . فأنت هنا بالاكسس يمكنك تقسيم القاعدة أماميه وبها  (الاستعلامات والنماذج و التقارير و الموديلات و الوحدات النمطية

والقاعدة الخلفية وبها الجداول وممكن تقسم القاعدة الخلفية كمان مجموعة جداول بقاعدة والمجموعة الباقية بقاعدة أخرى والربط بين القاعدة الأمامية والقواعد الخلفية بالطريقة السليمة . تحياتي .:fff:

  • Like 5
قام بنشر

مشكور اخي خليفة الغالي، 

هل يمكن ارسال فيديو توضيحي لتقسيم قاعدة البيانات بالطريقة الصحيحة؟ بحيث ان كل يوزر ياتي عندي انطيه ملف front end ويذهب و ويعمل عليه مباشرة دون إعادة ربط الجداول من جديد من جهازه، تحياتي يالغالي🌹🌹

قام بنشر

مشكور جدا اخي الغالي خليفة على التوضيح ❤️, حيث قمت بالتقسيم👍 ولكن 😱عندما نقلت النموذجين الى برنامجي  و عند الضغط على استعراض تظهر لي مشكلة🙏 كما في الصورة ادناه ,هل من تفسير  وشكرا للشرح الجيد تحياتي:signthankspin:

Err.png

قام بنشر

شكرا يالغالي لقد تمت و الحمد لله:yes: , ولكن لدي سؤال ان امكن ذلك:clapping: في البرنامج يوجد زر امر يعرض الصور المخزنة معه في الفولدر بطريقة بحث صغيرة , و بالكود ادناه , هل بالامكان تغير المسار بطريقة دون الدخول كل مرة الى اعدادات الفيجول , ولك مني اجمل سلام 

Dim x As String
x = Application.CurrentProject.Path & "\" & Me.TextConv & ".pdf"
Application.FollowHyperlink x
    

 

  • تمت الإجابة
قام بنشر
46 دقائق مضت, gavan said:

شكرا يالغالي لقد تمت و الحمد لله:yes: , ولكن لدي سؤال ان امكن ذلك:clapping: في البرنامج يوجد زر امر يعرض الصور المخزنة معه في الفولدر بطريقة بحث صغيرة , و بالكود ادناه , هل بالامكان تغير المسار بطريقة دون الدخول كل مرة الى اعدادات الفيجول , ولك مني اجمل سلام 

Dim x As String
x = Application.CurrentProject.Path & "\" & Me.TextConv & ".pdf"
Application.FollowHyperlink x
    

 

جرب هذا الكود في حدث عند النقر لاختيار ملف الـ PDF ، وسيتم ادراج مساره في مربع النص

Private Sub btnBrowse_Click()
    Dim fd As Object ' متغير لمربع الحوار
    Dim selectedFile As Variant ' متغير لتخزين المسار المحدد
    
    ' إنشاء مربع حوار لاختيار الملفات
    Set fd = Application.FileDialog(3) ' 3 يعني اختيار ملف
    
    ' عرض المربع الحوار وانتظار اختيار ملف
    If fd.Show = -1 Then
        ' استخراج المسار المحدد وتخزينه في selectedFile
        selectedFile = fd.SelectedItems(1)
        
        ' عرض المسار المحدد في مربع النص
        Me.TextConv.Value = selectedFile
    End If
    
    ' تحرير الموارد
    Set fd = Nothing
End Sub

وشرح الكود موجود داخله 🥰

  • Like 1
قام بنشر

صح اخي الغالي المثال كما قلته ب الضبط , وشكرا على التوضيح و الكود ,:signthankspin:

الان لدي (مجلد1 يحتوي على ال BackEnd وملفات PDF):clapping: ,عندما انشأنا ملف FrontEnd ونقلناه الى جهاز اخر في نفس الشبكة و سوينا اتصال بال backEnd يتصل بصورة طبيعية بالجداول👍 , ما اريد قوله هنا كيف اتصل بملفات ال PDE مع المجلد1:dance1:, يعني كما اتصنا بالجداول نتصل بالملفات المرفقة معه ايظا:yes: ,حسب الكود المرفق:power:  ارجوا ان اكون وفقت في ايصال المعلومة , ولا اكون ازعجتك بالشرح تحياتي يالغالي خليفة 

Dim x As String
x = Application.CurrentProject.Path & "\" & Me.TextConv & ".pdf"
Application.FollowHyperlink x
    

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information