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

نعم انا قلت هذا في طريقة ، ولكن بتغيير الـ Registry ، http://www.thewindowsclub.com/enable-disable-right-click-context-menus-windows-explorer http://www.liutilities.com/products/registrybooster/tweaklibrary/tweaks/10160/ ونستطيع عن طريق البرنامج التحكم فيه ، بحيث نمنع النقرة بيمين الفأرة عند دخولنا في البرنامج ، ثم نسمح لها عند خروجنا من البرنامج ، ولكن عند تشغيل البرنامج ، لن تعمل نقرة الفأرة اليمين في برنامج تفحص الملفات في الوندوز File Explorer ايضا !! ولكني ضد تغيير اعدادات كlبيوتر المستخدم ، لهذا السبب لم اعرض الفكرة جعفر

السلام عليكم لم استطع تعطيل النقر على الفأرة اليمنى تم استبدال ActiveX الى: . وهذا الكود بالكامل ، مع استعمال الاسهم للذهاب الى الصفحة السابقة ، او الرجوع للصفحة التي كنت عليها Option Compare Database Public web As Object Private Sub cmd_Back_Click() web.GoBack 'Go Back one Page End Sub Private Sub cmd_Forward_Click() web.GoForward 'Go Forward one Page End Sub Private Sub Form_Load() 'specify that the browser is an object in the Form Set web = Me.objIE.Object 'give the initial web page name web.Navigate "E:\" End Sub جعفر 569.Database1.accdb.zip

من منا من لم تحدث له هذه المشكلة وهي تعليق قاعد البيانات في الذاكرة فلا تفتح ولا تقفل مما يضطر البعض إلى إعادة تشغيل الجهاز إليكم هذه الطريقة البسيطة لتجاوز هذه المشكلة 1- اضغط على ctrl+Alt+Delet فيظهر أمامك إطار إدارة المهام افتح على تبويب التطبيقات كما في الصورة اليمنى ثم أشر عل قاعدة بياناتك فستلاحظ أن زر إنها المهمة أصبح فعالا فانقر عليه لإنهاء تشغيل القاعدة . 2- إذا لم تجد قاعدة بياناتك في هذا التبويب فافتح تبويب العمليات كما في الصورة اليسرى ولاحظ الاسم الذي تم التأشير عليه فهذا الاسم خاص بقواعد بيانات أكسس أشر عليه ثم اضغط انهاء العملية في الأسفل . مسألة صغيرة أرجو أن يكون نفعها أكبر ،،،

آسف ما فهمت قصدك جعفر

وعليكم السلام برنس ومخالف عندك مخالفتين في الموضوع: اولا: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف وثانيا: عندك اكثر من سؤال في الموضوع ، وقوانين المنتدى تسمح بسؤال واحد في كل موضوع لوسمحت افتح سؤال جديد ، آخذ في الاعتبار الملاحظات اعلاه جعفر

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب حسب ما تريد وذلك باستعمال كودين أحدهما يقوم بإدراج قائمة كل الأوراق (الشيتات) في العمود AA والكود الثاني يقوم بالمطلوب... وتم الاستعانة ببعض المعادلات في النطاق Q7:Q25 وفي الخلية W1 لعمل الأكواد (لم أجد بدا لذلك بسبب عدم خبرتي الكبيرة بالأكواد)... أرجو أن يفي هذا بالمطلوب... بن علية بحث وفهرسة وترحيل مع الطباعة1.rar

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

السلام عليكم للأسف هذه المعلومة متداولة كثيرا ، ولكنها غير دقيقة انظر هذا الرابط . الدالة NZ تعني ، اذا قيمة الحقل لا شئ Null ، فبدل ان تعطيني خانه فاضية ، اعطني قيمة اخرى (الرابط فيه شرح وامثلة). جعفر

