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

وهذي مشاركتي معاكم يا اخواني لإستدعاء اسم المستخدم في اي مكان داخل البرنامج ضع في مصدر عنصر التحكم [User_logIn] 😅 User&Password.accdb

استخدم هذا ... <<<<<<<<<>>>>>>>>> .usedRange.rows(1).Interior.Color = vbYellow تفضل ملفك .... export _kanory.accdb

تفضل

وهذه مشاركة على استحياء من استاذي @husamwahab طريقة اخرى !!! User&Password-1.rar

تفضل هذه المحاولة User&Password-1.rar

تفضل اخي الكريم Dim X As String Dim X1() As String Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.RecordsetClone.RecordCount X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "|||") X1 = Split(X, "|") Me.وحدة = X1(1) Me.السعر = X1(0) DoCmd.GoToRecord , , acNext Next استعلام.rar تحياتي

بسم الله الرحمن الرحيم لمن يعرف المكتبة الشاملة أهدي له رابط واحد مباشر حجمه 4.5 جيجا بايت للمكتبة الشاملة الإصدار 3.15 به 6688 كتاب ولمن لم يعرفها بعد فهي: المكتبة الشاملة الهدف من هذه المكتبة ليس مجرد جمع بعض الكتب المجانية من الإنترنت في مكتبة واحدة بل الأهم من ذلك هو إمكانية إضافة الكتب وتعديلها لتكون المكتبة الشخصية لطالب العلم والمكتبة مجانية ويمكن تحميلها من موقع المكتبة مجانا shamela.ws لا يجوز استخدامها لنشر ما يخالف منهج أهل السنة والجماعة. وليس هذا تضييقا على طالب العلم ، بل يجوز لطالب العلم المتبصر أن يضع من كتب أهل البدع مثلا ليرد عليها أو نحو ذلك أما نشر هذه الكتب فإن من شرط جواز استخدام هذه المكتبة عدم استعمالها في ذلك يجوز - بل يشجع - نشر المكتبة على اسطوانات أو في المنتديات أو على مواقع الإنترنت للحصول على آخر تحديثات البرنامج وآخر الكتب المضافة استخدم خاصية الترقية الحية في البرنامج أهم التحديثات 1- الآن صارت الشاملة portable لا تحتاج لتنصيب ، وتعمل على نظام التشغيل ويندوز من 95 حتى فيستا ، ودعم أفضل للشبكات (يمكن لأكثر من مستخدم على الشبكة استخدام الشاملة، ويكون لكل مستخدم على الشبكة خياراته الخاصة ومجالات بحثه ونحو ذلك) 2 - إضافة خدمة التخريج لكتب الحديث النبوي 3 - التحديث التلقائي من الإنترنت : هذه الخاصية تتعرف على الكتب التي تنقصك فقط ، من موقع البرنامج وتعطيك روابط مباشرة لتحميلها، وأيضا تكتشف إن كان إصدارك الحالي من الشاملة هو آخر إصدار أم هناك إصدار أحدث منه ، ورابط تحميله 4 - تمييز كتب الموقع الرسمي عن غيرها ، وبإمكانك وأنت تتصفح أي كتاب من كتب الموقع الرسمي أن تدخل مباشرة لصفحة الكتاب على الموقع 5 - إمكانية ربط كتاب الشاملة بكتاب مصور pdf موافق لترقيمه، بحيث يمكنك وأنت تتعامل مع كتاب الشاملة أن تصل لنفس الموضع من الكتاب المصور وتستعرضه من داخل الشاملة. وكتب الموقع الرسمي يمكن ربطها بنسخ مصورة حتى مع اختلاف الترقيم 6 - تحسينات في الاستيراد ، أهمها إمكانية استيراد الملف مطابقا لملف الوورد، بحيث تكون كل صفحة وورد في صفحة شاملة، وبنفس ترقيم الصفحة، واستيراد الشعر المنسق عموديا بطريقة سليمة، وأيضا إمكانية استيراد الملفات المضغوطة zip و rar دون الحاجة لفك ضغطها ، وغير ذلك 7 - تحسين فهارس البحث، بحيث لا يهنج الجهاز عند فهرسة أي كتاب مهما كان حجمه 8 - إمكانية التدقيق الإملائي للكتب من داخل الشاملة ، باستخدام قاموس الوورد، أي أن تصويبات واقتراحات الوورد تأتيك داخل الشاملة- دون الحاجة لأن تفتح أنت الوورد إطلاقا - ، لكن مع الاستعانة بقاموس آخر خاص بالشاملة، يمكنك إضافة ما شئت من الكلمات إليه، بدلا من قاموس الوورد المحدود بعدد معين من الكلمات 9- زيادة في سرعة البحث سواء كانت بالفهارس أم بدن فهارس ، تصل لأكثر من ضعف سرعة الإصدار السابق ، وقدرها بعض من اختبرها بـ 65 % أو أكثر ، والحمد لله 10- تحسينات أخرى كثيرة في عامة شاشات البرنامج : مثلا ، بمجرد الإشارة لزر البطاقة، يظهر لك تلميح ببطاقة الكتاب، وإضافة خدمات مثل تغيير ترتيب جميع كتب البرنامج نهائيا (أبجديا أو حسب الوفيات)، واستخدام القص واللصق لنقل ولترتيب الكتب في شاشة التحكم ، وغير ذلك مما لا مجال لذكره هنا وهذه صورة الشاشة الرئيسية ولمن لا يستطيع تحميل المكتبة لبطء النت لديه فهذه هدية أخرى يمكنك تصفح الكتب من على النت من هذا الرابط https://al-maktaba.org/#categories وهذا الرابط للتحميل والآن مع التحميل والجميل في هذا الملف أن فك الضغط عنه لا يستغرق سوى 10 دقائق وليس مثل مجموعة الروابط المقسمة إلى 39 جزء وحجمها 3.63 جيجا بايت والتي يتم فك الضغط عنها في أكثر من 5 ساعات وفي الأخير لا تنسوا أخاكم محمد صالح من صالح دعائكم

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

