alsihran

18 ساعات مضت, saad abed said:

لعل هذا يكون المطلوب

 

مع الأسف ليس المطلوب

شكرا لمحاولتك

1 دقيقه مضت, محمد يوسف ابو يوسف said:

تفضل المصنف1.xlsx

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

المطلوب عمل Pivot Tabels

واظهار الاعمدة s1   s2 s3 s4 s5 s6 s7 s8 s9 s10

وعد القيمة 2 لكل id_Ccallg  من كل من عمود 

شكرا لك 

السلام عليكم 

المطلوب  بالمف المرفق عد الخلايا التي تتضمن القيمة 2 لكل id_Ccallg في كل عامود من خلال جدول  Pivot Tabels

المصنف1.xlsx

13 دقائق مضت, jjafferr said:

وانما استعمل
DoCmd.Close acForm, me.Name
والذي معناه اغلاق النموذج الموجود فيه الكود هذا

تمام 

هذا حل المشكلة 

14 دقائق مضت, jjafferr said:

2- نعم ، هكذا

وهذا تمام 

شكرا لك 

14 ساعات مضت, jjafferr said:

تفضل 🙂

بعد أذنك استاذ

1- لاحظت أن  الفورم frm_relink لم يعد يغلق تلقائيا بعد فتحه كما في السابق 

لو كان عندي اكثر من جدول اكسل هل نعيد تكرار الكود مع تغير أسم الملف  للربط 

    If tdf.Name = "shet_Data" Then
    
        Call CurrentDb.TableDefs.Delete(tdf.Name)
        DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _
                                      "shet_Data", CurrentProject.Path & "\Data.xlsx", True, "ورقة1" & "$"
    Else

19 دقائق مضت, jjafferr said:

تفضل 🙂

👍

شكرا لك 

11 دقائق مضت, ابو البشر said:

تفضل <>><>< هههههه

7 دقائق مضت, ابو البشر said:

طيب جرب المرفق ............

المرفق لو سمحت شكلك نسيت ترفعه😇

للرفع 

ملاحظة أخرى 

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

المطلوب ان يرتبط بالورقة الموجودة حاليا في ملف الواجهات بالاكسس

في 25‏/1‏/2023 at 18:36, ابو البشر said:

طيب جرب كده ..................

شكر لك وأسف على التأخر في الرد 

الطريق تعيد الربط لكن يتم تغير اسم الجدول 

وهذا سيعمل مشكلة مع الاستعلامات 

حيث ان الاستعلام سيبحث عن الجدول المرتبط ولن يجده لان اسمه تغير 

السلام عليكم 

بالمرفق يوجد  

قاعدة بيانات للجداول و والواجه 

عند الدخول على الواجهة Data

وفتح نموذج frm_relink يتم الاتباط بقاعدة الجدوال Data_be في نفس مجلد البرنامج  والامور تمام 

المطلوب : 

الارتباط بجدول الاكسل الموجود في نفس المجلد بنفس طريقة الارتباط بجدول الاكسس برمجيا 

حاولت اطبق نفس الطريقة لكن فشلة محاولتي 

Relink.rar

19 ساعات مضت, AHMED0155079 said:

عند حضرتك خلفيه عن المشكلة دي

اعتقد ولا أجزم بأن هذه الجزئية تمت اضافتها من قبل موقع الاستضافة مؤخراً لتخفيف الضغط على السيرفر 

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

لذلك وضعوا هذه البرمجية لفصل الاتصال  أعيد وأكرر لا أجزم بهذا الكلام 

19 ساعات مضت, AHMED0155079 said:

عند حضرتك خلفيه عن المشكلة دي

بعد مشاهدة رابط الموضوع اللي وضعه استاذنا ابو خليل 

صار عندي تصور عن المطلوب 

في 11‏/1‏/2023 at 00:44, AHMED0155079 said:

هل يوجد كود اتصال مباشر MySQL من داخل الأكسيس بديل عن أداة ODBC

سؤالك هذا غير مجرى الموضوع 180 درجة 

سأعطيك رايي كمستخدم لمواقع الاستضافة لقواعد بيانات SQl Server لمدة 6 اشهر 

1 - طريقة ربط الاكسس مع جداول قواعد بيانات Sql server عن طريق ODBC 

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

 وعند فتح الجدول يبقى الاتصال مفتوح دون انقطاع  

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

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

بالملل لأن جلب البيانات للنموذج في حالة كان لديك عدد السجلات المذكورة سيأخذ منك وقت لايقل عن 3 دقائق كحد أدنى 

ربما يخطر لك سؤال هنا وتقول ان هذا بسبب موقع الاستضافة بناء على المساحة التي قمت بشرائها والسرعه ...... ألخ 

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

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

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

نأتي للأمر الأخر 

2- الاتصال بقواعد بيانات Sql Server في مواقع الاستضافة بتقنية Dbset أو ما يعرف بالاتصال المنفصل  ان شاء الله يكون المصطلح صحيح 

بحيث تقوم بتعريف الاتصال والمتغيرات وتكتب جمل الاتصال بالجدول او   stored procedure أو الاستعلام 

تفتح الاتصال وتجلب او ترسل البيانات ثم تقوم بإغلاق الاتصال 

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

او تقوم بالاضافة او التعديل والحذف ثم تعيد ارسالها الى قاعدة البيانات مباشرة للجدول او عن طريق stored procedure

هذه الطريقة مشابه بحد كبير الى طريقة برامج visual basic هذه الطريقة جدا ممتازة وسريعه جدا إذا كان بناء البرنامج صحيح وكل شي تمام 

