انشاء نموذج لتوليد سجلات بناءا على معطيات

[عمر ضاحى]

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

كما هو واضح من العنوان 

اريد ان اعمل مولد سجلات بناءا على بيانات يتم تعبئتها فى النموذج 

وللتوضيح الشرح فى الصورة التاليه 

باقى البيانات هي بيانات ثابته

هل من الممكن انشاء هذا المولد ؟

مرفق ملف البرنامج

توليد سجلات.rar

تم تعديل يناير 13, 2022 بواسطه عمر ضاحى

[عمر ضاحى]

@ابوخليل

استاذنا الجليل 

مقدرش اطمع فى حل لهذا الموضوع منك ^_^

[عمر ضاحى]

طيب شاركوني افكاركم فيها 

يعنى حاجه زي كده ممكن تتنفذ ازاى

[ابوخليل]

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

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

تريد توليد سجلات ؟ ام ارقام ؟

اذا كانت سجلات فما صفتها

يجب ان تشرح شرحا وافيا

مثلا  ترفق صورة للجدول قبل التنفيذ وصورة بعد التفيذ تعرض المطلوب

اجادة وصف السؤال وفهمه هو نصف الاجابة 

[عمر ضاحى]

23 دقائق مضت, ابوخليل said:

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

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

تريد توليد سجلات ؟ ام ارقام ؟

اذا كانت سجلات فما صفتها

يجب ان تشرح شرحا وافيا

مثلا  ترفق صورة للجدول قبل التنفيذ وصورة بعد التفيذ تعرض المطلوب

اجادة وصف السؤال وفهمه هو نصف الاجابة 

اولا بعتذر لو كان طلبي غير واضح 

ما كنت اريد ان اقوله 

اولا ما فى الجدول صورة من الصور التى اريدها 

ولكي اوضح الغرض من هذا 

اريد ان اعمل ملصق يتم لصقه على الغرض (باب او اى شئ)

هذا الملصق به بعض المعلومات 

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

اقصد بتوليد السجلات هنا 

ان يتم انشاء عدد معين من السجلات فى الجدول بناءا على ما اريده فى النموذج 

مثل اريد ان انشئ خمس سجلات تحمل بيانات ثابته واخرى متسلسله مثل

هنا الكود FDD-01  قد يكون متغير  او ثابت

والكميه المطلوبه كانت انى اعمل 120 سجل 

ونوع الباب DoorType قد يكون متغير وقد يكون ثابت 

 

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

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

فكنت عاوز اعرف اذا كان من الممكن فعلها ام لا على الاكسيس بدل ما بعمل السجلات على 

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

 

(ملحوظه : ما اقصده بكلمة متغير اى يحمل رقم تسلسلى مع احرف ثابته مثل F-01  f-02  f-03 .....الخ )

 

 

وشكرا جزلا مقدما

[ابو جودي]

على كل حال هذه فكرتى ان كنت قد فهمت الموضوع

 

توليد سجلات.accdb

[أبو عبدالله الحلوانى]

27 دقائق مضت, ابوخليل said:

اجادة وصف السؤال وفهمه هو نصف الاجابة 

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

وانا ايضا اشارك استاذنا أبو خليل ما قال ففهم السؤال هو نصف الاجابة كما قيل

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

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

Public sub GenrateRecords(byval tbl as string,byval Rfrist As byte,byval Rend As byte)
Aim rec As Recordset,n as byte
set rec = CurrentDb.OpenRecordset(tbl, dbOpenDynaset, dbSeeChanges)

  With rec 
    for n = Rfrist To Rend       'هنا رقم اول سجل وآخر سجل تريد ادراجه
      .AddNew
      !field_ID = "String" & n   'string = البادئة النصية التي تريد
      !field1 = control1         'بدأ من هذا السطر اسماء الحقول في الجدول وما يقابلها بالنموذج
      !field2 = control2
      !field3 = control3
      !field4 = control4
      .update
    next
  end with

End Sub

وتستدعيها هكذا 

Call GenrateRecords ("Table Name",1,15)

بعد تغير ما يلزم تغيرها بالوحدة حسب مسميات الحقول لديك 

 

