أسئلة بسيطةعن الأمان وعن العمليات الحسابية في آكسس

السلام عليكم، :)

مازلت في انتظار الرد أخوتي الكرام

:(

هنا سؤالي الثاني:

لدي جدولان Milk و Tea

أريد التالي:

1- رقم متسلسل تلقائي auto number يظهر في كل من الجدولين ولا يتكرر، يعني لو الحقل في جدول Milk اخذ الرقم 5، الحقل في جدول tea يأخذ 6

يعني رقم تلقائي عادي لكن المعضلة اني اريده مشتركا بين الجدولين يعني.

جربت عمل جدول ثالث فيه رقم متسلسل تلقائي وربطته بكلا الجدولين وطبعا لم ينفع ويظهر لي قائمة اختار منها، أنا لا أريد أن أختار، أريده أن يظهر بشكل تلقائي لوحده دون عناء مني واختيار. (كسل B) )

2- هل يوجد طريقة لجعل ال auto number لا يبدا من 1

يعني اريد أن يبدأ من 3000 مثلا. كيف؟

بانتظار الرد وأرجو أن لا تردوني فأسئلتي سهلة جدا مقارنة بعلمكم

وبارك الله فيكم :)

وعليكم السلام أختي ،

حل السؤال الأول سهل جدا إن شاء الله :)

اضغطي بالزر الايمن في ال query اختاري Total من القائمة التي ستظهر لك

سيظهر لك حقل إضافي في الاستعلام اسمه total

اختاري منه sum

وآخر خطوة أدعي لي :D

لكن السؤال الأول فعلا محيّر :blink: :s

أنا أيضا أريد أن أعرف الإجابة

:unsure:

كل الشكر أخي leitmotive

طبقت ما شرحته لي ونجح نجاحا تاما :D

بارك الله فيك.

ما زلت في انتظار الاجابة على سؤالي الثاني لأن لدي سؤالا ثالثا أيضا.

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

الأخوة الكرام

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

ترقيم تلقائى بدون مشاكل

/index.php?showtopic=72768

وكنت منتظر الرد والتعليق عليها لتعم الفائدة, ولكن لم اتلقى الا تعليقين من الاخوة بالمنتدى يشيدون بالكود وسهولته والمشاكل التى يحلها مقارنة بالترقيم التلقائى.

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

وسأرفق مثالا للرد على سؤالك اتمنى ينفعك.

وشكرا,,

اخوكم/ عماد حمدى احمد

Tea_Milk.rar

عمل رائع بسيط و مفيد. شكرا لك

أخي عماد حمدي أحمد المحترم

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

فليجزك الله كل خير، فعلا عمل رائع :)

وشكرا لوضع المثال.

لكن سؤال واعذر لي جهلي:

1- هل ممكن أن تعطيني كود الدالة وتخبرني أين أضعها بالضبط في القاعدة التي لدي؟

يعني القاعدة التي بعثتها لي هي عز المطلوب، لكن لم أهتد إلى مكان الدالة، هل هي في الجداول؟ كيف اصل لها وأين أضعها؟

2- كيف أجعل الترقيم يبدأ من رقم معين؟ يعني يبدأ من 300 مثلا؟

شكرا جزيلا :D

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

الاخت الكريمة Ducklet Cat

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

اما بالنسبة لموضوع الترقيم فسوف اشرحه هنا وامل الا يمل القارئ من كلامى

بالنسبة لبرنامجك Milk_Tea انا عملت جدولين منفصلين Milk و Tea وبكل منهم حقلين فقط

Milk به

MilkNum وهو الرقم المعرف ونوعه رقم(الذىيتولد بداخله الارقام اليا باستخدام الكود)

Name وهو حقل الاسم ونوعه نص(وطبعايمكن تغييرة)

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

Tea تقريبا نفس Milk ووضعت TeaNum بدلا من MilkNum

ثم انشأت نموذجين على الجدولين وبنفس الاسماء. الى الان لا جديد. ساشرح النموذج Milk ومثله تماما Tea.

المفروض عند فتح النموذج يظهر للمستخدم حقلى الرقم والاسم, على حقل الاسم وضعت حدث عند التركيز