ولكن تحتاج جهد وعمل كبير وكثير 

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

تستطيع بناء التقرير 

وهذا هو موضوع كود الاتصال الذي وضعته لك 

21 ساعات مضت, alsihran said:

sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=أسم قاعدة البيانات;Password=الباسورد"

أتمنى أكون قدرت افيدك بشي عن الموضوع 

37 دقائق مضت, AHMED0155079 said:

ممكن تشرحلي الكود حضرتك ولو توضيح احط فين السيرفر نيم واسم المستخدم والباسورد 

الكود اللي وضعته لك جاهز  

sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=أسم قاعدة البيانات;Password=الباسورد"

السلام عليكم ورحمة الله 

عندي جدول يوجد به عامود يحتوي على خلية تحتوي على ثلاث قيم 

1

2

3

اريد انشاء عامود جديد في جدول Pivot Table

يعد لي قيم الخلايا التي تحتوي الرقم 2

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

=COUNT(Qry_tblData[S10])

جربت هذا الموقع جيد 

يعطيك تجربة 60 يوم

https://www.smarterasp.net/

هذا كود الاتصال 

وعند تسجيلك وانشاء قاعدة البيانات سيعرض لك جميع انواع الاتصال تقريباً

sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=UserName;Password=********"

1 ساعه مضت, AbuuAhmed said:

يبدو لم تتمكن من الوصول إلى نافذة Immediate

اعتذر منك خرجت من المنتدى لامر ضروري

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

عمل الكود الأول

2 ساعات مضت, AbuuAhmed said:

xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

شكرا لك 

قيمة المتغير Paath= string 

يتم جلبها من مربع تحرير وسرد من العمود الثالث 

paath = Me.city.Column(2)

7 دقائق مضت, AbuuAhmed said:

بدل السطر الأخير بهذا:

يعطيك العافية ابو احمد 

نفس الشي لم يتعرف على مسار الملف اظر الصورة 

لاحظ علامات التنصيص المفروض ما تطلع علامة تنصيص بالبدية والنهاية لكن الغريب انه يتم اضافتهم تلاقئي 

السلام عليكم 

عندي هذا الكود  لفتح ملف اكسل وشغال تمام 

sXlsFile = CurrentProject.Path & "\ReasonsExtension_Bad.xlsx"

الان اريد اجعل اسم الملف متغير فقمت بعمل تعريف للمتغير بالشكل التالي 

  Dim sXlsFile As String
  sXlsFile = Empty
    Dim paath As String
    paath = Empty
    paath = Me.city.Column(2)
     sXlsFile = paath

وخزنت المسار بالكامل في الجدول لكل ملف كما موضح بالصورة المرفقة

 المشكلة عند تنفيذ الكود واستدعاء اسم الملف تظهر علامات تنصيص زياده ولا يتعرف على مسار الملف 

ارجو المساعده في حل الاشكال 

السلام عليكم 

استاذ جعفر @jjafferr

عندي مشكلة لمى اضغط على زر امر اختيار ملف اكسل يظهر خطأ 

كما موضح بالصورة

2 ساعات مضت, jjafferr said:

من يقوم بهذا التحويل؟

عفواً 

اقصد تحديث 

نفسها جملة الاستعلام التي قمنا من خلالها بتحديث النصوص نجاح فشل Na الى ارقام 

عند تشغل الاستعلام مرة اخرى قوم بتحول رقم 1 و 2 الى رقم 3  

بسبب ان تشغيل الاستعلام مرة اخرى سيجد ان رقم 1 و 2 لاتساوي نجاح فشل يقوم بتحديثها الى رقم 3

هذه الجملة من الاستعلام المسؤولة عن الامر

IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3,

في 16‏/11‏/2022 at 11:14, jjafferr said:

والجواب على مشاركتي انا انا ، هل حلت المشكلة 🙂

 

نعم استاذ حلة المشكلة الى نوع ما 

لانه اذا اعدت تشغيل الاستعلام مره ثانية يقوم بتحويل رقم 1 ورق 2 الى رقم 3 حسب الشروط

تحياتي وتقديري شكرا لك 

2 ساعات مضت, Moosak said:

لماذا لا يقبل السيرفر تشغيل الأوامر البرمجية VBA ؟

هل بسبب تعطيل الصلاحيات من قبل فنيي الحاسب الآلي ؟

نعم استاذنا الكريم 

تقوم ادارة تقنية المعلومات بالمنشأه بايقاف التعليمات البرمجية ( تنفيذ الاكواد البرمجية )

عن الاجهزة المرتبطة بالسيرفر الرئيسي في الفرع الرئيسي 

ومن ضمنها الاسكربت وتثبيت البرامج و . .و .. و الخ 

21 ساعات مضت, jjafferr said:

سيدي الفاضل 🙂

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

الله يعطيك العافية استاذ 

عذراً منك لاني أسأت الفهم 

تمام شكرا لك 

31 دقائق مضت, jjafferr said:

مشاركة مع اخي ابو جودي

الله يعطيك العافية 

المشكلة معاااي ذكرتها في مشاركة سابقة 

20 ساعات مضت, alsihran said:

لجهاز اللي راح اضع عليه البرنامج متصل بسيرفر 

لايقبل تنفيذ اي استعلام من خلال الكود 

لذلك محتاج تنفيذ التحديث من خلال الاستعلام مباشرة 

شكل المسألة عويصه 😇