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

ثانيا:-كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم لأضافه عناصر تحكم داخل الـ Frame يوجد طريقتين الطريقه الاولى :- شاهد الصوره الطريقه الثانيه :- لو حضرتك قمت بتصميم عناصر على الفورم مثل الصوره دى ثم فكرة انك تجعلهم داخل فريم بعد ما صممت العناصر وظبت التنسيقات وكل شئ فما الحل ؟؟؟ شاهد الصور التاليه بعد ما تضغط على Paste ستجد العناصر داخل الفريم بنفس التنسيق شاهد الصوره التاليه وبكدا عرفنا اننا نقدر نضيف اى عنصر او عناصر تحكم داخل الفريم أما بأنشائها لاول مره او اننا بننسخها من الفورم ملحوظه مهمه جدا تقدر تنسخ بنفس الطريقه من فورم اخر وتعمل لصق على فورم جديد مفيش مشكله واحد هيقولى وايه الفايده لما تنسخ مثلا كمبوبوكس من فورم انت مصممه قبل كدا وتعمله لصق فى فورم جديد لانه بيوفر عليك الوقت والجهد من تظبيط التنسيقات للكمبوبوكس وبيتم لصقه بنفس الخصائص **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم انتظرونا تقبلوا تحياتى

أخي الكريم أبو سليمان لطالما سألت عن هذا الأمر .. ولم تقتحم الأمر .. ولذا يختلف الأمر الفكرة في التعلم هي الجرأة ..نعم الجرأة ..أرى الكثير يخشى خوض التجربة ، ولما الخشية ولما الرهبة ولما كل هذا الخوف ؟؟!! إنني أتسائل وأتعجب ؟؟؟!! الجرأة هي الخطوة الأولى نحو التعلم .. والرغبة في التعلم هي الخطوة الثانية .. والخطوة الثالثة البدء في التطبيق العملي أولاً بأول إن الطفل الصغير عندما يتعلم المشي ، لابد أن يمتلك الجرأة أولاً لأنه حتماً سيقع ثم يحاول أن ينهض فيقع ، وتستمر المحاولات بلا يأس وبلا أدنى رهبة ، ويساعده من حوله ، ويشجعونه حتى ولو أخطأ (فالخطأ وارد لا محالة ) ، وهكذا يكون الأمر ويستمر حتى يفلح في نهاية المطاف للوصول لمبتغاه ابدأ ...هذه هي نصيحتي لك :: ووقت أن تبدأ من الطبيعي أن تقابل صعوبات ، لا عليك فنحن سنشد من أزرك بعون الله ، فكلنا هنا طلاب علم ولسنا أساتذة كما يظن الكثيرون ..نحن طلاب علم وسنطل ننهل من العلم ما شاء الله أن نحيا ، فبالعلم يحيا القلب والعقل معاً أعتذر عن الإطالة والإسهاب في الحديث .. تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته أحبائى وأساتذتى ومعلمينى فى هذا الصرح العلمى الهائل تحية طيبة وبعد أقدم لكم اليوم مجموعة رائعة من الأيقونات زات الجودة العالية أرجوا من الله أن تنال إعجابكم http://www.mediafire.com/download/42x3exq2c119cvo/1.rar http://www.mediafire.com/download/97cazvonq76t7r5/2.rar#1 http://www.mediafire.com/download/3da8dafesiy96hc/3.rar http://www.mediafire.com/download/byhgi1eu2u9ou29/4.rar http://www.mediafire.com/download/31yspi92357332b/5.rar http://www.mediafire.com/download/mydc1fc09z1kbj7/6.rar http://www.mediafire.com/download/ewm23d4geccddex/7.rar تقبلوا خالص تحياتى وتقديرى

