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

[Tarekfathallah]

الرجاء المساعدة في ترقيم تلقائي في النموذج الفرعي istimarabasemsubform الحقل m بناء على حقل n_ istimara في نموذج الرئيسي basem 

اي اريد اذا وضعت في الحقل n_ istimara عدد ١٠ مثلا ان يفتح ١٠ ارقام تسلسلية من ١ الى ١٠ في النموذج الفرعي istimarabasemsubform الحقل m 

وشكرا 

1358524440_.rar

[ابوخليل]

هل تقصد ترقيم سجلات جديدة ؟

ام تريد اعادة ترقيم الموجود ؟

[Moosak]

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

Private Sub EnterBtn_Click()

Dim ID As String
Dim N, X As Integer
    
ID = Me.bar
N = Me.n_istimara.Value

    For X = 1 To N
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO istimaraALL ( bar, m, istimaracode ) SELECT '" & ID & "', " & X & " , 'istimaracode Here' ;"
        DoCmd.SetWarnings True
    Next X
Me.istimarabassemSubform.Requery

End Sub

ليعطيك النتيجة 🙂 :

وللعلم : أنت وضعت istimaracode كشرط أساسي (مطلوب) لإضافة السجلات بالأسفل ، لذلك يحتاج تعدلها في الكود وتضع القيمة التي تريدها في المكان المحدد هنا :

DoCmd.RunSQL "INSERT INTO istimaraALL ( bar, m, istimaracode ) SELECT '" & ID & "', " & X & " , 'istimaracode Here' ;"

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

المرفق :

 

1358524440_.rar

تم تعديل مارس 5, 2022 بواسطه Moosak

[Tarekfathallah]

شكرا لك اخي ولمرورك ساعمل على تجربته ولكن هل يمكن ان يكون الكود بدون زر اي بعد كتابة الرقم في حقل n_ istimara ان يسمع في الحقل m في النموذج الفرعي 

اريده تلقائي 

وشكرا لك 

[Tarekfathallah]

استاذنا الكبير والجليل ابي خليل ادامك الله 

نغم اريد ترقيم تلقائي اي عندما ادخل في حقل n_ istimara مثلا رقم ١٢ تلقائيا يفتح في النموذج الفرعي الحقل m ١٢ خانة او سطر مرقمين من ١ الى ١٢ وهكذا 

ولك فائق الشكر 

[Moosak]

منذ ساعه, Tarekfathallah said:

شكرا لك اخي ولمرورك ساعمل على تجربته ولكن هل يمكن ان يكون الكود بدون زر اي بعد كتابة الرقم في حقل n_ istimara ان يسمع في الحقل m في النموذج الفرعي 

اريده تلقائي 

وشكرا لك 

نعم أخي طارق ممكن ..

ضع الكود في حدث بعد التحديث للحقل الذي تريده .

[Tarekfathallah]

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

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

Private Sub EnterBtn_Click()

Dim ID As String
Dim N, X As Integer
    
ID = Me.bar
N = Me.n_istimara.Value

    For X = 1 To N
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO istimaraALL ( bar, m, istimaracode ) SELECT '" & ID & "', " & X & " , 'istimaracode Here' ;"
        DoCmd.SetWarnings True
    Next X
Me.istimarabassemSubform.Requery

End Sub

ليعطيك النتيجة 🙂 :

وللعلم : أنت وضعت istimaracode كشرط أساسي (مطلوب) لإضافة السجلات بالأسفل ، لذلك يحتاج تعدلها في الكود وتضع القيمة التي تريدها في المكان المحدد هنا :

DoCmd.RunSQL "INSERT INTO istimaraALL ( bar, m, istimaracode ) SELECT '" & ID & "', " & X & " , 'istimaracode Here' ;"

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

المرفق :

 

1358524440_.rar 1.89 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 25 downloads

شكرا لك اخي هذا هو المطلوب ادامك الله 

[Moosak]

3 ساعات مضت, Tarekfathallah said:

شكرا لك اخي هذا هو المطلوب ادامك الله

على الرحب والسعة أخي العزيز 🙂 

[Tarekfathallah]

ممكن لو سمحتم من الاخوة الافاضل ان تدلوني وين الخطأ في الفورمين  dawar و  dawarin_ out 

لانه لم استطع ان اطبق الكود عليهم 

TAREK NEW.accdb

[Moosak]

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

ممكن لو سمحتم من الاخوة الافاضل ان تدلوني وين الخطأ في الفورمين  dawar و  dawarin_ out 

لانه لم استطع ان اطبق الكود عليهم 

TAREK NEW.accdb 1.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

حدد الحقل الذي تريد الأمر أن يشتغل بعده .. ثم ضع الكود في حدث بعد التحديث لذلك الحقل .

[Moosak]

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

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

في 5‏/3‏/2022 at 13:48, Moosak said:

وللعلم : أنت وضعت istimaracode كشرط أساسي (مطلوب) لإضافة السجلات بالأسفل ، لذلك يحتاج تعدلها في الكود وتضع القيمة التي تريدها في المكان المحدد هنا :

 

[Tarekfathallah]

شكرا لك اخي ولكنني  لم افهم ما هو التعديل

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

لو سمحت لاعرف اين الخطأ 

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

الفورم dawar in_ out لا يعطيني ترقيم تلقائي ابدا 

