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

جرب كده Database2.rar

اتفضل هذا استخدمت هذا الكود بعد اضافة حقل اخر في جدول باسم yn Dim SQL As String Dim SQL1 As String SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]" DoCmd.RunSQL SQL Me.تدقيق7 = True Me.Refresh اليك ملفك بعد تعديل chk.rar

اتفضلي الملف اضافة كود استاذ رمهان sa1.rar

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

جرب zaCaptureWebCam2008.rar

شكرا ليك استاذي الغالي سليم حاصبيا تسلم ايدك لك مني جزيل لشكر والاحترام تقبل تحياتي

تفضل هذا المثال تراجع salim1.rar

حسب ما رأيت في اليوزر ان كل التكست بوكسات متعلقة بالتكست بوكس 1 لذلك اي تعديل عليه ينعكس على الباقين تستطيع ان تحدد متغير لكل تكست بوكس باسم معين كما انا فعلت بالتكست بوكس 1 عبر تعيين Oldval

ربما كان المطلوب تراجع salim.rar

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

هذا الماكرو يقوم بما تريد Sub advanced_Salim() Dim My_rg As Range Dim My_Sht_Source As Worksheet Dim My_Sht_Target As Worksheet Dim Lr, Lra As Long, x As Integer Set My_Sht_Source = Sheets("كل الاشهر") Set My_Sht_Target = Sheets("السيارات الخاصة") My_Sht_Target.Cells.Clear Lr = My_Sht_Source.Cells(Rows.Count, 1).End(3).Row Set My_rg = My_Sht_Source.Range("A1:H" & Lr) x = Application.CountA(My_Sht_Source.Range("j8:j500")) + 7 Lra = My_Sht_Target.Cells(Rows.Count, 1).End(3).Row If Lra = 1 Then Lra = 2 For k = 8 To x My_Sht_Source.Range("xfd2").Formula = "=E2=$J$" & k '============================== My_rg.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("كل الاشهر").Range("xfd1:xfd2"), CopyToRange:=My_Sht_Target.Range("A" & Lra) Lra = My_Sht_Target.Cells(Rows.Count, 1).End(3).Row + 2 Next End Sub

تمام جرب اذهب للعنصر piclist مربع النص وغير مصدر بياناته ( التعبير ) الى =[Forms]![frmarchive].[piclist].[column]([piclist].[ListCount]-1,2) هذا سيحل مشكلة التكرار ان شاء الله . وجرب كذلك هل تم حل مشكلة التسلسل والتي اعتقد انه لسا ولكن جرب . وستلاحظ ان التسلسل بزيادة وان الرقم المحذوف لا يعود . تحياتي

انسخ هذه المعادلة الى الخلية A2 من الورقة السيارات الخاصة واسحبها يميناً حتى العامود H ثم الى اسفل قدر ما تريد من الصفوف =IF('كل الاشهر'!$J8="","",INDEX('كل الاشهر'!A$2:A$4364,MATCH('كل الاشهر'!$J8,'كل الاشهر'!$E$2:$E$4364,0)))

اتفضل العملاء (1).rar

السلام عليكم ورحمه‌ الله وبركاته اخي الكريم كم مره‌ فتحت موضوعك وقرأت ونزلت المرفق لكن ما اعرف بالضبط ماتريد ممكن ترسم وتشرح ماتريد لعل وعسى اكدر اساعدك تحياتي