بسم الله الرحمن الرحيم اليوم بمشيئة الله سنتكلم عن شروحات الفريم ( Frame ) تستخدم هذه الاداه فى احتواء بعض ادوات التحكم مثل ( الليبل او التكست بوكس او الكمبوبوكس وغير ها من العناصر) داخل الفريم بقصد اعطاء شكل جمالى أن شاء الله هيتم تناول الموضوع على ست مراحل 1- كيفية انشاء Frame على الفورم اثناء عملية التصميم 2- كيفية اضافه عناصر تحكم داخل Frame اثناء عملية التصميم 3- التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم 4-التعامل مع خصائص الـ Frame فى لغة البرمجه 5-كيفية اضافه عناصر تحكم داخل الـ Frame والتحكم فى الاسكرول بار للــ Frame عند فتح الفورم او اثناء العمل على الفورم وهو نشط 6-التحكم فى العناصر الموجوده داخل الـ Frame بطرق احترافيه نبدأ بسم الله أولا :- كيفية انشاء Frame على الفورم اثناء عملية التصميم لأضافه Frame جديد على الفورم يوجد طريقتين الطريقه الاولى :- الطريقه الثانيه :- نسخ فريم موجود على الفورم وعمل فريم اخر منه ملحوظه لو كان Frame1 يوجد به عناصر تحكم وليكن به comboBox1 وقمت بنسخ Frame1 لعمل فريم اخر منه ستجد داخل الفريم الجديد Frame2 بداخله comboBox2 وله نفس خصائص comboBox1 الخلاصه انه عند نسخ فريم يتم نسخه مع ما يحتويه من عناصر تحكم ايضا ويكون الفريم الجديد وما يحتويه من عناصر له نفس الخصائص اللى موجوده بالفريم الاول **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم انتظرونا تقبلوا تحياتى

السلام عليكم سأعتبر أن الأمر موجهاً لنا كلنا وأن المساعدة سنستفيد منها جميعاً...وخصوصاً لدينا عظماء قد حنوا جباههم لعظمة العلم الذي أمر الله به(وقل رب زدني علماً) ولنا في موسى عليه الصلاة والسلام القدوة الحسنة عندما قال :( أو أمضي حقباً) فطلب العلم يقترن بالحياة ...هذا رأيي.. وقد رأيت في الآونة الأخيرة تلك الرغبة الجامحة على الاستزادة منه ...فإن تحقق لي الوقت الكافي سأجعل منه -إن شاء الله تعالى - مسخراً لطلب العلم حتى لو بلغت من الكبرعتياً.والسلام عليكم.

السّلام عليكم و رحمة الله و بركاته سادتي الأفاضل .. جميع أعضاء و منتسبي جامعة " أوفيسنا " التعليمية عملية البحث بأول حرف من الاسم داخل الفورم لا و لن تنتهي .. كتابة الحرف من الاسم المقصود البحث عنه داخل التاكست بوكس .. و استعمال زر الأمر ليحرك العملية و يتم استعراض النتيجة بهذا الملف نوع آخر من البحث بأول حرف من الأسماء داخل الفورم .. صحيح لا يغيّر من الأمر شيئًا .. لا يضيف و لا ينقص من عملية البحث .. لكنّها كما ذكرت مجرّد إثراء منّي للمواضيع و تنويع في استعمالات الاكسل الكثيرة.. سأخرج قليلاً من جلباب التاكست بوكس و أتمركز بعباءة لوحة الحروف فائق إحتراماتي أخوكم / عبد العزيز البسكري البحث بلوحة الحروف.rar

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا مرفق لينك كتاب تعليم إكسيل 2007 شرح ثلث http://www.mediafire.com/download/bxy5adt0nu5xznc/EXCEL_2007.pdf منقول للفائدة تقبلوا منى خالص تحياتى وتقديرى

السّلام عليكم و رحمة الله و بركاته أنت بنطاق حياتي و ليس فقط بنطاق تفكيري أستاذنا القدير "محمّد حسن المحمّد" .. الله وحده يعلم مدى احترامي لشخصك الكريم "رُبَّ أخ لمْ تلدْهُ أُمَّك" أمّا بالنسبة للخطأ .. أستاذي العزيز و الله لم أفهمْ أين الخلل بالضبط .. جرّبت إضافة حرف من الحروف "ا" الذي هو طبعًا زر أمر .. مع تغيير الرقم 29 الذي هو عدد أزرار أمر الحروف إلى 30 .. و تغيير اسم زر الأمر الذي أضفته إلى B_30 ليتناسب مع سلسلة أسماء أزرار الأمر الأخرى .. واشتغل الملف بطريقة عادية .. بهذا الملف قمت سيّدي القدير بمسح جميع الأكواد "الاضافة و التعديل و الحذف و التحديث" لعلّ و عسى تنجح العملية ..أخبرني بذلك لو تكرّمت وهذه صورة من الملف الجديد و البحث كان باسم الأخ الغالي " الصّقر" فائق إحتراماتي لشخصك القدير البحث بلوحة الحروف 2.rar

