اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعدة في ترقيم تلقائي بشرط


Tarekfathallah

الردود الموصى بها

ارجو المساعدة في قاعدة البيانات المرفقة لدي جداول مرتبطة وبحاجة الى ترقيم تلقائي بشرط في جدول مختار طلب اول كل 5 اسطر على حدة تاخذ رقم (11111- 22222- 33333- ..... وهكذا )

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

 

1.rar

رابط هذا التعليق
شارك

وعليكم السلام

الاخوة هنا لا يتوانون عن المبادرة بالمساعدة ... ولكن

طلبك غير واضح تماما

والمرفق يشتمل على جداول فقط

والترقيم  اين يتم ؟ هل هو من خلال الفورم ام الاستعلا م

لابد من زيادة الايضاح والشرح وتسمية الجدول والحقل  المراد التعديل عليه  

وارفاق مثال مختصر يفي بالغرض ويشتمل على الكائنات الضرورية فقط

  • Like 2
رابط هذا التعليق
شارك

اخي ابو خليل شكرا لك وسلام عليك وعلى الاخوة في جدول مختار طلب اول بحاجة الى ترقيم تلقائي في عمود رقم الظرف بشرط كل 5 اسطر يزداد رقم اي على الشكل (11111- 22222- 33333 وهكذا ) وهل بالامكان ان اجعل رقم الصفحة في نفس الجدول تاخذ رقم متسلسل لكل يوم عمل و لك جزيل الشكر اخ ابو خليل

رابط هذا التعليق
شارك

اخ طارق

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

الآن هناك استفسارات :

1. هل لديك خلفية بسيطة عن الاكسس ؟ هل لديك معلومات عن الجداول والاستعلامات والنماذج والتقارير ؟

2. كيف تريد ادخال البيانات : تفتح الجدول ام عن طريق انشاء شاشة ( نموذج ) لادخال البيانات ؟

 

تحياتي

رابط هذا التعليق
شارك

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

ملاحظة اخي انا كل يوم عند الانتهاء من هذا العمل على الصفحات سأقوم بنقل البيانات الى التابل الرئيسي وهو IrselyehTable

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

 

1.rar

تم تعديل بواسطه tarek_f26180
رابط هذا التعليق
شارك

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

الآن : كيف ستنقل البيانات الى الجدول الرئيسي ! مثلا نسخ ولصق ! لانه شايف فيه اختلاف في الحقول ومسمياتها !

واذا كنت تريد طلبك فقط ومالنا شغل في اي شي ثاني : ارفق مرفقا به نموذج بسيط للتطبيق عليه وكما طلبت : كل خمس سجلات تاخذ رقم جديد وبتنسيق 00000!

بالتوفيق

رابط هذا التعليق
شارك

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

الآن : كيف ستنقل البيانات الى الجدول الرئيسي ! مثلا نسخ ولصق ! لانه شايف فيه اختلاف في الحقول ومسمياتها !

واذا كنت تريد طلبك فقط ومالنا شغل في اي شي ثاني : ارفق مرفقا به نموذج بسيط للتطبيق عليه وكما طلبت : كل خمس سجلات تاخذ رقم جديد وبتنسيق 00000!

بالتوفيق

رابط هذا التعليق
شارك

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

الآن : كيف ستنقل البيانات الى الجدول الرئيسي ! مثلا نسخ ولصق ! لانه شايف فيه اختلاف في الحقول ومسمياتها !

واذا كنت تريد طلبك فقط ومالنا شغل في اي شي ثاني : ارفق مرفقا به نموذج بسيط للتطبيق عليه وكما طلبت : كل خمس سجلات تاخذ رقم جديد وبتنسيق 00000!

بال

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

حسن عنيسي اكسيس.rar

رابط هذا التعليق
شارك

الآن اخ طارق :

1. لو تم وضع الترقيم من خلال النموذج واثناء ادخال البيانات وحسب طلبك كل 5 سجلات ياخذ رقما جديدا وهكذا :  لو تم حذف سجل من السجلات السابقة كيف تريد ان يصبح الترقيم .. هل يترك كما هو ام يعاد الترقيم تلقائي وكل 5 سجلات ؟؟

2. هل هذا الترقيم سيكون مرجعا للسجل اي لابد من الاحتفاظ به ام ممكن ان يكون فقط في التقرير !

 

بالتوفيق

رابط هذا التعليق
شارك

استاذنك اخى رمهان فى المشاركة معك

اخى الكريم لم يتسنى لى تنزيل المرفقات لعزرا خارج ارادتى

 

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

'فرضنا متغير من نوع رقم
Dim m As Integer
'ثم قلنا بان هذا المتغير يساوى مجموع السجلات مقسوما على 5 
'ثم استعملنا دالة من الدوال الرياضية ليعطينى ناتج القسمة عددا صحيحا ثابتا 
m = Int(DCount("[id]", "tb1") / 5)
'ثم قلنا اذا كان ناتج القسمة اقل من واحد فاجعل مربع نص الترقيم = 1 
' ولن يكون ناتج القسمة اقل من 1الا اذا كان القسمة من 1 الى 5 

If [m] < 1 Then
Me.id = 1
'ثم اذا قلنا اذا كان ناتج القسمة = 1 فاجعل مربع نص الترقيم = 2 
' ولن يكون ناتج القسمة = 1 الا اذا قسمنا ال 5 على نفسها 
ElseIf [m] = 1 Then
Me.id = 2
'ثم اذا كان ناتج القسمة اكبر من او يساوى 1 
ElseIf [m] >= 1 Then
'فاجعل الترقيم يكون حاصل القسمة عددا صحيحا مضافا له 1 ليبدأ الترقيم 
Me.id = Int(m) + 1

End If

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

ويمكنك وضع هذا الكود فى حدث بعد التحديث لمربع نص اخر مثلا

 

تحياتى

  • Like 1
رابط هذا التعليق
شارك

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

اخي طارق : انظر المرفق وهناك زر امر لماتريد !

تنبيه : 1. تم وضع التسلسل مفتاح اساسي

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

        3. انصحك بالادخال عن طريق النموذج المنقسم الاسفل فهو اسرع للادخال

Private Sub comd_Click()
'رمهان
'اوفيسنا
DoCmd.GoToRecord , , acFirst
xn = 1
For i = 1 To Me.RecordsetClone.RecordCount Step 5
For ii = 1 To 5
If CurrentRecord = Me.RecordsetClone.RecordCount Then: Me.رقم_الظرف = xn: Exit Sub
Me.رقم_الظرف = xn
DoCmd.GoToRecord , , acNext
Next ii
xn = xn + 1
Next i
End Sub

بالتوفيق

1.rar

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

أخ رمهان شكرا لك على المساعدة انهيت ما اريده ولكن عذرا اريد منك مساعدتي في هذه المشكلة بحاجة الى جردة شهرية من 01/06/2015

وحتى 30/06/2015 مجموع طلب اول ومجموع تجديد ومجموع بدل ضائع ومجموع المرتجع و سأرفق لك القاعدة الجديدة

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

1new.rar

تم تعديل بواسطه tarek_f26180
رابط هذا التعليق
شارك

الاخ السائل الكريم

من قواعد المشاركة  جعل كل سؤال في موضوع منفرد يخصه

افتح بـ سؤالك الجديد  موضوعا جديدا  وعنوانا مناسبا

 

وفقك الله

رابط هذا التعليق
شارك

اخ طارق 

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

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

تحياتي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information