جرب مبدئباً هذا الماكرو Sub filter_for_me() Dim My_rg As Range Dim my_sht As Worksheet Dim lr As Long Dim ws9, ws10, ws11, ws12, ws1, ws2, ws3, ws4 As Worksheet Set my_sht = Sheets("كل الاشهر") Set ws9 = Sheets("شهر9-2016"): Set ws10 = Sheets("شهر10-2016") Set ws11 = Sheets("شهر11-2016"): Set ws12 = Sheets("شهر12-2016") Set ws1 = Sheets("شهر1-2017"): Set ws2 = Sheets("شهر2-2017") Set ws3 = Sheets("شهر3-2017"): Set ws4 = Sheets("شهر4-2017") Application.ScreenUpdating = False lr = my_sht.Cells(Rows.Count, 1).End(3).Row Set My_rg = my_sht.Range("A1:H" & lr) '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "9/30/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws9.Range("A1").PasteSpecial Paste:=xlPasteAll my_sht.Range("A1:H" & lr).AutoFilter My_rg.AutoFilter ''''''''''''''''''''''''''''' '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "10/31/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws10.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "11/30/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws11.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "12/31/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws12.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2017") My_rg.SpecialCells(xlCellTypeVisible).Copy ws1.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "2/28/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws2.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "3/31/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws3.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter '=================================== My_rg.AutoFilter Field:=4, Operator:=xlFilterValues, Criteria2:=Array(1, "4/30/2016") My_rg.SpecialCells(xlCellTypeVisible).Copy ws4.Range("A1").PasteSpecial Paste:=xlPasteAll My_rg.AutoFilter Application.ScreenUpdating = True End Sub

اتفضل ما طلبت استخدمت هذا Between Forms![Form1]![txtFirstDate] And Forms![Form1]![txtLastDate] ويعمل عادي اتفضل ملفك بعد اضافة كود الاعلاه CrossTab.zip

اخي العزيز @وضاح النوبه السلام عليكم ورحمة الله وبركاته اولا من شان الرمز (@) لازم تكتب اسمه وليس اسمك لكي هو بيعرف ثانيا من شان الموضوع : 1 / لازم بيكون عندك حقل اخر لتسديد المبلغ وعندك حقل اخر للباقي 2 / بعد ذلك راح نشوف اي اسم من العملاء الباقي عنده صفر راح يحذفه وانا عملت الحقلين وعملت استعلام لجمع الباقي لكل العميل على وحده وعملت استعلام حذف لكل عميل اللي الباقي عنده اصغر من واحد وفي النموذج خلف الزر عملت كتبت كود فتح الاستعلام الحذف اليك قاعدة بياناتك بعد تعديل تحياتي العملاء.rar

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

DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date] = #" & [Receipt Date] & "#"

تمام هل ممكن صورة للخطأ او مالذي يحدث لاني لا استطيع التجربه تحياتي

وعليكم السلام ورحمة الله وبركاته أستاذي الكريم الغالي : هنا 12 مثالا على المسابقات (تقبل التعديل) https://www.4shared.com/zip/KYYe1ujn/12msabgah.html

الله يعطيك الف الف عافيه ممتاز جدا هذا المطلوب

اخينا سروك لن استطيع تحميل ااداة والتسجيل ولكن القيت نظره واتوقع هناك مشكلة بسيطة ستحدث غير مشكلة التسلسل اريك ان تجرب الملف المرفق وعند فتح النموذج يظهر اول سجل بالرئيسي ويظهر في القائمة اسفل ثلاث صور 1 2 3 . تمام ؟ الان جرب ان تحذف من القائمة الصوره 2 . ثم اضف صوره او مستند جديد . هنا حسب قراءتي البرنامج راح ياخذ تسلسل 3 للجديد والتسلسل 3 اصلا موجود بالقائمة ؟ فهل سيحدث مشكله ام لا ؟ تحياتي

Private Sub com_Click() For i = Me.From To Me.to DoCmd.RunSQL "insert into tb_l_2 values(" & Me.Cood_Name1 & "," & i & ")" Next End Sub

بعد اذت اخي زيزو ربما ينال اعجابك هذا الملف ترتيب ابجدي Salim.rar

الطالب.rar

في الفترة السابقة قمت بتطبيق هذة الفكرة للتحكم بمستويات الصلاحيات واحببت اليوم مشاركتها معكم لتعم الفائدة واستفيد من اي مقترحات وملاحظات على هذة الطريقة الفكرة: ان يتم تحديد الصلاحية لكل مستخدم ولكل نموذج او تقرير من حيث فتح النموذج او التقرير ، اضافة سجل جديد ، حذف سجل ، تعديل السجلات التطبيق : انشاء جدول للمستخدمين (رقم المستخدم ، اسم المستخدم وكلمة مرور) انشاء جدول للصلاحيات يحتوي على رقم متسلسل ، رقم الموظف، اسم الكائن ، .... وبعد ذلك اي صلاحية تريدها مثل صلاحية فتح، صلاحية تعديل، صلاحية اضافة ،صلاحية الحذف * الجداول مرتبطة ببعضها عن طريق رقم المستخدم انشاء نموذج للدخول الى البرنامج (اسم مستخدم وكلمة مرور) انشاء نموذج للتحكم بالصلاحيات مستند الى جدولي المستخدمين والصلاحيات انشاء وتعميم وظيفة لتطبيق الصلاحية عند فتح نموذج او تقرير باسم Privilege الية العمل: عند الدخول باسم مستخدم صحيح سيتم تخزين رقم المستخدم الحالي في متغير اسمة UsrID وبعد ذلك عند فتح اي نموذج او تقرير يتم استدعاء الوظيفة Privilege للتحقق من ان لهذا المستخد صلاحية فتح نموذج ام لا واذا كان لا فانه ستظهر رسالة بانه لا يملك الصلاحيات ، كما سيتم قبل ان يفتح النموذج ثم سيتم التحقق من ان له صلاحية التعديل ام لا وعندها سيتم تفعيل التعديل او تعطيله حسب الصلاحية ...وهكذا طريقة تعديل واضافة الصلاحيات: تم اضافة نموذج للتحكم بالصلاحيات يتم من خلاله تحديد اسم المستخدم وتحديد اسم النموذج ثم يتم اختيار صلاحيات هذا المستخدم على هذا النموذج وبخصوص قائمة النماذج والتقارير تم استخدام جدول النظام MSysObjects فيديو يوضح الطريقة https://youtu.be/AmfpDgLWUBg الصلاحيات حسب المستخدم و نوع الكائن .rar

استخدم استعلام التحديث db55.rar

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

السلام عليكم ورحمة الله وبركاته قمت لك بعمل المطلوب وهذه القاعدة تقبل 5000 تاريخ وشكراً.... تقسيم التاريخ.rar

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