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

تسلم اخي جعفر وهذا حسب طلب الاخ محمد صلاح 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

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

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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'") مع تغيير ما يلزم تحياتي

تحياتي الخالصة، تم التعديل على تنسيق الخلية من التنسيق : [$-,201]yyyy/mm/dd;@ إلى التنسيق: [$-,201]yyyy/mm/dd;;0 أرجو أني فهمت ما تريد ووفقت في الإجابة.... بن علية حاجي حسابالجودة2019.xlsx

نعم تم غلق النسخة ولم يظهر امر الدخول

بدون ملف مرفق من الصعب التكهن لكن ربما يفيدك هذا المثال tones.xlsx

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

وعليكم السلام 🙂 اذا OLE ، اذن لا توجد لغة صحيحة بها UNICODE 🙂 جعفر

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

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

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

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

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

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

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

الله يعطيك العافية أخي @qathi لا تحتاج الى موديل بعد عمل الخطوة رقم 2 ضع الايقونة بنفس المجلد فقط وستظهر اينما نقلت البرنامج ::بالتوفيق::

ضع هذا الماكرو في مديول غير اسم الشيت الديون الى data1 واسم الشيت العملاء data2 او غير رهما في الماكرو الى العربي في الصف الثالث والرابع Sub test() Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("data1") Set ws2 = Sheets("data2") Dim lr, lr2, x, xx, x1, x2, y Application.ScreenUpdating = False lr = ws.Cells(Rows.Count, "c").End(3).Row lr2 = ws2.Cells(Rows.Count, "b").End(3).Row For xx = 2 To lr2 For x = 6 To lr If ws2.Cells(xx, "b").Text = ws.Cells(x, "c") Then x1 = x1 + Val(ws.Cells(x, "e")) x2 = x2 + Val(ws.Cells(x, "g")) End If ws2.Cells(xx, "c") = x1 - x2 Next x1 = 0 x2 = 0 Next Application.ScreenUpdating = True End Sub

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

تفضل أخي محمد .... ظهور تاريخ أخر دخول للمستخدم.mdb فكرة لك .... لماذا لا تضيف التاريخ والوقت معا ... لأن المستخدم قد يدخل للبرنامج خلال اليوم أكثر من مرة .......

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

وهذا في حدث الشيت ان كان اليبل والتيكست بوكس على صفحة العمل 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

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

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

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

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

السلام عليكم صباحكم عسل الف الف مبرووك اخواني @Barna و @ابوآمنة انضمامكم الى فريق الخبراء تستاهلو كل خير ع جهودكم واحب اشكر كل القائمين على هادا الصرح المبارك وكل من شارك وساعد ولم يبخل بمعلومه جميعكم على العين والراس

عذرا استاذى انا طالب عالم ويحق لى ان اسأل كما اشاء وواجب عليك ان تتحمل طلاب العلم

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

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

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

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

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