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

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

وعليكم السلام المعالجة هي في تغيير قيمة الشهر في الجدول ، وجعله ( yyyymm) ستة خانات فيصبح شهر 1 هكذا 201801 باستخدام الدالة : format([txtDate];"yyyymm")

السلام عليكم اخي عبدالله الطريقة اللي انا اعمل عليها في معظم برامجي ، اني اضع خلفية البرنامج BE ، وجميع المجلدات ، مع بعض ، مثلا: و . بهذه الطريقة ، 1. اذا اردت تغيير مكان البرنامج ، او نقله الى سيرفر ، او الى هارد دسك اسرع SSD مثلا ، فكل اللي اعمله هو ، مجرد نقل المجلد رقم 1 الى المكان الجديد ، وهذا الرابط فيه مثال على هذه الطريقة . 2. في الرابط ، فيه وحدة نمطية ، احفظها في برنامج FE ، . هذه الوحدة النمطية تنظر الى مكان/مسار وجود الجداول ، يعني ممكن البرنامج لا يكون مجزأ ، ويمكن يكون مجزأ الى FE و BE ، وتخبرنا الوحدة النمطية عن مكان وجودها (الجداول) ، ونناديها هكذا: msgbox BE_or_FE ، ولما نعرف مكان وجود BE ، فإننا نستخدم هذا المسار ، لمعرفة مسار جميع المجلدات الموجودة معه في نفس المجلد (طبعا هذا اذا عملت مثل طريقتي) ، ولهذا السبب ، فجداولي لا تحتوي على حقل مسار الصورة ، لأن المسار دائما ثابت والوصول اليه هو عن طريق مكان وجود برنامج BE ، فإذا اردت ان اقرأ الصورة ، هكذا (حسب الصوره اعلاه) حسب الصورة على اليمين me.Pic.Picture = Images_Location & "\Personnel_Images\Employee_Pictures\" & me.Employee_ID & ".jpg" وحسب الصورة على اليسار me.Pic.Picture = Images_Location & "\Images\Employee_Pictures\" & me.Employee_ID & ".jpg" . وطبعا تحفظ الصورة على نفس المسار اعلاه ، و الوحدة Image_Location تأخذ قيمتها من مكان وجود BE وهي من الوحدة BE_or_FE Function Images_Location() 'If we want the Backend Folder Images_Location = BE_or_FE & "\archive" 'or we can assign any location we want 'Images_Location = "\\Server01\Images\archive" End Function . ودائما عندك الاختيار ان تجعل مجلد الصور في مكان مختلف عن مكان وجود قاعدة البيانات ، لذلك تستطيع ان تكتب المسار في نفس الوحدة Image_Location ، وتقرأ الصور او تحفظهم بنفس الكود بعاليه. جعفر

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

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

تم اضافة الاصدار الخامس - سبتمبر 2012 إسم الملف: مُجمِع البيانات للاكسيل - Excel Data Collector أضيف للمكتبة بواسطة: محمد طاهر تاريخ الإضافة: 12 Sep 2011 القسم فى المكتبة: قسم الإكسيل هذا التطبيق يقوم بتجميع البيانات من كافة ملفات الاكسيل الموجودة فى مجلد معبن وفق مجال الخلايا الذي يتم تحديده خطوات الاستخدام ضع كافة الملفات المطلوب تجميع البيانات منها فى مجلد واحد حدد مسار المجلد و مجال الخلايا المطلوب تجميع البيانات منها قم بتشغيل التطبيق من زر Get Data ، سيتم تجميع البيانات من كافة الملفات فى ملف جديد ميزة اضافية اذا اردت استخدام التطبيق اكثر من مرة على عدة مجلدات ، فتوفيرا لخطوات اختيار المجلد المستهدف ، يمكن تحديد مجلد بدء الاختيار الافتراضي، ليبدا اختيار المجلدات منه فى كل مرة أثناء استخدام الملف بدلا من البدء من My Computer . و يمكن عمل ذلك بتحرير الخلية مباشرة ، فمثلا نكتب المسار d:\data الاصدار الثاني إضافة امكانية تحديد ورقة عمل محددة داخل الملفات باسمها ، اكتب اسم ورقة العمل او اتركها خالية للعمل افتراضيا على ورقة العمل الاولي فى جميع ملفات المصدر الاصدار الثالث تم اضافة المزايا التالية : 1- استخدام نموذج بدل من الازرار المباشرة نظرا لاضافة خيارات عديدة ، و يتم تسجيل مسار المجلد و اسم ورقة العمل و المجال المطلوب للخلايا المراد تجميع البيانات منها فى الحقول المناظرة. 2- فى حال عدم تسمية ورقة العمل سيتم التجميع من ورقة العمل الاولي فى جميع المفات داخل المجلد. 3- اضافة تلميحات tips بالعربية عند الوقوف بالماوس على الحقل للتوضيح. 4-امكانية اختيار تجميع البيانات فقط أو تجميع البيانات و التنسيق معا من ملفات المصدر الموجودة داخل المجلد المختار. 5- امكانية اختيار اظهار او اخفاء امتداد اسماء الملفات عند وضعها كعنوان للبيانات فى الملف التجميعي. 6- امكانية السماح بتكرار اسم الملف عند وجود اكثر من عمود يتم استخراجه من نفس الملف ، او الاكتفاء بخلية واحدة مع دمج العناوين. 7- اضافة اطار خارجي يوضح بيانات كل ملف الإصدار الرابع - تنقيح و ترتيب داخلي للكود - تعديل واجهة الاستخدام - امكانية استخراج البيانات دون فتح ملفات المصدر كخيار اضافى ، على أن يتم ذلك دون جلبها بنفس تنسيق المصدر. و هنا يوجد خياران للتشغيل الخيار الأول ، و هو الخيار الأصلي Get Data While Opening Files و به كافة الامكانيات فى الاصدار الثالث ، و امكانية عدم تحديد اسم ورقة العمل ليعمل على أول ورقة عمل فى الملفات الخيار الثاني و المضاف فى هذا الاصدار كخيار اضافي يستخدم عند الحاجة و به بعض المحدودية Get Data Without Opening Files و هنا يتم استخراج البيانات دون فتح ملفات المصدر ، و ذلك بهدف تسريع الاستخدام فى حالة الملفات الكثيرة و كبيرة الحجم و هنا خيار جلب التنسيق للخلايا غير مفعل ، و ايضا لابد من تحديد اسم ورقة العمل و الخيار كله اضافى حيث يغطي الخيار الأول خيارات أكثر الإصدار الخامس تم اضافة خيار امكانية استخراج البيانات بطريفة افقية ( بيانات الملفات المختلفة تظهر فى صفوف ) كخيار بديل و ليس رأسيا فقط ( أعمدة) مثل الاصدارات السابقة إضغط هنـــــــــــا لتنزيل الملف

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