(من خصائص الحقل اختار حدث ثم عند التركيز ثم اختار جملة [اجراء جدث] ثم اضغط على الثلاث نقاط على اليسار ...), وبدخل هذا الحدث وضعت الكود التالى

Private Sub Name_GotFocus()
If Nz(DMax("[MilkNum]", "[Milk]")) > Nz(DMax("[TeaNum]", "[Tea]")) Then
MilkNum.DefaultValue = Nz(DMax("[MilkNum]", "[Milk]")) + 1
Else
MilkNum.DefaultValue = Nz(DMax("[TeaNum]", "[Tea]")) + 1
End If
End Sub

ونشرح الكود خطوة خطوة(ما تزهقوش منى طبيعة عملى فى الجامعة الشرح والشرح والشرح...)

اول خطوة

If Nz(DMax("[MilkNum]", "[Milk]")) > Nz(DMax("[TeaNum]", "[Tea]")) Then

هى جملة شرطية استفسر منها هل اخر رقم تم تخزينه كان فى جدول Milk ام فى جدول Tea؟

وطبعا اخر رقم هو الاكبر بالتاكيد,فاذا كان اكبر رقم فى Milke سيكون الرقم الجديد هو نفسه مضافا اليه واحد(1)

MilkNum.DefaultValue = Nz(DMax("[MilkNum]", "[Milk]")) + 1

وان لم يكن فان اخر واكبر رقم سيكون فى Tea وايضا يكون الرقم الجديد هو نفسه مضافا واحد(1)

Else
MilkNum.DefaultValue = Nz(DMax("[TeaNum]", "[Tea]")) + 1
End If

وهذا كل ما فى الامر (بس). وطبعا نفس الكود ونفس الشروط وضعتها فى نموذج Tea مع تغيير بسيط

TeaNum.DefaultValue بدلا من MilkNum.DefaultValue

ملاحظات هامة

1-الدالة Nz هى دالة تعيد القيمة العددية لتعبير معين واذا كان فارغ تعيد القيمة صفر

2- الدالة DMax هى من الدوال التجميعية (اى تعمل على مجموعة من السجلات داخل جدول او استعلام وذلك لحقل بعينه) فائدتها الرجوع باكبر قيمة للحقل المراد داخل الجدول المحدد ويمكن كذلك وضع شروط ومعايير عليها, والمزيد من المعلومات تجدها داخل مساعدة اوفيس.

3- التعبير MilkNum.DefaultValue يعنى القيمة الافتراضية للحقل MilkNum وهى تعنى القيمة التى سيختارها البرنامج اليا لو لم تتدخل انت يدويا فى تحديدها.

4- يمكن استبدال الدالة DMax باى دالة من الدوال التجميعية الاخرى مثل ( DMin او DSum,....) كل حسب احتياجاته ومتطلبات برنامجه.

5- مقدار الاضافة (الزيادة) فى الاعداد يمكن تغييرها لاى رقم تحب بمعنى اننى جعلت الكود فى كل مرة يزيد1 لكن طبعا ممكن نجعل الكود يزيد 2 او 3 فى كل مرة حسب الحاجة لذلك, كما انه يمكن جعله ينقص بمقدار معين -1 مثلا (طبعا مع الدالة DMax) وهذا كله طبعا حسب رغبات صاحب البرنامج

6- اذا كان الجدول يحتوى على اكثر من حقلين يستحسن اضافة الكود لكل حقل فى خانة حدث عند التركيز كما شرحنا, وذلك لتسمح لمدخل البيانات بالبدأ باى حقل يحب.

7- بالنسبة لرقم البدأ اى يبدأ برقم 300 مثلا, هناك طرق كثيرة,ممكن التحكم بذلك داخل الكود نفسه وذلك بوضع شرط انه لوكانت هذه اول قيمة ضع MilkNum.DefaultValue = 300 . ولكن هذا سيزيد خطوات غير مجديه فى الكود. ولكنى ارى ان افضل وابسط طريقة لعمل ذلك هو ان تكتب بنفسك يدويا (وهذه من اهم مميزات هذا الكود وهوالتدخل اليدوى وقت اللزوم) اول رقم فى النموذج يساوى 300 ( طبعا الكود هيكون كاتبه 1).

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

وشكرا,,

اقتباس

