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

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

السلام عليكم لقد أضف الكود التالي للكود الذي يقوم بمقارنة التاريخ المخزن مع التاريخ الحالي في حدث عند فتح الفورم Else sql.Edit: sql!Field_now = Now: sql.Update ليصبح شكل الكود كالتالي: If Now < DLookup("Field_Now", "SaveFirstTimeTbl") Then MsgBox "يبدو أنه تم التلاعب بساعة الجهاز" & vbCrLf & _ "هذا سيؤدي الى ايقاف البرنامج" & vbCrLf & _ "لحين ارجاع الوقت الصحيح", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊÍÐíÑ" DoCmd.Quit Else sql.Edit: sql!Field_now = Now: sql.Update End If منع تغيير الوقت.rar

الكود الاعلاه صرنا كمصدر المربع نصي والكود هو 1 - يبدأ من ( = ) يساوي اي المربع النص يساوي اللي ما بعد يساوي 2- بين شريحتين "" كتبنا ( " تقرير لـشهر " ) لكي يعرفه ان هو نص وليس شيء اخر 3- اضفنا ( & ) لكي يدمج الاول اي ( " تقرير لـشهر " ) مع اللي ما بعده 4- كتبنا Format(Date();"mmm") لكي بيأخذ شهر بكتابتاً من التاريخ اليوم 5- من جديد اضفنا ( & ) لكي يدمج اللي ما قبله و ما بعده 6- اضفنا فراغ بين شريحتين ("") اي اضفنا شريحتين بعيدين من الاخر هكذا ( " " ) لكي بيصير الفراغ بين الشهر اي اللي ما كتبنا واللي سنكتب بعد 7- من جديد كتبنا ( & ) لكي يدمج بين ما كتبنا وما سنكتب بعد 8- كتبنا Format(Date();"yyyy") اي لكي يأخذ السنة فقط من التاريخ اليوم ارجوا ان وصلت لك المفهوم تحياتي

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

استاتذتي وأخواني الكرام السلام عليكم ورحمة الله وبركاته منذ فترة طلب مني ألاخ / أبوادم علي البريد فـورم لنموذج فاتورة مبيعات باللغة الانجليزية مع الطباعة وبعد ان صممت النموذج أحببت ان اشارككم فيه عسي ان يكون فيه النفع وان يكون عام ليستفيد منه الباحث عن شيء شبيه النموذج مفتوح(( يمكن تطويعه لاي عمل اخر )) تنويه (( العلامة التجارية "الشعار"" والاسماء بالنموذج من محض الخيال وليس لها علاقة باي علامة تجارية حالية وذلك حفاظا علي الحقوق ولا تعتبر نوع من انواع الدعاية لاي جهة )) أحببت ان انوه فقط ربما تصادف اسم شركة قائمة. ( نموذج الفورم ) ------------------------- ----------------------------- والله ولي التوفيق نموذج فاتورة.rar

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

السادة الزملاء تم تخديث الفيديوهات على اليوتيوب ورفعها على المنتدى كل فيديو فى مكانه أسئلة كثيرة تتردد على مسامعي منها على سبيل المثال : http://magdiyonis54.blogspot.com.eg/ كيفية تصميم شيت اكسل كيفية عمل جدول تنسيق الجدول كيفية إدخال البيانات إضافة الألوان وضبط النصوص دمج الخلايا أبجدة الأسماء التنسيق الشرطي الجمع ومستوى الطالب ( ممتاز جيد ......) وضع السري عمل التسلسل إظهار الصفوف وإخفائها هذه الأسئلة سأجيب عنها وبطريقة بسيطة وبعيد عن المعادلات للهواة أو لطالبى كيفية عمل شيت للامتحانات عنوان المنتدى http://magdiyonis1.forumegypt.net عنوان المدونة الخطوة الاولى.rar

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

السلام عليكم جميعا لدي في المرفقات مرفق به قاعدة بيانات ارشفة قامت بتصميمها الدكتورة زهرة المشكلة تتلخص ان الترقيم التلقائي للصور لايشتغل عند حذف صورة ما ويمكن ملاحظة ذلك عند تطبيق امر حذف صورة معينة فان كان عدد الصور - مثلا - 5 صور وترقيمهم 1 2 3 4 5 عند حذف الصورة والتي تحمل رقم مسلسل 3 نجد ان الترقيم اصبح 1 2 4 5 في حين ان الطبيعي والمنطقي يكون كترقيم تلقائي مسلسل هو 1 2 3 4 ارجو ان اكون احسنت الشرح zaCaptureWebCam2008_Na2011.rar

تم التعدبل مجدداً لا يتغير شيئ في البيانات المسجلة مسبقاً My_Project salim5.rar

لا اعلم عن اي بيانات تتكلم انت تريد ان تنسخ البيانات من ورقة محمد و هكذا كان الخلايا A2 B2 C2 D2 من ككل صفحة تتغير جسب العميل اما الخلايا الباقية لا اعرف اين مصدرها انظر الى التعديل التالي للملف My_Project salim4.rar

لم استطع ان اكون اسرع من ذلك للرد و ذلك لانشغالي بالاعمال المدرسية وضيق الوقت على فكرة لم ار الاعجاب بعد(انا اصلي بهــزر)

ألف مليون شكر يا أغلي الغوالي عذار لو كتبت تعليق مش مناسب جميل جداً جداً جداً لو أمكن شرح بسيط للكود يبقي كدا 100 فل و10

السلام عليكم اخي المحترم / شيفان ممتــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــاز لقد عمل الكود بنجاح فائق بارك الله فيك ومتعك بالصحة والعافية -- انت عبقري -- تحياتـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــي

اسف اخي سروك اتفضل القاعدة بعد التعديل للعلم انا اضفت للكود اون تايمر Me.TimerInterval = 0 Private Sub Form_Timer() Se = Se + 1 If Se >= 2 Then Me.TimerInterval = 0 Call DeleteAllFormsAndReportsss DoCmd.DeleteObject acMacro, "autoexec" DoCmd.DeleteObject acModule, "module5" End If End Sub تحياتي end.rar

السلام عليكم هو طلب لاحدهم وضعته هنا لعموم الفائدة http://www.officena.net/ib/index.php?showtopic=41089 دائما نكون محتاجين عمودين بجانب النطاق لوضع السيناريو عنوان خلايا الجمع وحاصل نتيجة الجمع غير معطياتك بداية الكود Option Explicit '''النطاق الذي تريد فحصه Const rAddres As String = "B4:B12" '''' خلية رقم الفحص Const vAddres As String = "F3" وهذا الكود Option Explicit '''النطاق الذي تريد فحصه Const rAddres As String = "B4:B12" '''' خلية رقم الفحص Const vAddres As String = "F3" Dim cd Sub kh_Test() Dim r%, rr% cd = 8 With Range(rAddres) .Interior.ColorIndex = xlNone .Offset(0, 1).Resize(, 2).ClearContents .Cells(0, 2).Resize(1, 2).Value = Array("Addres", "Sum") For rr = 1 To .Rows.Count For r = rr To .Rows.Count SumTest .Cells, Union(.Cells(rr, 1), .Cells(r, 1)), Val(Range(vAddres)) Next Next End With End Sub Sub SumTest(MyRng As Range, TestCol As Range, MyVal As Double) Dim iCol As Range, Adr$ With MyRng For Each iCol In .Cells If WorksheetFunction.Sum(Union(iCol, TestCol)) = MyVal Then If kh_tColor(Union(iCol, TestCol)) Then Adr = Union(iCol, TestCol).Address With .Offset(.Rows.Count, 1).End(xlUp).Offset(1, 0) .Resize(1, 2).Value = Array(Adr, "=SUM(" & Adr & ")") End With Union(iCol, TestCol).Interior.ColorIndex = cd cd = cd + 1 Exit For End If End If Next End With End Sub Function kh_tColor(Col As Range) As Boolean Dim T As Range For Each T In Col.Cells If T.Interior.ColorIndex = xlNone Then kh_tColor = True Exit For End If Next End Function المرفق 2003 2007 حاصل جمع.rar ========================================== التحديث الاخير للكود في 18-2-2015 المرفق 2010 سيناريو توافيق تجميع قيم تعطي نتيجة معينة.rar

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد ,,, اولا احب ان اشكر استاذنا القدير سليم حاصبيا علي مجهودة الرائع و سرعة الرد ثانيا تم حل مشكلة ربط التواريخ الغير موجودة بكود الموظف ومرفق ملف يوضح ذلك الملف المرفق : missing date.zip

تم التعديل للمرة الثّالثة My_Project salim3.rar

اخي الكريم السلام عليكم ورحمة الله وبركاته انا نزلت قاعدة بياناتك وكان كل شي تمام عدا ان في زر بحث ما به اي كود لكي يعمل شي و مثلا عندك زر مكتوب عليه "خاص بادارة العمليات كوده هو Private Sub ÃãÑ31_Click() DoCmd.Close DoCmd.OpenForm "work" End Sub وما عندك نموذج باسم ورك لكي يفتحه تحياتي

افتح موديول 5 "module5" وغير ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module9" Then DoCmd.DeleteObject acModule, strName End If Next idx الى ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module5" Then DoCmd.DeleteObject acModule, strName End If Next idx شوف الاول مكتوبة موديول 9 "module9" واسم الصحيح هو موديول 5 "module5" غيرها اولا والان صار كود اونتايمر هكذ Private Sub Form_Timer() Se = Se + 1 If Se >= 2 Then Call DeleteAllFormsAndReportsss DoCmd.DeleteObject acMacro, "autoexec" DoCmd.DeleteObject acModule, "module5" End If End Sub تحياتي

استطعت ان اجد التاريخ بغض النظر عن الكود يبقى ان يكفل احد الاخوة بالباقي لضيق الوقت missing date.rar

اتفضل استخدمت هذا كمصدر مربع نصي =" تقرير لـشهر " & Format(Date();"mmm") & " " & Format(Date();"yyyy") وعملت لك مثال على ذلك اتفضل تقرير لشهر.rar

السلام عليكم ورحمة الله أخي الكريم، ألق نظرة على الموضوع في الرابط التالي: تحفة العلامة عبد الله باقشير وهي من روائع الأخ الحبيب "عبد الله باقشير" حفظه الله ورعاه... بن علية

جرب DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, mTable, Me.ImportFile, True, Me.SheetNumber.Column(1) & "$" لم استعطع التجربة لعدم ظهور مربع حوار فتح الملفات. ولكن جرب المحاولة اعلاه تحياتي

استأذن من استاذنا محمد نجار اخي الفاضل اليك هذا عملت كومبوبوكس لكي تختار فيها مصدر النموذج وبعد تحديث الكومبوبوكس كتبت هذا الكود If Me.Combo73 = "power" Then Form.RecordSource = "SELECT power.* FROM power; " ElseIf Me.Combo73 = "power1" Then Form.RecordSource = "SELECT power1.* FROM power1; " ElseIf Me.Combo73 = "power2" Then Form.RecordSource = "SELECT power2.* FROM power2; " ElseIf Me.Combo73 = "power3" Then Form.RecordSource = "SELECT power3.* FROM power3; " ElseIf Me.Combo73 = "power4" Then Form.RecordSource = "SELECT power4.* FROM power4; " ElseIf Me.Combo73 = "power5" Then Form.RecordSource = "SELECT power5.* FROM power5; " End If وهناك طرق كثيرة لكن اختارت هذا و هناك ملاحظة : قبل ان تكتب في النموذج يجب عليك اختيار المصدر النموذج اتفضل مع قاعدة بيانات تحياتي QWE.rar

::: ممكن اعرف سبب انشاء ستة جداول متشايهه في الاعمدة حيث يمكن الاستعاضة عنها بجدول او اثنين ؟! عموما هذا الكود if me . file = اوامر_ادارية then me. subformname.sourceobject = power3 end if

يمكن عمل الكود التالي لكنه لا يسمح أي بحذف ورقة او اضافة ورقة Private Sub Workbook_Open() ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False End Sub

أخى الفاضل / تـــــامر السلام عليكم مبروك علينا انضمامكم .. وتذكر أننى أول من يشارككم أهلا بكم فى أجمل وأحلى منتدى مبنى على الحب وانكار الذات عملت فورم بحث وتعديل .. ما عليكم إلا كتابة البيانات **** رؤوس الأعمدة فى السطر الخامس ( الفورم سوف يتغيير تلقائيا ) تم زيادة الحقول ليسع المزيد وبقبل الزيادة ...... أرجو كتابة عنوان الموضوع يكون ذات دلالة على الموضوع .. حتى يستفاد منه بالبحث .. مجرد ملحوظة نحن معا حتى نصل .. منتظر تعليقكم .. project2.rar