اخي الغالي احفظ هذا الموضوع اولا http://www.officena.net/ib/topic/64472-بداية-الطريق-لإنقاذ-الغريق/ وفي كتب كتيرررررررر وشروحات اكتر داخل هذا المنتدى العظيم بس انت حاول تبحث كويس ثم اطرح ما الذي تود ان تقوم بعمله ونحن نبدأ معاك خطوة خطوة

تفضل اخي الغالي الحل واخفاء ملف الاكسيل لحين تسجيل الدخول ويتم اظهاره مرة اخرى اضافة محرك بحث.rar

دالة Vlookup بشكل جديد تعمل من اليسار الى اليمين في حال كان اتجاه الصفحة للغة العربية و من اليمين لليسار اذا كان العكس advanced_vlookup.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم جميعًا أساتذتي الأفاضل لما تقدّمونه من جهود في سبيل إنارة درب المبتدئين أمثالنا .. جزاكم الله خيرًا و زادها بميزان حسناتكم وددت أن أشارككم دروسكم القيّمة هذه بمحاولة بسيطة منّي .. لإثراء الموضوع .. أخي الكريم " أبو سليمان " كلّنا مبتدئون .. و ثق بالعبارة " إنَّ الأزمة تلدُ الهِمَّة " .. سأقوم معك بتنفيذ ماكرو حذف بسيط لنطاق معيّن من شيت الاكسل .. اسم النّطاق الذي سنقوم بحذف بياناته بالماكرو هو :G6:K15 الخطوة الأولى :قم بالتّأشير بواسطة الماوس على أوّل خليّة بهذا النّطاق .. مثلما هو مشار إليه بالسّهم الأحمر بالصورة أعلاه .. مباشرة بعد التأشير على هذه الخليّة .. قم بالضغط هنا ليبدأ الماكرو بالتّسجيل : الخطوة الثالثة : قم بالتأشير أو بتظليل كل النّطاق المقصود حذف بياناته و الذي هو G6:K15 بالماوس .. الخطوة الرابعة : و هذه هي الخطوة التي أعتبرها مهمّة لأنّ بها ستحدّد بها مصير أمم من الحروف .. هل ستنسخهم .. هل ستلصقهم .. أم ستحذفهم و تمسحهم في مثالنا هذا سنمسح هذه البيانات .. إذا ما عليك فعله هو فقط : إضغط بلوحة المفاتيح من أمامك على الزّر : DELETE الخطوة الخامسة : قم بإيقاف عملية تسجيل الماكرو ..من نفس المكان الذي قمت بتشغيله في الخطوة الأولى أخيرًا تم بحمد الله تسجيل الماكرو لديك .. و ستجده قد سبقك نائمًا بموديل داخل محرّر الأكواد بهذا الشّكل : لا ينقصك الآن سوى إنشاء زر أمر مرتبط بهذا الماكرو ليقوم عند الضغط عليه بتنفيذ ما أُمِرَ به .. قم بإنشائه من هنا : إتّبع مثلما هو موضّح بالصّور المرفقة أدناه بالتّرتيب : ليصبح لديك زر أمر بهذا الشكل : و أخيرًا أتمنّى و أرجو من الله أنّي قد وُفّقت بتيسير و لو الجزء البسيط من هذا المفهوم .. و إن كانت هناك أخطاء فأتمنى من الأساتذة الأعزّاء تصحيحها لأنّي أوّلاً و أخيرًا أبقى تلميذًا بهذا الصّرح التعليمي الكبير إليك ملف مرفق تطبيقي .. فائق إحتراماتي عبد العزيز البسكري الماكرو.rar

ههههههههه الف سلامة يابو براء متخفشي الشعب المصري كله بيعاني من المشكلة دي

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

