تامر خليفه

ولكني فعلا ادمن علي الجهاز وهذا يحيرني اخي الفاضل انا اقوم بالعمل الكثير علي الاكسس والفاجوال ولاول مره يطلب من الدخول كمسئول رغم اني فعلا مسئول

بعد التنفيذ يظهر الخطأ التالي

عفوا ياشباب اخطأت في صياغه السؤال سؤالي الاساسي كيف احذف العلاقات بين الجداول برمجيا بشرط بدون اسئله تاكيد لان حذف الجدول يمكن بالمايكرو لكن بشرط عدم وجود علاقات اسف مره اخري وشكرا مجددا

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

هل من حل يا محترفين ام اتجاهل الموضوع

ليس هذا هو المطلوب حضرتك هنا صممت مياكرو فقط لكن انا عاوز اكون مصمم مياكرو مثلا لطباعه ولما الخليه توصل لقيمه 5 ينفذ مياكرو الطباعه والف شكر لحضرتك

انا مش عاوز حاله معينه انا اسئل عن هل هناك امكانيه لكتابه كود في حدث تغير قيمه خليه بدلا من اضافه أزرار والكتابه تحت حدث الضغط ام لا

مرحبا للجميع هل هناك طريقه لتنفيذ مايكرو تلقائيا عند تغير في قيمه خليه وتغير قيمه الخليه من خلال معادله او يدويا بمعني اخر هل هناك طريقه اكتب كود في حدث تغير في قيمه الخليه او الكليك عليها وشكرا للجميع

الكود لا يعمل ويظهر خطا

مرحبا للجميع كما بالعنوان في جدول قد يطول او يقصر حسب البيانات كيف اخفي صف كامل اذا كانت الخليه "R" تحتوي علي صفر انا اعلم الكود الذي احدده في نطاق معين وهو Range("R8").Select Range("R8").Activate If ActiveCell.FormulaR1C1 = "0" Then Selection.EntireRow.Hidden = True End If ولكن هذا الكود في نطاق صغير محدد لكن في حاله كامل العامود فان الامر صعب جدا فما الحل وشكرا مقدما للتفاعل

الف شكر فعلا تم المطلوب

مرحبا للجميع علي حد علمي الضعيف اننا لو حجزنا متغير في موديول نستطيع ان نستفيد منه في كافه النماذج ولكن كيف افعل ذلك انا في مودويل كتبت dim x وفي احد النماذج أ تحت حدث كتبت x= text2 اريد في نموذج ب اخر ان اكتب name = x ولكن النموذج ب لا يستجيب ولا يستطيع قراء المتغير x برجاء المساعده

بالنسبه للكود الاول هو يعمل علي نقل التنشيط الي اخر سجل وانا اريد بقاعده if لو كان التنشيط وصل للسجل الاخير انتقل الي النموذج الرئيسي بالنسبه لباقي الاكواد تمام والف شكر اخي الفاضل

مرحبا للجميع ارجو سرعه الافاده يا جماعه 1- ما هو الكود الذي اعرف به ان التنشيط وصل الي اخر سجل في النموذج 2- وكيف انقل التنشيط من نموذج فرعي الي نموذج رئيسي او بمعني اخر كيف انتقل الي حقل معين في النموذج الرئيسي عندما يصل النموذج الفرعي الي اخر سجل علما ان النموذج الفرعي يتنقل بين سجلاته تلقائيا بالكود

تمااااااام الف شكر لمجهودك

مرحبا للجميع هل هناك طريقه لاجراء عمليات علي عدد سجلات النموذج او ادراج عدد سجلات محدده بناء علي رقم في خليه في النموذج ارجو الافاده

الف شكر علي المجهود لكن نصف المطلوب صحيح وهو بدايه الاهلاك من اول الشهر التالي لتاريخ الشراء ولكن معادله عدد الشهور و اخر تاريخ اهلاك غير صحيحه الف شكر لحضرتك

عفوا لم احسن شرح المطلوب انا بعمل ملف للاصول الثابته و اهلاكهتها كما هو موضح بالمرفق اريد ان يقوم الملف بحساب تاريخ بدايه الاهلاك من اول الشهر التالي لتاريخ الشراء و عدد شهور الاهلاك بناء علي نسبه الاهلاك من خلال معادله = عدد شهور الاهلاك = ( نسبه الاهلاك /100 )*12 و تاريخ نهايه الاهلاك هو تاريخ بدايه الاهلاك مضافه اليه عدد شهور الاهلاك Fixed_asset.rar

ممكن شرح الطريقه لو سمحت

مرحبا للجميع ارجو المساعده في خليه تاريخ مثلا 15/05/2016 اريد في خليه اخري ان يكتب 01/06/2016 وفي خليه ثالثه يضيف عدد محدد من الاشهر ثم يضفها علي تاريخ الخليه الثانيه

في المرفق يوجد ملف اكسيل به شيت ادخال الطباعه وشيت قاعده بيانات اريد عندما اكتب في شيت الطباعه جديد يظهر في شيت قاعدة بيانات بدون حذف السجلات السابقه انا اعرف كيف انقل بيانات بالاكواد ولكن ما ينقصني هو كيف اجعل التنشيط ينتقل تلقائيات علي السطر التالي ليكتب فيه سجل جديد Move_data.rar

مرحبا للجميع كيف انتقل تلقائيا الي سجل جديد لاسفل و اكتب فيه قيمه ماخوذه من جدول اخر بكود او اداه لتوضيح السؤال عندي جدول اعددته للطباعه بشكل معين اقوم فيه بتغير بياناته و يتم طباعتها ومسح ما بها بعد الطباعه كيف احفظ كل ادخال اقوم بكتابته في الجدول الاول في جدول اخر مع الاحتفاظ بالسجلات القديمه ارجو ان اكون قد اوضحت سؤالي للاخوه وشكرا للجميع

اعمله كلمه سر للسماح بالتعديل عليه او حمايه علي كل الشيت من خلال الضغط كيلك يمين علي علامه الشيت اسفل الصفحه واختيار protect sheet

شكرا لحضرتك الحمد لله توصلت للكود المطلوب Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim y y = Range("D1").Value Selection = y Range("D1").Activate End Sub شكرا مره اخري