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

في معيار اسم المندوب ضع الامر التالي: Like "*" & [b] & "*" And IIf(IsNull([ادخل اسم المندوب]),[b],[ادخل اسم المندوب]) حيث b هو اسم حقل المعيار وعندك اظن: اسم المندوب

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

انظر الى ها المرفق ان شاء الله تجد فيه ضالتك Automatically relink Access tables.zip

السلام عليكم بإمكانك إستخدام التالي بدلاً عن الاول بحيث يسهل فهم المعادلات المستخدمة Private Sub TextBox1_Change() Ali_S End Sub Private Sub TextBox2_Change() Ali_S End Sub Private Sub TextBox3_Change() Ali_S End Sub Sub Ali_S() If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then If TextBox1 = 3 Then TextBox4 = Se(Range("tabl1"), TextBox2, Range("tabl2"), TextBox3) End If End If End Sub Function Se(Tb1 As Range, V1 As Integer, Tb2 As Range, V2 As Integer) Dim M1, M2 On Error Resume Next With WorksheetFunction ' بحث بالعمود الاول للجدول1 ' لارجاع رقم الصف M1 = .Match(V1, Tb1.Columns(1), 0) ' بحث الجدول2 لارجاع رقم العمود M2 = .Match(V2, Tb2, 0) ' دالة Index ' لارجاع قيمة تقاطع صف مع عمود معين Se = .Index(Tb1, M1, M2) End With On Error GoTo 0 End Function البحث في جدول2.xlsm

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

أ.Khalf جرب المرفق وأفدنى بالنتيجة بالتوفيق معايير متعددة لاستعلام.accdb

حبيبى يا أبو عبدالله .. أحسنت والله .. وما زلت أتعلم رغم الكِبَر

أ.محمد صلاح1 جرب كده التنقلTest.accdb

وعليكم السلام-تفضل كشف الحساب1.xlsm

اختر بين اول مرفقين على حسب نواة التشغيل عندك

السلام عليكم اخواني الكرام قمت بتصميم هذا البرنامج لتصميم وطباعة الباركود فاعطوني رأيكم دام فضلكم اضف الخطوط الموجودة في المرفق الى مجلد الخطوط وشغل البرنامج 1- يمكنك تصميم اللصاقة المناسبة من التقرير 2- يمكن طباعة عدد محدد من اللصاقات ومن اي لصاقة يبدأ الطباعة 3- يمكن اختيار اتجاه الطباعة افقي او عمودي 4- يمكنك تحديد هوامش ورقة a4 حتى تتناسب مع اللصاقة المطلوبة تحياتي للجميع من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , باركود.rar

كيفية عمل اله حاسبة calculator فى صفحة شيت الاكسل الفيديو

الله عليك يا أبو عبدالله الحلوانى والله ريحتنى دا أنا كنت لسه هنوى أفكر بكره

(شٌ) يعني شاب بشرطتين (هذا شباب مضاعف )

بعد الأربعين ماشى .. بس أنا على مشارف الستين 😉

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

لا أعرف ما السبب عندك فالكود يعمل معى بكل كفاءة فالمشكلة من عندك

السلام عليكم جرب هذا التعديل على الكود Private Sub CommandButton1_Click() Dim origSht As Worksheet Dim destSht As Worksheet Set origSht = Worksheets("sheet 2") sheetsname = InputBox("Enter the sheet name!" & vbNewLine & vbNewLine & "Example:- the sales", "Attention") If sheetsname = "" Then MsgBox "again please", , "Attention" Exit Sub End If If sheetsname = (Sheets(Sheets.Count).Name) Then MsgBox "This Name already Exists", , "Attention" Exit Sub End If Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheetsname Set destSht = ActiveSheet origSht.Cells.Copy Destination:=destSht.Cells Dim cr As ChartObject With destSht For Each cr In destSht.ChartObjects If cr.Index = 1 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C27,O27:P27") If cr.Index = 2 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C28,O28:P28") Next cr End With End Sub

أ.ابو زاهر فقط عدل فى هذا السطر الـ 3 إجعلها 2 .Cells(lr + 1, c).Formula = "=SUM(" & .Range(.Cells(2, c), .Cells(lr, c)).Address & ")" أما عن الشرح فهذا أمر شرحه يطول .. أمهلنى كما أمهلتنى من قبل لعمل هذا الكود وسأعود إليك إن شاء الله بشرح يثلج صدرك بالتوفيق

أساذنا ابا جودى فكرة جديرة بالإحترام .. ابتديت أشك انك كيميائى

بالتأكيد لابد ان يحدث مشكلة معك فلم تضع الكود داخل الملف ولم تقم بحفظ الملف بصيغة XLSM طالما الملف به كود TEST -V2.xlsm

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

أ.محمد صلاح1 هو انا طبعا مش عارف النماذج اللى طبقت عليها فيها ايه بس شوف كدة انتقل التركيز على الفورم الآخر اخفاء نموذج (وليس اغلاقه) عند فتح نموذج اخر ثم العودة للنموذج المخفي وأغلاق المفتوح.mdb

