نجوم المشاركات

تسلم اخي جعفر وهذا حسب طلب الاخ محمد صلاح MP3_WAV_Player_SEMO_Pa3x(3).accdb

وانا فرحت لما شاهدت الاعجاب حدثتنى نفسى انك قمت بالتجربة ونالت رضاكم

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

أخي @بلال اليامين تفضل قمت بأنشاء ملف تابع الشرح الموجود بالصور مرفق ملف : IconsQ.rar

لا لزوم للكود في هذه الحالة تكفي هذه المعادلة ( في الخلية C2 و تسحب نزولاً) =SUMPRODUCT((الديون!$C$6:$C$100=$B2)*(الديون!$E$6:$E$100-الديون!$G$6:$G$100))

السلام عليكم باستعمال معادلة (طويلة نوعا ما) تم عمل المطلوب... يمكن تبسيط الحل باستعمال الأكواد (وأترك هذا للإخوة الكرام). بن علية حاجي Bulding.xlsm

عليك السلام ورحمة الله وبركاته تم الحل بعمل دالة معرفة فتكون المعادلة هكذا =الشقق(C4:S4) Bulding.xlsm

بعد اذن الاخ حسين 1-هذا الكود يضيف لك Hypperlink من كل صفحة (في الخلية F1) الى الصفحة الرئيسية SALIM 2-في حال تكرار الاسم الماكرو يتجاهل هذا الامر (دون رسالة خطأ) 3-كما يضيف لك حرية الانتقال الى الصفحة التي تريد من خلال الضغط على الاسم الذي تحتة خط في الصفحة SALIM 4-كل ما عليك هو تغيير اسم الشيت الاولى الى SALIM لحسن نسخ الكود ولصقة دون ظهور احرف و كلمات غير مفهومة في الكود Option Explicit Sub ADD_SH_with_Hyper() 'code to add Sheets One Time WITH HYPERLINKS 'Crated By Salim Hasbaya On 5/11/2019 Dim Rg As Range Dim sh As Worksheet Dim LA%, K%, i%, m%: m = 2 Dim x Dim ws As Worksheet Set sh = Sheets("SALIM") Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In Sheets If ws.Name <> "SALIM" Then ws.Delete End If Next Application.DisplayAlerts = True LA = sh.Cells(Rows.Count, 1).End(3).Row For Each Rg In sh.Range("A2:A" & LA) If Rg.Value <> "" Then If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Rg.Value With ActiveSheet .Hyperlinks.Add Anchor:=.Range("F1"), Address:="", SubAddress:= _ "SALIM!A1", TextToDisplay:="Goto SALIM" For K = 2 To LA If sh.Range("A" & K) = .Name Then .Cells(m, 2) = sh.Range("B" & K) m = m + 1 End If Next K m = 2 .Cells(1, 2) = .Name .Range("B:B,F:F").EntireColumn.AutoFit End With End If End If Next Rg With Sheets("SALIM") .Hyperlinks.Delete For i = 2 To LA x = Application.CountIf(sh.Range("A2:A" & i), sh.Range("A" & i)) If x = 1 Then .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _ "'" & .Range("A" & i) & "'!A1", TextToDisplay:=.Range("A" & i).Value Else sh.Range("A" & i).Font.Underline = False End If Next .Select Application.ScreenUpdating = True End With End Sub الملف مرفق للتجربة Create_sheet_with Hyperlink.xlsm

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

رحم الله والديك ، سهلت علينا الطريق هلا والله أبوآمنة 🙂 اشوف واخبرك ، بس للعلم ، انا ملاحظاتي مو اللي تجي على بالك جعفر

السلام عليكم ورحمة الله تفضل الحل بمعادلة في الملف المرفق... new (1).xlsx

كلمة المرور:123 لم اهتم بذكرها لأنها متعارف عليها لدى المبرمجين . والبرنامج مفتوح المصدر وقد ذكرتها في الاصدار الأول . أما كلمة المرور الخاصة بالتعديل على الفواتير السابقة هي : 123456 أيضا واضحة في الكود ولم أقم بالتشفير . وبالتوفيق وشكرا لك معلمنا ابا جودى قد شرفت مشاركتنا فلك منا كل الاحترام والتقدير والمحبة .

وأخيرا ولله الحمد تم التوصل للنتيجة المطلوبة بفضل الله تعالى ثم ارشادات وتوجيهات معلمى القدير واستاذى الجليل واخى الجبيب الاستاذ @AlwaZeeR أخبرنى انه يمكن تثبيت والتحكم فى هوامش التقارير برمجيا وبحثت عن ذلك ووجدت الأكواد جزاكم الله حيرا استاذى واللهم اسأل ان يفرج عنك كربات الدنيا والآخرة كما فرجت عنى كربى ----------------------------------- كما اننى أدين كذلك بكل الفضل لاستاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr لتصحيحه ما وقعت به من خطأ وبفضل الله تعالى ثم فضلكم الذى سوف اظل ادين به لكم ما حييت تم حل مشكلتى وتدارك ما وقعت به من خطأ بارك الله تعالى لكم فى العمر والعلم والاهل والولد ورزقكم من طيبات الدنيا وطيبات اعلى درجات الجنان ان شاء الله تعالى ولتعم الفائدة اضع المرفق ليكون مرجعا لمن يتعثر فيما تعثرت فيه Consumable Material Check List.accdb

الف مليون مرحب ربنا يزيد يبارك الف الف مبروك بهم اعانهم الله تحياتي

تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂 وشكرا لك على مراعاة قوانين المنتدى 🙂 جعفر

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

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

