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

في معيار اسم المندوب ضع الامر التالي: 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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم جرب هذا التعديل على الكود 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 & ")" أما عن الشرح فهذا أمر شرحه يطول .. أمهلنى كما أمهلتنى من قبل لعمل هذا الكود وسأعود إليك إن شاء الله بشرح يثلج صدرك بالتوفيق

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

جرب حذف الجزء المحاط بالاحمر في الصورة ستجده في حدث textbox_change

بالتأكيد لابد ان يحدث مشكلة معك فلم تضع الكود داخل الملف ولم تقم بحفظ الملف بصيغة 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

تفضل-اهلا بك بالمنتدى حساب التأخير الصباحى.xlsx

بارك الله فيك أخى الكريم وذلك من خلال الجدول الموجود فى هذا النطاق من R3:T31 وذلك كما بالصورة

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

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

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

بعد اذن الاخ عبدالله هذا الكود 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

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

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

تم التعديل على الملف ليعطيك الاسم (او عدة اسماء تبدأ بحرف او حروف معينة) الصفحة Salim من هذا الملف Saerch_by_Name.xlsx

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

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

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

take look My_Month.xlsx

في الخلية هذه المعادلة 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

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

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