اما الفورم dawar فيعطيني رسالة علامة بالاصفر على السطرme.istimradawar subform    ولم اعرف ما هي المشكلة 

[Moosak]

هنا أخي طارق :

 

DoCmd.RunSQL "INSERT INTO istimaraALL ( bar, m, istimaracode ) SELECT '" & ID & "', " & X & " , 'istimaracode Here' ;"

ما هي القيمة التي تريد وضعها ل istimaracode  ؟

كيف هي صيغة هذا الكود ؟

وكذلك هناك متغير مفقود يطلبه البرنامج وهو global_userid .. لذلك يوقف الكود عن العمل .. !

[Tarekfathallah]

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

مثلا A1-2022-10-0000001- E

وللكود سيتم تقسيمه نفوس و سنة و AAو ISTIMARAو A

 

[Moosak]

18 ساعات مضت, Tarekfathallah said:

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

مثلا A1-2022-10-0000001- E

وللكود سيتم تقسيمه نفوس و سنة و AAو ISTIMARAو A

 

حياك الله أخي طارق ..

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

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

تحتاج لدالة تضيف لك كود جديد كل مرة بهذه الصورة :

A1-2022-10-0000001- E

A1-2022-10-0000002- E

A1-2022-10-0000003- E

A1-2022-10-0000004- E

A1-2022-10-0000005- E

............. وهكذا 

 

هل هذه هي الطريقة التي تعملون بها ؟

[Tarekfathallah]

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

المشكل عندي بحاجة الى ترقيم تلقائي اي حجز الحقل m في النموذج الفرعي على اساس الحقل n_ istimara في النموذج الرئيسي 

وصحيح الحقل istimaracode فيه كود يمكن سقط سهوا مني يقسم الحقل الى عدة حقول كما ذكرت سابقا (نفوس و سنة و AA و istimara و A  ) 

ما انا بحاجة لح عند ادخال رقم في الحقل n_istimara ان يحجز لي بترقيم تلقائي في النموذج الفرعي الحقل m ارقام تسلسلية من ١ الى الرقم الذي كتبته وان تكون اكيد مغلقة للحقل m اي لا يتم تعديلها في الفورم والحقلistimaracode يكون التركيز عليه ليتم الادخال بممنة الباركود 

وشكرا لك وعفوا للاطالة ولكن ليتم فهم الفكرة 

[Tarekfathallah]

الاخوة والاساتذة الافاضل بحاجة الىمساعدة 

للرفع 

[Moosak]

في 9‏/3‏/2022 at 16:53, Tarekfathallah said:

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

المشكل عندي بحاجة الى ترقيم تلقائي اي حجز الحقل m في النموذج الفرعي على اساس الحقل n_ istimara في النموذج الرئيسي 

وصحيح الحقل istimaracode فيه كود يمكن سقط سهوا مني يقسم الحقل الى عدة حقول كما ذكرت سابقا (نفوس و سنة و AA و istimara و A  ) 

ما انا بحاجة لح عند ادخال رقم في الحقل n_istimara ان يحجز لي بترقيم تلقائي في النموذج الفرعي الحقل m ارقام تسلسلية من ١ الى الرقم الذي كتبته وان تكون اكيد مغلقة للحقل m اي لا يتم تعديلها في الفورم والحقلistimaracode يكون التركيز عليه ليتم الادخال بممنة الباركود 

وشكرا لك وعفوا للاطالة ولكن ليتم فهم الفكرة 

 

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

1- بعد أن تملأ الحقل n_istimara ( ولنفترض أنك أدخلت الرقم 3 ) ..

2 - سيقوم الكود بإضافة سجل جديد في النموذج الفرعي ، قيمة m = 1  ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود ..

3 - بعدها سينتقل الكود إلى سجل جديد ، ستكون قيمة m = 2  ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود من جديد ..

4 - بعدها سينتقل الكود إلى سجل جديد ، ستكون قيمة m = 3  ، بعدها سيقف الكود عند istimaracode لكي تعبيه بماكينة الباركود من جديد .. وتكتمل العملية .

 

هكذا في كل مرة ..

هل يناسبك العمل بهذه الصورة ؟

[Tarekfathallah]

تمام اخي لسعد الله صباحك وليكن الحقل n_ istimara في النموذج الرئيسي آخر حقل يتم ادخاله 

وهل يمكن في حال حصول خطأ اي زيادة رقم في الحقل n_ istimara ان يحدث في النموذج الفرعي 

وشكرا لك 

[Moosak]

وصباحك سعيد أخي طارق ،،

ليست هناك أي مشكلة مع الحقل n_ istimara بل مع الحقل  istimaracode  كما وضحت لك .

[Tarekfathallah]

اسعدك الله اخي يعني افهم من كلامك انه لا يمكن تنفيذ المطلوب صح 

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

[Moosak]

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

اسعدك الله اخي يعني افهم من كلامك انه لا يمكن تنفيذ المطلوب صح 

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

لا أستطيع أن أقول لايمكن تنفيذه  أخي طارق .. فلكل مشكلة حل .. 😉👌🏻

ولعل المبدعين في المنتدى لهم رأي في الموضوع .. 🙂

 

[Tarekfathallah]

اشكرك اخي الكريم 

نرجو من الاساتذة الافاضل اذا حدا يستطيع ان يعطينا حل 

ولكم فائق الشكر

[Tarekfathallah]

بجاجة الى مساعدة من الاساتذة 

للرفع