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

وعليكم السلام تفضلي أختي: الزر موجود في النموذج Form1 ، اولا تأكدي ان تغير الحدث من Private الى Public Public Sub cmd_A_Click() MsgBox "Run A" End Sub ثم من اي مكان او اي نموذج ، ناديه هكذا: Call Form_Form1.cmd_A_Click جعفر

هلا والله أخوي عمر 1. سهلة ، 2. اسهل من 1 ، خطوة واحدة لصفحات الكود كلها جميعا ، هكذا: . جعفر

وعليكم السلام 1. ياريت ترفقه ، او تعطينا رابط معلومات عنه ، علشان نستفيد منه 2. هذا ما يحتاج له برنامج ، وانما ممكن يصير بطريقة تلقائية ، انا عندي لابتوب ما مربوط بشبكة ، وبإعدادات معينة فيه ، واعدادات معينه في الهاتف النقال (خلينا نتكلم عن الاندرويد حاليا) ، وتلقائيا يصير الربط كلما كان التلفون في مجال اللابتوب ، 3. لما الربط اللي في المادة 2 يصير ، الكمبيوتر والاكسس يتعاملون مع اي موقع خارجي (موقع انترنت) ، بطريقة عادية ، وبدون الحاجة الى اي تدخل من اي برنامج ، 4. نفس المادة 3 اعلاه ، بس عليك بالبرمجة ، سواء بالاكسس او غيره ، 5. عندك شيئين هنا ، ارسال الرسائل ، فيمكن عمله واخونا العود @ابوخليل له باع في هذا الموضوع ، مثل اما الاتصال من الجوال ، فما اعرف قصدك جعفر

بعد اذن اخويا الغالى واستاذى الحبيب @محمدنجار يوضع سطر الكود الذى تفضل به اخى العزيز فى التقرير فى مربع النص فى control source ويكون الكود بهذا الشكل =DLast("Current_Research_budget";"Balance") وممكن وضعه فى الاستعلام ويكون بهذا الشكل Last Research Budget: DLast("Current_Research_budget";"Balance") بس للتوضيح لو ترك الكود بهذا الشكل بدون تصفيه ستكون اخر قيمة فى المطلق ولكن لو اردتى اخر قيمة ل id user على سبيل المثال يجب عمل تصفية اولا على هذا الحقل حتى تكون اخر قيمة لهذا id user والله اعلى واعلم

لا يمكن اخفاء خلايا في اكسل انما صفوف او اعمدة

انا طالب علم وهانا تعلمت معلومه جديدة من استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr اسال الله تعالى لكم الخير كله واسال الله تعالى لكم البركة فى العمر والعلم والعمل والاهل والولد وان يغفر لكم ولوالديكم ولكل المسلمين ان شاء الله التعديل والتطبيق على المرفق بلمسات ساحر الاكسس الاستاذ @jjafferr Run Button Command _ up_by_ mr jjafferr .rar اسألكم الدعاء بظهر الغيب لوالدتى

اخى الحبيب @Amr Ashraf ارفع مرفقك قد يكون فيه جديد عن مرفقى فاتعلم انا منك وادعو لك واسال الله تعالى ان يجعلكم سباقون الى الخير دائما وابدا

ماشاء الله سبقتنى كنت برفعها :) جزاك الله خير

