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

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

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

همممم يتم الاحتفاظ بـ Login_Name في ملف صلاحيات المستخدمين mdw. ، واللي كان يُستخدم في الاكسس 2003 فما قبل ، والموجود في في الاكسس 2007 فما فوق ولكنه ليس لاستخدام المستخدمين 🙂 لهذا السبب ، وعند استخدام الكود الذي عرضته انا (والذي لا يحتاج الى معرفة مكان هذا الملف ، ومن المعروف ان المسؤول بإمكانه عمل ملف mdw لكل برنامج حسب مستخدميه ، ويعيد تسمية الملف) ، او كود قراءة ملف ldb. (للاكسس 2003 فما قبل) او laccdb. (للاكسس 2007 فما فوق) الذي عرضته انت ، فالملف لا يوجد به اسماء المستخدمين ، وانما به قطعاً Computer_Name والذي ياخذه من الوندوز 🙂 جعفر

هدا ملف مغاير اخي الكريم على العموم تفضل هده الاكواد الخاصة بك بعد تعديلها Private Sub CommandButton2_Click() 'بحث Dim WS As Worksheet, F As Worksheet, J As Long Dim rng As Range, LastRow As Long, Clé As String Set WS = Sheets("Sheet1"): Set F = Sheets("Sheet2"): Clé = WS.[E3] Application.ScreenUpdating = False If Clé = Empty Then: MsgBox "برجاء إدخال اسم للبحث عن بياناته", vbCritical, "فلاح": Exit Sub LastRow = F.Cells(F.Rows.Count, "B").End(xlUp).Row Set rng = F.Range("B3:B" & LastRow).Find(Clé, LookIn:=xlValues, _ lookat:=xlWhole, SearchDirection:=xlPrevious) If rng Is Nothing Then MsgBox " الاسم غير موجود", vbExclamation, Clé Else J = rng.Row WS.[D5].Value = F.Cells(J, 2).Value: WS.[D7].Value = F.Cells(J, 3).Value WS.[D9].Value = F.Cells(J, 4).Value: WS.[D11].Value = F.Cells(J, 5).Value WS.[D13].Value = F.Cells(J, 6).Value: WS.[D15].Value = F.Cells(J, 7).Value WS.[D17].Value = F.Cells(J, 8).Value: WS.[D19].Value = F.Cells(J, 9).Value WS.[D21].Value = F.Cells(J, 10).Value: WS.[D23].Value = F.Cells(J, 11).Value WS.[G7].Value = F.Cells(J, 12).Value: WS.[G9].Value = F.Cells(J, 13).Value WS.[G11].Value = F.Cells(J, 14).Value: WS.[G13].Value = F.Cells(J, 15).Value WS.[G15].Value = F.Cells(J, 16).Value: WS.[G17].Value = F.Cells(J, 17).Value WS.[G19].Value = F.Cells(J, 18).Value: WS.[G21].Value = F.Cells(J, 19).Value WS.[G23].Value = F.Cells(J, 20).Value Application.ScreenUpdating = True End If End Sub اما بالنسبة لكود التعديل يمكنك اتمامه بنفس الطريقة Private Sub CommandButton5_Click() 'تعديل Dim WS As Worksheet, WS2 As Worksheet Dim LastRow As Long, i As Long Set WS = Sheets("Sheet2"): Set WS2 = Sheets("Sheet1") LastRow = WS.Cells(WS.Rows.Count, 2).End(xlUp).Row For i = 3 To LastRow If WS.Range("B" & i).Value = WS2.[E3] Then WS.Range("B" & i) = WS2.Range("D5") WS.Range("C" & i) = WS2.Range("D7") WS.Range("D" & i) = WS2.Range("D9") WS.Range("E" & i) = WS2.Range("D11") WS.Range("F" & i) = WS2.Range("D13") 'اتمم الكود '''''''''''''''''''' '''''''''''''''''''' MsgBox "تم تعديل البيانات بنجاح" End If Next i Application.ScreenUpdating = True End Sub 123.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا =IFS(A1="","",A1=0,"لا توجد بضاعة",A1<=999,99,"المخزون على وشك النفاد",A1>=1000,"المخزون متوفر") 'OR =IF(A1=0,"لا توجد بضاعة",IF(A1<=999,99,"المخزون على وشك النفاد",IF(A1>=1000,"المخزون متوفر"))) example.xlsx

:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb :: ((( الإصدار الثاني 2.0 ))) :: أضفت زرين في نافذة إعداد اللعبة : طباعة اللعبة / طباعة الحل : التحميل 🙂 : ‏‏لعبة الكلمات المتقاطعة الإصدار 2.accdb1.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

دالة الترقيم من استاذي @ابو جودي ❤️🌹🌹 ( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية طلب @Zooro1 1-اضافة جدول جديد على سبيل المثال اسم :nn 2-اضافة حقل : ID نوع ترقيم تلقائي بشرط لا يكون مفتاح رئيسي 3-❤️🌹من خلال دالة اعادة الترقيم بالتواريخ من الى للعرض الصور خلفية دالة ابو جودي 4-طريقة الاستدعاء حدث عند التحميل والفتح 5-تغير الزمني للصور من دالة Sleep على سبيل المثال :Sleep 500 خمس ثواني Form Zooro1 Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If Public Function movie_wallpaper() Dim day_w As String Dim Month_w As String Dim yaers_w As String '=========================(Aouto Change Photo ) Dim Aouto_photo As Integer Dim photoPath As String 'Dim name_folder As String '=============================================(ÇÐÇ ßÇäÊ ÇáÊÍÏíÏ íæãí Çæ ÔåÑí Çæ Óäæí 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "dd") 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "mm") 'yaers_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "yyyy") '=============================================(snad form start day ) 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "Chack_date_Foe_wallpaper", acViewNormal, acEdit 'DoCmd.SetWarnings True 'Mohammed_Essam_AutoNumFix3 '===============================( IF form one tablet star) 'If DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") = 0 Then 'For Aouto_photo = 1 To DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") 'photoPath = DLookup("[str_date]", "[Chack_date_Foe_wallpaper]", "[end_date] <'deta()' And [IDX] =" & Aouto_photo & " ") If DCount("[ID]", "[nn]") = 0 Then Else For Aouto_photo = 1 To DCount("[ID]", "[nn]") Dim name_folderA As String name_folderA = DLookup("[IDD]", "[nn]", "[ID] =" & Aouto_photo & "") photoPath = DLookup("[path_PC]", "[PC_path]") & "\" & DLookup("[IMG_Pacge]", "[lablory_IMG]", "[ID] =" & name_folderA & "") & "\" & DLookup("[path_X]", "[nn]", "[ID] =" & Aouto_photo & "") Form_Zooro1.Picture = photoPath Sleep 500 Next End If End Function 3D_IMG_BooK_V1 Time_Wallpaper.rar

وين البرنامج ؟؟

جرب هل هدا ما تقصده Sub TEST() Dim WS As Worksheet: Dim F As Worksheet Set WS = Sheets("ورقة2"): Set F = Sheets("ورقة3") Application.ScreenUpdating = False F.Range("B" & F.Rows.Count).End(xlUp).Offset(1).Resize(, _ 26).Value = Application.Index(WS.Range _ ("D5,C7,C9,C11,D13,E15,D17,D19,D21,J7,J9,J11,J13,J15,J17,I19,K19,J21,O7,O9,O11,N13,N15,N17,O19,O21"), _ 1, 1, Array(2, 3, 1, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _ 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26)) With F.Range("A4:A" & F.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-3") End With Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح" End Sub New ورقة عمل Microsoft Excel 2.xlsm

تم الحل جرب اخي تم الحل.xlsx

في اعتقادي انه حتى الان لا يوجد تطبيق يفتح نماذج الاكسس الافضل ان تقوم بإنشاء صفحات ويب بنفس تصميم نماذج الاكسس لديك بعدها تستطيع رفع تلك على الصفحات على اي استضافة مجانية مع قاعدة البيانات كانت لدي نفس المشكلة و قمت بعمل نفس الحل مرفق رابط الموقع فقط للاطلاع طبعا هذا الرابط متوافق فقط مع الهواتف اما اجهزة الحاسب الآلي لا و هذا بناء على طلب العميل فقط باضافة الكود التالي للتصميم و بناء جميع العناصر بكامل حجم مساحة العمل <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> الموقع الذي تم تصميمه مع العلم بأن هذا الموقع مرتبط قاعدة بيانات اكسس