البحث والتنقل بين السجلات

[moamen salem]

اخوتي عندي نموذج مفتاحه الأساسي أرقام وبستخدم زر التالي والسابق والبحث للتنقل من سجل لآخر لو سمحتم حد يقدر يفيدني بطريقة اختصارها ادخل الرقم في الحقل الأساسي لو الرقم موجود يعرض بياناته لو مش موجود ما يعرض شئ وأضافه كأني ضغط على زر إضافة له دلوقتي 7 أشهر ومش عارف اوصلها ... مع الشكر 

[ابوخليل]

يا لطيف 7 شهور  .. الحق انك مناضل

تفضل  :

باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id

اعمل مربع نص غير منضم  في النموذج واجعل اسمه text1

افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور  الصق هذا الكود

Private Sub text1_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Me![text1]
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

[moamen salem]

أخي أبو خليل اشكر اهتمام بس علامة التعجب اللي بعد ال me  كل ما احطها تتمسح لوحدها فحذفت المسافة وخليت الالتيك ون على نفس السطر اشتغلت الحمد لله بس للاسف في حالة عدم وجود الرقم بيجيب اول سجل 

تم تعديل مايو 4, 2016 بواسطه moamen salem

[ابوخليل]

تفضل

في حالة عدم وجود الرقم يفتح سجل جديد

Private Sub text1_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Emp_No] = " & [text1]
     If Not rs.NoMatch Then
    Me.Bookmark = rs.Bookmark
     Else
    DoCmd.GoToRecord , , acNewRec
       End If
End Sub

 

[moamen salem]

  في 4‏/5‏/2016 at 22:43, ابوخليل said:

تفضل

في حالة عدم وجود الرقم يفتح سجل جديد

Private Sub text1_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Emp_No] = " & [text1]
     If Not rs.NoMatch Then
    Me.Bookmark = rs.Bookmark
     Else
    DoCmd.GoToRecord , , acNewRec
       End If
End Sub

اشكر حضرتك كتيييييييييييييير والشكر لله وجزاك الله كل خير ونعم الحسنة

Expand  

 

[moamen salem]

اخي الاستاذ ابو خليل انا عندي انموذج عبارة عن 5 صفحات هل يمكن عمل نفس الكود في كل صفحة بحيث مش لازم الواحد يروح الصفحة الرئيسية 

[رمهان]

اخ مومن

عندما كتبت الموضوع التالي كنت اعرف اهميته وهو اعتقد لطلبك بالتمام

واعتقد ان عنوان الموضوع يختلف عن المضمون ! 

بالتوفيق

تم تعديل مايو 7, 2016 بواسطه رمهان

[صالح حمادي]

السلام عليكم بعد إذنك أخي أبو خليل. يمكن إستعمال الدالة  DLookup («expr»; «domain»; «criteria») في مربع نص للبحث عن السجلات بإدخال الرقم في الحقل الأساسي فتظهر جميع بيانات السجل تلقائيا. كما يوضح المثال التالي:

 

البحث عن سجل.rar

[ابوخليل]

جزاك الله خيرا  اخي صالح 

اخ moamen salem تفضل  البحث في احد الحقول المنضمة

Private Sub text1_BeforeUpdate(Cancel As Integer)
 Dim rs As Object
    Set rs = Me.Recordset.Clone
   rs.FindFirst "[Emp_No] = " & [text1]
If Not rs.NoMatch Then
 Me.Undo
 Me.Bookmark = rs.Bookmark
  Else
     End If
End Sub

جعل الحدث قبل التحديث واضافة  سطر للتراجع

[كرار صبري _ أبو جنى]

  في 4‏/5‏/2016 at 22:43, ابوخليل said:

في حالة عدم وجود الرقم يفتح سجل جديد

Private Sub text1_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Emp_No] = " & [text1]
     If Not rs.NoMatch Then
    Me.Bookmark = rs.Bookmark
     Else
    DoCmd.GoToRecord , , acNewRec
       End If
End Sub

Expand  

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

استاذ ابو خليل ... اذا تكرمت و تفحصت المرفق ( بنفس الكود اعلاه مع تغيير بسيط ) ...