اخى الكريم الاستاذ ناصر السلام عليكم ورحمة الله اليك شرح الكود كما طلبت عسى الله ان اكون قد وفقت وفقنا الله واياكم لما يحب ويرضى Sub LClasses() الاعلان عن المتغيرات ' Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant, Temp As Variant, Temp2 As Variant Dim LR As Long, i As Long, j As Long, f As Long, p As Long, q As Long Dim x, y, a, b, c, d, xx, yy Dim c1, c2, c3, c4 Dim d1, d2, d3, d4 Set ws = ThisWorkbook.Sheets("بيانات الطلبة") تعريف الشيت الاول وهو مصدر البيانت' Set sh = ThisWorkbook.Sheets("كشوف المناداة") تعريف الشيت الثانى قوائم اللجان' LR = ws.Range("E" & Rows.Count).End(xlUp).Row + 6 آخر صف فى الشيت الاول' Arr = ws.Range("A7:P" & LR).Value تحديد نطاق المصفوفة المصدر' ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) اعادة تعين المصفوفة الثانية الخاصة بكشف اللجان الاول' ReDim Temp2(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) عادة تعين المصفوفة الثانية الخاصة بكشف اللجان الثانى' sh.Range("B9:N34").ClearContents مسح اللجان قبل تفريغ اى بيانات جديدة' a = sh.Range("D7").Value رقم اللجنة الاولى' b = sh.Range("L7").Value رقم اللجنة الثانية ' On Error Resume Next c = WorksheetFunction.VLookup(a, sh.Range("AE3:AF" & sh.Range("AF" & Rows.Count).End(xlUp).Row), 2, 0) التأكد من عدد اللجان للقائمة الاولى' d = WorksheetFunction.VLookup(b, sh.Range("AE3:AF" & sh.Range("AF" & Rows.Count).End(xlUp).Row), 2, 0) التأكد من عدد اللجان للقائمة االثانية'' x = (a - 1) * c + 1: xx = a * c التعرف على اول و آخر طالب فى الكشف الاول' y = (b - 1) * d + 1: yy = b * d التعرف على اول و آخر طالب فى الكشف االثانى' 0 For i = 1 To UBound(Arr, 1) تنبيه الكود بالصفوف التى سوف يتم العمل عليها فى المصفوفة الام' If i >= x And i <= xx Then شرط الصفوف المطلوبة من المصفوفة الام لكل لجنة ' p = p + 1 العد حسب الشرط الموضح بعاليه' For j = 1 To 4 عدد الاعمدة المطلوبة من المصفوفة الام للمصفوفة الجديدة والتى تخص اللجنة الاولى ( التى هى على يمين الورقة )' Temp(p, j) = Arr(i, Choose(j, 2, 5, 15, 16)) تحديد المصفوفة الجديد او المطلوبة واختيار اعمد بعينها ' sh.Cells(p + 8, 2) = p ترقيم الطلاب فى اللجنة ' Next End If If i >= y And i <= yy Then الشرط الثانى وهو الذى يخص اللجنة الثانية - باقى الشرح نفس الشرح السابق' q = q + 1 For f = 1 To 4 ' Temp2(q, f) = Arr(i, Choose(f, 2, 5, 15, 16)) Cells(q + 8, 10) = q ' Next End If Next If p > 0 Then sh.Range("C9").Resize(p, j).Value = Temp اتصدير المصفوفة الجديدة الاولى كما رتب لها' If q > 0 Then sh.Range("K9").Resize(q, f).Value = Temp2 اتصدير المصفوفة الجديدة الثانية كما رتب لها' الخطوات بالاسفل اعتقد انها واضحة تماما وهى احصيات ''' c1 = WorksheetFunction.CountIf(sh.Range("E9:E34"), "*" & "مسلم" & "*") c2 = WorksheetFunction.CountIf(sh.Range("E9:E34"), "*" & "مسيحى" & "*") c3 = WorksheetFunction.CountIf(sh.Range("F9:F34"), "*" & "منقول" & "*") c4 = WorksheetFunction.CountIf(sh.Range("F9:F34"), "*" & "باق" & "*") d1 = WorksheetFunction.CountIf(sh.Range("M9:M34"), "*" & "مسلم" & "*") d2 = WorksheetFunction.CountIf(sh.Range("M9:M34"), "*" & "مسيحى" & "*") d3 = WorksheetFunction.CountIf(sh.Range("N9:N34"), "*" & "منقول" & "*") d4 = WorksheetFunction.CountIf(sh.Range("N9:N34"), "*" & "باق" & "*") خلايا نتائج الاحصائيات''' sh.Range("F3") = c sh.Range("F6") = c1 sh.Range("F7") = c2 sh.Range("F4") = c3 sh.Range("F5") = c4 sh.Range("N3") = d sh.Range("N6") = d1 sh.Range("N7") = d2 sh.Range("N4") = d3 sh.Range("N5") = d4 End Sub

