رمهان

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

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

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

حيا الله الجميع وكل عام وأنتم بخير ممكن ادخل شرط اخر وبالعامل 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 هل يوجد اول مكرر وثاني مكرر ؟ وللعلم المنتدى ملئ بامثله لطلبك فقط ابحث تحياتي

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

شوف هنا لمعلومات اكثر حيث اكتب من الموبايل يمكن تختصر ب currentdb.properties(“allowfullmenus”)=false بالتوفيق

@فايز.. @ابوآمنة هذا تعديل على كود الاستاذه زهره ولماطلبت بنفس الرسائل Dim strSearch As String 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 Me.Bookmark = .Bookmark MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing بالتوفيق

اخي @mrsadek2000 هل البرنامج معمول بالاكسس بالكامل ؟

اخي @فايز.. بما انك مش فاهم الكود تبع الاستاذ زهرة وناسبك كود الاستاذ ابو امنه هذا تعديل على كود الاستاذ @ابوآمنة وبعد اذنه Private Sub cmdSearch_Click() If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub Me.Filter = "[StName] like '*" & txtSearch & "*'" Me.FilterOn = True If Me.StName Like "*" & txtSearch & "*" Then MsgBox "موجود" Else MsgBox "غير موجود" End Sub ولاحظ ان الكود يفلتر السجلات اي السجلات التي ستكون بالنموذج فقط نتائج البحث دون السجلات الاخرى وهنا - ميزة : عند النقر على زر التالي ستجد السجلات الاخرى لنفس البحث . مثلا لوكتب القحطاني سياتيك سجلات الذين يحتوون على القحطاني فقط وتتنقل بالزر التالي الاول تلو الاخر - عيوب : ستفقد السجلات الاخرى .. فلو اردت البحث عن اسم اخر لن تجده لان السجلات اصبحت فقط للبحث السابق القحطاني . وهنا لابد من الغاء الفلتره لعودة جميع السجلات والبحث مره اخرى .. لالغاء الفلتره فقط استخدم me.filteron=false ولكن اين تضعه شوف اللي يناسبك وممكن يكون بزر جديد بالتوفيق

اخوي @فايز.. عندي استفسار وعلى بال ما اجيب كمبيوتر عربي الرسائل : 1. اجبار المستخدم ادخال نص ... مفهومة 2. لايوجد سجل .. مفهومة 3. هذ اللي مش فاهمها وجايه بالمقلوب عندي ؟ ممكن تشرح متى تستخدمها ؟ هل هي للبحث عن اسم اخر نفس نص البحث ؟ وكم مره البحث هل اسمين فقط ام اكثر؟ ياليت تشرح فائدتها هنا 4. تم ايجاد السجل .. مفهومه تحياتي

اخي @husamwahab عجبني في الكود If Rs!k = 0 Then i = j i=j صراحة جديده ولم تدرس في البرمجة لكن والله فكره ومبسوط منها اوي اخي @mohamad dahleek هذه محاولة وباستعلام SELECT tgar.no_11, tgar.name_1, Nz(DSum("k","dfaat","no_b>" & DLast("no_b","dfaat","k=0 and t=" & [no_11]) & " and t=" & [no_11]),0) AS Expr1 FROM tgar; بالتوفيق

اخي @mohamad dahleek تمام فهمت عليك ولكن بالنسبة ل او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟ انت قلت نجمع مافوق الصفر .. وانا شايف انه يكون صفر لان الفكرة اعتقد هي تصفير ونقطة بداية .. فاكد علي هنا؟

اخينا @mohamad dahleek لم توضح : 1. هل المجموع بعد الصفر لجميع السجلات ام على حسب كل اسم ؟ 2.كذلك كيف واين يظهر الاجمالي ؟ 3. في حالة لايوجد صفر لاسم مالعمل ؟ او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟ تحياتي

مرحبا @Mohameddd200300 ارفع ملف للعمل عليه كمثال وتجربه بالتوفيق