عبدالله المجرب

السلام عليكم كان الله في العون

بصراحة المطلوب غير مفهوم وهناك خطاء في دالة VLOOKUP

السلام عليكم شاهد هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37604&hl=

البرنامج تم عمله بطريقة متقنة وتم جعله غير مفعل هل من اعطاك اياه هو المالك الحقيقي للبرنامج لان حقوق الملكية الفكرية تمنعنا من القيام بتفعيل البرنامج

لم اشاهد المرفق الخاص بك === في محرر الاكواد ضع هذا الكود Private Sub M2_AfterUpdate() M1.SetFocus DoCmd.GoToRecord , , acNewRec End Sub

السلام عليكم هل تقصد هكذا ابواحمد.rar

اخي عبد السلام احسنت في التوضيح

ما شاء الله تبارك الله عمل متكامل ومميز

رائعة جداً استاذ محمود سلمت يمينك

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

الموضوع قديم

السلام عليكم بعد إذن الاستاذ رجب هذا اختصار للكود واضافة نص الرسالة باللغة الانجليزية Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A" & [A1000].End(xlUp).Row)) Is Nothing Then If Application.CountIf(Range("A2:A" & [A1000].End(xlUp).Row), Target) > 1 Then If MsgBox("Same Value Available in Cell" & Chr(10) & arr & Chr(10) & "Repeat Same Value again", vbYesNo, "Repeated Value") = vbYes Then Exit Sub Target = "": Target.Select: Exit Sub End If End If End Sub

بارك الله فيك استاذ ابو خليل

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

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

السلام عليكم لم افهم الطلبين الاخرين بخصوص الاخفاء والاظهار شاهد المرفق TEST DATA.rar

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخ الكريم رجب جاويش بمناسبة ترقيته الى خبير معتمد وان شاء الله نرى فيه النشاط المعهود دائماً === سينقل الموضوع الى المنتدى الاجتماعي بعد فترة

مبروك اخي رجب الترقية الجديدة شكراً اخي محمود لي وتواجدي قل بسبب محاولتي تعلم الاكسس ووجودكم يكفي ويزيد بارك الله فيكم == بخصوص الصورة ساعيد وضعها فيما بعد

بارك الله فيكم اخواني الكرام رجب جاويش ومحمود لي

الملف معمول باصدار 2010 ولا يعمل على 2007 او 2003 ارفق الملف بصيغة 2003 وستجد العون ان شاء الله

ضع هذا الكود في محرر الاكواد الخاص بالفورم Private Sub Command0_Click() If DCount("[name]", "emp", "[name] = 'محمد'") <> 0 Then MsgBox "مرحبا" Else MsgBox "الاسم ليس محمد" End Sub

جرب المرفق بعد التعديل اختيار واحد فقط .rar

شاهد التعديل على المرفق لتفعيله مرة اخرى قم بالبحث عن رقم المعرف وسيتم السماح لك بالاختيار اختيار واحد فقط .rar

بارك الله فيك استاذ بن عليه

لا شكر على واجب