اظهار تسلسل اخر عميل

[وسيم الحمادة]

اخواني العزاء

في الملف المرفق يوجد نموذج ادخال عميل جديد 

المطلوب اظهار تسلسل اخر عميل من الاعلى في المربع الاصفر

بحيث انه اذا كان الرقم الظاهر 3 مثلا

نقوم في كتابة الرقم 4 في رقم العميل

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

وشكرا

http://www.mediafire.com/download/661iz8c36fx1mdx/%D8%A7%D9%84%D9%86%D8%AC%D8%A7%D8%AD.rar

[سعيد صواب]

هنا رابط الموضوع 

http://www.officena.net/ib/topic/66536-تعديل-نماذج-تلقائية/

[وسيم الحمادة]

15 ساعات مضت, سعيد صواب said:

هنا رابط الموضوع 

http://www.officena.net/ib/topic/66536-تعديل-نماذج-تلقائية/

جزاك الله كل خير

ولكن انظر للكود 

لايعمل الرمز NZ

ماذا يعني

حيث ان Akher_Ameel

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

ولكن لايعمل

وعند وضع رقم العميل بهذا الشكل 

رقم_العميل

يظهر اخر تسلسل رقم 0

[jjafferr]

السلام عليكم شباب 

 

المشكلة ان رقم العميل في الجدول عبارة عن نص وليس رقم ، لذلك يجب ان نستخدم الامر Val في الكود حتى يغير النص الى رقم ، ثم نستخدم الدالة DMax 

 

جرب هذا الكود:

Private Sub Form_Current()

    Me.نص155 = DMax("Val([رقم العميل])", "البيانات")
End Sub

.

طبعا النتيجة ستكون 3 ، لأن أكبر رقم موجود في رقم العميل هو 3 

 

 

جعفر

[وسيم الحمادة]

منذ ساعه, jjafferr said:

السلام عليكم شباب 

 

المشكلة ان رقم العميل عبارة عن نص وليس رقم ، لذلك يجب ان نُخبر الكود بأن يغير النص الى رقم ، ثم يقوم بمعادلة DMax 

 

جرب هذا الكود:

.

طبعا النتيجة ستكون 3 ، لأن أكبر رقم موجود في رقم العميل هو 3 

 

 

جعفر

شكرا لك سيد جعفر

ارجو النظر للصورة 

ارجو النظر للمرفق

لان بصراحة رقم العميل لازم رقم وجربت كود اخونا سعيد ولكن لم يضبط

لازم يكون نص ومااشتغل الكوجد في النموذج

http://www.mediafire.com/download/6za45nw4md3col7/11.rar

 

رابط قاعدة البيانات

وشكرا لكم اخواني

[jjafferr]

نعم سترى هذا الحدث ، لأنك في حقل جديد 

 

الكود التالي سيحسب لك عدد السجلات الموجودة في الجدول ، يعني اذا كان رقم العميل متسلسل ، فالطريقة هذه تعطيك آخر رقم موجود (طبعا لأن ارقامك متكررة الآن ، فالرقم اللي بيطلع لك هو 5 )

Me.نص155 = DCount("*", "البيانات")

 

جعفر

[وسيم الحمادة]

شكرا لك سيد جعفر

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

يعني ممكن يصير اضافة صيانة لنفس الرقم يعني رقم 2 يتكرر مرتين

وبالتالي يعطيك كامل العملاء والمطلوب تسلسل اخر رقم 

[jjafferr]

ولا يهمك 

 

جرب هالكود:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Dim rst As DAO.Recordset
    mySQL = "SELECT Val([رقم العميل]) AS R FROM البيانات ORDER BY Val([رقم العميل]) DESC"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    
    Me.نص155 = rst!r
    
    rst.Close: Set rst = Nothing
    
Exit Sub
err_Form_Current:

    If Err.Number = 3021 Then
        'ignor, No Records
        Me.نص155 = 0
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

[وسيم الحمادة]

جزاك الله كل خير اخي جعفر

ارجو النظر الى المرفق

[وسيم الحمادة]

تم حل الموضوع شكرا لكم جميعا وجعلها الله في ميزان حسناتكم

هذا الحل.

[كرار صبري _ أبو جنى]

اخي ابو سيما ... كود الاستاذ جعفر يعمل عندي بدون مشاكل ... 

[وسيم الحمادة]

جزاه الله الف خير على المشاركة والمساعدة 

والحمد لله تم حل المشكلة 

والوصول لفكره جديدة

شكرا لكم

[سعيد صواب]

وجزاك الله كل خير 

[jjafferr]

أمس ما قدرت اوضع الكود بالطريقة الصحيحة ، لذا وبعد التجربة ، هذا الكود الصحيح (وقد عدّلت الكود في مشاركتي الاولى):

Me.نص155 = DMax("Val([رقم العميل])", "البيانات")

.

والكود بظهوره الصحيح:

 

جعفر