الاخ محمود ابو الدهب شكرا لك ولك مثلهاكتبته لك على خلفية بسيطة

لسلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام حفظكم الله أستخدم الكود التالي لطلب كلمة مرور لفتح النموذج وحاولت أن أستخدم معه الوحدة النمطية المعروضة في هذا الموضوعhttps://www.officena.net/ib/topic/37919-تمت-الاجابة-اريد-وضع-كلمة-مرور-لفتح-النماذج/ لتظهر كلمة المرور على شكل نجوم فلم أستطيع التعديل على الوحدة النمطية وعدد النماذج التي أستخدم لها كلمة مرور كبير جدا يصعب التعديل على كودها فهل من معين بعد الله يعدل لي الوحدة النمطية مع بقاء الكود للنماذج كما هو في التالي Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim intinput As Integer intinput = InputBox("فضلاً ادخل الرقم السري", "دخول") If intinput = 12011 Then Cancel = False Else MsgBox "عفواً كلمة المرور غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه" Cancel = True End If End Sub

يا أخي يا أخي ، لما المرة الجاية اقول لك سهلة ، صدقني الحمدلله جعفر

تمت وجزاكم الله ألف خير أخي ومعلمي وأستاذي جعفر

عفوا أخي طارق انا اعرف انك تتأذى لما اطلب منك معلومات وتفاصيل ، ولكن بدون معرفة المطلوب ، فلن اتمكن من مساعدتك في شرحك الجديد ، استعملت التاريخ 31/03/2017 للتقرير رقم 1 ، فلم يكن هناك ولا سجل ، وفي جدول oil هناك سجل واحد فقط ، بينما شرحك يقول ان هناك 7 سيارات!! الله يخليك ، افتح البرنامج امامك واكتب الخطوات والنتائج ، علشان اقدر اتابع معاك ، ومنها اعرف المطلوب جعفر

شكرا استاذنا يسلمو الايادي بالمرفق اتضح كل شيء مليون شكر

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

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

جزيت خيرا مشكور استاذ اعزكم الله

تم تغيير معادلة التنسيق الشرطي =IF(INDIRECT("'"&$B3&"'!$G18")>0,IF(MONTH(LOOKUP(2,1/($G3:$R3<>""),$G3:$R3))<MONTH(NOW()),1,0),0) جرب الملف بشكل جيد وابدي ملاحظاتك وضع علامة على اسم العميل المتاخر - حل استاذ خالد.rar

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

شكرا لهذه الكلمات .. فرحتني كثيرا اسف .. انا ما فتحت النيت بعد مشاركتك هذا .. الان انا فتحت النيت لكن انت جاوبت وما خليتني ان انزل المرفق شكرا لك تقبل تحياتي

أخاف ارد عليك ، وذكرياتك تذكرك بذكرى تريد ان تذكرني فيها حياالله أخوي عمر الموضوع سهل ، 1. انسخ الوحدة النمطية الى برنامجك (وهاي شغل مرة واحدة) ، 2. في الكود ، اعمل استبدال للكلمة Inputbox الى inputboxDK ، لجميع صفحات الكود ، وصلى الله وبارك بس رجاء ، اعمل Backup قبل اي عمل جعفر

السلام عليكم جرب المعادلة التالية علها المطلوب - وان لم يكن كذلك قم بمزيد من التوضيح للمطلوب =IF(L13<>"bb",(O9*0.5)+(IF(E15>=6,1,0)*O9*0.5),0)

يفيدك في هذا الموضوع الاساتذة الكبار في هذا المنتدى

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

السلام عليكم اليك الملف علة المطلوب وضع علامة على اسم العميل المتاخر.rar

