منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - وقوف الadodc عند السجل المضاف حديثآ

لدى 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]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسلام الكبابى

ناجي إبراهيم

اسلام الكبابى

اسلام الكبابى

ناجي إبراهيم

اسلام الكبابى