كما انه يمكن جعله ينقص بمقدار معين -1 مثلا (طبعا مع الدالة DMax) وهذا كله طبعا حسب رغبات صاحب البرنامج

اسف.

كما انه يمكن جعله ينقص بمقدار معين -1 مثلا (طبعا مع الدالة DMin) وهذا كله طبعا حسب رغبات صاحب البرنامج

بارك الله فيك أستاذنا على هذا الشرح التفصيلي :)

جميل لأن يفم الواحد الكود الذي يضعه

هل أثقل عليك لو طلبت منك الكود مكتوبة به جملة تجعل الترقيم يبدأ من 3000؟

لاني لا اعرف كيف واين اضعها :(

وشكرا :)

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

الاخت الكريمة

هذا هو الكود الذى تضعينه فى حدث نموذج Milk

Private Sub Name_GotFocus()
If Nz(DMax("[TeaNum]", "[Tea]")) = 0 And Nz(DMax("[MilkNum]", "[Milk]")) = 0 Then
MilkNum.DefaultValue = 3000
ElseIf Nz(DMax("[MilkNum]", "[Milk]")) > Nz(DMax("[TeaNum]", "[Tea]")) Then
MilkNum.DefaultValue = Nz(DMax("[MilkNum]", "[Milk]")) + 1
Else
MilkNum.DefaultValue = Nz(DMax("[TeaNum]", "[Tea]")) + 1
End If
End Sub

ومثله الكود الذى تضعينه فى نموذج Tea

Private Sub Name_GotFocus()
If Nz(DMax("[TeaNum]", "[Tea]")) = 0 And Nz(DMax("[MilkNum]", "[Milk]")) = 0 Then
TeaNum.DefaultValue = 3000
ElseIf Nz(DMax("[MilkNum]", "[Milk]")) > Nz(DMax("[TeaNum]", "[Tea]")) Then
TeaNum.DefaultValue = Nz(DMax("[MilkNum]", "[Milk]")) + 1
Else
TeaNum.DefaultValue = Nz(DMax("[TeaNum]", "[Tea]")) + 1
End If
End Sub

وعندها سيبدا الترقيم من 3000 (وبالطبع يمكنك تغيير الرقم 3000 لاى رقم تفضلى)

وربنا يوفقك, وانا موجود ومستعد لاى خدمة.

وشكرا,,

Tea_Milk.rar

السلام عليكم

أسهل انبهاري بكل ما أراه يا أستاذنا الغالي

بارك الله فيك :D

سؤال :rolleyes:

اريد استعمال نفس كود الاخت duckletcat

لو كنت أريد إضافة سابقة للرقم

يعني الرقم يكون اوله

ARAB بشكل تلقائي دون أن يكون يضطر المستخدم أن يكتبه

يعني اول رقم

ARAB3000

ARAB3001

ودواليك

لك فائق الود B)

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

الاخ الكريم leitmotive

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

اولا لابد ان تفرق بين اضافة لاحقة داخل نموذج الادخال فقط (اى تظهر لمدخل البيانات اللاحقة وهو يكتب ولكن عند تخزينها فى الجدول يتم تخزين الرقم فقط بدون لاحقة)

واضافة لاحقة داخل الجدول نفسه (اى مدخل البيانات يدخل الرقم فقط ويتم تخزين الرقم مضافا اليه اللاحقة اوتوماتيك داخل الجدول)

وفى كلا الحالتين هى نفس الاضافة ونفس الطريقة

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

"ARAB"&&&&

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

وطبعا يمكن اضافة اللاحقة فى الجدول والنموذج معا.

ملاحظات:

1- اللاحقة يمكن ان تضاف لاى حقل وليست حكرا على الترقيم التلقائى وذلك للتسهيل على المستخدم

2- الكلمة بين علامتى الاقتباس "ARAB" هى الكلمة التى ستتكرر دائما وطبعا يمكن تغييرها لاى صورة تحب

3- العلامة & تعنى ادخال الرقم (ما يدخله المستخدم) ونلاحظ هنا ان كل علامة بديل عن خانة (اى 300 مثلا تتكون من 3 خانات يبقى محتاج 3 علامات وهكذا)

4- للمزيد من المعلومات عن خاصية قناع الادخال يمكن البحث داخل الاوفيس تحت اسم (قناع).

