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

السلام عليكم قمت بلمحاولة ان يتم انشاء استعلام جديد (بشروط) بواسطة الكود (يتم تفعيله عن طريق زر أمر) فقمت بكتابة هذا السطر في الكود DoCmd.RunSQL "SELECT Mydt.SRNO, Mydt.MyName, Mydt.Fuc, Mydt.Site" & vbCrLf & _ "FROM Mydt" & vbCrLf & _ "WHERE (((Mydt.MyName) Like ""*"" & [ادخل جزء من الأسم] & ""*"" )) ;" مع العلم بان هذه الجملة هي في الاصل جملة SQL تم تحويلها الى كود بعد الاطلاع على عدد من اعمال الاساتذة بهذا الخصوص وهذه الجملة هي كالتالي SELECT Mydt.SRNO, Mydt.MyName, Mydt.Fuc, Mydt.Site FROM Mydt WHERE (((Mydt.Rank) Like "*" & [ادخل جزء من الأسم] & "*")); ولكن عند تفعيل زر الأمر تظهر هذه الرسالة ================================= قد أكون اخطأت في كتابة الجملة وارجو التصحيح والمهم هو كيفية إنشاء إستعلام جديد (بأسم محدد) بالشروط الموجود على ان يتم حذفه أو تحديثه في كل مرة يتم تفعيل الزر

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

السلام عليكم كما هو معروف في الاكسس 2003 ففي وضع تصميم الفورم عند اضافة زر أمر فانه يتم انشاء كود (VBA) لهذا الزر لكن في اكسس 2007 لا يتم كتابة هذا الكود وبذلك عند نقل الملف الى نظام به اوفيس 2003 لا يعمل الزر فهل هناك طريقة ليتم ضبط الاكسس ليقوم بكتابة الكود في محرر الاكواد بدل ان يكون اجراء متضمن وشكراً

هدايا قيمة وخصوصاً للاخوة المعلمين بارك الله فيك استاذ رجب على هذه العطايا

عمل رائع جداً هل ممكن استاذ منتصر شرح لهذه الجملة في كود بعد التحديث DLookup("A", "ABCD", "A=form!A")) وكمان بالمرة لهذه الشرط . DLookup("A", "ABCD", "C=form!C and D=form!D And A<>form!A") وشكراً

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

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

السلام عليكم اجمل مافي الموضوع بالاضافة لكونه مهم في معرفة حلول المشاكل المتعلقة بالشبكة ان الاستاذ ابو ناصر منور فيه بانتظار الحلول

جربتها الدالة لاتعمل على 2003

بصراحة ابداع ما بعده ابداع سلمت يمينك استاذ عبدالله على هذا التميز

حياك الله اخي ضاحي الغريب وشكراً على الدعاء واسأل الله ان يكون لك بمثل ما دعيت وأكثر

ضع هذا الكود في زر أمر Sub Abu_Ahmed() Range("A2").ClearComments With Range("A2").AddComment .Text Text:="عدد الأسماء هو " & Application.CountA(Range("B4:B160")) & " أسم" .Visible = True End With End Sub

جرب حذف هذه الاسطر For Each Wok In Workbooks If Wok.Name = MyWok Then ActiveSheet.Copy Before:=Workbooks(MyWok).Sheets(1) ' Application.Windows(2).Activate MsgBox ("تم نقل الملف إلى سطح المكتب"), vbMsgBoxRight, ("نقل ") Exit Sub End If Next

شكراً لمرورك اخي حسين

بارك الله فيك اخي أحمد

حياك الله اخي عباس

ضعه في طلب جديد === بالفعل اخي ابو حنين فكودك يعمل تمام

تفضل الثالث (1).rar

جزاك الله كل خير استاذ ياسر خليل (عاشق الاكسل)

هل تقصد ترحيل بيانات الخلية دون حذف الصف ام ماذا

لم اجربها على 2003 لكن اظنها تعمل ساقوم غداً ان شاء الله بتجربتها في كمبيوتر العمل لان نظامه 2003

تفضل المرفق بعد التعديل الثالث.rar

السلام عليكم بعد تجربة ملفك الاخير عمل كود الاستاذ ابو حنين === قمت بعمل كود في زر امر للترحيل مع حذف المرحل Sub Abu_Ahmed() Dim cl As Range For Each cl In Range("A2:J" & [A10000].End(xlUp).Row) If cl.Interior.ColorIndex <> xlNone Then Cells(cl.Row, 1).Resize(1, 10).Copy Sheets("COPYY").Range("A" & Sheets("COPYY").[A10000].End(xlUp).Row + 1) cl.EntireRow.Delete End If Next End Sub شاهد المرفق 111.rar

السلام عليكم بعد اذن اخي عاشق الاكسل (الاستاذ ياسر خليل) ====== اخي الكريم هاني بدر صاحب ملف Employs v2.1 (اظنه احد الاعضاء واسمه المايسترو) لم يعطل محرر الاكواد وانما قام بوضع حماية عليها ========================== ولعمل ذلك اتبع الصوربداية اذهب الى محرر الاكواد وعلى اسم العمل (في الصورة اسمه Book1.xls) ثم كليك يمين ستظهر لك هذه الصورة قم باختيار الخيار الملون باللون البرتغالي الفاتح وستظهر لك الصورة الثانية قم باتباع الخطوات التي فيها للحصول على حماية لمحرر الاكواد

اخي ابو حنين جربت الملف لكن الكود لا يرحل == الافضل وضع الكود في زر أمر وننتظر مرفق صاحب الطلب لمعرفة ما يريد