عناصر التحكم مربع النص - مربع التسمية - الأزرار - ..... الخ

تفضل هذه المشاركة Nouveau Microsoft Access Database.accdb

تفضل هذا التعديل export excelw.accdb

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

وعليكم السلام .. جرب تغيير اعدادات اللغة والمنطقة اي تغيير المنطقة للدولة التي انت فيها او ربما هناك نقص في المكتبات

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

السلام عليكم اساتذتي الكرام استاذ @AlwaZeeR تحياتي لك عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا عند زيادة سجل او عدة سجلات في الجداول كما قي الصور 1و2و3 وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range يصل اللون الى كل من اول خلية الى اخر خلية بالاكسل كما في الصورة 4 هل من الممكن التعديل على الوحدة النمطية في الملف المرفق مثلا جعل الخلايا التي ليس بها بيانات بدون لون او كلما يزيد سجل في الجداول ياخذ لونه بصورة تلقائية علما باني استخدم اوفيس 2010 ولدي عدد مختلف من السجلات في الجداول وشكرا لتعاونكم حفظكم الله export excelw.accdb

عليكم السلام و رحمة الله وبركاته الجزء الثاني من المطلوب غير منطقي حيث سيظل الكود في حلقة من الأحداث لا تنتهي فمثلا تم تغيير الدور الاول إلى الثالث فيفترض من الكود أن يبحث عن موظف الدور الثالث ويضعه في الدور الأول وحينها يتم استدعاء كود حدث التغيير لأن خلية الدور الثالث تغيرت في العمود E وساعتها يبدأ في البحث وهكدا والحل في هذه المشكلة كتابة التغيير المطلوب في العمود G مثلا بالكود ويتم كتابته مرة أخرى يدويا في العمود E مع تعديل حدث التغيير إلى هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("e8:e100")) Is Nothing Then Exit Sub lr = Range("h" & Rows.Count).End(xlUp).Row + 1 Cells(lr, "h") = Target.Offset(0, -2) Cells(lr, "i") = [k1] Cells(lr, "j") = Target.Value lr1 = Range("e" & Rows.Count).End(xlUp).Row If Target.Offset(0, 2) = "" Then For n = 8 To lr1 If n <> Target.Row And Cells(n, 5) = Target.Value And Cells(n, 4) = Target.Offset(0, -1) And Cells(n, 6) <> "راحة" Then Cells(n, 7) = [k1] Next n Else Target.Offset(0, 2) = "" End If End Sub بالتوفيق

