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

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

بغد اذن اخي و صديقي بن علية حل اخر زيادة في اثراء الموضوع انظر الى الورقة Sheet2 العشرة الاوائل بكود salim.rar

أبي الحبيب أبو يوسف بارك الله فيك ..شكلك فنان تشكيلي (تشكيلي غير تشكي لي .. !!) مجهود رائع وتنسيق جميل .. ولكن انتبه كثرة التنسيقات في الملف من شأنها أن تجعل الملف كبير الحجم وثقيل في التعامل ، فلا تكثر منها تقبل وافر حبي وتقديري

السلام عليكم ورحمة الله ولإثراء الموضوع هذا كود من إبداعي ودن الرجوع لاي مصدر كود صغير جدا خفيف وسهل من 7 كلمات Dim MySh MySh = "KHMB" Sheets(MySh).Select يتم وضعة في حدث النقر علي زر الامر مرفق المثال KHMB الذهاب الي الشيت المحدد من الفورم.rar

أخي الكريم أبو حمادة قم بوضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show vbModeless End Sub Sub UnhideAll() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetVisible Next Ws End Sub Sub HideAll() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetHidden Next Ws End Sub أنشيء فورم وعليه 4 أزرار أوامر وقم بتسمية الأزرار باسم cmdClose للإغلاق الخاص بالفورم ، وزر أمر باسم cmdSheet والذي من خلاله يمكنك التعامل مع ورقة العمل المكتوب اسمها على زر الأمر فيخفي أوراق العمل الأخرى ويبقى ورقة العمل فقط ، وزر الأمر cmdRename ويقوم بتسمية زر الأمر السابق المسمى cmdSheet (يغير عنوان الزر وليس اسم الزر) ، وأخيراً زر أمر cmdUnhide لإظهار جميع أوراق العمل وإليك الكود الذي يوضع في حدث الفورم 'Author : YasserKhalil 'Released : 25 - Dec. - 2015 'Use : This UserForm Enables You To Navigate To Specific Sheet ' Depending On cmdSheet Caption & Hide Other Sheets. '-------------------------------------------------------------------- Private Sub cmdSheet_Click() Dim Str As String, Ws As Worksheet, Bln As Boolean Str = cmdSheet.Caption On Error Resume Next For Each Ws In ThisWorkbook.Sheets Ws.Visible = xlSheetVisible If Str = Ws.Name Then Bln = True Next Ws If Bln = True Then For Each Ws In ThisWorkbook.Sheets If Ws.Name = Str Then Ws.Activate Else Ws.Visible = xlSheetHidden End If Next Ws Else MsgBox "There Is No Such Worksheet Name", 64 End If On Error GoTo 0 End Sub Private Sub cmdRename_Click() Dim StrName As String On Error Resume Next StrName = InputBox("Rename Previous Command Button", "Rename Button") If StrName <> "" Then cmdSheet.Caption = StrName On Error GoTo 0 End Sub Private Sub cmdUnhide_Click() Call UnhideAll End Sub Private Sub cmdClose_Click() Unload Me End Sub أعلم أني قد زدت عن الطلب ..فعذراً لكن الموضوع استهواني قليلاً فقمت بعمل الفورم الذي تراه بحيث يلبي حاجة من في حاجة إليه تقبل تحياتي Navigate To Specific Sheet By Command Button Name YasserKhalil.rar

الفكرة أخي الكريم السيفاني في الإعلان عن المتغيرات لا تكمن في أن يتم الأعلان عن كل متغير في سطر منفصل أو الإعلان عن كل المتغيرات في نفس السطر يمكن الإعلان عن الثلاثة متغيرات في سطر واحد ولكن يجب أن تكون كما ارفقت بالمشاركة الأولى أي يتم تحديد نوع كل متغير أما الخطأ الشائع الذي يقع فيه الكثيرون هو أن يتم الإعلان عن المتغيرات بهذا الشكل Dim c1, c2, c3 As Date هنا المتغير الثالث فقط هو الذي تم تحديد نوعه أما المتغير الأول والثاني فلم يتم تحديد نوعهما مما يترتب عليه أن يتعامل معهم المحرر أنهما من النوع Variant وليس من النوع Date أرجو أن تكون قد وصلت الفكرة

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

السلام عليكم ،، ارفق اليكم البرنامج يعمل الان داخل معظم الشركات التى تعمل في مجال التجارة بالكويت (المنتجات التى تشتري من الصين -ويتم بيعها بالقطعة ) والبرنامج متعرض للموضيع الاتية : - أضافة اصناف . - أضافة عملاء وموردين. - أضافة نقاط بيع. - أضافة موظفين . - العهده النثرية بشكل شامل تمام.ا ارجو ان ينال اعجباكم والذي يريد اي استفسار يرسل لي بالبريد khaled95@yahoo.com Sales_Ma...ed_Ahmed.rar] Sales_Managment_By_Khaled_Ahmed.rar

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

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

شكرا على الرد و لكن قصدي بقيام بإستعلام يشمل حقول الإسم و اللقب و الرتبة و جدول العطل لا ينجح الإستعلام و شكرا

أخي الكريم حامد (الغد المشرق) وربنا يستر وميحصلش إعصار بكرة وتطلع الدنيا برد وبرق ورعد ومطره وساعتها الشمس لن تشرق حدد النطاق A2:I2 ثم من التبويب Home روح لـ Conditioal Formatting أي التنسيق الشرطي انقر على الأمر New Rule من النافذة ثم ستظهر لكنافذة أخرى اختر منها آخر خيار ألا وهو Use a formula t determine which cells to format ضع المعادلة التالية في الحقل المسمى Format values where this formula is true =COUNTIF(2:2,A2)>1 انقر زر الأمر Format ثم ادخل على التبويب المسمى Fill واختر اللون المطلوب كما تريد أخيراً انقر أوك ثلاثة مرات .. إليك الملف المرفق بعد تطبيق الخطوات السابقة Highlight Duplicates In The Same Row Using Conditional Formatting.rar

جزاكم الله خيرا

تفضل يا سيدي هذا الكود الذي يقوم بالعمل ، انا عملته على النقر المزدوج (مرتين) على حقل الاسم: Private Sub name_DblClick(Cancel As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!print = -1 Then rst.Edit rst!print = 0 rst.Update End If rst.MoveNext Next i Me.[print] = -1 End Sub جعفر 315.11.accdb.zip

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

سلمت اناملك وحفظك الله من كل مكروه انت رائع اشكرك على حسن اخلاقك وكريم خصالك

تفضل يا سيدي نعمل ماكرو يشتغل عند تشغيل البرنامج ، ويجب ان يكون اسمه AutoExec ، هذا الماكرو نطلب منه تشغيل الوحدة النمطية Login_Form: . الوحدة النمطية Login_Form ، تقرأ قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، فاذا كانت قيمته =-1 (True) ، فانه سيفتح النموذج frm_Log-n ، وإلا فانه سيفتح النموذج frm_Home : . عند اغلاق النموذج frm_Login ، فانه يغير قيمة الحقل Shall_I_Open من الجدول tbl_Shall ، الى القيمه =0 (False) . جعفر 314.form.accdb.zip

جزاك الله خيراً أستاذي ياسر لقد راجعت التعليمات ووجدت أني أخطأت في كثير من الأمور منها 1) كثرة طلباتي في مضوع واحد 2) عنوان الموضوع لم يوضح ما هو المطلوب 3) عدم تنسيقي للنصوص مما يسئ للشكل العام للمنتدي 4) عدم بحثي عن مثال لمشكلتي واستفساري عذراً أساتذتي

أخي الكريم حامد عشان متقولش إننا مقصرين معاك إليك الملف التالي مشابه لطلبك تقريباً .. Multiple Corresponding VLOOKUP Values Across Rows YasserKhalil.rar

جزاكم الله خيراً أساتذتي الأفاضل فعلاً نجحت واشتغلت علي أوفيس 2003

اخي عبدالرحمن شاهد التعديل وفي خانة الاجمالي ضع المعادلة التي تراها مناسبة واي ملاحظة تود عملها اخبرني بذالك اقبل تحياتي واحترامي لشخصك الكريم كشف حساب العميل تعديل 3.rar

أخي الكريم حامد يرجى تغيير اسم الظهور للغة العربية بارك الله فيك إليك المعادلة التالية لتعمل على 2003 =IF(ISERROR(VLOOKUP(A20,'كشف توزيع اللجان'!A15:B39,2,FALSE)),"",VLOOKUP(A20,'كشف توزيع اللجان'!A15:B39,2,FALSE)) إذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية الموجودة بالمعادلة إلى فاصلة منقوطة وحاول تلحق نفسك أوفيس 2016 هو المستخدم الآن .. 2016 - 2003 =13 سنة (أعتقد كفاية كدا على 2003) والناس اللي بتقول إن 2003 خفيف فأقدر أقول إن النسخ الحديثة 2013 و 2016 خفيفة أيضاً أنا عندي جهاز 1 جيجا رامات وبروسيسور عادي وشغال 2016 عليه بشكل كويس جداً تقبل تحياتي

