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

وعليكم السلام 🙂 . تقدر تعمل استعلام بهذه الطريقة ، وهو يعمل المطلوب: . ولكن ، كبف تريد البحث في النموذج الرئيسي والفرعي في نفس الوقت!! ما قصدي انه ما يصير ، وانما ياريت تعمل لنا مثال عن اللي تريده ، من واقع بياناتك (وزيد في البيانات شوي) ، جعفر

تفضل 🙂 انا لعبت في الجدول: اضفت سجل ثم حذفته ، وبهذه الطريقة فقدنا التسلسل رقم 4 من حقل الرقم التلقائي ID ، ثم اضفت سجل جديد لعملة جديدة وهي الريال العماني ، ثم اضفت حقل Seq وهو لإدخال التسلسل اليدوي ، واردت التسلسل يكون هكذا : . على هذا الاساس ، عملت استعلامين: الاول ليعطينا التسلسل حسب فرز الحقل ID ، والثاني يعطينا التسلسل حسب فرز الحقل Seq : . والنتيجة: . والوحدة النمطية اللي تقوم بإرجاع البيانات مكتوبة هي : Public Function Row_Number(N) As String 'N = Number sent from the Query If Len(N & "") = 0 Then Row_Number = "" ElseIf N = 1 Then Row_Number = "العملة الرئيسية" Else Row_Number = "العملة رقم " & N End If End Function . والتي يمكن استبدالها بوضع هذا الحقل الجديد في الاستعلام (طبعا حسب اسم الحقل) ، ولكني أفضل الوحدة النمطية لسهولة التعديل عليها : Curr: IIf(Len([ID] & "")=0,"",IIf([ID]=1,"العملة الرئيسية","العملة رقم " & [ID])) . طيب لو اردت التسلسل (الفرز) يكون بإسم العملة ، فالطريقة الاولى لفرز الحقل ID لا ينفع ، ولم ارد استعمال الحقل Seq !! فالطريقة تكون ، بأن نعمل تسلسل للإستعلام حسب حقل الفرز ، وهناك عدة طرق لعمل هذا التسلسل ، ولكني أفضل هذه الوحدة النمطية: Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function . ثم ننادي هذه الوحدة النمطية من الاستعلام ، حتى تعطينا التسلسل ، ثم نستعمل الوحدة النمطية السابقة لكتاية المطلوب: . ملاحظة: الحقل الذي يكون محسوب ، ويتغير بإستمرار ، فإننا لا نحفظ قيمته في الجدول ، لهذا السبب ، لم نستعمل الحقل N ، ولم نحفظ قيمتها في الجدول 🙂 جعفر 988.test 2.accdb.zip

وعليكم السلام 🙂 لم ادخل في صميم البرمجة بعد ، ولكن قولك لفت انتباهي: هذا صحيح ، ولكن بسبب انك وضعت تعريف المتغيرات في قمة الوحدة النمطية ، وخارج المودل ، فهذا معناه ان البيانات لا تزال تكون مخزنه فيه ، ولحل هذا : احذفهم من هناك واجعلهم داخل المودل ، او اجعل المتغير = 0 في المودل ، وهذا حل الموضوع ، مع تعديل آخر بسيط: Public Function Clcisthlk(EndToreedDate As Date, srfSt As Integer) As Double Set sql = CurrentDb.OpenRecordset("EsthlakPricesTbl", dbOpenDynaset) sql.MoveLast: sql.MoveFirst ' pris = 0: srf = 0 Sumwtr = 0: SumSrf = 0: SumMnss = 0: mnss = 0: descrSrf = "" descr = "" ' Do Until sql.EOF If IsNull(sql!UntlMnth) Then enddt = DateSerial(Year(Date), Month(Date) + 1, 0) pris = sql!Price srf = sql!srfm Else enddt = sql!UntlMnth pris = sql!Price srf = sql!srfm End If ' If EndToreedDate <= enddt Then SumMnss = SumMnss + mnss mnss = DateDiff("m", EndToreedDate, enddt) - SumMnss Sumwtr = Sumwtr + (mnss * pris) If srfSt = 1 Then SumSrf = SumSrf + (mnss * srf) Else SumSrf = 0 End If descr = descr & "monhs= " & mnss & " * pris= " & pris & " = " & (mnss * pris) & vbCrLf descrSrf = descrSrf & "SRf= " & srf & " * " & "Monthes= " & mnss & "= " & (mnss * srf) & vbCrLf End If 'Debug.Print "1>> " & vbCrLf & descr 'Debug.Print sql.MoveNext Loop Clcisthlk = Sumwtr + SumSrf ' Debug.Print descr Debug.Print descrSrf ' sql.Close Set sql = Nothing End Function جعفر

