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

تفضل ... NEW (4).accdb

السلام عليكم أولا نشكركم و نثمن وجودكم معنا فى منتدى أوفيسنا ، الآن تعدى عدد أعضاء المنتدى 190 الف عضو ، و تعدى عدد المشاركات 590 ألف مشاركة و أصبح الموقع قاعدة بيانات ثرية لمن يرغب فى تعلم الاوفيس و تبادل المعلومات و الخبرات فيما يتعلق بالاوفيس على مختلف مستويات الاحتراف لاستخدام تطبيقات الافيس و برمجتها. و عليه نشكر كل من ساهم و يساهم ممن يقتطعون من وقتهم و جهدهم فى سبيل نشر العلم و مشاركة المعرفة و مساعدة الآخرين سواء كانوا معنا او غابوا عنا وبقت اعمالهم ننهل منها جميعا لنزداد علما و معرفة. و نسأل الله أن يجعله فى ميزان حسناتهم يوم لا ينفع مال ولا بنون. فلا يسعنا أن نوفيهم شكر ما قدموا ومازالوا يقدمون. كما تعلمون تتركز أغلب المشاركات فى الموقع فى أقسام الأوفيس الرئيسية ، و نرى فى هذه المرحلة تشجيع الجميع على التواجد وتبادل المعرفة فى الاقسام المتعلفة بادارة المشاريع و المرونة و البحث العملي و تطبيقات البيانات الضخمة و الذكاء الاصطناعي وهي أقسام يقل عدد روادها و مشاركاتها بصورة كبيرة مقارنة باقسام الاوفيس ، كما يقل عمرها ايضا كثيرا عن أقسام الاوفيس، فبعض هذه الأقسام قد افتتح مؤخرا بينما تعدي عمر بعض اقسام الاوفيس الرئيسية ثمانية عشر عاما واصبحت ثرية بالعلم و مازالت تطرح الجديد فى كل يوم بفضل عطاءكم و مشاركتكم. وسبب هذه الدعوة للمشاركة وهو نفس سبب افتتاح هذه الافسام الجديدة، هو رغبنا فى تقديم ما فيه الفائدة لأعضاء المنتدى، فهذه المواضيع قد إزدادت أهميتها بدرجة كبيرة، و من المتوقع بحسب العديد من الدراسات أن تزيد أهميتها كثيرا فى الفترة القادمة على المستوى المهني وستصبح أساسية للتطوير الذاتي أيا كان مجال عملك. وكما جرت العادة للأسف، فالمحتوى العلملي المتاح بالانجليزية فى هذه المواضيع يتعدى المحتوى المتاح باللغة العربية بصورة كبيرة ، و عليه باذن الله سنعمل سويا على اتاحة ما هو مفيد فى هذه الاقسام لتبادل المعرفة وتحقيق القائدة المرجوة. تم افتتاح قسمين جديدن حديثا ضمن أقسام ادارة المشاريع و هما قسمي (الاستراتيجية و ادارة محافظ المشاريع) و الذي افتتح من ايام قلائل و قسم مخصص لاطار (السيف (SAFe) و المتعلق بتطبيق المرونة على مستوى المؤسسات Scaled Agile Framework و الذي افتتح أمس فقط الأقسام الجديدة كما اعتدنا لا يتم النشر بها مباشرة و لكن يتم النشر بعد اعتماد المشاركات من المشرفين ، فستظهر المشاركات بعد اعتمادها، و بعد فترة باذن الله سيتم فتح النشر المباشر مثل باقي اللأقسام بعدما يعتاد المشاركين فى هذه الأقسام على نظام الموقع. فى انتظار مشاركاتكم و تفاعلكم جميعا مع تحيات فريق الموقع www.officena.net

وعليكم السلام ورحمة الله وبركاته لالغاء مفتاح الشيف او تفعيله نقوم باضافة الوحدة النمطية التالية Function ChangeProperty(strPropName As String, _ varPropType As Variant, _ varPropValue As Variant) As Integer Dim 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 لايقاف تشغيله الكود التالي ChangeProperty "AllowBypassKey", dbBoolean, False للتشغيل ChangeProperty "AllowBypassKey", dbBoolean, True اذا كانت قاعدة البيانات محمية بكلمة مرور ( قاعدة البيانات ولا اقصد vba ) فلا يمكن من خلال برنامج خارجي الغاء الشيفت الا بمعرفة كلمة السر اولاً تحياتي

حياك الله اخي الفاضل .... تفضل .... kan_22.accdb

تفضل ... قم باختيار الصف ثم حضر الطلاب ثم احفظ لاعتماد غياب للصف ثم كرر العملية لجميع الصفوف .... kan_22.accdb

بالتوفيق للجميع هكذا يستمر صرح العطاء بلا مقابل ابتغاء وجه الله

كما اعتدنا بأن هذا المنتدى للفائدة العامة و نشر العلم و تبادل الخبرات هذا هو البرنامج متاح للجميع للتعديل و الاستفادة اسم المستخدم :Admin كلمة المرور : 123 اخي محمود الأن تستطيع طلب المساعدة من الإخوة في حال واجهتك مشكلة او اردت الاضافة و التعديل MyNewData.zip

لا تريد العرض .....؟؟؟؟؟ ام تريد عرضها في النموذج .......؟؟؟؟؟ ام تريد رسالة .....؟؟؟؟

انظر هذه الحلول .......

اذا كان فهمي للموضوع صحيح انظر الاستعلام ..... بيانات.mdb

تفضل :::: - عملت لك زر للحفظ وفتح فاتورة جديدة - ايضا عند الخروج من النموذج أو الاغلاق يتم عرض رسالة تأكيد بحفظ الفاتورة أو عدمه ..... وعند اختيار الغاء يعيد الكميات الموجودة في الفاتورة الى المخزن مرة اخرى ارجو ان يكون هو طلبك ......... تجربة_76523.accdb

الكود صح 100% حسب شرحك 🙂 ما عدا المسافة الزائدة هنا : . 1. رجاء عرض رسالة الخطأ والسطر الذي به الخطأ ، 2. التأكد من نوع الحقول في الجدول ، 3. الحقلين : Forms!Fatora_be!Fat_num و Forms!Fatora_be!Kind_haraka يجب ان يكونوا : أ. اسماء الحقول في النموذج وليس ب. مصدر الحقول . جعفر

تقضل اخي الكريم ان شاءالله يكون هو المطلوب ليس عن طريق الاستعلام وانما بالكود بالتوفيق Database150 (2).accdb

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

. تفضل قمت فقط بتغير المسار حق المتصفح بدل من C:\Program Files\Internet Explorer\IEXPLORE.EXE الى C:\Program Files\Google\Chrome\Application\chrome.exe Ù_تØ_ رابط.mdb

الطريقة الصحيحة في قاعدة البيانات ان: تضيف حقل للسنة ، ولنسميه iYear ، عادة يكون هناك نموذج رئيسي دائما مفتوح ولنسميه frm_Main مثلا ، قم بعمل مربع تحرير Combobox للسنوات الموجودة في حقل السنه ، وعند فتح النموذج ، اجعل القيمة التلقائية التي يأخذها هذا المربع : me.iYear.value= year(Date) . وتكون نماذجك مصدر بياناتها استعلامات ، وفي الاستعلام في حقل السنه ، اجعل المعيار: Forms!frm_Main!iYear . بهذه الطريقة يمكنك الاحتفاظ ببيانات جميع السنوات السابقة ، ولن يحصل اي خلط بين بيانات السنين 🙂 كيف عرفت انا هذه الطريقة ؟ لأني طبقتها على برامج المخازن والمحاسبة للعديد والعديد من المؤسسات ، والطريقة ناجحة وبإمتياز 🙂 جعفر

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

ارفق ملف وضع النتيجة المتوقعة حتى تجد المساعدة

شكرا جزيلا - أ / محمد صلاح - جزاك الله خيرا على اكتمال الموضوع أهدي لحضرتك لينك أول فيديو من الفيديوهات التي سوف يكون لك دائما الفضل فيها https://youtu.be/tmQ8Mkn6K7E

اخي الكريم على الرغم انه ليس لدي تجربة في مشاركة الملفات ولكن من الكود لا يوجد دليل الملف الذي تم مشاركته عموما جرب هذا السطر ActiveWorkbook.SaveAs FileName, , , , , , xlShared يجب الاعلان عن متغير لدليل الملف ثم تقوم بتعيينه

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

ماشاء الله تبارك الرحمن بالتوفيق للجميع

حلمي معكم يتحقق

بل طبقته على تقرير ، لاحظ اسم التقرير : . . كلما في الامر اني حفظت النموذج بضيغة تقرير ، فانا وضحت لك في مشاركتي السابقة ، واليك توضيح آخر: الاكسس فيه خاصية تحويل كائن النموذج الى كائن تقرير ، يعني اذا كان عندك نموذج ، واردت ان تعمل تقرير شبيه له ، فيمكنك تحويل النموذج الى تقرير ، والتعديل عليه وحذف الكود والازرار التي به ، هكذ : . اذا وضعت مؤشر الفأرة على كلمة acOutputReport في الكود ، ثم ضغطت على زر F1 ، فسترى البدائل الاخرى التي يمكنك تصديرها ، فقط تأكد بمطابقة نوع الكائن الذي تريد تصديره (مثلا acOutputForm) ، بوضع اسمه الصحيح (fform) : . جعفر

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

و عليكم السلام و رحمة الله وبركاته شاهد الحل المرفق لعله يفي بالمطلوب تحياتي takrir.xlsx

تفضل send.accdb send.zip

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

الحمد لله تم حل الطلب

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

تفضل التعديل احصاء.zip

السلام عليكم استاذ @jjafferr استاذي الغالي يعجز اللسان عن وصفك لان وصفك لا ياتي من اللسان ولاالقلم لان القلم اذا تجرأ وحاول ان يكتب عنك سيخجل حبره ويجف احترااااااااااااماَ لك شكرا لك استاذي ومعلمي العزيز بارك الله فيك

مقترح جميل وللوصول إلى هذا يلزمنا: * تعديل سطر رابط الملف في الكود إلى wmp.Url = ThisWorkbook.Path & "\" & "mp3" & "\" & ListBox1.Value & ".mp3" للاحظ أنه يقرأ قيمة العنصر المجدد وليس فهرسه * وكذلك يلزمنا تغيير خاصية rowsource الخاصة بالقائمة إلى =INDIRECT("a1:a"&COUNTA(A:A)) وتعني تحديد الخلايا المكتوب فيها فقط في العمود a ويمكنك كتابة أسماء الملفات بصورة نصية أيضا مثل سورة كذا

انا راح اعطيك التورته بكل اشكالها ، وانت اختار اللي تحبها ، بس بشرط انك تأخذ قطعة واحدة من كل نوع 🙂 Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num 'اذا رقم myWhere = "fat_num = '" & Forms!Fatora_be!Fat_num & "'" 'اذا نص myWhere = "fat_num = #" & Forms!Fatora_be!Fat_num & "#" 'اذا تاريخ myWhere = myWhere & " And " myWhere = myWhere & "kind_haraka = " & Forms!Fatora_be!Kind_haraka 'اذا رقم myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'" 'اذا نص myWhere = myWhere & "kind_haraka = #" & Forms!Fatora_be!Kind_haraka & "#" 'اذا تاريخ Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0) جعفر

🙂 1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار: . 2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا : . 3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير : . 4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ، وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf : . 5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص: Private Sub أمر26_Click() 'On Error Resume Next 'DoCmd.OpenReport "استيكر لغات", acViewPreview 'Me.Visible = False On Error GoTo err_Handle Dim rstG As DAO.Recordset Dim File_Name As String 'get the Group school names Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group") rstG.MoveFirst 'always start from the begining 'loop through the Group school names Do Until rstG.EOF 'assign the school name to the field, and apply its event, for visual looks Me.cbo_schoole = rstG!School_name Call cbo_schoole_AfterUpdate 'output pdf file name File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf" Kill File_Name 'Delete old file, if any 'output the Reports as pdf file DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint 'next school rstG.MoveNext Loop Exit_err_Handle: 'cleaning up rstG.Close: Set rstG = Nothing Exit Sub err_Handle: If Err.Number = 53 Then 'no file to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_err_Handle End Sub جعفر 1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

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

مشاركة مع استاذي الفاضل @kanory قم بانشاء نموذج مستمر ( جدولي ) ثم قم باضافة زر امر وفي حدث عند النقر ضع الكود التالي Dim k As String k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));" form.RecordSource = k الملف مرفق بيانات.mdb

total_fatora = Nz(DSum("total", "Haraka", "fat_num = " & Forms!Fatora_be!Fat_num & " And " & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'"), 0)

جرب الكود التالي =Dsum("total"; "Haraka"; "[fat_num] = " & forms!Fatora_be!Fat_num & " And [kind_haraka] = '" & forms!Fatora_be! Kind_haraka & "'") تحياتي

من تنفيذ احد الزملاء بالمنتدي لعله طلبك تصدير جدول من اكسيل الى اكسيس.rar