وشكرا,,

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

الاخ الكريم leitmotive بارك الله فيك وانا لم افعل ما يستحق كلامك الرقيق هذا.

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

اولا لابد ان تفرق بين اضافة لاحقة داخل نموذج الادخال فقط (اى تظهر لمدخل البيانات اللاحقة وهو يكتب ولكن عند تخزينها فى الجدول يتم تخزين الرقم فقط بدون لاحقة)

واضافة لاحقة داخل الجدول نفسه (اى مدخل البيانات يدخل الرقم فقط ويتم تخزين الرقم مضافا اليه اللاحقة اوتوماتيك داخل الجدول)

وفى كلا الحالتين هى نفس الاضافة ونفس الطريقة

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

"ARAB"&&&&

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

وطبعا يمكن اضافة اللاحقة فى الجدول والنموذج معا.

ملاحظات:

1- اللاحقة يمكن ان تضاف لاى حقل وليست حكرا على الترقيم التلقائى وذلك للتسهيل على المستخدم

2- الكلمة بين علامتى الاقتباس "ARAB" هى الكلمة التى ستتكرر دائما وطبعا يمكن تغييرها لاى صورة تحب

3- العلامة & تعنى ادخال الرقم (ما يدخله المستخدم) ونلاحظ هنا ان كل علامة بديل عن خانة (اى 300 مثلا تتكون من 3 خانات يبقى محتاج 3 علامات وهكذا)

4- للمزيد من المعلومات عن خاصية قناع الادخال يمكن البحث داخل الاوفيس تحت اسم (قناع).

وشكرا,,

Tea_Milk.rar

السلام عليكم

طبقتها يا أستاذي وكله تمام :D

بارك الله فيك على هذا الشرح الوافي والمثال الشافي

أستاذي لدي مشكلة صغيرة

في قاعدتي article و book سيكون حقل الترقيم مشتركا بينهما كما فعلنا مع team و Milk

لكن لدي مشكلة في كل جدول على حده

حاولت ادخال معلومات في فورمة article مثلا ثم ضغطتعلى * لإنشاء تسجيلة جديدة سيتغير الرقم من 3000 إلى 3001 وكله تمام

لكل لو ضغطت على السهم (وأنا غالبا استخدم هذه الطريقة لإدخلا حقل جديد) فقط تعوّدت عليها وكذلك الموظفون فإن الرقم يظل 3000 كما هو و بالتالي يصبح الحقل مكررا :(

هل من حل لهذه الطريقة أن أن على تدريب أصابعي على استعمال الزر ذي النجمة بدل من استخدام الزر ذي السهم :)

لكل كل الشكر

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

الاخ الكريم leitmotive اعزك الله.

بالنسبة لموضوع الترقيم الالى. رغم انى مش عارف بالضبط ماذا تقصد ب * وب السهم (هل تقصد العلامات الموجودة اسفل النموذج عند عدد السجلات ام العلامات الموجودة فى اعلى النموذج على القوائم الرئيسية؟) عامة مش هتفرق كتير.

الفكرة كلها اخى الكريم ان الكود الذي يقوم بتوليد الارقام اليا يعتمد فى تنفيذة على حدث معين فى الحقل الذى سوف تبدأ الكتابة فيه مثل حدث (قبل التحديث) او (بعد التحديث) وهكذا ولكننى وجدت ان انسب حدث لتوليد الكود هو حدث (عند التركيز) اى اول ما ينتقل المؤشر من السجل القديم الى السجل الجديد (وطبعا هذه وجهة نظرى وهى ليست ملزمة لك او لاحد ولكن بالتجربة وجدت انها الانسب).

وهنا اخى الكريم لنا وقفة, فكما قلنا توليد الرقم الجديد اليا سيتم بمجرد نقل التركيز الى الحقل الذى سأبدأ الكتابة فيه (لاحظ لانه مهم). ففى المثال السابق Milk_Tea كان المثال للتوضيح فوضعت به حقلان فقط, الاول الرقم المولد اليا والحقل الثانى حقل Name والذى سأكتب فيه ولذلك جعلت خاصية توليد الرقم اليا مركبة على حقل Name عند التركيز.