=[The number field] & " " & "في" & " " & [The Date field]

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

السلام عليكم ورحمة الله وبركاته السادة الأفاضل الأساتذه الأفاضل أحباء هذا الصرح العظيم أقدم لكم اليوم Microsoft Office Professional Plus 2019 أرجوا أن ينال إجابكم https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/en-us/ProPlus2019Retail.img

السلام عليكم جرب هذا المرفق 1010.rar

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

سيدي الفاضل 🙂 رجاء مراجعة الرابط التالي ، واللي نحسب فيه الوقت (فهو مهم لك للخطوة التالية) : . يجب ان يكون عندنك معيار/مصطلح تستخدمه في حساب الدقائق/الساعات/الايام ... ، والاسهل هنا هو مصطلح الدقائق ، لأنه وبسهوله يمكن تحويله الى ساعات وايام ، لذا ، وجب ان تكون حسابات الفوارق من الوقت ، بالدقائق. وعليه ، اضفت لك في الاستعلام ، هذا الحقل لجميع عمليات فارق الوقت ، ولكي اجعل الموضوع سهل لك ، فقد استعملت نفس مسمياتك ، ولكن بإضافة m قبل اسم الحقل : . والنتيجة: . وتم تعديل الجمع في النموذج الفرعي ، حتى يجمع هذه الارقام : . والنتيجة : . الآن وقد اصبح لديك مجموع الوقت بالدقائق ، فتستطيع عمل الخطوة التالية 🙂 وان شاء الله اصبح الطريق اسهل من ذي قبل 🙂 جعفر 990.Employee 04 .accdb.zip

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

=[The number field] & " " & "في" & " " & format("[The Date field]";"yyyy/mm/dd")

1- نعم هذا هو 2 - عند تحويل القاعدة الى Accde تقدر تفتح الاستعلامات و الجداول وتعمل عليه ماتريد ... فقط لا يمكنك ان تفتح النماذج والتقارير في وضع تصميم والاكواد ايضا

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

السلام عليكم جرب هذا ووافنا بالنائج رسالة بتعدي الخصم.accdb

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

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

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

يجب اعادة تسمية جميع النطاقات كما فلعت بالتطاف الاول

ممكن ذلك لكن يجب اعادة تسمية النطاقات 1 R_G بدل ان يكون k6:k228 تجويله الى k6 :p228 و هكذا بيقية النطاقات و من ثم استبدال هذين السطرين من الكود Range("c6:c" & Rows.Count).ClearContents Range("c" & m).Resize(r).Value = ara.Value الى Range("c6:G" & Rows.Count).ClearContents Range("c" & m).Resize(r,5).Value = ara.Value

جرب هذا الكود Option Explicit Sub join_data() Dim My_rg As Range Dim m%: m = 6 Dim r% Dim ara Range("c6:c" & Rows.Count).ClearContents Set My_rg = Union(Range("R_G_1"), Range("R_G_2"), Range("R_G_3"), Range("R_G_4")) For Each ara In My_rg.Areas r = ara.Rows.Count Range("c" & m).Resize(r).Value = ara.Value m = m + r + 1 Next End Sub الملف مرفق البيانات_salim.xlsm

اتفضل FindAsUType-update (2).rar