وعليكم السلام انت تريد هذا النموذج ان يفتح مرة واحدة ، وبعدها لا يفتح؟ اعمل جدول خاص لهذا الغرض ، واجعل فيه خانة واحدة ، Shall_I_Open (مثلا)واجعلها نعم/لا ، 1. كلما اردت تشغيل هذا النموذج (عند تشغيل البرنامج مثلا) ، فيجب ان تقرأ القيمة من الجدول ، فاذا كانت = نعم ، فيسمح لك الكود بالدخول في النموذج ، واذا كانت = لا ، فلا يسمح لك بالدخول ويفتح لك نموذج آخر انت تختاره ، 2. عند حدث اغلاق النموذج ، غيّر القيمة الى لا (بواسطة استعلام تحديث مثلا) ، جعفر

أخي الكريم أبو يوسف إليك كود آخر أسرع في التعامل مع الملف حيث أنه يعتمد على المصفوفات Sub YasserReport() Application.ScreenUpdating = 0 Dim Arr, Xs$, Brr, Dc, Sn%, D As Object, DD As Object, TT(), SSS() Dim S As Worksheet Dim K, T, C, I As Long, J As Long Set D = CreateObject("scripting.dictionary") Set DD = CreateObject("scripting.dictionary") SSS = Array("المادة", "عدد الطلاب") Xs = ActiveSheet.Name For Each S In Sheets If S.Name <> Xs Then Arr = S.UsedRange: Dc = "" For I = 1 To UBound(Arr, 2) If Len(Arr(19, I)) = 0 Then Arr(19, I) = Arr(19, I - 1) If Len(Arr(21, I)) > 0 Then Dc = Dc & "|" & I Next Dc = Split(Dc, "|") ReDim Brr(1 To UBound(Arr) - 18, 1 To UBound(Dc)) For I = 19 To UBound(Arr) For J = 1 To UBound(Dc) Brr(I - 18, J) = Arr(I, Dc(J)) Next Next Sn = UBound(Brr, 2) - 1 For I = 3 To UBound(Brr) Step 2 For J = Sn - 2 To 1 Step -1 If Val(Brr(I, J)) Then D(Brr(I, Sn) & "|" & Brr(1, J)) = Brr(I, Sn) & "|" & Brr(1, J) & "|" & Brr(I, J) End If Next Next End If Next Debug.Print D.Count K = D.keys T = D.Items For Each C In K DD(Split(C, "|")(0)) = "" Next K = DD.keys ReDim TT(UBound(K)) With Sheets(Xs) [A1] = "اسم المدرسة" [A2].Resize(DD.Count, 1) = Application.Transpose(K) For I = 0 To UBound(K) TT(I) = Filter(T, K(I)) For J = 0 To UBound(TT(I)) Cells(I + 2, J * 2 + 2) = Split(TT(I)(J), "|")(1) Cells(I + 2, J * 2 + 3) = Split(TT(I)(J), "|")(2) Next Next I = [A1].CurrentRegion.Columns.Count For J = 2 To I Step 2 Range(Cells(1, J), Cells(1, J + 1)) = SSS Next Application.ScreenUpdating = 1 End With End Sub وإليك الملف المرفق الأخير Grab Data From Sheets Colored In Red Or White YasserKhalil V2.rar

نورت المنتدى أخي الفاضل السيفاني وفي انتظار المزيد من الاستفسارات .. وإن شاء الله ستجد إخواناً يقدمون لك يد المساعدة (بس خلي بالك منهم اللي بيقدم رجل المساعدة وبيضرب بالشلوت ..أكيد فاهمني يا عربي)

السلام عليكم ورحمة الله أخي الكريم، اكتب المعادلة بالشكل التالي: =INDIRECT(B2&4)*30% وبإذن الله يكون ما تريد... بن علية

دائما ماتبدع "ياسر خليل " ...موفق ان شاء الله

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

أخي الكريم أبو حمادة روح للتبويب Developer ثم انقر على Macro Security ستظهر معك نافذة اختر من الجهة اليسرى الخيار ActiveX Settings اختر الخيار الرابع Enable all controls

