رمهان

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

سياره ام طياره ؟ ساذهب للدوام وللتسوق بالسياره ... ساسافر بالطياره تحياتي

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

حيا الله الجميع وكل عام وأنتم بخير ممكن ادخل شرط اخر وبالعامل and الاجابه بنعم في الرساله مع عدد السجلات هذا ان احسنت الفهم تحياتي

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

جرب .. وهي فكره سريعه يمكن ان تفي بالغرض او عد وسنعود تحياتي Database10.accdb

@sweety هات الملف ورسالة الخطأ تحياتي

تفضل اخي @فايز.. والشكر موصول للاستاذ @ابوآمنة مزحه : تقول ماشفتها وانا لقيتها في ملغك الاخير هذا اخي فايز تحياتي للجميع Posters.accdb

@فايز.. لم استطع فتح الملف لعدم وجود نسخة محدثة لدي لبرنامج الضغط

ياسلام عليك @ابوآمنة وزياده شوية نضيف xn=0 بعد rs.movefirst لكي برضه رساله واحده للبحث الثاني بالتوفيق

@فايز.. تفضل Dim strSearch As String static xn Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[EmpName] like '*" & strSearch & "*'" If Not .EmpName Like "*" & strSearch & "*" Then MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل" Me.cmdSearch.Caption = "بحث" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else xn=xn+1 Me.Bookmark = .Bookmark if xn=1 then MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing بالتوفيق

@فايز.. ممكن عمل طلبك ولكن هي مفيده لو اصبح لديك اكثر من سجل يطابق بحثك ؟ فلايجاد المطابق الثاني ستنقر على "اكمال البحث" وهكذا حتى تنتهي الى اخر سجل وسيتم تنبيهك كذلك ؟ وهنا سر الفكرة الزهريه وصدقني انا لما مريت هنا هو اعجابي بالكود الزهري . هذا وان كنت متاكد من رغبتك في ازالة المسج عد وسنعود ! تحياتي

@omran2015 ليس لديك برنامج محدث لفك الضغط .. تكرما ارفق الملف بدون ضغط وشوف هنا يمكن يلبي طلبك بالتوفيق

اخي @omran2015 هل يوجد اول مكرر وثاني مكرر ؟ وللعلم المنتدى ملئ بامثله لطلبك فقط ابحث تحياتي

اخي @فايز.. ليش تركت كود الاخت زهره وانا عدلت عليه ... هل مازبط ؟ لانه يحوي فكره زهريه وهي البحث في المكرر واعلامك بآخر سجل بالتوفيق