لازلت اعتقد بانه هناك طريقة اسهل للذي تريد الوصول اليه ، لذا لوسمحت ارفق الموجود من بياناتك ، ثم اشرح لنا بالاكسل (من واقع بياناتك) النتيجة اللي تريد توصل لها 🙂 جعفر

وعليكم السلام 🙂 نعم يوجد ، واسمه Recordset Absoluteposition ، وهذا شرح له من مايكروسوفت: https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/recordset-absoluteposition-property-dao ولكني لا اعتقد بأنك تبحث عن هذا !! اخبرنا لماذا كنت تريد ان تستعمل هذه الداله ، وماذا تريد استخراج من بياناتك؟ جعفر

شيء رائع أن يكون معنا كوكبة من أساتذة الأكسس يشاركون بتجاربهم ونجاحاتهم معنا بالأول الاستاذ @Shivan Rekany والآن الأستاذ @sandanet .. ماذا عساي أن أقول ألا بارك الله فيكم على ماتبذلونة في أيصال عصارت علمكم لنا لكي نمشي على خطاكم فكرة رائعة من شخص له باع في أكسس وعن تجربة .. نعم المعالج هو الأنسب .. ونفضل أدراجها معا ماسبق أيدك أخي @محمد عبد الشفيع

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

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

اهلا بك فى المنتدى تفضل الفرق بين تاريخين هجرى.xlsm

اهلا بك اخ كريم فى المنتدى لك ما طلبت عملاء.xlsm

السلام عليكم تفضل: الاستعلام اصبح: . ونتائج النموذج: . والوحدة النمطية: Public Function Calc_Diff(DE1 As Date, DE2 As Date) As Long Dim Time_Left_day1 As Long Dim Time_day2_Morning_Til_DE2 As Long Dim Time_days_Between_day1_day2 As Long Dim Interval As Long 'all the calculations are in minutes 'DE1 = Date 1st Employee finished his task 'DE2 = Date 2nd Employee finished his task 'DE1 & DE2 finished the same day If Format(DE1, "yyyymmdd") = Format(DE2, "yyyymmdd") Then Interval = DateDiff("n", DE1, DE2) 'DE2 finished next day ElseIf DateDiff("d", DE1, DE2) = 1 Then 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 'DE2 didn't finish next day Else 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'time days between day1 and day2 Time_days_Between_day1_day2 = DateDiff("d", DE1, DE2) * 420 ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 + Time_days_Between_day1_day2 End If ' Format and print the time interval in days, hours, minutes and seconds. 'Calc_Diff = Minutes2Duration(Interval) Calc_Diff = Interval End Function Public Function Minutes2Duration(minutes As Long) As String Dim dd As Long, hh As Integer, mm As Integer 'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes ' modified by jjafferr based on the working day hours ' 1 day = 24 hours x 60 minutes/hour = 1440 minutes ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes ' dd = minutes \ 420 minutes = minutes - dd * 420 hh = minutes \ 60 mm = minutes Mod 60 ' If dd = 0 Then 'No day adjustment Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' Else 'needs day adjustment ' Minutes2Duration = Format(dd - 1, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' End If End Function جعفر 973.1.قاعدة البيانات8.mdb.zip

تكتب هذه المعادلة بالخلية G2 ثم اسحب للأسفل =IF(OR(C2<>"",E2<>""),"تم","") اما فى الخلية H2 يتم وضع معادلة للعد بدون تكرار وهى : =SUMPRODUCT(($G$2:$G$100="تم")/COUNTIFS($G$2:$G$100,$G$2:$G$100&"",$B$2:$B$100,$B$2:$B$100&"")) تم.xlsx

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

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