أخي الكريم أبو يوسف جرب الكود التالي عله يفي بالغرض Sub YasserReport() Dim Ws As Worksheet, Wf As Worksheet, Cel As Range Dim TN As Long, S As String, N As String, R As Long, C As Long Set Wf = Sheets("Final") Application.ScreenUpdating = False For Each Ws In Worksheets N = Ws.Name If N Like "Sheet*" Then For Each Cel In Ws.UsedRange.Offset(20, 1).Resize(, 41) If Not Cel.Row Mod 2 = 0 And Cel.Value <> 0 Then S = Ws.Cells(Cel.Row, 45) TN = Cel.Value N = Ws.Cells(19, Cel.Column) If S <> "" Then If N = "" Then N = Ws.Cells(19, Cel.Column - 1) R = 2 Do Until Wf.Range("A" & R) = S Or _ Wf.Range("A" & R) = "" And Wf.Range("B" & R) = "" R = R + 1 Loop C = 2 Do Until Wf.Cells(R, C) = N Or Wf.Cells(R, C) = "" C = C + 2 Loop Wf.Cells(R, 1) = S Wf.Cells(R, C) = N Wf.Cells(R, C + 1) = TN End If End If Next Cel End If Next Ws Application.ScreenUpdating = True End Sub إليك الملف المرفق .. لا تنسانا بدعوة بظهر الغيب تقبل تحياتي Grab Data From Sheets Colored In Red Or White YasserKhalil.rar

أخي الحبيب أبا الحسن والحسين كود رائع وجميل وإن لم يكن مكانه في الموضوع لكنني استفدت منه كثيراً بالنسبة للسائل يريد التعامل مع زر Command Button على الفورم قمت بعمل ملف إن شاء الله يعجبكم لكنه به مشكلة بسيطة بحاول أحلها لنا عودة إن شاء الله

تفضل بالتوفيق

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

الله ينور عليك karrar sabry إضافة بسيطة جدا للكود الذي تفضلت به.. بعد الرسالة لكي لا يحتفظ بالتاريخ الغير مساوي للعام Me.ax = ""

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

