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

زيادة العدد بمقدار واحد _ ترقيم عبارة نصية


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

تجربة.accdbالسلام عليكم 

 بمقدار واحدnummاريد زيادة 

حيث ان العدد يتغير باستمرار

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

والازم من علامات ///  

وهي مطلوبه في العدد

ارجو المساعدة

وافر الاحترام 

تجربة.rar

 

يكون فيه اكثر من علامة /////////////nummوممكن العدد 

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

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

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

مثال ما وجه العلاقة او المعيار بين الارقام التالية

41/25
41/22/252
44/25/25/1

بمعني كيف تبدأ الارقام لديك ؟ وكيف تنتهي وبتدأ / جديد

هل بالشكل التالي

41/1 >>> 41/99
42/1 >>> 42/99


41/22/1 >>> 41/22/99
42/22/1 >>> 42/22/99

44/25/25/1 >>> 44/25/25/99
45/25/25/1 >>> 44/25/25/99

ام انك تريد زيادة على اخر رقم فقط

44/25/25/3 >>> 44/25/25/99

اشرح اكثر بارك الله فيك عن كيفية كتابة الرقم وطريقة الزيادة

تحياتي

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

أ/ محمد ابو عبدالله المحترم 

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

اريد من الزيادة في العدد كالاتي

ان المستخدم  لما يدخل علي نموذج الادخال 

دالة تجيب ليا اخر عدد وزيادة  واحد 

علي سبيل المثال 

اخر سجل في العدد 41/41/41/41

لما المستخدم يجي يعمل سجل جديد

داله او الكود 

41/41/41/42

في حالة سجل جديد

41/41/41/43

في حالة سجل جديد

41/41/41/44

وهكذاااااا

في حالة عمل سجل جديد

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

ممكن بعد فترة يغير العدد

يخلي العدد بهذا الشكل

52/45/456/1

في حالة سجل جديد

52/45/456/2

في حالة سجل جديد

52/45/456/3

وهكذا 

 شرط ممكن العدد يتغير في اي وقت

والعدد قابل لتغير بنفس الشكل

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

 

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

Private Sub AddOneNO_Click()
   On Error GoTo err_rec
    Dim rs As Recordset
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
    DoCmd.GoToRecord , , acNewRec
    numm = textNum & otuNum + 1
err_rec:
If Err.Number = 3021 Then
        MsgBox "يجب ادخال السجل الأول يدويا"
     Exit Sub
       End If
End Sub
Private Function otuNum()
Dim i As Integer
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "SELECT Max(CInt(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS maxNum FROM Table1"
Set rs = CurrentDb.OpenRecordset(strSQL)
i = rs!maxNum
rs.Close
Set rs = Nothing
otuNum = i
End Function
Private Function textNum()
Dim i As String
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "SELECT top 1 Left([numm],Len([numm])-Len(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS textfld " & _
"FROM Table1"
Set rs = CurrentDb.OpenRecordset(strSQL)
i = rs!textfld
rs.Close
Set rs = Nothing
textNum = i
End Function

مشاركة مع احبتي بطريقة اخرى

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

 

tjrobh.accdb

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

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

الاستاذ /ابوخليل المحترم

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

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

 

فقط اريد عندما يدخل في سجل جديد

ياتي بالعدد الاخير يقوم يزويد واحد

فقط عند الدخول في سجل جديد

دون الضغط علي زوار

نظر لان المستخدم يقوم بادخل اكتر من 300سجل في اليوم الواحد

فقط اريد حين يفتح سجل جديد يجلب العدد +1

دون اللجوء الي الضغط علي اي زوار 

مع ملاحظة يوجد خلل في الترقيم  حسب المرفق

اريد ان يعمل بالترتيب

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

حيث ان العدد قابل للتغير في اي وقت

لايخلو من العلامات /////////

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

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

 

 

 

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

علي سبيل المثال

المستخدم بدا بالعدد مثلا

41/42/25/13

يقوم لما يدخل علي سجل جديد

يجلب العدد ده

41/42/25/14

سجل جديد

41/42/25/15

وهكذا

........

يجي المستخدم في وقت يقوم يغير العدد

مثلا يعمل العدد

25/14/15

عند الدخول في سجل جديد عاوز يظهر له العدد +1

25/14/16

سجل جديد

25/14/17

وهكذا

......

العدددددد قابل للتغير ولا يخلو من وجود علامات الاش//////

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

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

ولكن طلبك الثاني : (( فقط عند الدخول في سجل جديد )) من دون ازرار

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

وحيث ان المستخدم سوف يكتب في السجل الحالي ثم ينقر انتر  او تاب للانتقال الى سجل جديد

فهنا لا يصلح ان نضع الكود عند حدث التركيز  على الترقيم التلقائي ولا التركيز على حقل رقمنا المصنوع ... لانه سوف يحدث مشاكل وسيتم العبث بالارقام

ولكن الاصلح والأتقن ان يكون هناك حقل يسبق حقل الترقيم ويكون الحدث بعد التحديث لهذا الحقل

tjrobh2.rar

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

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