السلام عليكم و رحمة الله و بركاته يمكن أن يكون التحديث بحقل أخر و اذا تم نستبدل القيم تحياتي لكم

تم معالجة الامر Book2 _Salim.rar

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

إنك اخي لم يسبق شعورك هذا شعورنا، غير انك سبقتنا في الافصاح عنه... في أوفيسنا بمختلف اقسامه عباقرة اذهلونا ، هم شامخون فعلا وتراهم متواضعين تواضع المحتاج وهم الاغنياء ..... يخجلني تواضعهم ويبهرني هدؤوهم وصبرهم وتتبعهم لانشغالاتنا حتى نمل نحن ولا يسأمون هم الى ان نكتفي نحن وهم يقولون هل تريد المزيد؟؟؟ كل موضوع الا وفيه بصمة ابداع ولمسة فنية، وأساتذتنا هنا بأخلاقهم يزرعون فينا شعور لا اجد للتعبير عنه كلمات. من هنا أدعو الله العلي القدير أن يحفظكم ويبلغكم الجنة ويسقيكم من حوض النبي صلّ الله عليه وسلم، ولمعرفتي أن بيننا من غير المسلمين، أتمنى أن يهديهم الله الى ما يحب ويرضى، الى ان يوصلهم جناته، وما ذلك عليه بعزيز وهو العلي القدير. شكـــــــــــرا أساتذتي.

جزاكم الله خيرا بارك الله فيكم اخي سلم واخي ظفر جعل الله في ميزان حسناتكم

السلام عليكم اقدم لكم كتاب صوتى بعنوان ادارة المشروعات إدارة المشروعات.rar - 43.9 MB

يمكن عمل ذلك الرابع Salim with repitition.rar

لو تشرح ماتيسر لك من معادلاتك الرائعه يكون فضلا وكرما منك

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، تفضل الملف المرفق وبه ما تريد... فقط أريد أن أعرف ما فائدة عمود "عدد الأيام الإضافية" (العمود E في الجدول)؟ المهم إذا أردت إضافة قيمه مرة واحدة في المعادلات يكفي إضافتها آخر المعادلة مباشرة قبل القوس الأخيرة بالشكل التالي : (E3 +(((... (هذا بالنسبة للصف الثالث ثم سحب المعادلة إلى الأسفل) مثلما فعلت في العمود G الملون بالأزرق... بن علية حاجي رصيد إجازات 8ب.rar

بهذه الطريقة لن يتم التحديث الا مرة واحدة فقط مهما ضغطت UPDATE YourTbl SET phonenumber = Format(phonenumber & '00') WHERE Len(Nz(phonenumber, '')) = 6 AND phonenumber IS NOT NULL;

الكود لا يتحقق ، وزيادة الخير ، خيرين ، يصير عنده 4 اصفار زيادة القصد من هذا الكود هو ان يقوم به المبرمج يدويا ، مرة واحدة فقط ، وبدون كود اما اذا كان في يد المستخدم ، فممكن نجعل المعيار: Len([Phone])=6 . جعفر

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

السلام عليكم ورحمة الله استبدل هذا السطر d = WorksheetFunction.Text(Date , "dd_mm_yyyy") بهذا السطر d = WorksheetFunction.Text((Date - 1), "dd_mm_yyyy")

حياك الله اخي محمد ... ابدا بالعكس لولا النقاش لما اثمرت اي فكره الذي تقصده انت هو عند كتابة أالحرف الأول من الحقل .. مثلا لو كان ضمن الكمبو بو كس حقل بإسم شركة محمد سلامة .. لو كتبت ش سوف تظهر ولكن لو كتبت م لن تظهر ... البحث هو بجزء من الكلمة وليس بدايتها . هذا مرفق بتنسيق 2003 بالتوفيق للجميع . Search_inside_Combo 2003.rar

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