وعليكم السلام اعمل في جدولك حقلين ، حقل به الكلمات بالتشكيلة ، وحقل آخر للكلمات بدون تشكيلة ، في النموذج ، اعمل الحقل بدون تشكيله مخفي ، وفي الحدث بعد التحديث لحقل التشكيلة ، استخدم هذه الوحدة النمطية لإزالة التشكيلة ، وحفظ النتيجة في الحقل الآخر. الآن وقد اصبح لديك حقل بدون تشكيلة ، فإعمل البحث فيه (لا تنسى انه سيكون مخفي) ، ونتيجة البحث اجعلها تُعرض في حقل التشكيلة وهذه هي الوحدة النمطية ، وغيّر فيها كيف شئت (وللأسف ، لأن الكلمات بالعربية ، فدالة Replace عكست اماكن الخانات كما ترى ، ولكن الكود يعمل بطريقة صحيحة): Function Simplify(CW) On Error GoTo err_Simplify 'CW = Correct Word ' when we want to search, we write in simple words, ' simple words = words without hamza for example, ' so we want to avoid these letters ' If Left(CW, 2) = "وَ" Then CW = Replace(CW, "وَ", "") ' If Left(CW, 2) = "فَ" Then CW = Replace(CW, "فَ", "") ' CW = Replace(CW, "وَ", "") ' CW = Replace(CW, "وَ", "") CW = Replace(CW, "آ", "ا") CW = Replace(CW, "أ", "ا") ' CW = Replace(CW, "ؤ", "ا") ' CW = Replace(CW, "ؤ", "ء") CW = Replace(CW, "إ", "ا") ' CW = Replace(CW, "ئ", "ا") ' CW = Replace(CW, "ئ", "ء") ' CW = Replace(CW, "ى", "ا") 'CW = Replace(CW, "ة", "ه") CW = Replace(CW, "ّ", "") CW = Replace(CW, "ـ", "") CW = Replace(CW, "ً", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, "ٍ", "") CW = Replace(CW, "ُ", "") CW = Replace(CW, "ِ", "") CW = Replace(CW, "ْ", "") CW = Replace(CW, "َ", "") CW = Replace(CW, " ", "") CW = Replace(CW, "!", "") CW = Replace(CW, " ", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, " ", "") CW = Replace(CW, ".", " ") CW = Replace(CW, "-", " ") CW = Replace(CW, "[", " ") CW = Replace(CW, "]", " ") CW = Replace(CW, "(", " ") CW = Replace(CW, ")", " ") CW = Replace(CW, ",", " ") CW = Replace(CW, "_", " ") CW = Replace(CW, "¬", " ") CW = Replace(CW, ":", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, ".", " ") CW = Replace(CW, "،", " ") CW = Replace(CW, "«", " ") CW = Replace(CW, "»", " ") CW = Replace(CW, "{", " ") CW = Replace(CW, "}", " ") CW = Replace(CW, "§", " ") CW = Replace(CW, "ـ", " ") CW = Replace(CW, "1", " ") CW = Replace(CW, "2", " ") CW = Replace(CW, "3", " ") CW = Replace(CW, "4", " ") CW = Replace(CW, "5", " ") CW = Replace(CW, "6", " ") CW = Replace(CW, "7", " ") CW = Replace(CW, "8", " ") CW = Replace(CW, "9", " ") CW = Replace(CW, "0", " ") CW = Replace(CW, "~", " ") CW = Replace(CW, CrLf, " ") CW = Replace(CW, Lf, " ") CW = Replace(CW, Cr, " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, Chr(34), " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") ' CW = Replace(CW, "؛", " ") ' CW = Replace(CW, "؛", " ") Simplify = CW Exit Function err_Simplify: If Err.Number = 94 Then 'null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر

هلا والله

وعليكم السلام اختي انا عملت لك التعديلات على حقل الوظيفة ، وانتي اكملي الباقي بنفس الطريقة الجزء الاخير من الصورة مهم ، لأنك تستخدمين وحدة نمطية ، وتعريف طريقة البحث يجب ان تكون Like ، والتي رمزها من الكود هو LS : . مصدر بيانات الحقل يجب ان يكون اسماء الوظائف ، وليس رقمها ، لأن رقمها سيعطيك قيمة واحدة فقط . وعليه ، يجب ان نجري التغيير في الاستعلام ايضا ، حتى نرى اسماء الوظائف وليس ارقامها . هكذا نتيجة الاستعلام . ولما تبحثين عن اسم الوظيفة ، تستطيعين حذف بقية المسمى ، والاكتفاء بالمسمى الذي تريدين البحث عنه (ويمكنك استبدال مربع التحرير والسرد بمربع نص عادي وتكتبين فيه كلمة البحث) ، والنتيجة: . وسلام لأخي رضوان جعفر 572.Employees.mdb.zip

تفضل استاذ جبار Goto.rar

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

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

عن نفسي اكرر شكرى الممدود لشخصكم الكريم للتفاعل المستمر مع الأعضاء

في اي خليه تبغاها اكتب هذه المعادله =TEXT(O15; "dddd") وفي خلية O15 اكتب =NOW()

فهمت اخى ابو حمزة جزاك الله خيرا

السلام عليكم ورحمة الله تفضل الملف المرفق لعل فيه ما تريد... بن علية P.rar

جرب هذا ووافنا بالنتائج عدد الأسر وعدد الأفراد.rar

السلام عليكم جربى هذا المرفق ووافنا بالنتائج الاجازات.rar

الاخوه الافاضل بقاعدة بياناتى يوجد اجازات مرضى متتاليه اريد عند طباعة التقرير ان تظهر اخر اجازه مرضى قد اخذت فقط و ان يتجاهل الباقى بمعنى ان الموظف قد اخد خمس اجازات مرضى بفترات مختلفه اريد طباعة التقرير باخر مده قد اخذها فقط و هل توجد طريقه للترقيم من جديد بالتقارير وتجاهل الترقيم الموجود بالجدول قاعدة البيانات http://www.mediafire.com/file/icff3gfcbull3b9/Sickness.rar

السلام عليكم أخي الكريم بعد إذن الأخ /طارق محمود هذه محاولة منى جرب هذا الملف ممكن يكون المطلوب مرتبات3.rar

شكراً وجزاكم الله خيرا

نعم بالطبع هناك مساعدة الك شوف ووافيني بالنتيجة test70.rar

طال انتظارك أخى ومعلمى طارق حمدا لله على رجوعك ولعل المانع كان خيرا

اليك هذا شوف نظرة اليها خلي كل واحد بيأخذ 1000 اجازات راح يظهر كلها في نموذج فرعي ولكل واحد على وحده تحياتي موظفين.rar

السلام عليكم أخي الكريم تفضل المرفق .. أضفت شيت أسميته "الشهر الماضى" وفي الجديد تضيف رقم الموظف وتسحب المعادلة ,.. فتأتي بياناته مرتبات2.rar مرتبات2.rar

خي العزيز أولا تذهب ل تنسيق خلايا ثانيا : مخصص ثالثا: فى مربع النوع اكتب ddd

نعم اعمل مربع جديد في التقرير واكتب فيها = 1 وفي قائمه‌ خصائصه غير خاصية Running Sum من No الى Over Group اولا قاعدة بياناتك ما بها اي بيانات وثانيا اشوف بدل ذاك القاعدة ان تعمل جدولين جدول للمعلومات الموظف والاخر للاجازات كل شي راح يكون اسهل لك لكي تعمل المطلوب واذا عملت ذلك تكدر تستخدم استعلام وفي حقل التاريخ تختار ماكس هذا والله اعلم

وعليكم السلام هناك 3 طرق للتعرف على الحقل الذي قيمته Null (لا قيمة ، او قيمة غير معروفة) ، سنعمل على هذا جدول ، ولاحظ السجلات الفاضية: . في الطريقة الاولى (IsNull) قلنا اذا الحقل Null ، فاعطنا النتيجة 0 ، في الطريقة الثانية (Len) قلنا اذا عدد حروف الحقل تساوي صفر ، فاعطنا النتيجة 1 ، . والنتيجة: . لكن الامر الاكثر إتباعا هو Nz ، ومعناه Null to Zero ، والامر هو NZ([Field_Name], Value to Replace)Q ، واليك 4 امثلة عليه: 1. الطريقة الخطأ في استعمال الامر ، حيث لم نخبر الامر النتيجة التي نريدها في حال اكتشف ان الحقل فاضي ، 2. اذا كان الحقل Null ، فحول نتيجة الحقل الى 0 (وهذه الطريقة الاكثر اتباعا) ، 3. وممكن ان ، اذا كان الحقل Null ، فحول نتيجة الحقل الى 1 (او اي قيمة ثابته) ، 4. والقليل يعرف ، اذا كان الحقل Null ، فتستطيع ان تعطي اي قيمة/معادلة شئت للحقل (لاحظ انا ضرب قيمة الحقل Field1 في 100 وفي 200 ، حسب قيمة Field1) ، وحتى يمكننا ان نستدعي دالة Function : . والنتيجة: . جعفر 292.Nulls.mdb.zip

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

اخي الكريم حسب معلوماتي المتواضعة يمكن اضافة التاريخ كالتالي Private Sub UserForm_Initialize() TextBox1.Text = Date Lbl1.Caption = Date End Sub اما الوقت بدل Date نضع Thim لكن المشكلة التي وجهتني بالوقت هو عدم تحديث الوقت الى غاية الان ابحث عن هذة المعلومة اقبل تحياتي

السلام عليكم تم اضافة بعض التعديلات Option Explicit Sub collect_data() On Error Resume Next Dim rep_N Dim wo As Workbook Dim sn As String, a As String, z As String, x As String, sign As String Dim i As Integer Dim rr As Long, j As Long, k As Long Set wo = ActiveWorkbook sn = ActiveSheet.Name rep_N = InputBox("Number of Reports from 001 to ?", wo.Name) Application.ScreenUpdating = False For i = 1 To rep_N k = wo.Worksheets(sn).Range("A1000").End(xlUp).Row + 2 z = ActiveWorkbook.Path & "\" & "R00" & i & "\" x = "Report" & Format(i, "00#") & ".xls" a = z & x If Workbook_Exists(z, x) Then Workbooks.Open Filename:=a Sheets(1).Select sign = [c1000].End(xlUp).Value With Range([a3], [a3].End(xlToRight).End(xlDown)) rr = .Rows.Count .Copy (wo.Worksheets(sn).Cells(k, "A")) End With wo.Worksheets(sn).Cells(k, "D").Resize(rr, 1).Value = sign Workbooks(x).Close False End If Next i Application.ScreenUpdating = True Set wo = Nothing On Error GoTo 0 End Sub -------------------------------------------------------------------------- Option Explicit Function Workbook_Exists(FilePath As String, Filename As String) As Boolean With Application.FileSearch .LookIn = FilePath .Filename = Filename Workbook_Exists = .Execute > 0 End With End Function ممكن تستدعي البيانات من اي ملف موجود فيه الكود ActiveWorkbook واي ورقة في الملف ActiveSheet تفضل المرفق Salary.rar

السلام عليكم أخي الكريم من حظك أنني عملت موضوع مماثل لصديق منذ وقت قريب عدلت الكود كالتالي كود واحد فقط موجود في الملف Sal.xls كل ماعليك هو فقط أن تنسخ الكود إلي ملفك أو تنسخ الملف المرفق كله وتضعه مكان ملفك القديم (في نفس المجلد الذي به باقي الملفات) ثم إفتحه وإضغط الزر الأصفر لتشغيل الماكرو سيسألك عن عدد التقارير ثم سيبدأ فتحها واحدا واحدا يأخذ البيانات منه وينسخها في الملف Sal.xls ثم يغلقه ويفتح التالي الكود Sub collect_data() ' rep_N = InputBox("Number of Reports from 001 to ?") For i = 1 To rep_N a = "Report" & Format(i, "00#") & ".xls" Workbooks.Open Filename:=a Sheets(1).Select sign = [c1000].End(xlUp).Value Range([a3], [a3].End(xlToRight).End(xlDown)).Select rr = Selection.Rows.Count Selection.Copy Workbooks("Sal.xls").Activate Sheets(2).Select [A10000].End(xlUp).Offset(2, 0).Select ActiveSheet.Paste ActiveCell.Select For j = 1 To rr Selection.Offset(j - 1, 3) = sign Next j Workbooks(a).Close Next i End Sub تفضل الملف ايضا Sal.rar