السلام عليكم، سنتعرف في هذا الدرس على أحد طرق تصميم مسابقة ثقافية أجوبتها صح وخطأ بطريقة تفاعلية مميزة. في مثال هذا الدرس يوجد صور أرنب بثلاث أوضاع: الأولى وهو واقف بشكل عادي، والثانية وهو سعيد تظهرعند الإجابة الصحيحة، والثالثة وهو حزين تظهر عندما يكون الجواب خطأ. الآن عند بداية السؤال ستكون وضعية الأرنب بشكل عادي، عند الإجابة الصحيحة ستختفي صورة الوضع العادي، وتظهر صورة الوضع السعيد لمدة ثانية ونصف ثم تختفي وتظهر صورة الوضع العادي مرة أخرى، وسيظهر زر للانتقال للسؤال التالي. وطبعًا بالعكس في حال الجواب الخطأ، ستختفي صورة الوضع العادي وتظهر صورة الوضع الحزين ولمدة ثانية ونصف أيضًا، ثم تعود صورة الوضع العادي وإعطاء فرصة أخرى للجواب الصحيح. الآن سنقوم بإعادة تسمية الصور الثلاث من قائمة الاختيار (Selection Pane)؛ وهذا أمر مهم لتمييز الصور عند إضافة التأثيرات والإرتباط التشعبي فيما بعد، لمعرفة طريقة إعادة تسمية الكائنات من قائمة الاختيار يرجى مراجعة درس: شرح جزء التحديد (Selection Pane) في البوربوينت. سنقوم بتسمية صورة الوضع العادي (عادي)، والوضع السعيد (صحيح)، والوضع الحزين (خطأ). والآن سنقوم بوضع الصور الثلاث فوق بعد تمامًا؛ حتى تظهر بشكل صحيح عند إضافة الحركات عليها، وأسهل طريقة لذلك نقوم بتحديد الصور الثلاث، ثم نذهب إلى قائمة تنسيق (FORMAT) ونختار منها محاذاة (Align)، ثم نحدد محاذاة للمنتصف (Align Center)، ثم محاذاة وسط (Align Middle). الآن سنحرك الصور للجهة اليسرى السفلى؛ وهذا لترك مساحة لوضع مربع السؤال ومربعا الجواب الصحيح والخطأ، وبعد ذلك سنضع خلفية تناسب موضوع المسابقة. بعد ذلك سنقوم بإضافة حركات ظهور (Appear) وإخفاء (Disappear) على الصور الثلاث على النحو التالي: 1) الوضع العادي (عادي): ظهور (Appear) ثلاث مرات، إخفاء (Disappear) مرتين. 2) الوضع السعيد (صحيح): ظهور (Appear) مرة واحدة، إخفاء (Disappear) مرة واحدة. 3) الوضع الحزين (خطأ): ظهور (Appear) مرة واحدة، إخفاء (Disappear) مرة واحدة. ثم نقوم باختيار جميع الحركات، ومن قائمة الحركات (Animation) نحدد من الخيار بدء (Start) بعد السابق (With Previous)؛ وهذا سيُسهّل عملية التصميم فيما بعد. والآن سنقوم باختيار حركات صورة (عادي) ظهور (Appear) وإخفاء (Disappear)، وحركات (صحيح) ظهور (Appear) وإخفاء (Disappear)، ثم نذهب إلى زر التشغيل (Trigger) ونختار منها (جواب صحيح). بعد ذلك ستصبح هذه الحركات أسفل زر التشغيل (جواب صحيح). والآن سنعيد ترتيب الحركات وذلك بسحبها لأعلى وأسفل بواسطة زر الفأرة الأيمن وكالتالي: 1) حركة (عادي) إخفاء (Disappear). 2) حركة (صحيح( ظهور (Appear). 3) حركة (صحيح) إخفاء (Disappear)، بتأخير قدره (Delay) ثانية ونصف (01.50). 3) حركة (عادي) ظهور (Appear)، بتأخير قدره (Delay) ثانية ونصف (01.50). وهذا يعني، عند الضغط على (جواب صحيح) ستختفي صورة (عادي) وتظهر صورة (سعيد) لمدة ثانية ونصف، ثم تختفي صورة (سعيد) وتظهر صورة (عادي) مرة أخرى. والآن سنقوم باختيار حركات صورة (عادي) ظهور (Appear) وإخفاء (Disappear)، وحركات (خطأ) ظهور (Appear) وإخفاء (Disappear)، ثم نذهب إلى زر التشغيل (Trigger) ونختار منها (جواب خطأ). والآن سنعيد ترتيب الحركات أيضًا كالتالي: 1) حركة (عادي) إخفاء (Disappear). 2) حركة (خطأ( ظهور (Appear). 3) حركة (خطأ) إخفاء (Disappear)، بتأخير قدره (Delay) ثانية ونصف (01.50). 3) حركة (عادي) ظهور (Appear)، بتأخير قدره (Delay) ثانية ونصف (01.50). وهذا يعني أنه عند الضغط على (جواب خطأ) ستختفي صورة (عادي) وتظهر صورة (خطأ) لمدة ثانية ونصف، ثم تختفي صورة (خطأ) وتظهر صورة (عادي) مرة أخرى. والآن سنضيف زر للإنتقال للسؤال التالي يظهر عند الضغط على الإجابة الصحيحة، نرسم مستطيل دائري الزوايا، ونقوم بتغيير اسمه إلى (التالي) من قائمة الاختيار (Selection Pane)، ثم نضيف له حركة تضاؤل (Fade) عند ظهوره، ونضع هذه الحركة أسفل زر التشغيل (جواب صحيح) بحيث يكون آخر حركة، مع الانتباه لجعل خاصية بدء (Start) الخاصة بها (With Previous). سنقوم الآن بإضافة ارتباط تشعبي لزر (التالي)، وذلك بالذهاب إلى قائمة إدراج (INSERT)، ثم ضغط زر إجراء (Action). الآن نحدد إرتباط إلى (Hyperlink to:) ثم الاختيار من القائمة الشريحة التالية (Next Slide)، وأخيرًا نضغط زر موافق (OK). والآن نكتب السؤال، ثم الجواب الصحيح (المربع اليمين)، والجواب الخطأ (المربع اليسار). هذا كل شيء الآن.. لنقم بالضغط على زر (F5) من لوحة المفاتيح للتأكد من صحة الخطوات التي قمنا بها. ملاحظة: عند كتابة السؤال الثاني، نقوم بتكرار الشريحة ونعكس مكان الجوابان فقط، بحيث يكون الجواب الخطأ على اليمين، والصحيح على اليسار، وبعد ذلك نستطيع تكرار الشرائح بأي عدد نريد، ونقوم بإعادة ترتيبها بشكل عشوائي. تحميل العرض الخاص بالدرس من المرفقات. نهاية الدرس مسابقة.pptx

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

