اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رمهان

الخبراء
  • Posts

    2,390
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    24

رمهان last won the day on سبتمبر 23 2019

رمهان had the most liked content!

السمعه بالموقع

1,601 Excellent

عن العضو رمهان

  • تاريخ الميلاد 01 يول, 1976

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • البلد
    السعودية - الرياض
  • الإهتمامات
    محلل نظم
    خبير نظم ERPs
    مستشار اعمال

    abc_2_me@hotmail.com

وسائل التواصل

  • MSN
    abc_2_me@hotmail.com

اخر الزوار

5,508 زياره للملف الشخصي
  1. جرب ان تذهب لخصائص الجدول وهو في حالة عرض التصميم وامسح الخاصية مابداخل الصندوق الاحمر بالتوفيق
  2. سياره ام طياره ؟ ساذهب للدوام وللتسوق بالسياره ... ساسافر بالطياره تحياتي
  3. حيا الله الجميع وكل عام وأنتم بخير ممكن ادخل شرط اخر وبالعامل and الاجابه بنعم في الرساله مع عدد السجلات هذا ان احسنت الفهم تحياتي
  4. تمام عليك وتقدر تخليه ياخذ اسم المدينه من كمبو ثاني كمتغير افضل من تثبيت المدينه هذا والعفو والشكر موصول للاخوه اللي ماقصرو تحياتي
  5. تفضل اخي @فايز.. والشكر موصول للاستاذ @ابوآمنة مزحه : تقول ماشفتها وانا لقيتها في ملغك الاخير هذا اخي فايز تحياتي للجميع Posters.accdb
  6. @فايز.. لم استطع فتح الملف لعدم وجود نسخة محدثة لدي لبرنامج الضغط
  7. ياسلام عليك @ابوآمنة وزياده شوية نضيف xn=0 بعد rs.movefirst لكي برضه رساله واحده للبحث الثاني بالتوفيق
  8. @فايز.. تفضل 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 بالتوفيق
  9. @فايز.. ممكن عمل طلبك ولكن هي مفيده لو اصبح لديك اكثر من سجل يطابق بحثك ؟ فلايجاد المطابق الثاني ستنقر على "اكمال البحث" وهكذا حتى تنتهي الى اخر سجل وسيتم تنبيهك كذلك ؟ وهنا سر الفكرة الزهريه وصدقني انا لما مريت هنا هو اعجابي بالكود الزهري . هذا وان كنت متاكد من رغبتك في ازالة المسج عد وسنعود ! تحياتي
  10. @omran2015 ليس لديك برنامج محدث لفك الضغط .. تكرما ارفق الملف بدون ضغط وشوف هنا يمكن يلبي طلبك بالتوفيق
  11. اخي @omran2015 هل يوجد اول مكرر وثاني مكرر ؟ وللعلم المنتدى ملئ بامثله لطلبك فقط ابحث تحياتي
  12. اخي @فايز.. ليش تركت كود الاخت زهره وانا عدلت عليه ... هل مازبط ؟ لانه يحوي فكره زهريه وهي البحث في المكرر واعلامك بآخر سجل بالتوفيق
×
×
  • اضف...

Important Information