وعندما تتوقف ..أخبر إخوانك أين توقفت حتى تكمل المسير ؟ وعلى رأي مثل السباكين : سير سير وإحنا وراك على المواسير ...خايف لحد يكمل القافية ويدعي عليا ويقول : إن شا الله يجيلك البواسير تقبل تحياتي

السلام عليكم استاذى /ياسر العربى .. الملف لا توجد به معادلة ..يرجى مراجعه الامر اخى الكريم يمكن الحل باكثر من طريقة منها =IFERROR(INDEX(A1:A16;MATCH(1;(F1:F16=$H$4)+(E1:E16=$H$4)+(D1:D16=$H$4)+(C1:C16=$H$4)+(B1:B16=$H$4);0));"") طريقة اخرى اكثر اختصاراً =IFERROR(INDEX($A$1:$A$16;SMALL(IF(B1:F16=$H$4;ROW(B1:F16)-ROW(B1)+1);1));"") لا تنسى تلك المعادلات -معادلات صفيف -بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER -- بإفتراض -- عدم تكرار البيانات تقبلوا خالص تحياتى

وعليكم السلام هناك طريقة افضل لحفظ سجلاتك في الجدول ، فطريقتك مأخوذة من الاكسل مثلا ، وليست صحيحة لقواعد البيانات . عملت لك جدول جديد ، وجلبت لك البيانات اليه: . والبيانات: . وعليه ، عملت عدد 2 استعلام جدولي ، واحد شامل لكل السنوات: . ونتائجه: . واستعلام سنوي (يعني استخدم خاصية التصفية) ، لكل سنة على حدة: . والنتيجة: . جعفر 262.salary2015+2014.accdb.zip

اللهم لا تحرمنا و لا تحرم أستاذنا القدير "محمّد حسن المحمّد" وكل المؤمنين و المؤمنات من كلمة لا إله إلاّ الله محمد رسول الله ..

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

أخي الكريم هاني الحمد لله أن نال الملف إعجابك .. بالنسبة لزيادة عدد الشيتات يرجى وضع شكل الملف الأصلي بالضبط لمعرفة عدد الشيتات الموجودة بالكامل .. وهل أوراق العمل التي سيتم زيادتها ستكون كلها تبدأ بكلمة مصلحة أم أن الأمر مختلف..؟؟ يمكنك التعديل في الكود في سطر واحد لتحصل على النتيجة المطلوبة من خلال هذا السطر SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") هذا السطر من خلاله يمكنك وضع أوراق العمل المطلوب العمل عليها بنفس الشكل .. Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Dim strSheet As String Set WS = Sheets("اذون الصرف") strSheet = WS.Range("K7").Value Application.DisplayAlerts = False Application.ScreenUpdating = False If Not Evaluate("ISREF('Temp'!A1)") Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" Sheets("Temp").Cells.Clear If strSheet = "كل المصالح" Then SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") For I = 0 To UBound(SheetsArr) For Each SH In Sheets If SH.Name = SheetsArr(I) Then With SH LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If Next SH Next I Else With Sheets(strSheet) LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If With Sheets("Temp") For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2 WS.Range("G4") = .Cells(I, "E") WS.Range("D6") = .Cells(I, "F"): WS.Range("D14") = .Cells(I, "F") WS.Range("C7") = .Cells(I, "C") WS.Range("B11") = .Cells(I, "D"): WS.Range("B14") = .Cells(I, "D") WS.Range("D12") = .Cells(I, "B") WS.Range("G24") = .Cells(I + 1, "E") WS.Range("D26") = .Cells(I + 1, "F"): WS.Range("D34") = .Cells(I + 1, "F") WS.Range("C27") = .Cells(I + 1, "C") WS.Range("B31") = .Cells(I + 1, "D"): WS.Range("B34") = .Cells(I + 1, "D") WS.Range("D32") = .Cells(I + 1, "B") WS.PrintPreview Next I .Delete End With MsgBox "Done", 64 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أخي الكريم هاني تم إنشاء قائمة منسدلة في الخلية K7 ومصدرها في العمود N وعملت إخفاء للعمود يمكنك الآن اختيار أي مصلحة أو كل المصالح كما ترغب Create One Sheet YasserKhalil V2.rar

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