السلام عليكم تعليم برنامج الاكسس 2010 الجزء الاول http://www.mediafire.com/?07u7um8n2ptwg77 الجزء الثاني http://www.mediafire.com/?tt7k8dz8j2h3tkh

وعليكم السلام الطريقة الصحيحة لوضع قاعدة البيانات على الشبكة ، هي ان تعملها جزئين ، جزء للجداول (وتسمى BE) ، وجزء لباقي كائنات البرنامج (وتسمى FE)، جزء الجداول يكون على مجلد على الشبكة ، ويكون لجميع المستخدمين صلاحيات القراءة/التغيير ، جزء بقية الكائنات ، يكون على كمبيوتر كل مستخدم ، وتكون جداول الجزء الاول مرتبطة مع هذا الجزء. هناك عدة طرق لعمل تحديث لجزء الكائنات ، بحيث يقوم المبرمج بوضع النسخة الجديدة في نفس مجلد جزء الجداول على الشبكة (لأن جميع المستخدمين عندهم صلاحيات القراءة/التغيير للمجلد هذا ، مما يجعل هذا المجلد هو المجلد الاسهل للإستعمال)، احد طرق التحديث: 1. ان تعمل جدول في جزء الجداول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم التحديث ، وطبعا هذا الجدول سيكون مربوط مثل بقية الجداول ، بالجزء الثاني ، 2. وفي جزء بقية الكائنات ، تعمل جدول محلّي ، اي غير مرتبط مع الجزء الاول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم النسخة الحالية للجزء الثاني ، 3. عند تشغيل الجزء الثاني ، فسيعمل مقارنة بين رقم نسخته (من الجدول المحلي) ، ورقم نسخة التحديث (من الجدول المرتبط) ، فاذا تطابقت الارقام ، فمعناه انه لا يوجد نسخة جديدة ، اما اذا لم تتطابق الارقام ، فمعناه ان هناك نسخة جديدة موجودة ، ويجب ان يتم استبدال نسخته (التي على كمبيوتره ، بتلك التي في الشبكة) هذه صلب الفكرة جعفر

