Abo-yousef

في 6‏/12‏/2022 at 22:34, Moosak said:

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

وذلك بتخزينها في حقل من نوع مرفقات في البرنامج نفسه ثم بأمر برمجي يتحقق البرنامج من وجودها وإذا لم يجدها يخرجها من حقل المرفقات إلى جانب البرنامج ..

ممكن طريقة عمل هذه الطريقة اومثال لها

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

أستاذتنا المحترمين اريد عمل رسم بيانى اخذ بياناته من نموذج وليس جدول اواستعلام 

وذلك لان النموذج يحتوى على بيانات محسوبة ماخوذة من استعلام

وشكرا لكم 

4 ساعات مضت, مبرمج سابق said:

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

مع ذلك تحقق الشرط الاول ونتجاوز عن الثاني

الان الفكرة الاولى ان يكون اضافة الجهد من خلال قائمة منسدلة بالاشهر ولا علاقة لنا بالجهد 400 او 500 او مايكون

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

ومرفق ملف بهذه الطريقة

الطريقة الثانية بدون استخدام اكواد وبدون الحاجة الى جدول sd

اي ان البيانات تبقى في جدول the main وبدل من جدول sd وكود الاضافة نعمل استعلامين الاول استعلام توحيد والثاني استعلام عادي يكود مصدر للنموذج وايضا يمكن الفلترة بالشهر او بالشهر والجهد او بالجهد فقط ومرفق ملف بهذة الطريقة

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

في 17‏/7‏/2022 at 11:46, مبرمج سابق said:

ذلك لو انني مبرمج فسوف اقترح عليك الاتي

• استخدام جدول sd كحاوية للبيانات فقط
• نعمل قائمة منسدلة بالشهر والعام
• نجعل شرط الاضافة من خلال هذة القائمة فقط مثلا شهر ثمانية لدينا سجلين فقط للجهد احداهما 500 والاخرى 400 وكذلك الحال لكل شهر قيمته
• نجعل التعامل مع جدول sd من خلال الاستعلام فنستطيع استخلاص بيانات شهر محدد وايضا قيمة محدد او كل القيم او الرجوع لاشهر سابقة يدون الحاجة لتنفيذ الكود كل مره

ولكن لو حرف امتناع لامتناع فانت لم تطلب

اريد فعل ذلك

في 17‏/7‏/2022 at 11:46, مبرمج سابق said:

• استخدام جدول sd كحاوية للبيانات فقط
• نعمل قائمة منسدلة بالشهر والعام
• نجعل شرط الاضافة من خلال هذة القائمة فقط مثلا شهر ثمانية لدينا سجلين فقط للجهد احداهما 500 والاخرى 400 وكذلك الحال لكل شهر قيمته
• نجعل التعامل مع جدول sd من خلال الاستعلام فنستطيع استخلاص بيانات شهر محدد وايضا قيمة محدد او كل القيم او الرجوع لاشهر سابقة يدون الحاجة لتنفيذ الكود كل مره

ولكن لو حرف امتناع لامتناع فانت لم تطلب ولا انا مبرمج

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

حاولت ذلك ولكن لا استطيع كنت اتمنى ان يحتوى الجدول sd على كل بينات جدول the main ولكن لااستطيع مع تكرار البيانات الاخر عادى

في 15‏/7‏/2022 at 13:34, مبرمج سابق said:

جميعنا نتعلم من بعض نخطئ ونصيب ونساعد بعضنا بقدر ما نقدر

تحياتي لك ولكل من شارك بالموضوع

بارك الله فيكم جميعا 

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

وهو اضفت لدى بالجدول الأساسي the main

عمودين الاول تاريخ العينة date of casting 

والعمود الثانى 28 date of test

اريد ان يقوم الحدول sd الذى تم دمج الاعمدة به ان يظهر كل مايتم اختباره فى هذا الشهر فقط (28 date of test) 

اى ان اى  شي يكون تاريخ (28 date of test) 

الخاص به فى نفس الشهر يظهر 

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

وشكرا لحضرتك جدا 

Database511.rar

بارك الله فيكم جميعا هذا المنتدى صرح كبير 

تعلمنا فيه الكثير وأنتم جميعا استاذنا تعلمنا منكم الكثير  شكرا لكم جميعا 

بارك الله فيك وجزاك الله خير الجزاء على كل ماقدمته لى يااستاذ @مبرمج سابق

تسلم بارك الله فيك 

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

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

16 ساعات مضت, مبرمج سابق said:

 

    Dim rst As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim fld As Field
    Dim a As Integer

    Set rst = CurrentDb.OpenRecordset("the main")
    Set rs = CurrentDb.OpenRecordset("sd")
    For a = 1 To rst.RecordCount
    For Each fld In rst.Fields
    If fld.Name = "28" Or fld.Name = "280" Or fld.Name = "281" Then
    rs.AddNew
      rs!a = fld.Value
