مهند الزيدي

للرفع

السلام عليكم ورحمة الله وبركاته ..وكل عام وانتم بخير.. ممكن عمل كود للفورم يقوم بإضافة او حذف صف ..وكذلك التنقل بين الصفوف في ورقة عمل معينة ..كما مبين في المرفق.. وفقكم الله لكل خير.. إجور.rar

للرفع

شكرا لك أخي العزيز "Amr Ashraf" ..بالعكس لك الفضل بعد الله في مساعدتي ..واشكرك على تحمل طلبي.. عندما وضعت "<>0" بدأ يطلب مني قيمة الحقول كما في الصورة..

للرفع

شكرا لك اخي العزيز "Amr Ashraf" وفقكم الله لكل خير..وكل عام وانت وجميع من في المنتدى بالف خير .. كيف.يمكن إخفاء الحقول لو كان المجموع الكلي لكل موزع "Total" يساوي صفر عند طباعة التقرير

شكرا اخي العزيز"Amr Ashraf" على المساعدة ..وفقك الله لكل خير .. بس بقى حقل مجموع كل ايرادات لكل موزع .. وجزاك الله خيرا ..

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

شكرا جزيلا اخي "Amr Ashraf" وفقك الله لكل خير..لو أردنا ان يكون المجموع بشرط ان يكون التصنيف يساوي 1 او 2 ..أي يكون هناك حقل مجموع عندما يكون حقل التصنيف =1 وحقل مجموع عندما يكون التصنيف =2 ...مع شكري على المساعدة

للرفع

السلام عليكم ..رمضان كريم .. في قاعدة هناك جدولين ..هل هناك عملية ربظ بين الجدولين بإستعلام او كود يقوم بإظهار مجموع إيراد كل موزع في الجدول الأول ..في جدول الثاني حسب إسم الموزع ..مع شكري وتقديري DB1.rar

شكرا لك أخي العزيز ياسر ... ماأريده هو بقاء الماكرو شغال إثناء مشاركة الملف وعدم ظهور هذه الرسائل

السلام عليكم ورحمة الله وبركاته ... عتد مشاركة ملف أكسل بين جهازين علما أن الملف به ماكرو ..وعند فتحه في أحد الأجهزة المشتركة تظهر رسالة كما في الصورة ويفتح المصنف على VBA ويظهر UNViewable >> وفقكم الله لكل خير

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

شكرا لك أخي العزيز ياسر ...وفقك الله لكل خير .. يكفيني شكرا وامتناناً مجرد النظر لمشاركتي ..فما بالك بالرد عليها دائما ماكنت خير سند لكل من في المنتدى بما فيهم أخيك المتواضع ... زادك الله علما وعملا ومعرفة وصحة دائمة

للرفع

السلام عليكم ورحمة الله وبركاته .. الكود التالي يقوم بتصدير البيانات الموجودة في ورقة الاكسل الى جدول في اكسس.. Sub Expert_to_Access() ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\export.accdb ;Persist Security Info=True" Set oCn = New ADODB.Connection oCn.ConnectionString = ConnString oCn.Open sSQL = "delete from t ;" oCn.Execute sSQL sSQL = " INSERT INTO t SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "].[Data$a:e] ;" oCn.Execute sSQL End Sub ولكن عند تنفيذ الكود تظهر رسالة الخطأ عند السطر Set oCn = New ADODB.Connection وتظهر الرسالة التالية ...المرفقة في الصورة المرفقة الرجاء الحل وفقكم الله لكل خير export to access.rar

تفضل أخي .. كلمة المستخدم " أبو هديل " والباسورد " 10434" Test.zip

السلام عليكم ... تابع الموضوع التالي....

شكرا لك أخي العزيز " عمر الحسيني " وفقك الله لكل خير وجعله في ميزان حسناتك

شكرا للاح "" عمر الحسيني "" وفقك الله لكل خير ... وكل عام وانت بخير وجميع اعضاء منتدى اوفسنا الرائع.. اذا اردنا ان يكون المجموع ليس للعمود E فقط ولكن مثلا للعمود من B الى E أو أعمدة متفرقة حسب الحاجة .. وشكرا لكل أخي العزيز مرة أخرى

Sub Show_Sheets_Tab() Dim x x = InputBox("ادخل كلمة المرور.", "Password Required") If x = "123" Then ActiveWindow.DisplayWorkbookTabs = True Else MsgBox "كلمة المرور غير صحيحة" End If End Sub توضع في موديول وفي حدث المصنف تضع الكود التالي لإخفاء التبويب عند تشغيل المصنف ActiveWindow.DisplayWorkbookTabs = False

كل عام وانت بخير اخي "ياسر خليل" اسعدنا وجودك ..ودمت بخير وصحة بالنسبة لطلب الاخ هذا الموضوع

للرفع

للرفع