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

أهلين أخي خالد بارك الله فيك و جزاك الله خيرا على المداخلة هذه الأمور أنا عملتها من قبل حياك الله أستاذنا. أنا لا أستخدم WiFi كلها كابلات جديدة لم أجرب هذا من قبل و لكنني سوف أجربها الآن إن شاء الله أشكر جميع الإخوة على هذه المداخلات و هناك ملاحظات عديدة كانت غائبة عني و قد استفدت منها كثيرا. أما بالنسبة لحل المشكلة فقد توصلت إليه بالصدفة و قد حيرني كثيرا لأنني كنت لا أرى فرقا كبيرا في الكود. كنت استخدم كود إضافة مبلغ أو سلعة من النموذج الرئيسي إلى النموذج الفرعي بهذا الشكل: Forms![frm_vente]![sub_req_vendre].SetFocus Forms![frm_vente]![sub_req_vendre].Form![Code_article].SetFocus DoCmd.GoToRecord , , acNewRec Forms![frm_vente]![sub_req_vendre].Form![Code_article].text=11 غيرت موضع السطرين الثاني و الثالث هكذا Forms![frm_vente]![sub_req_vendre].SetFocus DoCmd.GoToRecord , , acNewRec Forms![frm_vente]![sub_req_vendre].Form![Code_article].SetFocus Forms![frm_vente]![sub_req_vendre].Form![Code_article].text=11 فأصبحت الإستجابة سريعة عند الإضافة

السلام عليكم وبالإضافة لما تفضل به أساتذتنا الكرام من باب تجربتي البسيطة في ربط برنامج اكسيس بـ SQL Server فكان الأداء والسرعة لا تقارن جدا . وأيضا لست بحاجة لمجلد لمشاركة قاعدة البيانات إلا فحالة مشاركة الملفات ... وكذلك الاجهزة المتصلة بالواي فاي فأداؤها جيد جدا 👍 . أيضا والحمدلله قمت بتصميم بعض الصفحات من خلال فيجوال استديو بلغة السي شارب بتقنية asp.net وربطتها بنفس القاعدة في الشبكة الداخلية وأداء خرافي .

تفضل اخي الكريم With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then IMG = .SelectedItems(1) Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG Next End If End With test.rar تحياتي

كلام صحيح مع ان اقصى سرعة استطعت الوصول لها لنقل بيانات عن طريق wifi بحدود 150ميجا ولكن في مكان مفتوح بدون عوائق اما مع وجود العوازل وزيادة المسافة بشكل بسيط فكان الحد الاقصى 4.6 ميجا ومتذبذبة لذا فان الربط يكون عن طريق الكيبل ومن تجربتي اذا زاد طول الكيبل عن 40 متر يفضل استخدام سويتش اضافي

بالاضافة لما اشار اليه الاساتذة الكرام في بداية الامر قواعد البيانات الصغير مثل Base و access و Brilliant Database و FileMaker تكون في افضل اداء عند العمل عليها من جهاز واحد وهذا لا يعني عدم امكانية العمل عليها من خلال الشبكة في هذا الموضوع بطئ البرنامج بشكل ملحوظ من خلال الشبكة يعود الى احد امرين مشاكل الشبكة مشكله في اعداد الشبكة ضعف مكونات الشبكة علما بانه عند وصل جهازين احدهما يحتوي على كرت شبكة بسرعة 1000 والاخر بسرعة 100 فان سرعة تبادل البيانات تكون متوافقة مع السرعة الاقل اضافة الى امور اخرى مثل حجم الرام وسرعة الهارد لذا يفضل استخدام اقراص ssd كحد ادني و اقراص m.2 هي الخيار الافضل لذا للتاكد من ذلك او نفيه نقوم بعمل قاعدة بيانات صغيرة ونقوم بتقسيمها وتركيبها على الشبكة فان عملت بشكل جيد نستبعد مشكلة الشبكة مشكلة في اعداد قاعدة البيانات وهنا نراجع في المقام الاول الاستعلامات فهي من اكثر اسباب بطئ عمل القاعدة وعملها بشكل جيد من خلال جهاز المستخدم لا يعني انها ستعمل بشكل مرضي من خلال الشبكة والله اعلم

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

Me.SER = يمثل حقل موجود في الجدول وهو ترقيم تلقائي يستخدمه صاحب الموضوع ككود للسجل وحيث انه ترقيم تلقائي أي انه لا يتكرر اخترت ان يكون هو اسم الملف الجديد حتى لا يتكرر اسم الملف مرة اخرى ويحدث استبدال للملف تحياتي

الكود التالي لفتح مربع حوار لاستعراض مكان الصورة مع عمل فلتر بانواع الملفات المطلوب اظهارها With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then حقل الصورة = مسار ةاسم الملف المجدد IMG = .SelectedItems(1) نسخ الملف الى المجلد الذي بجوار البرنامج وتحديد اسم جديد له Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG تحياتي

تم التعديل كما تريد يمكنك الاختيار من القائمة المنسدلة أو كتابة الاسم يدوياً علماً ان القائمة المنسدلة لا تذكر المكرر الا مرة واحدة sader_mh_ali_New.xlsm

بالتوفيق اخي الكريم وبارك الله فيك تحياتي

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

وطبعا عدم ربط الكمبيوتر بالشبكة عن طريق WiFi

تفضل اخي الكريم ضع هذا الكود قبل كود الاستيراد مع تغيير اسم الجدول CurrentDb.Execute ("Delete * From tbl1") تحياتي

لدي جدول يوجد به اشهر السنة وقائد الفريق وكل قائد لديه مجموعة من المناديب احتاج معرفة عدد المناديب لدى كل قائد دون تكرار مرفق الشيت Book1.xlsx