'      rs!id = rst!no
rs.Update
    End If
    Next fld
    rst.MoveNext
    Next a
    rst.Close: Set rst = Nothing
    rs.Close: Set rs = Nothing

 

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

واريد ان اعدل على هذا الكود بااضافة زر تصفية يعني انا قمت بااضافة عمود اخر بااسم s عند اختيار منه 400 يظهر البيانات الخاصة ب400 فقط

مرفق نسخة من قاعدة البيانات 

Database51-1.rar

42 دقائق مضت, مبرمج سابق said:

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

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

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

وقبل ذلك من المعلوم ان لدينا انواع متعددة من الاستعلامات ومنها استعلام توحيد

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

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

SELECT [The Main].[no], [The Main].dx
FROM [The Main]
union all
SELECT [The Main].[no], [The Main].dd
FROM [The Main]
UNION ALL SELECT [The Main].[no], [The Main].dh
FROM [The Main];

والخطوة التالي نعمل استعلام الحاق مصدر بياناته استعلام التوحيد

INSERT INTO sd ( id, a )
SELECT q_1.[no], q_1.dx
FROM q_1
ORDER BY q_1.[no];

ونحصل على نفس نتيجة استخدام الاكواد

تحياتي

اولا اشكرك جدا لاهتمامك

ثانيا انا جربت طريقة إستعلام التوحيد ولكن يحدث معى اخطاء ولم استطع الوصول لحل 

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

14 دقائق مضت, مبرمج سابق said:

 

ملاحظة تجنب تسمية الاحقول بالارقم

الملف مرفق

Database51.accdb 464 kB · 1 download

بارك الله فيك أخي الحبيب جزيت خيرا 

تعبتك كتير معايا هذا هو المطلوب 

31 دقائق مضت, مبرمج سابق said:

لو تضع عمود id تنقل له الرقم no للمحافظة على التسلسل

كيف افعل ذلك 

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

بارك الله فيك وجزاك الله خير 

اسف اخى هذه هي الفكرة التى اريدها ولكنها لاتعمل على الداتا بيس الخاصة بي سارفق لك نسخة من الداتا بيس الخاصة بي

Database51.rar

1 دقيقه مضت, 01142177047 said:

اسف اخى هذه هي الفكرة التى اريدها ولكنها لاتعمل على الداتا بيس الخاصة بي سارفق لك نسخة من الداتا بيس الخاصة بي

Database51.rar 101.76 kB · 0 downloads

الاعمدة المطلوب دمجها هى 28 و280 و281

8 دقائق مضت, مبرمج سابق said:

ممكن ذلك

    Dim rst As DAO.Recordset
    Dim rs As DAO.Recordset
    Dim fld As Field
    Dim a As Integer

    Set rst = CurrentDb.OpenRecordset("tbl_1")
    Set rs = CurrentDb.OpenRecordset("tbl_2")
    For a = 1 To rst.RecordCount
    For Each fld In rst.Fields
    If fld.Name <> "id" And fld.Name <> "item" Then
    rs.AddNew
      rs!a = fld.Value
'      rs!Item = rst!Item
    rs.Update
    End If
    Next fld
    rst.MoveNext
    Next a
    rst.Close: Set rst = Nothing
    rs.Close: Set rs = Nothing

عملته بشكل سريع وليس لدي وقت للمراجعة

مرفق مثال صغير

تحياتي

Database151.accdb 424 kB · 2 downloads

بارك الله فيك وجزاك الله خير 

لا اريد العمود b اسفله العمود c اسفله العمود d بدون اسم العمود

2 ساعات مضت, مبرمج سابق said:

الامر مبهم قليلا

اذا كان المطلوب كما في الصور المرفقة فيمكن عمل كود بحلقتين دوارة

الحلقة الاولى تمر على سجلات الجدول والحلقة الاخرى تمر على الحقول لكل سجل

ثم تنشئ سجل في الجدول الجديد بحيث تضع الحقول متتابعة في حقل واحد لكل صنف

الصور مرفقة

 

لا اريد العمود b اسفله العمود c اسفله العمود d بدون اسم العمود

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

محترفى موقعنا الجميل اريد من حضراتكم

دمج اكثر من عمود فى جدول فى عمود واحد فى جدول جديد اسفل بعض، يعني لدى جدول به عدة اعمدة كالاسم وصنف1 وصنف2 وصنف3 والاجمالى اريد انشاء جدول جديد يعمل على دمج قيمة  الصنف الاول ثم اسفلها قيم الصنف الثانى ثم اسفلها قيم الصنف الثالث لعمل دالة الانحراف المعيارى لكل هذه القيم

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

لك كثير الشكر على هذه الهديه الرائعة يا ابو امنة

ابدعت واتقنت سلمت يمناك ولك جزيل الشكر 

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

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

في 5‏/5‏/2022 at 23:48, derbali ammar said:

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

بارك الله فيكم جميعا 

نحن بانتظارك