[اسلام الكبابى]

لدى ADODC متصل باستعلام بقاعدة بيانات
وكتبت كود اضافة سجل جديد [SIZE=3]ويعمل تمامآ
ولكنه يقف دائ[SIZE=3]مآ بعد الاضافةعند آخر سجل [/SIZE]
[/SIZE][SIZE=3][b]فهل من أمر [/b][/SIZE]يجعل الADODC [SIZE=3][b]يقف عند السجل المضاف حديثآ مهما كان موضعه بين السجلات
[/b][/SIZE]

PHP كود :

Private Sub cmdAdd_Click()
 On Error GoTo AddErr
    Adodc1.Recordset.AddNew
    Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)
    txtFields(0).SetFocus
Exit Sub
AddErr:
  MsgBox Err.Description
 End Sub

Private Sub cmdUpdate_Click()
Adodc1.Recordset.Fields(0) = Adodc1.Recordset.AbsolutePosition
 On Error GoTo UpdateErr
Adodc1.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
  MsgBox Err.Description
 End Sub 


[SIZE=3][b]أرجومنكم تعديل هذا الكود
ولكم ألف شكر [/b][/SIZE]

[ناجي إبراهيم]

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

أنا شخصياً طريقتي كالتالي:
* إذا كان البرنامج سيعمل على حاسوب واحد (دون شبكة) فعادة ما يكون في الجدول حقل تعريف من النوع "ترقيم تلقائي"، و بالتالي فبعد إضافة سجل فإنه يمكن البحث عن أكبر رقم في حقل التعريف فيكون هو بالتأكيد آخر سجل تمت إضافته.
* إذا كان البرنامج سيعمل على شبكة فإن استعمال حقل الترقيم التلقائي يصبح غير مضمون في الوصول إلى السجل الذي قمت أنت بإضافته، و لذلك أستعمل حقلاً من نوع آخر (حقل يحمل قيمة من النوع "معرف عام فريد" - Globaly Unique Identifier = GUID) و يتم إنشاء هذا الحقل في Access بجعل الحقل من النوع "رقم" (Number) و في جزء خصائص الحقل بالأسفل نحدد "معرف النسخة المماثلة" (Replication ID) في خانة حجم الحقل.
= الـ GUID هي قيمة تتكون من 16 بايت و يتم توليدها اعتماداً على التاريخ و الوقت و عوامل أخرى بحيث تكون القيمة فريدة و لا تتشابه مع قيمة أخرى في أي مكان.

*** إذا أسعفني الوقت سأرفق مشروعاً في مشاركة قادمة إن شاء الله تعالى لبيان الطريقتين.

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

[اسلام الكبابى]

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

[اسلام الكبابى]

البرنامج سيعمل على حاسوب واحد (دون شبكة) وقمت في الجدول بعمل حقل تعريف من النوع "ترقيم تلقائي"،
ولكنى لم أستطع تعديل الكود المرفق للوصول الى المطلوب
[SIZE=3][b]أرجومنكم تعديل هذا الكود
ولكم ألف شكر [/b][/SIZE]

[ناجي إبراهيم]

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

في المرفقات مثال مع قاعدة بيانات للإضافة و التعديل.

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

[اسلام الكبابى]

[SIZE=4][SIZE=5]ألف شكر أستاذنا الجليل
[/SIZE]وآسف على التأخير لأن النت كان مقطوع عندى فترة
[/SIZE]