السلام عليكم أخواني في المنتدى نزولاً عند رغبة احد الاصدقاء كان هذا الملف الذي اتمنى ان ينال اعجابكم tekrar_by_choise.zip

قل من بيده ملكوت كل شيء وهو يجير ولا يجار عليه إن كنتم تعلمون ( 88 ) سيقولون لله قل فأنى تسحرون ( 89 ) ) من سورة ص

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا القدير " ياسر فتحي البنّا " على الكتاب الرائع .. مهما يكن مستور معلوماتنا فنحن دائما بحاجة ماسّة إلى مثل هكذا كتب و مصادر تعليمية.. " وما أوتيتم من العلم إلاّ قليلا " بارك الله فيك جزاك الله خيرا و زادها بميزان حسناتك فائق إحتراماتي

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

اطلع على المرفق 1.rar

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

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

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

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

السّلام عليكم و رحمة الله و بركاته ألف شكر لمرورك العطِر و كلماتك الطيّبة أستاذي القدير " سعد عابد " أعجبني توقيعك بهواياتك كثيرًا .. أدام الله الأُخوّة و المحبّة بين جميع أعضاء و منتسبي "أوفيسنا " .. و سائر المؤمنين بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير " محمّد حسن المحمّد " على التّواصل و التّجاوب الطيّب جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

ابونصار اكوادك رائعه وفقكم الله

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

السبب الذي قلت ان جدولك ليس صحيحا لقاعدة البيانات ، هو انك يجب ان تضيف حقل جديد كل شهر ، فالطريقة الصحيحة لعمل الجداول هو اضافة سجلات وليس اضافة حقول وهناك مثل مشهور في قواعد البيانات يقول : الحقول غالية والسجلات رخيصة اما اذا تريد تمشي حالك الان بالجدول الموجود ، ومجرد تريد ان تجمع قيم جميع الحقول ، اعمل استعلام فيه جميع الاسماء ، وننادي منه الدالة Add_Salaries والتي عملناها في الوحدة النمطية ، ونرسل معها اسم الشخص: . وهذا كود الدالة Add_Salaries: Function Add_Salaries(F As String) As Double 'F = Full Name Dim rst As DAO.Recordset Dim fld As Field 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'") T = 0 'initial Total 'loop through the fields For Each fld In rst.Fields 'Debug.Print fld.Name & vbTab & fld.Value 'skip the Full_Name field name If fld.Name <> "Full_Name" Then 'add the field values T = T + fld.Value End If Next fld 'now send this Total to the query Add_Salaries = T End Function . حيث اننا في الدالة نطلب سجل الشخص من الجدول salary2015+2014 ، ثم نقول بقراءة الحقول وجمعها ، زنرسل النتيجة الى الاستعلام ، فتصبح نتيجة الاستعلام: . جعفر 262.salary2015+2014.accdb.zip

عذرا الحل مثل نا قال الاخ خالد بارك الله فيه

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

أين الحل أخي ياسر هل كتبته بالحبرالسري...تقبل تحياتي..

السلام عليكم - حياكم الله عمل رائع

بااااااااااااااارك الله فيك وفي عملك

والملفين دول لا خويا عبد العزيز :) Flight_Simulator_1.rar XLCalibre-Slide-Puzzle.rar وكمان خلية يتكلم speak.rar

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

السّلام عليكم و رحمة الله و بركاته أخي الكريم أبو عبد الرحمن البغدادي ..ها قد جاءك الفرج ..من حيث لا تحتسبْ بارك الله في أستاذنا القدير " ياسر العربي " على الحل الأكثر من الرائع جزاه الله خيرا و زادها بميزان حسناته

الدّال على الخير كفاعله بارك الله فيكم جميعًا