تم تغيير الكود(انسخه الى موديل جديد و عين له زراً للتنفيذ) Option Explicit Option Base 1 Sub Salim_Extract() Dim Src_Sh As Worksheet Dim Trg_Sh As Worksheet Dim xx, lr, m, My_Row As Integer Dim ArrJ(), ArrG() Dim t As Long Application.ScreenUpdating = False My_Row = 4 Set Trg_Sh = Sheets("الديون") Trg_Sh.Range("e4").Resize(10000, 3).Clear For m = 3 To Sheets.Count - 2 t = 1 Set Src_Sh = Sheets(m) With Src_Sh .Select On Error GoTo 1 On Error Resume Next lr = .Cells(Rows.Count, "j").End(3).Row For xx = 4 To lr If .Cells(xx, "j") > 0 And Cells(xx, "j") <> "" Then ReDim Preserve ArrJ(t) ReDim Preserve ArrG(t) ArrJ(t) = .Cells(xx, "j").Value ArrG(t) = .Cells(xx, "G").Value: t = t + 1 End If Next End With Trg_Sh.Range("g" & My_Row).Resize(UBound(ArrJ)) = Application.Transpose(ArrJ) Trg_Sh.Range("f" & My_Row).Resize(UBound(ArrG)) = Application.Transpose(ArrG) Trg_Sh.Range("e" & My_Row).Resize(UBound(ArrG)) = Sheets(m).Cells(1, 2) Trg_Sh.Range("f" & My_Row).Resize(UBound(ArrG)).NumberFormat = "m/d/yyyy" My_Row = My_Row + t Trg_Sh.Range("e" & My_Row - 1).Resize(, 3).Interior.ColorIndex = 6 1: Erase ArrJ: Erase ArrG Next Application.ScreenUpdating = True Trg_Sh.Activate: Range("e3").Select End Sub الملف المرفق اصنافform salim 1.rar

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

الف مبروك استاذي الفاضل شفان ودائما في تقدم وعلو

والله تستاهل صبرت و نلت

اتفضل اليك هذا الكود =IIf([رقم الطالب]>0;Nz(DSum("[الدرجة] ";"[جدول_الدرجة]";"[رقم الطالب]=" & [رقم الطالب]);0)) واليك قاعدة بياناتك من جديد ههه 623.stu new (1).rar وبعد تضيف مواد لا تنسى حقل رقم الطالب لكي يعرف انه لاي طالب

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01" واستخدمت هذا الكود عند الفتح النموذج Private Sub Form_Open(Cancel As Integer) If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then Me.sh01.ControlSource = "" Else Me.sh01.ControlSource = "01" End If End Sub اليك قاعدة بياناتك بعد اضافة الكود الاعلاه rr2.rar

قمت بالإطلاع على ملفك المرفق ولم أفهم المطلوب .. طلبك أن يتم التعامل مع 1500 ملف في نفس الوقت والكود المقدم يقوم بعمل حلقة تكرارية للملفات كلها ثم في المكان المخصص في الكود يمكنك فعل ما توده من تنسيق أو خلافه مرة واحدة لكل الملفات .. على سبيل المثال إذا أردت توسعة عرض العمود الأول في الـ 1500 ملف ستضع سطر يقوم بذلك الأمر .Columns(1).ColumnWidth=25 ويمكنك تسجيل ماكرو للتنسيق المطلوب لتتعرف على كيفية التعامل مع أسطر الكود في حالة التعامل مع التنسيق أو خلافه

اضغط على alt+F11 للدخول لمحرر الأكواد ومن نافذة المشروع في الجهة اليسرى انقر نقراً مزدوجاً على thisWorkbook ثم انسخ الكود والصقه هناك للمزيد حول الأساسيات قم بالإطلاع على رابط الفيديو التالي

=IF(AND(J19<720;L13="aa");J19*2/100;IF(AND(J19<720;L13="bb");J19*2/100;IF(AND(J19<720;L13="cc");J19*2/100;""))) جرب هذه المعادلة

اخي ياسر يوجد حل لهذا الامر قاعدة البيانات salim.rar

استاذ خالد وضح ماهى الشروط المراد تحقيقها

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

انسخ واحدة من المعادلات الى الخلية B3 ,واسحب تزولاً (استعمل الفاصلة المنقوطة او الفاصلة قي المعادلة - حسب اعدادات الجهاز عندك) =IF($C3="","",SUBTOTAL(103,$C$3:C3)) أو =IF($C3="";"";SUBTOTAL(103;$C$3:C3))

وإنسخ الخلية لأسفل $c3 ضع $ قبل خليه ok_قاعدة البيانات.zip

تفضل اخى الكريم ان شاء الله هو المطلوب users.rar

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

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

مجهود ممتاز ونتمنى الاعضاء يطلعوا عليه

تفضل هذا الموضوع تكملة للموضوع: http://www.officena.net/ib/topic/65628-كود-لحذف-الاسطر-3-الاولى-من-شيت-اكسل-بالأكسس/ هذا الكود الجديد الذي يقوم بالعمل: Private Sub cmd_Remove3_Click() If Len(Me.txt_Dont_Delete & "") = 0 Then MsgBox "ÑÌÇÁ ÇÏÎÇá ÇáßáãÉ ÇáÊí ãäåÇ äÈÏà ÇáÊÓÌíá" & vbCrLf & _ "Please write the word to start writing from" Me.txt_Dont_Delete.SetFocus Exit Sub End If Dim TextLine, File_Name, File_ext, Folder_Name, nFile_Name File_Name = Dir(Me.txtPath) 'the file name only File_ext = Mid(File_Name, InStrRev(File_Name, ".") + 1) 'the file extension Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name 'a temp csv file to transfer to it the correct lines nFile_Name = Folder_Name & Mid(File_Name, 1, Len(File_Name) - Len(File_ext) - 1) & "_2." & File_ext 'open both Input and Output files Open Me.txtPath For Input As #1 Open nFile_Name For Output As #2 d = 0 i = 0 Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. i = i + 1 'skip the 1st 3 lines, and write the rest If InStr(TextLine, Me.txt_Dont_Delete) > 0 Then d = -1 End If If d = -1 Then Print #2, TextLine End If Loop Close #1 Close #2 'now we have a csv file correctly saved, 'convert it to xls 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False 'delete the temp cvs file Kill nFile_Name MsgBox "Done" End Sub جعفر 298.1.Remove_Lines_csv.mdb.zip

اخى العزيز مرفق قاعدة بها استعلامين الاول يظهر اسم الجهة واسماء العاملين بها الذين تدربوا وعدد الدورات التدريبية التى حصلوا عليها--- والثانى اسماء العاملين الذين لم يتدربوا بهذه الجهة المطلوب عمل نموذج يجمع بين 1- اسماء العاملين الذين تدربوا وعدد الدورات التى تدربوا عليها من الاستعلام الاول -2- اسماء العاملين الذين لم يتدربوا من هذه الجهة من الاستعلام الثانى 3- اظهار عدد العاملين الاجمالي لهذه الجهة (المتدربين وغير المتدربين ) مع الشكر والتقدير محمد Database324.rar

أخي العزيز إستخدم الكود التالي Private Sub Form_Open(Cancel As Integer) Dim x As String x = "password" Dim y As String y = InputBox("Enter Password for form") If x <> y Then MsgBox ("Invalid password") DoCmd.CancelEvent End If End Sub قم باستبدال password بكلمة المرور التي تريد في كل نموذج ووافني بالنتيجة ...

نعم اخي و لكني سا أعيد صياغة ما ذكرته من خلال مثال بسيط حتى تتضح الصورة لنفترض أن الخلية A1 بها التاريخ 1/1/2008 و الخلية A2 بها التاريخ 8/7/2008 d لحساب الفرق بين تاريخين بالأيام و ستكون النتيجة 554 يوم m لحساب الفرق بين تاريخين بالأشهر و ستكون النتيجة 18 شهر y لحساب الفرق بين تاريخين بالسنوات و ستكون النتيجة 1 سنة ةاحدة md لحساب الفرق بين تاريخين بالأيام بغض النظر عن الشهر و السنة و ستكون النتيجة 7 ايام ym لحساب الفرق بين تاريخين بالأشهر بغض النظر عن الأيام و السنين و ستكون النتيجة 6 شهور yd لحساب الفرق بين تاريخين بالأيام بغض النظر عن السنة مع الاخذ بعين الاعتبار الأشهر و ستكون النتيجة 189 يوم Dates.rar