الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اتمنى ان اجل الحل

مغلق
بدأه الحالم 2005 في 16 أكتوبر 2005 · 5 رد · 484 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

صيام مقبول وذنب مغفور بإذن الله تعالى .. أخواني برنامجي يوجد به رقم الفاتورة وكل ما أمسح أحد الزبائن يمسح رقم الفاتورة معاه وعندما اضيف احد الزبائن مرة اخرى لا يعطيني البرنامج أخر رقم مثال أذا كان العميل رقم 2حذفته يكون الرقم التالي للعميل رقم 3 هو اللي يحل مكان الرقم 2 .. وأنا اتعامل مع قاعدة البيانات ADO

#2

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

لا يوجد هناك حل فالرقم التلقائي رقم متسلسل لا يمكن التعديل عليه ، ولا تستطيع ترتيبه إذا حذفت أحد الارقام .

460.gif

#3

اشكرك أخي على الرد والتوضيح .. لكن كيف أعمل أذا في أي طريقة أخر دلني عليها الله لا يهينك

لاني محتاج أن يكون هناك أرقام للفواتير ..

تحياتي

وانتظر الرد

#4

أخى العزيز اجعل حقل رقم الفاتورة رقمى ( صحيح ) وستدخله فى كل مرة تدخل فيها بيانات الفاتورة .

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

#5

مشكور أخوي على التوضيح ...

تحياتي لك

أخوك الحالم

#6
اقتباس
لا يوجد هناك حل

لو كان هذا صحيح لما كان برنامج واحد ظهر للحياة فلكل مشكلة حل ان شاء الله

اقتباس
اجعل حقل رقم الفاتورة رقمى ( صحيح ) وستدخله فى كل مرة تدخل فيها بيانات الفاتورة .

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

اذن ما الحل؟؟؟؟؟؟؟؟؟؟؟؟

الحل هو أن ..... نفعل الاتي

(1) أولا نقوم بعمل حقل عادي جدا ولو نصي حتي لادخال رقم الفاتورة

(2) عند فتح ال rs نقوم بترتيب البيانات بلغة SQL علي أساس هذا الجدول

(3) نأخذ قيمة رقم اخر فاتورة و نضيف عليها واحد

(4) لو لم يكن هناك أي فواتير فمعني هذا أن البرنامج يعمل لأول مرة و نعطي حقل الفاتورة قيمة واحد

.............. انظر معي كيف يتم ذلك

dim cn as new adodb.connection
dim rs as new adodb.recordset

cn.open "provider=microsoft.jet.oledb.4.0; data source =test.mdb"

rs.open" select billno from out order by billno", cn, 1, 3

if rs.recordcount < 1 then text1.text = "1"

else

rs.movelast
text1.text = val(rs!billno) + 1
end if

و هذا سوف يحل المشكلة ان شاء الله و كل سنة و مصر و الأمة الاسلامية و العربية بخير و سعادة

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

هذا الموضوع مغلق.

مواضيع مشابهة