سادسا :- اجبار المستخدم على الاختيار من الكمبوبوكس يوجد طريقتين الطريقه الاولى :- هى استخدام الخاصيه Style اثناء شرحنا لخصائص الكمبوبوكس فى مرحلة التصميم تكلمنا عن الخاصيه Style ودا نسخ الجزئيه الخاصه بالخاصيه Style من شروحتنا السابقه الخاصيه ( Style ):- وهى بنظرى من اهم الخصائص للكمبوبوكس زى ما احنا عارفين لفتح القائمة الخاصه بالكمبوبوكس للاختيار منها لابد من الضغط على السهم لتفتح القائمه ولكن هذه الخاصيه تتيح للمستخدم التحكم فى وقت فتح القائمة الخاصه بالكمبوبوكس فلها خيارين الخيار الاول Fm StyleDropDown Combo - 0 :- هو الافتراضى لابد من الضغظ على السهم لفتح القائمة كما تتيح للمستخدم كتابة اى شئ بالكمبوبوكس غير موجود بالقائمه بمعنى لا تلزم المستخدم من الخيار من القائمة والخيار الثانى Fm StyleDropDown List - 2 : -هو فتح القائمة من خلال الضغط على السهم او بمجرد وقوف مؤشر الماوس على الكمبوبوكس وكمان ميزة ثالته وهى مهمه جدا هو انه لا يمكن للمستخدم كتابة اى شئ فى الكمبوبوكس يعنى كانك عامل خاصيه حمايه للكمبوبوكس ولا سبيل امام المستخدم الا من الاختيار من القائمه -------------------------------------------------------------------------------------------- الطريقه الثانية :- استخدام الخاصيه MatchFound عايزين نعمل كود يقوم باختبار قيمة الكمبوبوكس هل هى موجوده بالقائمه او لا ؟ لو الكمبوبوكس التطابق مع القائمة = خطأ نفذ الكمبوبوكس فارغ ( دا شرح الكود كدا بالبلدى وحنا قاعدين على المصطبه) لتحويل الكلام اللى بالبلدى ده الى لغة البرمجه تابع معايا لو نستبدلها بـ IF (يعنى قاعدة IF) الكمبوبوكس نستبدله باسم الكمبوبوكس المراد العمل عليه وهو على سبيل المثال Me.ComboBox1 التطابق مع القائمه دى الخاصيه Match Found بمجرد كتابة اسم الكمبوبوكس ثم . ثم حرف M ستجد الفيجوال بيسك يعرض لك قائمه للاختيار شاهد الصوره التاليه = خطأ False ( أى ان القيمة المختاره غير موجوده بالقائمه ) نفذ Then الكمبوبوكس فارغ " " شاهد الكود لما نجمع الكلام ده بقى هيكون كالتالى If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If طيب ما هو وقت تنفيذ الكود وقت التنفيذ انت اللى بتحدده مثلا ممكن يكون فى حدث تغيير الكمبوبوكس ()Private Sub ComboBox1_Change Private Sub ComboBox1_Change() If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If End Sub وبكدا لو عندك قائمه الكمبوبوكس وليكن بها ( مصر & السعودية & السودان & الجزائر ) والمستخدم تجاهل هذه القائمة وراح يكتب تونس بمجرد بس كتابة حرف ت سوف يقوم الكود بالعمل مش هيلاقى دوله فى القائمة تبدأ بحرف ت اذن تحقق شرط عدم التطابق فهيقوم بمسح حرف ت ممكن واحد يفتكر فى عفريت مسح الحرف يعنى كل ما تكتب شئ غير موجود بالقائمه هتلاقيه بيتمسح فورا ----------------------- ممكن نكتب الكود فى وقت حدث الخروج من الكمبوبوكس Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" End If End Sub يعنى المستخدم بمجرد ما يكتب تونس ويضغط انتر للانتقال الى عنصر اخر على الفورم هتلاقى الكود بيتنفذ ويمسك المستخدم من قفاه ويقوله تعالى تونس غير موجوده فى قائمة الكمبوبوكس وهيمسح تونس يعنى كأن المستخدم مكتبش اى حاجه ومازل الكمبوبوكس قيمته فارغه ممكن المستخدم يتجنن هو ايه اللى بيحصل هو ليه كل ما اكتب تونس يتم مسحها هو فى عفريت ؟؟ ما عفريت الا بنى ادم فعلشان نريحه نظهر له رساله تفيد بانه يجب الاختيار من القائمه Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then ComboBox1 = "" MsgBox " الرجاء الاختيار من القائمة", vbCritical, "خطأ" End If End Sub قمنا باضافه هذا السطر بالكود قبل نهاية IF MsgBox " الرجاء الاختيار من القائمة", vbCritical, "خطأ" الرساله تتكون من ثلاث اقسام يفصل ما بين كل قسم وقسم علامة , القسم الاول وهو الرساله " الرجاء الاختيار من القائمه" وتم وضعها بين علامتى تنصيص ( وهو قسم اجبارى) القسم الثانى وهو نوع الرساله واظهار علامه لها فكتبنا Vbcritical رساله خطأ ( وهو قسم اختيارى يمكن الاستغناء عنه ) القسم الثالث وهو عنوان الرساله فكتبنا "خطأ" وممكن تكتب اى عنوان كما تشاء ( وهو قسم اختيارى يمكن الاستغناء عنه) فالاساس فى الرساله هو نص الرساله " الرجاء الاختيار من القائمة " MsgBox فأذا ارد اظهار علامه للرساله او عنوان لها قم باضافه القسم الثانى والثالث او استكفى بالقسم الاول اذا حبيت شاهد الرساله عند الاختيار الخاطئ من المستخدم هل يمكن كتابة الكود فى سطر واحد ؟ نعم يمكن ذالك Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.ComboBox1.MatchFound = False Then: ComboBox1 = "": MsgBox "الرجاء الاختيار من القائمة", vbCritical, "خطأ": Exit Sub End Sub كما تشاهدون الكود انه فى سطر واحد فقط وذالك باستخدام : : ( تكتب من خلال الضغط على شيفت + حرف ك بالعربى ) واستبدلنا عبارة End if بــ Exit Sub -------------------------------------------------------------------------------------------------------------------- الحمد لله انتهينا من شروحات الكمبوبوكس والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن الـــ Frame انتظرونا تقبلوا تحياتى

