اسلام محمد22 قام بنشر سبتمبر 28, 2021 قام بنشر سبتمبر 28, 2021 (معدل) تجربة.accdbالسلام عليكم بمقدار واحدnummاريد زيادة حيث ان العدد يتغير باستمرار اي ان العدد مو ثابت يتغير والازم من علامات /// وهي مطلوبه في العدد ارجو المساعدة وافر الاحترام تجربة.rar يكون فيه اكثر من علامة /////////////nummوممكن العدد تم تعديل سبتمبر 28, 2021 بواسطه اسلام محمد22
اسلام محمد22 قام بنشر سبتمبر 28, 2021 الكاتب قام بنشر سبتمبر 28, 2021 يجيب اخر عدد في السجل الاخير ويزيد عليه واحد
محمد أبوعبدالله قام بنشر سبتمبر 29, 2021 قام بنشر سبتمبر 29, 2021 وعليكم السلام ورحمة الله وبركاته حاولت ايجاد علاقة او فهم طريقة كتابة الارقام فلم استطع مثال ما وجه العلاقة او المعيار بين الارقام التالية 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 اشرح اكثر بارك الله فيك عن كيفية كتابة الرقم وطريقة الزيادة تحياتي 1
اسلام محمد22 قام بنشر سبتمبر 29, 2021 الكاتب قام بنشر سبتمبر 29, 2021 أ/ محمد ابو عبدالله المحترم تحيه طيبه وبعد اريد من الزيادة في العدد كالاتي ان المستخدم لما يدخل علي نموذج الادخال دالة تجيب ليا اخر عدد وزيادة واحد علي سبيل المثال اخر سجل في العدد 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 وهكذا شرط ممكن العدد يتغير في اي وقت والعدد قابل لتغير بنفس الشكل وافر الاحترام والتقدير
ابوخليل قام بنشر سبتمبر 30, 2021 قام بنشر سبتمبر 30, 2021 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 1
اسلام محمد22 قام بنشر سبتمبر 30, 2021 الكاتب قام بنشر سبتمبر 30, 2021 الاستاذ / د.كاف يار المحترم الاستاذ /ابوخليل المحترم تحيه طيبه وبعد نعم هذا هو المطلوب ولكن يوجد خلل في الترقيم المسلسل فقط اريد عندما يدخل في سجل جديد ياتي بالعدد الاخير يقوم يزويد واحد فقط عند الدخول في سجل جديد دون الضغط علي زوار نظر لان المستخدم يقوم بادخل اكتر من 300سجل في اليوم الواحد فقط اريد حين يفتح سجل جديد يجلب العدد +1 دون اللجوء الي الضغط علي اي زوار مع ملاحظة يوجد خلل في الترقيم حسب المرفق اريد ان يعمل بالترتيب حين اريد تغير العدد ينسي العدد السابق ويدخل في العدد الجديد الذي يريده المستخدم حيث ان العدد قابل للتغير في اي وقت لايخلو من العلامات ///////// وافر الاحترام والتقدير شاكرين علي حسن تعاونكم معنا
اسلام محمد22 قام بنشر سبتمبر 30, 2021 الكاتب قام بنشر سبتمبر 30, 2021 علي سبيل المثال المستخدم بدا بالعدد مثلا 41/42/25/13 يقوم لما يدخل علي سجل جديد يجلب العدد ده 41/42/25/14 سجل جديد 41/42/25/15 وهكذا ........ يجي المستخدم في وقت يقوم يغير العدد مثلا يعمل العدد 25/14/15 عند الدخول في سجل جديد عاوز يظهر له العدد +1 25/14/16 سجل جديد 25/14/17 وهكذا ...... العدددددد قابل للتغير ولا يخلو من وجود علامات الاش//////
ابوخليل قام بنشر سبتمبر 30, 2021 قام بنشر سبتمبر 30, 2021 تم التعديل حسب طلبك اللي هو ان العبارة النصية تتغير ولكن طلبك الثاني : (( فقط عند الدخول في سجل جديد )) من دون ازرار فهذا يلزمك انك تعمل حقل جديد في الجدول يسبق حقل الرقم بمعنى يتم ادخال اي بيانات فيه وحيث ان المستخدم سوف يكتب في السجل الحالي ثم ينقر انتر او تاب للانتقال الى سجل جديد فهنا لا يصلح ان نضع الكود عند حدث التركيز على الترقيم التلقائي ولا التركيز على حقل رقمنا المصنوع ... لانه سوف يحدث مشاكل وسيتم العبث بالارقام ولكن الاصلح والأتقن ان يكون هناك حقل يسبق حقل الترقيم ويكون الحدث بعد التحديث لهذا الحقل tjrobh2.rar
اسلام محمد22 قام بنشر سبتمبر 30, 2021 الكاتب قام بنشر سبتمبر 30, 2021 السيد / ابو خليل المحترم لايوجد في المرفق اي ملف وافر الاخترام والتقدير
ابوخليل قام بنشر سبتمبر 30, 2021 قام بنشر سبتمبر 30, 2021 الملف مضغوط ، فك الضغط عنه وتفضل هذا الملف بدون ضغط tjrobh2.accdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.