عمل جميل اخي العزيز كل عمل من صنع البشر عرضة لوجود بعض النواقص والملاحظات والاقتراحات وما سوف اكتبه ليس انتقاد لعملك ولكن وجهة نظر قد تصيب وقد تخطئ وانا اخطئ اكثر مما اصيب اولا : امل في البداية الاطلاع على الموضوع التالي فيه بعض النصائح والتي قد تكون ذات فائدة ثانيا في جدول المستخدمين توجد بعض الملاحظات لو قمت بتقسيم الجدول الى جدولين الاول لكود المستخدم واسمه وكلمة المرور والجدول الاخر للصلاحيات وهذه الملاحظة سبق ان ذكرت في الموضوع المشار اليه اعلاه "تقسيم الجدول" انت قمت بوضع مايقارب 70 حقل للصلاحيات في جدول المستخدمين لاسماء كائنات القاعدة وكان بالامكان اختصارها الى حقلين فقط وبدل من هذا العدد الكبير للحقول كان بامكان اسناد حقل اسماء النماذج والتقارير الى استعلام من جدول النظام المخفي msysobjects والحقل الاخر حقل من نوع "نعم لا" وتوجد بالموقع العديد من الامثلة الخاصة بالصلاحيات اعطاء صلاحيات للمستخدم على الاستعلام اجده غير مفيد فمن الافضل ان يتعامل المستخدم مع النماذج والتقارير ثالثا اغلاق الشفت بكلمة مرور لايقدم الحماية المنشود لسهولة فتحه عن طريق ملف خارجي متوفر ايضا بالموقع والافضل بعد الانتهاء من البرنامج واختباره تحويله الى صيغة accde وقبل التحويل لا تنسى الاحتفاض بنسخة مفتوحة اعتذر عن اي اخطاء املائية او لغويه تحياتي وتقديري

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 ستجد مرادك في هذا الرابط: جعفر

تفضل اخي العزيز ارجو ان يكون طلبك APE.rar

الكودات في اليوزر معقدة بعض الشيء لذلك قمت بنغييرها و وضعت لك االاكواد المناسبة اضغط على الزر Show User لاظهار اليوزرفورم تختار اسم الصف من الكومبو فتظهر لك في اليست بوكس كل البيانات لاضافة سجل >>>>>>>>>>>> تختار اسم الشيت من الكومبو وتملإ البيانات تم تضغط على "اضافة" اذا لم تكن الببيانات كافية(8 عناصر على عدد الأعمدة) يتم تلوين التكست بوكس الفارغ باللون الاحمر و يتوقف الكود عن العمل بانتظار تعبئة كل البيانات لحذف سجل >>>>>>>>>>>>>>>>>>> تحتار من الليست بوكس وتضغط حذف لتعديل سحل >>>>>>>>>>>1- تختار من الليست بوكس 2-تبدل ما تريد من خلال التكست بوكسات ثم تضغط على تعديل الملف يحتوي على صفحتين فقط ويمكن اضافة قدر ما تريد من الصفحات (بشرط التقيد بجدول البيانات من العامود A الى العامود H ) بدون صفوف فارغة abdo_1.xlsm

بالتوفيق اخي الكريم تحياتي

تم التعديل Shafii_1.xlsx

جرب هذا الملف Shafii.xlsx

تفضل مع ان ملفك يفتقد الى البيانات Private Sub ListBox1_Click() TEXT1.Value = ListBox1.ListIndex + 2 SpinButton1.Value = ListBox1.ListIndex End Sub Private Sub SpinButton1_Change() If SpinButton1.Value = 0 Then SpinButton1.Value = ListBox1.ListCount - ListBox1.ListCount + 1 ListBox1.ListIndex = ListBox1.ListCount - SpinButton1.Value TEXT1.Value = ListBox1.ListIndex + 2 End Sub Private Sub UserForm_Initialize() SpinButton1.Max = ListBox1.ListCount SpinButton1.Min = 0 SpinButton1.Value = 10 End Sub TEST.xlsm

مشاركة مع استاذي العزيز محمد تفضل اخي بندر بن محمد ارجو ان يكون طلبك DatabaseX.rar

اخي 121403 هذا الموضوع استكمالا للرابط http://www.officena....showtopic=43513 وذلك لان الموضوع الاساسي قد تشعب و هذا يخالف من قواعد المشاركة كما ان التطبيق قد اختلف الآن فقد انتقلنا من اكسل الى اكسسز اخي العزيز هذا المرفق هو نموذج اولي و تستطيع فيه ادخال اسماء المواد و ارقامها و تعديلها ادخال اسماء الطلاب و شعبهم و تعديل بياناتهم ادخال مجموع الغياب للطالب عن المواد و ملاحظات عنه في البداية يجب ادخال المواد و ارقامها بعد ذلك انتقل الى ادخال الطلاب و ارقامهم و شعبهم الآن يجب عليك ادخال بيانات عن كل طالب اضغط على رز ادخال بيانات طالب سيظهر نموذج لادخال بيانات الطلاب و يتم ادخال البيانات كالآتي : يتم ادخال اسم الطالب و رقمه بعد ذلك يتم ادخال رقم المادة و مجموع الغياب و الملاحظات عن الطالب و ليس مهما تكرار اسم الطالب مثلا الطالب 111 لديه غياب عن مادة الرياضيات و غياب عن مادة الاحياء قم بادخال سجل لكل منهما و لا تقلق فالتقرير يقوم بتصفية البيانات قبل عرضها نسبة الى رقم الطالب قم بتجربة المرفق ووافينا بالنتيجة و الملاحظات و الأخطاء ليتم العمل عليها بعون الله تعالى db3.rar

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

السلام عليكم سؤال وجيه ومن المقرر وهذا شرح للطريقة