[ابو جودي]

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

وجزاكم الله خيرا على فكرتم الرائعة بوضع الاكواد فى روتين عام

[ابوخليل]

بارك الله فيكم اخوتي واحبتي ، واحسن اليكم . لمدكم يد العون لأخيكم

في شرحك الاخير  اخ عمر اتضحت الصورة تماما .

  

 

[عمر ضاحى]

6 ساعات مضت, أبو عبدالله الحلوانى said:

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

وانا ايضا اشارك استاذنا أبو خليل ما قال ففهم السؤال هو نصف الاجابة كما قيل

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

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

Public sub GenrateRecords(byval tbl as string,byval Rfrist As byte,byval Rend As byte)
Aim rec As Recordset,n as byte
set rec = CurrentDb.OpenRecordset(tbl, dbOpenDynaset, dbSeeChanges)

  With rec 
    for n = Rfrist To Rend       'هنا رقم اول سجل وآخر سجل تريد ادراجه
      .AddNew
      !field_ID = "String" & n   'string = البادئة النصية التي تريد
      !field1 = control1         'بدأ من هذا السطر اسماء الحقول في الجدول وما يقابلها بالنموذج
      !field2 = control2
      !field3 = control3
      !field4 = control4
      .update
    next
  end with

End Sub

وتستدعيها هكذا 

Call GenrateRecords ("Table Name",1,15)

بعد تغير ما يلزم تغيرها بالوحدة حسب مسميات الحقول لديك 

 

اولا باشكر حضرتك شكرا جزيلا على محاولة مساعدتى

ثانيا الكود لا يعمل معي فقط يسجل سجل واحد بلا اى قيم فيها

 

 

هل انا اخطأت فى شئ ؟

 

[ابو جودي]

اتفضل هذا التعديل 

Public Sub GenrateRecords(ByRef FixedCode As Boolean)
Dim rec As Recordset, n As Byte
Set rec = CurrentDb.OpenRecordset("CodeGenerator", dbOpenDynaset, dbSeeChanges)
  With rec
    For n = txtQTY1 To txtQTY2
      .AddNew
        If Not FixedCode Then !Code = txtCode & n Else !Code = txtCode
        !DoorType = txtDoorType
        !Size = txtSize
        !Handing = txtHanding
        !HS = txtHS
        !QTY1 = txtQTY1
        !QTY2 = txtQTY2
      .Update
    Next
  End With
End Sub

وفى حالة ان الـ  Code ثابت 
استخدم الكود الاتى 

Call GenrateRecords(True)

وفى حالة ان الـ  Code متغير ويجمل الرقم التسلسلى
استخدم الكود الاتى 

Call GenrateRecords(False)

 

تم تعديل يناير 15, 2022 بواسطه ابو جودي

[عمر ضاحى]

15 دقائق مضت, ابو جودي said:

اتفضل هذا التعديل 

Public Sub GenrateRecords(ByRef FixedCode As Boolean)
Dim rec As Recordset, n As Byte
Set rec = CurrentDb.OpenRecordset("CodeGenerator", dbOpenDynaset, dbSeeChanges)
  With rec
    For n = txtQTY1 To txtQTY2
      .AddNew
        If Not FixedCode Then !Code = txtCode & n Else !Code = txtCode
        !DoorType = txtDoorType
        !Size = txtSize
        !Handing = txtHanding
        !HS = txtHS
        !QTY1 = txtQTY1
        !QTY2 = txtQTY2
      .Update
    Next
  End With
End Sub

وفى حالة ان الـ  Code ثابت 
استخدم الكود الاتى 

Call GenrateRecords(True)

وفى حالة ان الـ  Code متغير ويجمل الرقم التسلسلى
استخدم الكود الاتى 

Call GenrateRecords(False)

 

ايضا نفس النتيجه لا يعمل معي 

انا كنت ارفقت ملف للعمل عليه 

هل فى امكانك تنزيل الملف وتجرب عليه واذا اشتغل ارفعه لى بعد اذن حضرتك

[ابو جودي]

اتفضل المرفق بثلاث طرق

 

توليد سجلات.accdb