السلام عليكم ابحث حضرتك في اعمال الاخ ياسر خليل ستجد الحل ان شاء الله

مرتبط بنتائج الموضوع على الرابط ........http://www.officena.net/ib/index.php?showtopic=19812 ......................... جزى الله خيراً القائمين على هذا العمل ولكن لي سؤال هل بالإمكان جعل هذا الاستعلام الحاوي على أعلى 20 درجة أن يظهر على شكل شريط إخباري , ثم من هذا الشريط اجراء ماكرو عند النقر المزدوج على أي قيمة في هذا الشريط يفتح الاستعلام أو النموذج المرتبط به على السجل المتعلق بهذ القيمة فقط . وإذا كان بالإمكان فهل تمنون علينا بمرفق ولكم جزيل الشكر .

أخي الكريم عبد الله عنصر التحكم الخاص بالنتيجة calendar المستعمل في الملف mscal.ocxغير موجود في أوفيس 2010 ولا يمكن وضعه في ويندوز 7 ولذلك قام بعض المبرمجين الإيطاليين بعمل هذا الكاليندر وقمت أنا فقط بوضع كود التعريب والاتجاه من اليمين لليسار يمكن استخدامه في الوورد والإكسل والباور وهكذا طريقة العمل: يجب وضع إطار في النموذج الجديد frame ثم إضافة الكاليندر للفريم ويمكن تغيير الكود الخاص بالضغط المزدوج على الكاليندر وهو هنا كتابة قيمة التاريخ في الخلية النشطة والسلام عليكم ورحمة الله وبركاته masCalendar.rar

السلام عليكم ورحمة الله وبركاته بتعبكم معايا والله العظيم بس أعمل إيه .. طيبة قلبكم وسعة صدركم لكل زملائنا هى اللى بتخلينى ما أترددش طلب مساعدتكم لى جزاكم الله كل خير على كل ما تقدموه من دعم وجهد وجعله الله فى ميزان حسناتكم . مرفق ملف أكسيس للإطلاع وإفادتى فى كيفية إختيار مدينة تقع بمحافظة معينة حسب قطاعها الجغرافى منتظر ردكم بإذن الله تعالى ... تقبلوا إحترامى وتقديرى ،،، اختيار مدينة بمحافظة معينة حسب قطاعها الجغرافى.rar