يمكنك استعمال هذه المعادلة في التنسيق الشرطي =AND(A4<>"",A4<B4) وتقوم باختيار التعبئة أو اللون المرغوب ويتم تطبيقها على. العمود A مثلا أو أي خلايا منه وإذا أردت تمييز الخلايا التي تساوي المتوقع أو أكبر يمكن استعمال هذه المعادلة =AND(A4<>"",A4>=B4) بالتوفيق

Here's the file You can click the button which has the caption [Click Here] or you can enter any value in column C in the first sheet to trigger the code GetUnique.xlsm

Sub Test() Dim a, x, ws As Worksheet, sh As Worksheet, r As Range Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) Set r = ws.Range("C2:C" & ws.Cells(Rows.Count, "C").End(xlUp).Row) a = Application.Transpose(r.Value) With Application x = .Index(a, 1, Filter(.IfError(.Match(.Transpose(.Evaluate("ROW(1:" & UBound(.Match(a, a, 0)) & ")")), .Match(a, a, 0), 0), "|"), "|", False)) End With sh.Range("B2:B" & Rows.Count).ClearContents sh.Range("B2").Resize(UBound(x)).Value = Application.Transpose(x) End Sub

First correct the combobox name from [Calss] to [Class] In userform module Dim ws As Worksheet, m As Long Private Sub StudentName_Enter() Dim a, i As Long, k As Long If Natija.Value <> "" And Class <> "" Then a = ws.Range("A2:D" & m).Value ReDim b(1 To UBound(a, 1)) For i = LBound(a) To UBound(a) If Val(a(i, 3)) = Val(Class.Value) And a(i, 4) = Natija.Value Then k = k + 1 b(k) = a(i, 2) End If Next i If k > 0 Then ReDim Preserve b(1 To k): StudentName.List = b End If End Sub Private Sub UserForm_Initialize() Dim a Set ws = Worksheets("Sheet1") m = ws.Cells(Rows.Count, "B").End(xlUp).Row a = GetDistinct(ws.Range("D2:D" & m)) Natija.List = a a = GetDistinct(ws.Range("C2:C" & m)) Class.List = a End Sub Function GetDistinct(ByVal oTarget As Range) As Variant Dim vArr, v, dic As Object Set dic = CreateObject("Scripting.Dictionary") vArr = oTarget For Each v In vArr If Not IsEmpty(v) Then dic(v) = v Next v GetDistinct = dic.Items() End Function

وعليكم السلام ورحمة الله وبركاته الجداول المؤقتة تستخدم كما ذكرت لتخفيف قاعدة البيانات وذلك بتقليص حجمها يتم انشاء الجداول المؤقتة عن طريق الكود او عن طريق استعلام من الكود CurrentDb.Execute "SELECT tbl1.textname INTO tbl_temp FROM tbl1;" من الاستعلام SELECT tbl1.textname INTO tbl_temp FROM tbl1; في هذه العملية يتم استنساخ جزء او كل الجدول او الاستعلام وتكوين جدول جديد مع وضع معايير او بدون العملية شبيهة باستعلام الالحاق لكن هنا يتم انشاء الجدول اولا ثم الحاق البيانات في المثال السابق يوجد جدول tbl1 وهو الجدول الاصلي وبه خقل textname سيتم انشاء والحاق البيانات في الجدول المؤقت هو tbl_temp يمكن الاستفادة من الجدول في تقرير او نموذج وبعد الانتهاء من العملية نقوم بحذف الجدول الموئقت كالتالي DoCmd.DeleteObject acTable, "tbl_temp" العملية بسيطة وغير معقدة ولا تنسى عمل ضغط واصلاح لقاعدة البيانات عند الاغلاق لتعود مساحة قاعدة البيانات الى ما كانت عليه تحياتي