انت لم تقم بفتح الصفحات بنفسك فقط يكفيك الضغط على كلمة ترحيل سيتم فتح صفحات بجميع أسماء الموظفين وترحيل البيانات التى تخص كل موظف فى صفحته وهذا ما تم توضيحه سابقا وليس هناك سوى هذان الحلين ,اختر منهما ما تريد

تفضل تم بمعادلات المصفوفة وهذا ملف اخر بالأكواد يقوم بترحيل بيانات كل موظف على حده فى صفحة مستقلة بإسم الموظف بمجرد الضغط على زر ترحيل 1Book2.xlsm 1Book2.xlsx

وعليكم السلام اخى الكريم-اهلا بك صديق كريم فى هذا المنتدى ,كان عليك من البداية استخدام خاصية البحث بالمنتدى فهناك العديد من الموضوعات التى تخص طلبك ومنها زيادة عدد الاعمدة لتصل الي 20 عمود في الليست بوكس وهذا كمان فيديو للشرح لتعلم الطريقة فالمنتدى تعليمى من المقام الأول حصريا اكسل vba كيفية اضافة اكثر من عشرة اعمدة الى الليست بوكس كود بسيط بدون تعقيد

بارك الله فيك استاذى الكريم وزادك الله من فضله ..... شرح وافى وكافى

تفضل لك ما طلبت الشهور المصرية .xlsm

وعليكم السلام أهلا بك فى المنتدى-تم عمل كل المطلوب مرفق جدول مصغر1.xlsx

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

وعليكم السلام-كان عليك من البداية استخدام خاصية البحث بالمنتدى فهذا الرابط به ما تريد https://www.officena.net/ib/topic/96368-كود-قائمة-باسماء-الصفحات/

استاذي أحمد لا حاجة لهذا الكود الطويل المفصل بالنسبة لابجدة الجدول كما ان عمليات SELECT ترهق الاكسل بدون فائدة (الرجاء قدر الامكان الاستغناء عنها) يكفي هذا الكود الخفيف Sub sort_me() Range("A1").CurrentRegion.Sort _ key1:=Range("A1"), Order1:=1, Header:=2 End Sub

وعليكم السلام-تم عمل قائمة بأرقاء واكواد العملاء فبمجرد اختيار الكود سيظهر لك اسم العميل بهذه المعادلة =IFERROR(VLOOKUP(D7,Sheet1!$A$2:$B$2000,2,0),"") امر تسليم 1 CBS.xlsm

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

بعد اذن استاذنا الكبير سليم حاصبيا نحن لا نريد ان نضع لكل عضو الحل جاهزاً فبذلك لا يمكن ان تتعلم ابداً ,والغرض الأساسى من انشاء المنتدى هو التعلم ونشر العلم-فمن الأفضل عدم اعطائك السمكة ولكن تعلمك كيف تصطاد هذه السمكة فهناك عدة خطوات لتعلمك كيفية وضع ولصق الكود بمحرر الأكواد فى ملف الإكسيل وهذا الفيديو سيعلمك خطوات وضع الكود http://pakvim.net/watch/Cu4OCw8AYpE وهذا هو ملفك بعد وضع الكود به وحفظه بإمتداد Xlsm Book11.xlsm

كما اوضح لك الأستاذ علي العيدروس يبدو ان اعدادات اللغة لديك غير مضبوطة على اللغة العربية لابد من تنفيذ الخطوات كما بالصورة وذلك من لوحة التحكم(Control Panel)

تفضل تم التعديل على الملف لكى تعمل المعادلات مباشرة بدون التدخل فيها فقط عليك بتغيير النسبة أعلاه فقط كما تريد (تكتب فقط رقم النسبة بدون اى اضافات بالخلية) وسترى عمل المعادلات وتغيرها مباشرة Stable Pressure Tolerances 3.xlsx

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

أحسنت استاذ مجدى وجزاك الله كل خير

لأن هذه معادلة مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

من فضلك عليك برفع الملف بعد تعديل الإعدادات ويجب ان تلاحظ انك لو رفعت من البداية الملف الصحيح لكان وفر علينا كثيرا من الوقت

أحسنت استاذ عبد اللطيف بارك الله فيك وجزاك الله خير الثواب

ما هي اداة البحث التي تريد ان تشغلها الصّف او اسم التلميذ على كل حال جرب هذا الملف st_by_class.xlsx

الشرط يقول ان اي خلية على يسارها رقم 1 يتم تلوينها

تفضل ما تريد Hide_all_.xlsm

انصحك بهذا الملف كي تعمل عليه لانه يحدد لك كل الايام بين تاريخين مع عدم ادراج العطل الاسبوعية ( سبت ,احد, جمعة الخ ...) والعطل الرسمية او القسرية) Working_days_2019.xlsm

take look My_Month.xlsx

السلام عليكم تفضل اخي الكريم بعد اضافة الحقلين المطلوبين طلب العلم لا يصلح مع الحياء فمن حقك الطلب وواجب علي الاجابة وسامحني على التاخير فضغط العمل لا يرحم barcode.accdb