زر التنقل لاخر سجل بالجدول وعرضه بالنموذج

[wael gaper]

السلام عليكم 

لوسمحت انا حطيت الكود دا عشان يعرضلي اخر سجل بالجدول فالنموذج ولاكن ماظبطش وبيجبلي السجل لاكن مش الاخير. ممكن تعدلولي علي الكود بحيث يعرضلي اخر سجل بالجدول 

Dim dbc As Database
Set dbc = CurrentDb
Dim cs As Recordset
Set cs = dbc.OpenRecordset("min", DB_OPEN_TABLE)

cs.MoveLast

Me![ye] = cs![ye]
Me![mon] = cs![mon]
Me![gov] = cs![gov]
Me![dist] = cs![dist]
Me![es] = cs![es]
Me![ms] = cs![ms]
Me![itcode] = cs![itcode]
Me![est] = cs![est]
Me![am] = cs![am]
Me![dt] = cs![dt]
Me![nm] = cs![nm]

[Khalid Jnb]

السلام عليكم

انظر للملف المرفق

 الكود في زر السجل الاخير

' عرض اخر سجل
DoCmd.GoToRecord , , acLast

اتمنى يكون المطلوب

اختبار.rar

تم تعديل مارس 26, 2020 بواسطه خالد سيسكو

[wael gaper]

20 hours ago, خالد سيسكو said:

السلام عليكم

انظر للملف المرفق

 الكود في زر السجل الاخير

' عرض اخر سجل
DoCmd.GoToRecord , , acLast

اتمنى يكون المطلوب

اختبار.rar 852.3 kB · 4 downloads

حضرتك هوا انا لاغي الارتباط بين الجدول والنموذج وبحفظ وبحذف وببحث بالامواد. فلما لاغيت الارتباط الي معمول فالقلعده بتاعة حضرتم ماشتغلش الكود 

[رمهان]

اخينا @wael gaper

الكود سليم ويتم عرض اخر سجل في مجموعة السجلات ولكن يبقى ماهو اخر سجل ؟ فالجدول به البيانات غير مرتبه لذلك كيف نضمن ان اخر سجل نريده هو اخر سجل بمجموعة السجلات .

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

21 ساعات مضت, wael gaper said:

Set cs = dbc.OpenRecordset("select * from table1 order by id”)

غير اسم الجدول وعمود الفرز

وعذرا اكتب من الموبايل

بالتوفيق

[wael gaper]

4 minutes ago, رمهان said:

اخينا @wael gaper

الكود سليم ويتم عرض اخر سجل في مجموعة السجلات ولكن يبقى ماهو اخر سجل ؟ فالجدول به البيانات غير مرتبه لذلك كيف نضمن ان اخر سجل نريده هو اخر سجل بمجموعة السجلات .

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

غير اسم الجدول وعمود الفرز

وعذرا اكتب من الموبايل

بالتوفيق

فعلا اخي الكريم الكود الي حاطو فالبوست كان يطلعلي اخر سجل بالجدول لاكن بعد ماعملت ترتيب تصاعدي للجدول وصار اخر سجل بالجدول هوا الي لسه متسجل لاكن برضو الكود صار يجبلي سجل وخلاص ولو مثلا جابلي السجل رقم 11 وعملت سجل جديد ورجعت ادوس عالزر يقوم جايبلي اخر سجل 10 

انا هجرب كودك واشوف اي الدنيا

ولكن اتمني تشرحي جمله اس كيو لاني مافهمه

[رمهان]

تمام 

انت جرب اولا ولاتنسى تغير مايجب اسم الجدول واسم العمود 

وبعدين الشرح 

لكن طريقة هذه طريقة برمجة غير الاكسس فهل انت لديك خلفيه قبل المجئ للاكسس ؟

[wael gaper]

18 minutes ago, رمهان said:

تمام 

انت جرب اولا ولاتنسى تغير مايجب اسم الجدول واسم العمود 

وبعدين الشرح 

لكن طريقة هذه طريقة برمجة غير الاكسس فهل انت لديك خلفيه قبل المجئ للاكسس ؟

لا بصراحه انا لسه مبتدئ😅

[wael gaper]

40 minutes ago, رمهان said:

اخينا @wael gaper

الكود سليم ويتم عرض اخر سجل في مجموعة السجلات ولكن يبقى ماهو اخر سجل ؟ فالجدول به البيانات غير مرتبه لذلك كيف نضمن ان اخر سجل نريده هو اخر سجل بمجموعة السجلات .

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

غير اسم الجدول وعمود الفرز

وعذرا اكتب من الموبايل

بالتوفيق

الكود اشتغل شكرا جدا لحضرتك❤❤

[wael gaper]

8 hours ago, رمهان said:

تمام 

انت جرب اولا ولاتنسى تغير مايجب اسم الجدول واسم العمود 

وبعدين الشرح 

لكن طريقة هذه طريقة برمجة غير الاكسس فهل انت لديك خلفيه قبل المجئ للاكسس ؟

استاذي 

جيت اجرب الكود وعملت سجل جديد  ودوست عالزر ماطلعليش السجل الي لسه مسجله دا طلعلي السجل الي قبلو ؟!

[رمهان]

@wael gaper

اعطينا الكود تبع الاضافه ؟

[wael gaper]

32 minutes ago, رمهان said:

@wael gaper

اعطينا الكود تبع الاضافه ؟

Dim dbc As Database
Set dbc = CurrentDb
Dim cs As Recordset
Set cs = dbc.OpenRecordset("min", DB_OPEN_TABLE)
cs.Index = "primarykey"
Dim ifst As Boolean
ifst = (IsNull(Me![ye]) Or IsNull(Me![mon]) Or IsNull(Me![gov]) Or IsNull(Me![dist]) Or IsNull(Me![es]) Or IsNull(Me![ms]) Or IsNull(Me![itcode]) Or IsNull(Me![est]) Or IsNull(Me![am]) Or IsNull(Me![dt]) Or IsNull(Me![nm]))

If ifst = True Then
DoCmd.CancelEvent
MsgBox "áÇíãßä ÍÝÙ ÇáÓÌáÇÊ ÝÇÑÛÉ"

Else
cs.Seek "=", [ye], [mon], [gov], [dist], [es], [ms]

If cs.NoMatch Then
cs.AddNew
cs![ye] = Me![ye]
cs![mon] = Me![mon]
cs![gov] = Me![gov]
cs![dist] = Me![dist]
cs![es] = Me![es]
cs![ms] = Me![ms]
cs![itcode] = Me![itcode]
cs![est] = Me![est]
cs![am] = Me![am]
cs![dt] = Me![dt]
cs![nm] = Me![nm]
cs.Update
MsgBox ("Êã ÇáÍÝÙ ÈäÌÇÍ")
cs.close
DoCmd.GoToControl ("ms")
Else
cs.delete
cs.AddNew
cs![ye] = Me![ye]
cs![mon] = Me![mon]
cs![gov] = Me![gov]
cs![dist] = Me![dist]
cs![es] = Me![es]
cs![ms] = Me![ms]
cs![itcode] = Me![itcode]
cs![est] = Me![est]
cs![am] = Me![am]
cs![dt] = Me![dt]
cs![nm] = Me![nm]
cs.Update
MsgBox ("Êã ÇáÊÍÏíË ÈäÌÇÍ")
DoCmd.GoToControl ("ms")
End If

End If

Me![itcode] = Null
Me![est] = Null
Me![am] = Null
Me![ms] = Null
Me![nm] = Null

      هادا كود الحفظ   بس المشكلة اتحلت لان انا عندي عمودين تسلسل مش عمود واحد  وضفت العمودين اشتغل بشكل صحيح  شكرا ليك ولاهتمامك

تم تعديل مارس 27, 2020 بواسطه wael gaper

[رمهان]

بالتوفيق @wael gaper

انت زي اللي متعود على سيارات الديزل تسخن قبل ماتمشي

ماتيجي للاكسس زي البنزين شغل وامشي على طول وسيبك من الاكواد الطويله العريضه

تحياتي

[wael gaper]

On 3/28/2020 at 1:51 AM, رمهان said:

بالتوفيق @wael gaper

انت زي اللي متعود على سيارات الديزل تسخن قبل ماتمشي

ماتيجي للاكسس زي البنزين شغل وامشي على طول وسيبك من الاكواد الطويله العريضه

تحياتي

نافهنتش عليك بصراحه. بس شايف الكل شغال اكواد بصراحه😁😂😅😅😅