بعد اذن اخي ابو عبدالله اتفضل هذا طلبك Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _ "or A2='" & Me.txt_2 & "'") If rs.RecordCount > 0 Then ID_Sanf = rs!ID_Sanf Sanf = rs!Sanf A2 = rs!A2 Else MsgBox "لايوجد رقم" 'Rajmsanf = "" Sanf.SetFocus txt_2.SetFocus ID_Sanf = Null Sanf = Null A2 = Null End If

دورة اكسس للمبتدئين تابعوا الشرح على هذا الرابط

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

هلا والله 🙂 يعني لازلت تذكر 🙂 جعفر

بشر نفسك انت انت من تريد تلك الحمايه

أستاذي @ابا جودى وأستاذي @sandanet أبشركم بما يسركم .. قبل وبعد الفرمات ظهر الرقم نفسة حتى يتضح ماقمت توضيح الخطوات: - التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم - النظام قبل الفرمات ويندوز 10 - 64Bit أوفس 2016 32Bit - النظام بعد الفرمات ويندوز 7 - 32Bit أوفس 2016 32Bit

أستاذي @ابا جودى ملفك يعمل تمام .. لكن ممكن أفهم سبب الرسالة .. لانها تظهر عند فتح ملفات أخرى ؟؟؟

عيوني لك ياغالي 🌺🌺 بس للأسف ليس لدي شبكة داخلية حالياً في العمل حتي استطيع التجربة

دائما اعمل هذه الطريقة في برامجي جربت والطريقة ناجحه

أخي kaser906 قمت بتجربة ذلك من قبل ولم تنفع .. جرب بنفسك

الظاهر انني نسيت ان اخبرك انها تعمل عندي اوفيس 365

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

بالتوفيق اخي محمد صلاح1 ونكرر الشكر للاخ جعفر

أستاذ mohamedkaven أين الضغط على الإعجاب ؟!!!!!!

تفضل test (2).xlsm

وهذا في حدث الشيت ان كان اليبل والتيكست بوكس على صفحة العمل Private Sub Worksheet_Activate() If Label1.Caption = "" Then TextBox1.Visible = False Else TextBox1.Visible = True End If End Sub

هذه تجربة ولكن ليس في ملفك ملفك لايريد ان يفتح عندي Book1.xlsm او ضع هذا الكود في حدث الفورم Private Sub UserForm_Initialize() If Label1.Caption = "" Then TextBox1.Visible = False Else TextBox1.Visible = True End If End Sub

هههههههههه النسخة المفتوحة تحتاج الى راى اولا وهو اريد ان تعمل النسخة على جهاز عميل واحد فقط ؟؟

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

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

جرب المرفق my_test.rar

نعم هو كما تقول اخى ولكن هناك اختلاف بسيط عن السابق هو انى لا اقوم بتحميل الملف النصى الى الجهاز . الان قاعدة البيانات تقرأه اونلاين بدون تحميل ////////////////// بهذا المرفق تسطيع التحكم فى فتح قاعدة البيانات واغلاقها حتى لو قام المستخدم بتغيير تاريخ الجهاز انت فقط المتحكم on & off كلمتان تكتبها فى الملف النصى وتجعل قاعدة البيانات تقرأها

السلام عليكم الرمز LOG هو رمز الدالة "اللوغاريتم العشري" (الذي أساسه 10) والرمز LN هو رمز "اللوغاريتم النيبري" (الذي أساسه e)... ومن بين خواصهما : (LOG(a^n)=n.LOG(a أو (LN(a^n)=n.LN(a وللحصول على العدد n (الذي هو قوة -أس- للعدد a) يجب القسمة على (LOG(a أو (LN(a حسب الدالة المستعملة... وفي مثالنا العدد a هو 2 والعدد n هو قوته (أسه) لأن : بقسمة 12 على 3 نجد 4 و 4=2^2 وبقسمة 24 على 3 نجد 8 و 8 = 2^3 وبقسمة 48 على 3 نجد 16 و 16 = 2^4... أرجو أني وفقت في الشرح... بن علية حاجي

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

شكرا اخوي ابا جودي ، سهلت عليّ المهمة 🙂 جعفر

اهلا وسهلا بكم واعانكم الله كل الاحترام والتقدير

بعد إذن والدى الحبيب واستاذى الجليل ومعلمى القدير الاستاذى @jjafferr اسمح لى اقوم بارفاق هذا التعديل على المرفق لاخى صاحب المسألة - انشاء الـ QR Code لكل سجل على حده داخل النموذج المستمر -انشاء الـ QR Code لكل السجلات داخل النموذج المستمر دفعة واحدة بكبسة زر واحدة -عرض الـ QR Code الذى تم انشاءه لكل سجل على حدة أو الــ QR Code الذى تم انشاءه لكل السجلات دفعة واحدة بكبسة زر واحدة داخل النموذج المستمر -عرض تقرير لكل سجل على حده فى من خلال السجل الحالى داخل النموذج المستمر -عرض تقرير مجمع لكل السجلات فقط التى تم انشاء الـ QR Code لها فقط اتفضل يا استاذ @nasseam1969 سؤال 2.zip

هل يمكن ان يتكرر نفس الصف لا وجود للمستحيل مع اكسل فقط جرب هذا الملف maktaba.xls

العامود C يحتوي على خلايا فارغة التي توقف الكود عن عمله مثلاً الخلية C143

الملف يعمل عل أكمل وجه مرفق مع الكود mosharikin.xlsm

شرُف منتدانا بانضمامكم لمجموعة الخبراء زادكم الله علما ونفع بكم

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

وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة اضع هذا العمل المتواضع بين اياديكم شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه Connect To Network.mdb