* عند فتح النموذج نستطيع البحث بالعشرات ( مرتبتين ) ثم لا يمكن البحث الا بمرتبة واحدة ...

هل يمكن تنفذ الفكرة  ... و شكرا مقدما ... 

بحث.rar

[ابوخليل]

هلا  اخي  العزيز كرار

  في 8‏/5‏/2016 at 08:24, كرار صبري _ أبو جنى said:

 البحث بالعشرات ( مرتبتين ) ثم لا يمكن البحث الا بمرتبة واحدة ...

Expand  

تصدق ما فهمت !

 العشرات ومرتبتين ومرتبة  ؟  

لا بد تشرح بالتفصيل

واذا جاء السؤال من محترف  لا بد  الواحد يحك راسه مرتين  واذا ما قدر  الله يعينه على الاعتذار 

 

 

[كرار صبري _ أبو جنى]

  في 8‏/5‏/2016 at 12:01, ابوخليل said:

واذا جاء السؤال من محترف

Expand  

شهادة اعتز بيها ... على راسي استاذ ابو خليل الورد ... 

انا اقصد في المثال الذي ارفقته انا ... اضفت للكود الخاص بك لكي نستطيع وضع الكود في حدث عند التغيير و ليس بعد التحديث 

و هذه هي الفكرة ان يتم البحث عند التغيير وليس بعد التحديث ...

المشكلة عندي عند فتح النموذج استطيع ان ابحث عن الارقام من 1 الى 99

ثم عند البحث مرة اخرى استطيع البحث عن الارقام من 1 الى 9

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

و المفــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــروض عندما اكتب 2 يظهر السجل 2 ثم مباشرة اضغط 3 فيظهر السجل 23

و المشكلة ليست في كود البحث و انما ما بعده ... 

 

[ابوخليل]

الحل هو التحايل على مربع البحث وتحريره من التركيز

جرب ارسال المفتاح كما هو موضح  وافدنا بالنتيجة

Dim X
X = text1.Text
text2 = X
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[id] = " & text2
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Me.text1.SetFocus
SendKeys "{f2}"
     Else
    DoCmd.GoToRecord , , acNewRec
       End If

 

[صالح حمادي]

ممتاز البرنامج يشتغل بطريقة رائعة جزاك الله كل الخير يا أستاذنا الكريم

تم تعديل مايو 9, 2016 بواسطه صالح حمادي

[كرار صبري _ أبو جنى]

  في 8‏/5‏/2016 at 12:01, ابوخليل said:

واذا ما قدر  الله يعينه على الاعتذار

Expand  

اني ما علقت على هذه العبارة لان ادري بيك كدها و كدود ... استاذ و رئيس قسم 

[ابوخليل]

ما عليك زود  اخوي كرار

وشكرا لاخونا صالح على المتابعة والتطبيق

[صالح حمادي]

هذا هو الملف بعد التعديل

بحث.rar

[صالح حمادي]

أخي كرار يمكن حل مشكلة بطريفة أخرى و هي :إضافة هذا الكود في الحدث عند الفتح

Application.SetOption " behavior entering field", 2

بحث.rar

[كرار صبري _ أبو جنى]

  في 10‏/5‏/2016 at 09:20, صالح حمادي said:

أخي كرار يمكن حل مشكلة بطريفة أخرى و هي :إضافة هذا الكود في الحدث عند الفتح

Expand  

عاشت ايدك كنت ادور على هذا الكود لان محتاجة ... و كنت سافتح موضوع بهذا الخصوص

هذا الكود يغير  الخيارات \ اعدادات العميل \ سلوك الادخال في الحقول \ الذهاب الى نهاية الحقل

لكن كيف ارجع الى " تحديد الحقل بالكامل "

[ابوخليل]

شكرا لاخونا صالح حمادي وبعد اذنه

استبدل الرقم الظاهر في آخر الكود :

الرقم 2  للذهاب الى أخر الحقل

الرقم 1 للذهاب الى اول الحقل

الرقم صفر  لتحديد الحقل بالكامل

 

ولزيادة المعلومات وربط المتجانسات :   هنــــا      وهنـــــا