تفضل التنسيق في وحدة نمطية export excelw.accdb

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

ما الذي تريده بالضبط.. النتيجة ظهرت كما اردت انت

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

وعليكم السلام ورحمة الله وبركاته جرب تنسيق الملف مسبقاً يالتسيقات اللازمة ثم قم بعمل تصدير ستجد الملف يحتفظ بالتنسيقات المعدة مسبقاً تحياتي

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

الشكر لله الذي وفقنا

Thank you very much for this trust. I am not expert, I am just a learner

هذه عملية بحث بسيطة يمكن استخدام الكثير من معادلات البحث وأبسطها استعمال هذه المعادلة في الخلية E3 =VLOOKUP(D3, A1:B100,2, 0) حيث الرقم مكتوب في D3 بالتوفيق

وفقنا الله جميعا لكل خير

ما إصدار الأوفيس والويندوز لديك وهل 32بت أم 64؟ حيث ان امتداد xlsb يعمل من إصدار 2007 وما بعده وهل يتم هذا مع ملفات xlsb الجديدة التي يتم حفظها بنفس الاكسل؟

تفضل هنا حلين بعد تغيير اتجاه الخلايا وتغيير مكان البداية في شيت H-5 واحد بدالة offset وواحد بالتركيبة المطلوبة بالتوفيق how-can-get-data-from-other-sheets_2.xlsx

شكرا لكم جميعا على المرور الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

آمين شكرا لك أخي الكريم

وللعلم يوجد في المكتبة خاصية استيراد الملفات النصية مثل txt & doc & rtf & html وإدخالها داخل المكتبة ومعاملتها معاملة الكتب الموجودة بها

شكرا لك أخي الكريم على مرورك العطر

تفضل أخي الكريم أتمنى أن يكون هو المطلوب mas-lastcellvalueorder.rar

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

أخي الكريم بهدوء وتنظيم أخبرت أنك تريد معادلة في العمود D قائمة على قيمة العمود C وترتيب ما قبله في العمود D والآن تقول مسح الرقم الموجود في العمود D لاحظ أنك في هذه الحالة تمسح معادلة وليس رقما وماذا ستكتب بعد حذف المعادلة في صف معين؟ رقم ممكن يكون أكبر من الترتيب السابق؟ فهل تريد إمكانية حذف المعادلة ووضع أرقام بدلا منها وتجاهل ما هو مكتوب كرقم في العمود D وليس ناتجا عن المعادلة؟ إذاً ما فائدة الأرقام التي تكتب أصلا طالما يتم تجاهلها وكأنها غير موجودة برجاء المزيد من الإيضاح

أنت أكثر افتقدناكم كثيرا الحمد لله على سلامة العود

أكرمك الله أخي حسن ثروة ايه يا راجل كفاية مرورك على الموضوع واحتفاظك بالملف أخي الكريم الملف الذي عرضه أخي حسن علي هو لعمل تفقيط بدون كود ومن الواضح في مطلوبك أنك تريد تفقيط بالكود وهذا موجود بكثرة في المنتدى وباللغتين العربية والانجليزية وبقليل من البحث سوف تجده وعلى العموم هذا رابط لملف التفقيط العربي والانجليزي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_rel_module=post&attach_id=26618 وأصل الموضوع هنا http://www.officena.net/ib/index.php?showtopic=29357&view=findpost&p=145920 تحياتي للجميع أخوكم محمد صالح