انظر هذا الكود يتم من خلاله الترقيم بالزيادة مع تحديد رقم البداية وقد تم ضبط الحقل كمفتاح لا يقبل التكرار ويمكنك وضع اي رقم تريد ان يكون هو البداية Private Sub zer1_Click() On Error Resume Next Dim i As Integer i = DMax("[id]", "tbl1") If i < 12345 Then id = 12345 Else id = i + 1 End If End Sub وهذا تطبيق Test1.rar

الملف مرة تانية بالمرفقات ودا الكود المتسخدم بالشرح On Error Resume Next If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then MsgBox "bla bla1", vbDefaultButton1, "bla bla1 " Else azsh = Sheet2.Range("c50000").End(xlUp).Row + 1 Sheet1.Range("A3:C3").Copy Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues MsgBox "bla bla2", vbDefaultButton1, "bla bla2 " Sheet1.Range("A3:C3") = "" End If كود ترحيل البيانات- أوفيسنا.rar

عرض بوربوينت. عرض تعليمي رائع يعلم الأطفال حروف الهجاء..عرض ppt لحروف الهجاء.. http://www.ashefaa.com/PowerPoint/7oroof.pps

جرب المرفق اخى احترامى ابوالحسن.rar

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

أخي الكريم انظر المثال المرفق في هذا المثال لدينا الجدول الرئيسي و اسمه Transactions فيه : مسلسل - رقم الموظف - تاريخ الحركه نتعامل مع رقم الموظف و ليس مع اسمه حتى يسهل الربط مع الجداول الأخرى في حال كان لدينا أكثر من جدول و حتى لا يلتبس علينا رقم الموظف و نريد ادخال اسمه , ننشء جدولا مستقلا للموظفين اسمه Emplyee فيه : رقم مسلسل - اسم الموظف حتى نستطيع الربط بين رقم الموظف و اسمه : اذهب الى جدول Transactions - الحقل EmpName نجعل نوعه رقم و ليس نص ابقى المؤشر على اسم الحقل نفسه , تجد في الأسفل لوحتين general - lookup اذهب الى قائمه lookup display control = combo box row source = اضغط على الأزرار الثلاثه المتتاليه يفتح لك نافذة تصميم استعلام جديد و هو عباره عن الاستعلام الذي يجب أن يأخذ قيمته منه اختر الجدول Emplyee ثم اختر الحقلين : EmpID - EmpName اغلق الاستعلام من مربع الاغلاق , و هنا سيرسل لك رساله لحفظ مصدر البيانات و اختر نعم , و بعد الاغلاق سيعطيك الكود التالي SELECT Emplyee.EmpID, Emplyee.EmpName FROM Emplyee ; الأن , اذهب الى : السطر الذي بعده column count وهذا عباره عن عدد الحقول التي تريدها أن تظهر في الاستعلام ابتداء من أول حقل في الجدول , و اجعل قيمته 2 لأن عندنا حقلين اترك سطر و اذهب الى الذي يليه column witdh عرض الحقل الذي سيظهر في الاستعلام اجعل قيمته = 0 اذا كنت تريد أن يظهر لك اسم الموظف فقط أو اجعل قيمته = 0cm;2.35cm اذا كنت تريد اظهار الحقلين معا : الآن احفظ الجدول و ابدأ بكتابة البيانات تجد في حقل رقم الموظف يعرض لك الأسماء بينما تخزن الأرقام تلقائيا فيه db15.zip