[تنبيه - عنوان غير مناسب : ]برنامج سيفقدني عمل

اسلم طريقه في حالتك هذي واسلوبك هذا التالي :

if rs.RecordCount = 0 Then
   Text1.Text = 1
else
  sql = "Select MAX(ptcode) From patient"
  If rs.State = adStateOpen Then rs.Close
  rs.Open sql, db, adOpenDynamic, adLockOptimistic
 Text1.Text = rs(0) + 1
End If

  sql = "Select * From patient"
  If rs.State = adStateOpen Then rs.Close
  rs.Open sql, db, adOpenDynamic, adLockOptimistic

rs.AddNew
	rs![ptcode] = Text1
	rs![Name] = Text2
	rs![Add] = Text3
	rs![datein] = Date
	rs![phon] = Text5
	rs![gender] = Text6
	rs![MStatus] = Text7
	rs![age] = Text8
	rs![GREMARKS] = Text9
	rs![category] = Text10
	rs![CLASSIFICATION] = Text11
rs.Update

الأخ الغالي ( يوسف دايت ) ، كيف حالك اليوم ، يارب دايماً تكون بخير ،

الأخ الكريم ، أنا نظرت الي الكود وجدت شيء لم أتوقعة وهو

أولاً ، أنت تذهب الي السجل الأخير rs.MoveLast ومن ثم جلب آخر رقم كودي كما يلي :

Rs.MoveLast
Text1.Text = rs("ptcode") + 1

لو تتبعت الكود خطوة خطوة ووقفت علي

rs("ptcode")

ستعلم أنه يرتجع رقم 12 وليس 13 والسبب في ذلك هو أنك أرسلت جملة إستعلام مباشرتاً كما يلي :

Select * From patient

ولكن أخي الصحيح أنك تجلب البيانات مع الترتيب بجمل SQL كما يلي :

Select * From patient Order By ptCode

بحيث أن يكون آخر سجل هو آخر رقم !!!

علي العموم أنا عدلت لك جزء المشكلة ( في النموذج addinpatient في حدث Form_Load ) ، لكنني أري هذا الخطأ في أكثر من جزء ( معزرتاً ) فحاول تعدل هذه الأجزاء

لكن أخي هناك طريقة أفضل من ذلك وهي أن تنفذ عملية الترقيم التلقائي بجملة SQL كما يلي :

SELECT IIF(Max(patient.ptcode) Is Null,0,Max(patient.ptcode)) + 1
FROM patient;

أو كما يلي :

Rs.Open "Select Max(patient.ptcode) From patient",Cn
If(Rs.RecordCount = 0)Then
	Text1.Text = 1
Else
	Text1.Text = Rs(0) + 1
End If

شكراً أخي ، وبالتوفيق

Project.rar

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

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

ممكن طريقة اسهل وهي ان تجعل نوع الحقل في قاعدة البيانات AutoNumber وسيقوم باضافة رقم تلقائياً

مع كل عملية اضافة

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