نموذج بحث للأول - بحث الأخير - بحث التالي FindFirst, FindNext and FindLast in Access DB

[@ahmedabdelmoneimuniversity986]

السلام عليكم ورحمة الله وبركاته
الكود المستخدم
'////////////////////////////////
Private Sub cmdSearch_Click()
'***************************************************************************
' بفضل الله تم كتابةهذا الكود البرمجي بواسطة أخيك أحمد عبد المنــــــــــــعم
'لا تنسونا من صالح دعائكم
'***************************************************************************
On Error GoTo Err_cmdSearch_Click
Dim RST As Recordset
Me.txtSearch.SetFocus
Set RST = Me.RecordsetClone()
If COUNTER > 0 Then
RST.FindNext "[Truck] = " & Str(Nz(Me![txtSearch], 0))
If RST.NoMatch Then
MsgBox "لا يوجد نتائج أخرى لهذا البحث" & vbNewLine & "عدد نتائج البحث = " & COUNTER, vbInformation, "نتيجة البحث"
Me.TXTCOUNTER = COUNTER
COUNTER = 0
RST.Close
Me.Truck.SetFocus
Exit Sub
Else
Me.Bookmark = RST.Bookmark
Me.TXTCOUNTER = COUNTER + 1
End If
Else
RST.FindFirst "[Truck] = " & Str(Nz(Me![txtSearch], 0)) 'أول نتيجة في البحث
If RST.NoMatch Then
MsgBox "لا يوجد نتائج لهذا البحث", vbInformation, "نتيجة البحث"
RST.Close
Exit Sub
Else
Me.Bookmark = RST.Bookmark
Me.TXTCOUNTER = COUNTER + 1
End If
End If
Me.Refresh
RST.Close
COUNTER = COUNTER + 1
Debug.Print "Counter " & COUNTER

Me.Truck.SetFocus

Exit_cmdSearch_Click:
RST.Close
Exit Sub

Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click
End Sub

[@الشروقسوفت]

ماشاء الله دايما مبدع يا أستاذ بارك الله فيك

[@ahmedabdelmoneimuniversity986]

وفيك بارك الرحمن

[@larabyacine3397]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم
اللهم ءامين

[@الشاعرجمالغانم]

جزاك الله خير الجزاء وجعلة في ميزان حسناتك ان شاء الله وغفر الله لوالديك

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم
اللهم ءامين

[@aymanali309]

جزاك الله خيراً ... أخي الكريم.. وربنا يبارك لك علمك وصحتك وأن ينفع بك وأن يجعله الله فى ميزان حسناتك ويرحم والديك..

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم
اللهم ءامين

[@kamelnet51]

بارك الله بك... و رفع قدرك

[@ahmedabdelmoneimuniversity986]

وفيك بارك الرحمن

[@my.chanal.oracle]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم

[@adnanbarznji4740]

بارك الله فيك

[@ahmedabdelmoneimuniversity986]

وفيك بارك الرحمن

[@itcours5256]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم

[@ahmedabdallah2033]

جزاك الله خيرا أستاذ

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم

[@adnanbarznji4740]

جزاك الله خير الجزاء. استاذ احمد كيف يمكنني ارسل لك سؤال اي كيف اتواصل معاك اذا كان عندي سؤال.

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم
راسلني على البريد الإلكتروني
[e-mail]

[@larabyacine3397]

السلام عليكم ماهو بريدكم اإلكتروني Email

[@ahmedabdelmoneimuniversity986]

وعليكم السلام ورحمة الله وبركاته
[e-mail]

[@-ProSystem]

السلام عليكم
عندى 2 كمبوبوكس بيعتمدوا ع نفس الجدول عايز القيمة اللى اختاره فى واحد منهم متظهرش فى التانى

[@ahmedabdelmoneimuniversity986]

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

[@-ProSystem]

@@ahmedabdelmoneimuniversity986 جزاك الله كل خير
فيه فكرة بسيط كنت عايز أعرضها لحضرتك
لو تشرح لنا تصميم برنامج لادارة الخزينة والمعاملات المالية لانى دورت فى القناة عندك للاسف مالاقيتش حاجه زى كدا ....ولان برنامج الخزينه مهم لاى برنامج تانى فهتلاقي اقبال ع الفكره ان شاء الله ومش هتاخد من وقتك كتير ...بارك الله فى عمرك وعملك

[@abdelrhmankhaled8450]

بعد اذنك عندي استفسار انا عندي صنف Aبالمخزن بسعر 10جنية وكمية 10 وبعد كدا جبت نفس الصنف بس بسعر اقل عايز ادخل فاتورة الشراء عادي بس لما اصرف السعر يفضل 10جنيه لحد مخلص الكميه الي كنت شريها 10 وبعد متخلص يغير السعر9لوحده وشكرا مقدما

[@ahmedabdelmoneimuniversity986]

ان شاء الله بشرحه في أقرب فرصة موضوع FIFO أو الوارد أولا يصرف أولا

[@ahmebahmeb3945]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم

[@أسامةإبراهيم-د9خ]

جزاك الله خير

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم