القيمة السابقة +1

[مدحت توفيق]

 

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

رقم الوثيقة  =  القيمة السابقة  + 1

رقم الوثيقة  =  قابل لتغير في اي وقت

برجاء المساعدة

المرفق بالاسفل

 

وافر الاحترام والتقدير

شاكرين حسن تعاونكم معنا

k222 (1).rar

[أبوبسمله]

ممكن توضيح ل

6 ساعات مضت, سالم محمد said:

رقم الوثيقة  =  قابل لتغير في اي وقت

يعنى مثلا عندك رقم 41/20/995/4455 و 41/20/995/4456

يعن الاربع اقام 4455 و 4456 دول اللى هيتغيروا بزياده 1 ولا ايه اللى هيتغير

وضح اكتر حتى تجد الحل باذن الله

بالتوفيق اخى

[مدحت توفيق]

صح 

يعني مثلا  اخر  سجل في رقم   41/20/995/4456

عند فتح سجل جديد  يزود واحد

ليصبح 41/20/995/4457

رقم الوثيقة مش ثابت ممكن يتغير في اي وقت

بمعني استلمت عدد ٥٠٠ وثيقة بمسلسل معين

بعد فتره هستلم بسريال مختلف ويكون 41/20/995/34500 

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

رقم الوثيقه+١

رقم الوثيقة قابل للتغير 

 

[د.كاف يار]

تفضل التعديل اخي الكريم

 

و لإضافة رقم 1 على اخر وثيقة ضع في القيمة الافتراضية لحقل رقم الوثيقة 

="41/20/995/" & Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1

 

kkkkk1.accdb

تم تعديل سبتمبر 6, 2020 بواسطه د.كاف يار

[مدحت توفيق]

السيد  /  د.كاف يار       المحترم

تحيه طيبه وبعد

ارقام السريال مختلفه غير ثابته 

مثلا  ممكن  41/20/995

او   400/420/20

او    62/20/12

او  40/20/465

او 45/20/55

رقم الوثيقة يتغير باستمرار    مع  استلام وثائق بسريال جديد  ومختلف

ماالحل

[د.كاف يار]

من طريقة البرنامج و تعدد الشركاات بداخله استنتج بأنكم وسطاء تأمين 

أي أنك لا تستطيع الالتزام بترقيم تلقائي فكل شركة لها سياسة خاصة في ترقيم الوثائق

السنة/رقم الوكيف أو الوسيط / رقم المنطقة/ رقم الوثيقة

 

اذا عليك اضافة تقارير المبيعات الواردة من شركة التأمين دون تعديل 

[مدحت توفيق]

السيد  /  د.كاف يار     المحترم ،،،،

نعم هذا البرنامج يخص شركة وساطة

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

ممكن يكون نفس السريال  1000   او  2000   وباقي السريال ارقام مختلف 

فعاوز  بدل ما اقوم بادخل رقم الوثيقه في كل مره  

اني ادخل اول رقم في السريال الجديد يقوم البرنامج باضافة  +1   عند فتح  سجل جديد

[د.كاف يار]

تفضل

سيتم اضافة عدد 1 لرقم الوثيقة حتى لو اختلف السيريال

ضع هذا في عنصر التحكم ( مربع نص ) في النموذج

Replace(DLast("[رقم الوثيقة]";"[ضد الغير]");Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11);Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1)

 

[مدحت توفيق]

السيد /  حسين كمال المحترم 

لا استطيع ذلك  حولت اكثر من مره  لتفيذ ذلك الكود لم استطيع

برجاء المساعدة

Replace(DLast("[رقم الوثيقة]";"[ضد الغير]");Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11);Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1)

xx.rar

[د.كاف يار]

تفضل لكن لو تقرأ المعادلة ستجد أنك ملزم بتنسيق معين لأرقام الوثائق

xx.accdb

[مدحت توفيق]

السيد / حسين كمال  المحترم

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

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

في نفس وقت الشركة تقوم بتغير السريال من الحين والاخر 

المطلوب ان مدخل البيانات  حين يفتح   النموذج   ( تكون في معادلة تجلب له اخر رقم وثيقة ) وتضيف +1  بحيث يسهل تغير الوثيقة في اي وقت

علما بانه هناك تقسيم لشركات  (  20 جدول  )

الفكره  اريد النموذج يفتح  رقم الوثيقة زيادة  + 1 

ورقم الوثيقة  ممكن اغيره  في وقت

وافر الاحترام والتقدير

 

[أبوبسمله]

السلام عليكم

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

فى حالة انك بترك رقم الوثيقه فارغ سيتم جلب اخر سجل تم تسجيله وزياده +1

اما اذا قمت بكتابه رقم وثيقه جديد اى فى حاله التغيير سيتم تسجيله

ثم بعد ذلك يتم  جلب اخر سجل تم تسجيله وزياده +1

جرب ووافنا بالنتيجه

Private Sub nameTamin_AfterUpdate()
If Len(numW & "") = 0 Then
    lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0)
    strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1
    strT = Left(lR, InStrRev(lR, "/"))
    Me.numW = strT & strRnum
Else
    Me.numW = Me.numW
End If
End Sub

بالتوفيق ان شاء الله

k222 - 1.accdb

[مدحت توفيق]

السيد /  الفلاحجى المحترم

تحيه طيبه وبعد

بخصوص الكود  تم نجاحه  

فقط اريد اظهار  الارقام الوثيقة بدل من الفارغ

برجاء المساعدة في ذلك 

الف شكر علي الكود

وافر الاحترام والتقدير

 

تم تعديل سبتمبر 7, 2020 بواسطه سالم محمد

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

والشكر موصول لاخى واستاذى حسين @د.كاف يار جزاه الله خيرا 💐

اتفضل ان شاء الله يكون ما تريد

Option Compare Database
'Option Explicit

Private Sub btnSave_Click()
    DoCmd.GoToRecord , , acNewRec
    LastNum
End Sub

Private Sub Form_Load()
    LastNum
End Sub

Private Sub LastNum()

    lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0)
    strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1
    strT = Left(lR, InStrRev(lR, "/"))
    Me.numW = strT & strRnum
    
End Sub

 بالتوفيق

k222 - 1.accdb

[مدحت توفيق]

السيد/ الفلاحجى المحترم 

السيد / د.كاف يار المحترم

شكر لكم علي المساعده

وافر الاحترام والتقدير

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