ولكن لنفرض اننا لدينا اكثر من حقلين مثلا اضفنا حقل Telphone عندها اذا كنت دائما ستبدأ الكتابة فى السجل الجديد فى الحقل Name فلن نغير الكود. اما لو كان ملأ السجل عشوائى ستبدأ باى من Name او Telephone ستضطر ان تضيف كود مماثل بالضبط للكود المركب على حدث عند التركيز للحقل Name ولكن هذه المرة يضاف على الحقل Telephone.

الخلاصة اخى فى الله, باى طريقة (* او السهم او الماوس او Tab) وبأى ترتيب تريد عليك تحديد اول حقل سيسقط فيه المؤشر عند نقل التركيز للسجل الجديد وتركب كود توليد الارقام عليه. وان كنت شخصيا افضل وضع كود لجميع حقول السجل (بما فيها حقل الرقم كمان) وذلك لتعطى سماحية اعلى للمستخدم بحيث يبدا فى السجل الجديد باى حقل وباى ترتيب.

اتمنى اكون وضحتلك الفكرة وبالتوفيق بعون الله.

(وعلى فكرة برنامج Milk_Tea يقوم بتوليد الكود بشكل سليم تحت اى طريقة للانتفال للسجل الجديد).

وشكرا

اخي عماد حمدي احمد

استاذ بمعنى الكلمه ورائع وفوق العاده ما شاء الله شرح مرتب ومعلومات وافيه واحمد الله انه لم يخيب ضني عند اختيارك كخبير وعقبال إن شاء الله الاشراف

اختكم

زهره

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

شرح ومعلومات تشكر عليها...

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

ليس عندي شئ أقوله سوى الدعاء لك بأن يعطيك الله حتى ترضى وتحب.

بوركت :)

الأخ الكريم أستاذ عماد حمدى

السلام عليكم ورحمة الله وبركاته وبعد أدعوا الله سبحانه وتعالى بأن يجزيك خير الجزاء على إهتمامك بالرد والصبر على إخوانك بالمنتدى المبارك وأعضائه الكرام وبعد أخى الكريم فى الموضوع الخاص بالترقيم أشرت إلى الدروس التى قدمها عملاق قواعد البيانات مستر إنترنت والتى أوصى فيها بعدم جعل خاصية الكود ترقيم تلقائى واوصى أيضا بأن يكون تكويد الحسابات نصى وليس رقم وأنا فى عملى إلتزمت بقواعده ولقد عملت على برنامج منذ مدة طويلة مصمم بالفوكس بيز وأيضا برنامج آخر بالأكسيس وكان ترميز أكواد الحسابات وكذلك المستندات فى اليومية يبدأ بالصفر وعند إدخال حساب جديد فى اى مستوى كان يضيف رقم تلقائى مع ان خاصية الحقل text وليس Number أتمنى أن أجد حل لهذه المسألة مع خالص دعائى لك وللجميع بالتوفيق والرشاد

أخوك إبراهيم _اسكندرية

الأخ الحبيب عماد أدعوا الله سبحانه وتعالى لك بدوام التوفيق

تعقيبا على ترقيم آلى بدون مشاكل فهو بحق أكثر من ممتاز وقمت بمحاولة أن أجعل حقل الرقم نص وليس رقم وكانت نفس النتيجة توليد رقم جديد ولكن بقيت مشكلة أن يبدأ الرقم بصفى على اليسار وذلك لكى استخدم هذه الطريقة فى ترميز الحسابات (دليل أو شجرة الحسابات ) ولكن الرقم الجديد يتجاهل الصفر المتواجد على يسار الرقم وجربت أن يتم وضع الصفر كلاحقة للرقم مثل "01"&&&& ولكنها لم تفلح أيضا فهل أجد عندك حل لهذه المعضلة ولك ولجميع إخوانى بالمنتدى كل الشكر والدعاء

اخوك

إبراهيم

اتمنى ان أجد حل للمشكلة السابق ذكرها

اتمنى ان أجد حل للمشكلة السابق ذكرها

الأخ الفاضل ...

هناك موضوع بعنوان ترقيم تلقائى مسلسل واحد عبر عدة جداول فى قواعد بيانات مختلفة: /index.ph...16&t=118581

شكراً