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

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

بعد اذن استاذنا عصام جرب هذا اذا لعله يقترب من مرادك التنقل بين النماذج.accdb

اخى العزيز وجدت مثال عندى به نظام الصلاحيات وقمت باضافه حدث فتح على سجل جديد DoCmd.GoToRecord , , acNewRec بعد End With وتم الفتح جرب لديك ومرفق المثال واليوزر والباسورد 1 وان لم يتم فاشرح ع هذا المثال لكى يستطيع اساتذتنا مساعدتك وان شاء الله ربنا يوفقك وتجد ما تريد تمنياتى لك وللجميع بالتوفيق test.mdb

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

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

استاذ ابوبهاء كيف سيظهر اخر سجل مسجل للمستخدم الغير مخول والمفروض اساسا ميفتحش النموذج لانه لا يملك صلاحيات للنموذج ده ؟ لقد احترت من كلامك تقبل تحياتى واسال الله ان يوفقك وتجد ما تريده

أستاذي ومعلمي هذا تواضع منكم بل أنت أستاذنا ثم كبر ايه انت في عز الشباب (هما مش بيقولو الشباب يبدأ بعد الأربعين ولا حضرتك بتخزي العين )

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

استاذنا Ali Mohamed Ali جزاك الله عنا كل خير وبارك الله بك

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

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

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

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

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

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

اهلا بك اخى الكريم بالمنتدى-تفضل طريقة سهلة لتحويل ملفات الورد لإكسيل دون الحاجه لبرامج تحويل الملفات 1- إفتح ملف الورد المراد تحويله لإكسيل word .doc 2- قم بحفظة على صورة ملف بصيغة اتش تي ام ال أو صفحة إنترنت باسم الملف المراد تحويلة file / save as / web page format 3 – قم بفتح ملف اكسيل جديد open new xls 4- اضغط على فتح في قائمة ملف open /brwos/ select file 5- إختار الملف بصيغة الاتش تي ام ال السابق تحويله file html. 6- قم بحفظ الملف ذاته بأختيار صيغة اكسيل ورقة عمل باختيار احد صيغ الأكسيل باصداراته المراد انشاؤها file/ save as/ xls 97/2033. بذلك يكون تم تحويل الملف ويمكن بسهولة التعديل عليه وعمل كافة الصيغ والمعادلات المطلوب . والله الموفق وكمان يمكنك الإستعانة بهذا الرابط : https://www.dorar-aliraq.net/threads/411533-طريقة-نقل-جدول-بكامل-بياناته-من-ملف-Word-الى-ملف-Excel وهذا فيديو ايضا للشرح نقل البيانات من الوورد إلى الاكسل Explain how to insert a word file inside the worksheet in Excel

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

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

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

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

كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل رفع المشاركة فهناك المشاركات المتعددة التى تخص طلبك ومنها: ترحيل من صفحة الى عدة صفحات بإسم الصفحة ولكن تم عمل اللازم فى ملفك ترحيل على الشيتات1.xlsm

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

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

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

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

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

بعد اذن الاخ عبدالله هذا الكود Sub test_please() Range("A1").CurrentRegion.Offset(, 1).ClearContents i = 1 Do Until Range("A" & i) = vbNullString Call SPLIT_ME _ (Range("a" & i), "(\D)(\d{4})[0]+(\d{3})(\d{3})", i, 2) i = i + 1 Loop End Sub '+++++++++++++++++++++++++++++++ Sub SPLIT_ME(c As Range, pttrn As String, ByVal k%, m%) With CreateObject("VBscript.RegExp") .Global = True .MultiLine = True .IgnoreCase = False .Pattern = pttrn If Not .Test(c.Value) Then Exit Sub Set Results = .Execute(c.Value) For i = 0 To Results(0).Submatches.Count - 1 Cells(k, m) = Results(0).Submatches(i) m = m + 1 Next End With End Sub الملف مرفق Split_cells.xlsm

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

وعليكم السلام ,كان لزاما عليك رفع ملف لتوضيح المطلوب بكل دقة كما انه لابد رفع مشاركتك منفصلة بعيداُ عن المشاركات القديمة حتى تكون محل اهتمام من الأساتذة فقد قمت برفع ثلاثة ملفات لك بثلاثة أمثلة مختلفة للتنقل بين الصفحات ومنها :-الكمبوبوكس والقائمة المنسدلة واخيرا بالقائمة التنقل لإسم الصفحة من القائمة المنسدلة.xlsm الذهاب الى الشيت من خلال الكمبوبوكس.xlsm كود التنقل الى اي صفحة في ملف اكسيل.xls

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

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

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

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

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

في الخلية هذه المعادلة C5 وتسحب يساراً (تنسيق الخلية General ) =MONTH(DATE($B$1,$B$2+COLUMNS($A$1:A1)-1,$B$3)) في الخلية C9 هذه المعادلة (تنسيق الخلية General ) =DAY(DATE($B$1,$B$2,$B$3+COLUMNS($A$1:A1)-1)) بالنسبة لدمج الخلابا فالمعادلات لا تقوم بهذا الشيء (فقط الماكرو)

جرب هذا الماكرو الضغير Sub my_code() Range("A1:A" & Cells(Rows.Count, 1).End(3).Row + 4) _ .SpecialCells(4).Formula = "=A1" End Sub

تفضل اخي تم تعديل على الكود من البداية حتى يتعامل مع قيم الفارغة اختر تنسيق ملف من قائمة منسدلة ثم اضغط على الزر و تابع مكان حفظ الملف ولكن قبل كل شيء قم باضافة مكتبة: هذا قي اوفيس 2010 abx.accdb