زوهير

اخي الكريم السلام عليكم جربت الاكواد في ملف اخر مع تغيير المطلوب ولكن لم تفلح معايا مع العلم النسخة التي اعمل عليها اكسس 2007 فرنسية هل ممكن ان يكون للنسخة دور في هذا الامر وجزاك الله كل خير

جزاك الله كل خير وزادك علما شكرا شكرا شكرا

اخي الكريم مجرد انك نقلت المعلومة بأمانة فهذا مجهود وجب الشكر عليه شكر ا مرة اخرى وجزاك الله كل خير نعم هو المطلوب بقي هناك مشكلة في الحذف في السطر الثاني يعطيني رسالة خطأ DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord

مجهود رائع جزاك الله كل خير وجعله في ميزان حسانتك وزادك علما ووقاك من كل فتنة ورزقك من كل خير اعذرني على الاطالة في الرد فكما قلت لك سبب في ظروف عملي

جزاك الله خيرا على ردك اخي الكريم وسامحني على الاطالة في الرد لظروف عملي وعند التجربة الكود لا يقوم بالاضافة وانما يقوم بالتعديل - والحذف لا يعمل وان كان بستطاعتك اخي الكريم عند الاضافة والتعديل يقوم بمسح الفورم اما البحث يعمل بشكل جيد

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

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

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

اليك اخي مثال من الاكسل مثال.rar

بارك الله فيك اخي الكريم جزاك الله خيرا لم اتمرن على الاكسس كثيرا مبتدأ جدا اريد ان اعرف هل ممكن استعمال الميلتباج مثل الاكسل في صفحة الفورم ام لا

السلام عليكم ورحمة الله اريد كود يقوم بأظهار الفورم فقط دون اطار الاكسس كما في الاكسل وجزاكم الله خيرا

نسال الله سبحانه وتعالى ان يغفر له ويثبته ويرزقه الجنة إنا لله وإنا إليه راجعون لله ما أخذ ولله ما أعطى

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

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

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

اخي الكريم السلام عليكم ماذا تقصد بالشاشة الادخال اذا كان الفورم كما في النسخة 2007 نفسه في النسخة 2010 وبنفس الشكل التعديل الموجود في 2010 في الواجهة واذا كنت تريد الدخول الى محررالاكواد وادراج الفورم اضغط (Alt + F11) هذا حسب مافهمت من سؤالك -------------------------------------------------------------------------------- واذا كان شيئا اخر ارفق نموذج لطلبك

السلام عليك اخي الكريم تفضل ربما يناسبك الحل المصنف1.rar

جزاك الله كل خير

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

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

الاخ عبد العزيز جزاك الله كل خير وزادك علما ونفع بك نجح الامركله حل ولا اروع حقا

الاخ ياسر اخي الكريم جزاك الله خيرا ولله كل من فضلكم - منكم اخذنا ولم تبخلوا علينا بالعطاء جزاكم الله عنا خير الجزاء شرح ولا اروع لو كنت كنت انامن شرح لم شرحته بهذه الكفاءة الاخ شكيب عمار دعاءك لنا تشيجيع اكثر واكثر جزاك الله خيرا

هل شرح كيفية عمل الفورم او شرح الاكواد كلها لانه ليس كود واحد بل هناك مجموعة من الاكواد وكل كود على حدى -------------------------------------------------------------- الفورم --------------------------- اذا كنت تريد جلب البيانات 1 ضع في الخانة الاولى او التاكست بوكس رقم الموظف واضغط على استدعاء سيتم جلب البانات 2- بعد جلب البيانات داخل الليست بوكس قم بتحديدها سيتم ظهورها في التاكست بوكس قم بتغيير ماتريد تغييره ثم اضغط تعديل سيتم التعديل في نفس المكان وهكذا

السلام عليك اخي ضع الكود في حدث الورقة وجرب ان شاءالله ياتي بثماره Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False On Error Resume Next For Each c In Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row) X = Cells(c.Row, Columns.Count).End(xlToLeft).Column + 1 If c = "Yes" Then If Cells(c.Row, X) = "" Then Cells(c.Row, X).Value = c.Offset(, -3).Value End If End If Next c Application.EnableEvents = True End Sub

اخي جزاك الله خيرا و زادك من العلم ونفع بك نجح الامر مع البحث وبقي التعديل لتمام الطلب واعذرني على كثرة الطلب