[عمر ضاحى]

17 دقائق مضت, ابو جودي said:

اتفضل المرفق بثلاث طرق

 

توليد سجلات.accdb 496 kB · 1 download

ما شاء الله تبارك الله 

بارك الله فيك استاذي الجليل ابو جودي

هل يمكنني على استحياء ان اطلب تعديل فى الكود 

اريد ان اجعل التسلسل txtQTY1 ايضا يكون متسلسل فى السجل لغرض ان 

اجعل الملصق متسلسل مثل 01/30  02/30   03/30  .... الخ 

[ابو جودي]

اى طريقة تريد التعديل عليها ؟

[عمر ضاحى]

5 دقائق مضت, ابو جودي said:

اى طريقة تريد التعديل عليها ؟

هل اقدر اطلب الثلاث طرق 

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

MyErfMsg = _
ChrW("1604") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & _
ChrW("1579") & ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("32") & ChrW("13") & ChrW("10") & ChrW("1575") & ChrW("1583") & _
ChrW("1582") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & _
ChrW("32") & ChrW("61") & ChrW("32") & ChrW("32") & ChrW("45") & ChrW("49") & ChrW("13") & ChrW("10") & ChrW("45") & ChrW("45") & _
ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & _
ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & _
ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("13") & _
ChrW("10") & ChrW("1604") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1603") & ChrW("1608") & ChrW("1583") & _
ChrW("32") & ChrW("1605") & ChrW("1578") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1608") & ChrW("1610") & _
ChrW("1581") & ChrW("1605") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & _
ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1587") & ChrW("1604") & ChrW("1587") & ChrW("1604") & ChrW("1609") & _
ChrW("13") & ChrW("10") & ChrW("1575") & ChrW("1583") & ChrW("1582") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & _
ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("61") & ChrW("32") & ChrW("32") & ChrW("48")


FixedCode = InputBox(MyErfMsg, "")

 

[ابو جودي]

اتفضل يا سيدى 

 

 

توليد سجلات(2).accdb

تم تعديل يناير 15, 2022 بواسطه ابو جودي

[عمر ضاحى]

52 دقائق مضت, ابو جودي said:

اتفضل يا سيدى 

 

 

توليد سجلات(2).accdb 508 kB · 1 download

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

وبعتذر لحضرتك انى فشلت فى توصيل الطلب صحيح 

يظهر انى لا اجيد توصيل المعلومه صحيح ( لك منى كل اعتزارى على تقصيري هذا)

ما كنت اريده هو العكس

[msm 911]

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

تحتاج حقول أضافية في الجدول 

المجموعه . مثلاً . A.B.C.D تحتاجه للفرز والتصفية في النموذج المستمر

حقل من نوع نعم لا . لتحديد البيانات المراد التعديل عليها و طباعتها 

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

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

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

وبالتوفيق 

 

 

 

[عمر ضاحى]

1 دقيقه مضت, msm 911 said:

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

تحتاج حقول أضافية في الجدول 

المجموعه . مثلاً . A.B.C.D تحتاجه للفرز والتصفية في النموذج المستمر

حقل من نوع نعم لا . لتحديد البيانات المراد التعديل عليها و طباعتها 

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

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

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

وبالتوفيق 

 

 

 

باشكرك اخى الكريم على مداخلتك وفكرتك الجميله 

بارك الله فيك 

[عمر ضاحى]

للرفع

[ابو جودي]

اتفضل 

توليد سجلات (3).accdb

[عمر ضاحى]

منذ ساعه, ابو جودي said:

اتفضل 

توليد سجلات (3).accdb 512 kB · 2 downloads

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

بارك الله فيك واطال الله بقائك وحفظك بحفظه من كل شر

[ابو جودي]

في ١٥‏/١‏/٢٠٢٢ at 08:08, عمر ضاحى said:

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

نعم 

قمت بعمل متغير باسم  MyErfMsg

وبعدين تقتح التطبيق الاتى اكتب به ما تريد كتابته باللغة العربية ثم قم بتحويله ونسخه واسناد ما تم نسخه الى المتغير 

 

Converter Arabic and Unicode (v. 3).accdb