أخي الكريم مهند جرب الكود التالي عله يفي بالغرض - مع العلم أنه تم تقديم نفس الكود تقريباً في موضوعك السابق على هذا الرابط من هنا Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("Sheet1") With WS LR = .Range("B" & Rows.Count).End(xlUp).Row - 1 .Range("B1:D" & LR).Sort Key1:=.Range("C1:C" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub Sorting.rar

الحمد لله الذي تتم الصالحات على يديه اشكرك اخي الكريم على كلماتك ودعائك الكريم.

اخي موسى ... اذا كان قصدك انت تختار الاصناف يدويا , فعليك : 1- عمل حقل بالجدول نوع نعم / لا 2- عمل استعلام مبني على الجدول بشرط على الحقل نعم / لا و الشرط هو نعم فقط 3- عمل التقرير مبني على الاستعلام فعند فتح الجدول اختر الاصناف التي تريد ظهورها في التقرير بوضع علامة صح في حقل نعم / لا

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

الله يحفظكم أتابع ردودكم وأحاول الفهم أكثر لكن مازلت لدي نفس المشكلة أريد التفسير أكثر وللعلم أنا أعمل على أكسيس 2007 بنسخة فرنسية ولكم جزيل الشكر

السلام عليكم المسألة كانت تحدي ، وقبلت التحدي انا غيرت اسماء النموذج الرئيسي والفرعي الى اسماء frm_Search و sfrm_Search. الآن يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها: . والكود: Option Compare Database Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From [المستندات]" Me.n2 = "" If Len(Me.n2 & "") = 0 Then Me.sfrm_Search.Form.RecordSource = mySQL End If End Sub Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_jj.mdb.zip 309.Search_as_you_Type_jj.mdb.zip

صورة عن الطلبات

اختي ام عبدلله ملاحظة العلاوة دائمة يعني حلك صح منشان 9%

الأستاذ / أبو علي السلام عليكم ورحمة الله وبركاته بالنسبة للعلاوة كل سنتين 9% عندما يكون الموظف حصل على 9% سنة 2010 ثم يأخذ سنة 2011 علاوة 25% بعد ذلك يحسب له سنتين على 2010 أو 2011 وعندمل يصل راتب الموظف لسنة 2013 المفروض يكون راتبه الفعلي الان. عموماً شاهد الملف وعَقّب عليه لتكملته إن شاء الله. 000001.rar

1-حساب راتب الموظف الحالي ااذا علمت ان الموظف يحصل على زيادة في الراتب قدرها 9% كل عامين 2- في عام 2000 حصل الموظف على زيادة اولى في الراتب مقدارها 50% من راتبهم الحالي فكم يكون الراتب 3-في عام 2011 حصل الموظف على زيادة ثابتة في الراتب مقدارها 25% من راتبهم الحالي فكم تكون 4- حساب عمر الموظفين بالسنوات 5- حساب عدد الموظفات الاناث 6- حساب مجموع رواتب الموظفين الذكور من بداية التعيين 7- التمثيل البياني لنسبة عدد الذكور الموظفين والموظفات الاناث بالنسبة للعدد الكلي للموظفين في الشركة 8- رسم الخط البيانيلرواتب للذكور والخط البيانيلرواتب للاناث والمقارنة بينهما 9- تحديد تاريخ الترفيعة المقبلة لكل الموظفين اذا علمت ان الترفيع يحصل للموظف كل عامين

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق لكم اليوم الإثنى عشر جزءاً للشرح الكامل لجميع دوال برنامج الإكسيل باللغه العربيه والذى وجدتة على أحد مواقع الإنترنت فقمت بتجميعة وتصنيفة وفقاً لطبيعة الدوال وهو شرح مبسط جداً أرجو أن يكون نافعاً للبعض منا وسوف أقوم بتحميلهم على عدة مرات كالتالى:- الجزء الخامس : دوال قواعد البيانات الجزء السادس : دوال الوقت و التاريخ الجزء السابع : الدوال الهندسية الجزء الثامن : دوال المعلومات الجزء التاسع : الدوال المنطقية الجزء العاشر : دوال البحث الجزء الحادى عشر : دوال النصوص الجزء الثانى عشر (والأخير) : دوال المكعب وعذراً على التأخير فقد كنت أقوم بتنزيل كل ملف على حده أرجو منكم الدعاء لوالدى رحمة الله عليه بالمغفرة أخوكم عيد مصطفى Database Functions.rar Date & Time Functions.rar Engineering functions.rar Information functions.rar Logistic functions.rar Search functions.rar Text Functions.rar Cubic functions.rar

الدخول الى اكسس 2007 - في اقصى اليمن يوجد شعار ماكروسوفت اوفيس - في الاسفل يوجد خيارات Access - قاعدة البيانات الحالية - عرض النموذج( اختيار نوع الفورم المطلوب )

وعليكم السلام ورحمة الله لعمل المطلوب أتبع الخطوات الآتية : 1. قم بإنشاء وحدة نمطية وضع فيها الكود الآتي وخزنها في أي أسم تريد '---------------------------------------------------------------------' ' Module: DisableShiftKey ' ' Date: July 18, 2003 ' ' ' ' Purpose: To stop the user from holding the shift key on startup to ' ' access the database window. ' '---------------------------------------------------------------------' Option Compare Database Option Explicit '---------------------------------------------------------------------- Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function '---------------------------------------------------------------------- Function BypassKey(onoff As Boolean) Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, onoff End Function '----------------------------------------------------------------------- 2. قم بإنشاء ماكروات جديدة هي : اسم الماكرو الأول: ByPassKeyOff الإجراء: Runcode الإقتران: BypassKey(False) اسم الماكرو الثاني: ByPassKeyOn الإجراء: Runcode الإقتران: BypassKey(True) 3. نموذج الدخول للنظام الخاص بك قم بإنشاء مستطيل بدون إطار ولون خلفية نفس خلفية النموذج أو إذا كان عندك صورة في نموذج الدخول يمكن استخدامها مكان المستطيل وعرف حدث عند النقر وقم باختيار الماكرو ByPassKeyOn. 4. قم بتشغيل المكرو ByPassKeyOff خزن وأخرج من قاعدة البيانات. 5. الآن عندما تدخل إلى قاعدة البيانات وأنت ضاغط على Shift لن تظهر لك نافذة قاعدة البيانات . لإظهار قاعدة البيانات اضغط بالماوس حيثما وضعت المستطيل المخفي أو الصورة ثم أعد تشغيل القاعدة مع shift ستظهر ولإعادة المنع كرر الخطوة رقم 4. وتعتبر هذه إحدى طرق الحماية لقاعدة البيانات . أملا لك التوفيق في المحاولة مع وافر الاحترام

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

هذا المثال يختبر وجود ملف فى المسار c:\officena.txt فاذا لم يجده يغلق القاعدة و يظهر رسالة و اذا وجده يقوم باظهار رسائل بالمكتوب داخل الملف و يتم اضافته فى حدث form load للنموذج الافتتاحي للبرنامج Private Sub Form_Load() On Error GoTo ERROR_SUB Open "c:\officena.txt" For Input As #1 Do While Not EOF(1) Line Input #1, xx MsgBox Trim(xx) Loop Close #1 Exit Sub ERROR_SUB: If Err.Number = 53 Then MsgBox " No Autorization - This Program Is Not Authorized ! " + Chr(13) + Chr(10) + "Do not do this Again !!", vbCritical, "Alert Message " Close #1 DoCmd.Quit End If End Sub