اريد كود للعداد فى ال Primary Key

Ahly Is The Best كتب:

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

ازيكم احبائى فى الله

انا اريد كود خاص بعمل عداد

بيتحط فى زى " اضافة " بحيث ان المستخدم يضغط على اضافة عميل جديد .. كود العميل اوتوماتيكلى يترقم

انا عاوز الكود لأنة هيحل لى مشاكل كتيرة اوى خصوصا ان حقل كود العميل دا primary key

افيدونا افادكم الله

شكرا :wub:

اقتباس

If Ctm.RecordCount = 0 Then

OsenXPTextBox1.Text = 1

Else

Ctm.MoveLast

OsenXPTextBox1.Text = Ctm.Fields(0) + 1

End If

انا استخدمت الكود دا ونفع معى

فى حالة ان المستخدم يقوم بالضغط على زر

اضافة

يتم تنفيذ الكود تلقائيا

وحفظة

مفيش مشكلة لحد دلوقتى

وعدد السجلات فى الجدول 20

المفروض انى اعمل جديد يجيبلى 21

لكن

المشكلة ظهرت

لما حذفت سجل من السجلات

وليكن مثلا السجل رقم 10

كدا بقيت السجلات

19

ولو ضغطت اضافة

حيعطينى السجل رقم 20 !!

بالرغم من وجود السجل رقم 20 فى السجلات

وبالطبع حيعطينى error

وانا بعمل حفظ

لانة حقل كود العميل

primary key

بالله عليكم لو فية حد يعرف حل للمشكلة دى يساعدنى

شكرا

هو مفيش حد هنا ولا اية ؟

السلام عليكم...

على افتراض أن اسم الجدول هو Customers و أن حقل العداد اسمه CustID:

Private Function GetNewCustID() As Long
	Dim RS As New ADODB.Recordset
	RS.Open "SELECT Max(CustID) AS MaxID FROM Customers", DbCnnString, adOpenStatic, adLockOptimistic, adCmdText
	If RS.Bof And RS.Eof Then	' empty recordset
		GetNewCustID = 1
	ElseIf IsNull(RS("MaxID")) Then
		GetNewCustID = 1
	Else
		GetNewCustID = RS("MaxID") + 1
	End If
	RS.Close
	Set RS = Nothing
End Function
'
OsenXPTextBox1.Text = GetNewCustID

لاحظ أن DbCnnString هو إما ConnectionString أو ADODB.Connection مفتوح سابقاً.

نرجو الاستفادة و السلام.