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

في حدث عند النقر المزدوج لـــــ lst4 ضع هذا الكود <<<<<<<>>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"

شركة واحدة فقط ....

بالنسبة للنقطة الاولى ... نعم ولكن اعتقد هناك طرق اخرى النقطة الثانية ممكن في التقرير الفرعي وممكن في التقرير المجمع ....

مثل هذا <<<<<<<>>>>>>> split.accdb

استخدم شيك بكس .....

تفضل <<<<<<<>>>>>>> transport (3) (1).accdb

فاضية ؟؟؟؟؟؟؟ تقصد بيضاء بدل الصفر ..... صحيح ؟

ليس لديك سجل به اصفار ولكن لديك بعض الحقول اصفار .....

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

تفضل >>>>>> warehouse3.accdb

السلام عليكم ورحمة الله كنت أنتظر أن يقوم أحد الإخوة الكرام بإنشاء ماكرو للقيام بهذه العملية وهذا لم يكن، لهذا قمت بتحضير ما تريده في الملف المرفق باستعمال المعادلات... وللضرورة قمت بتغيير التنسيقات على الجداول وإضافة المعادلات المناسبة لعمل المطلوب (يرجى أن لا تقوم بحذف الصفوف أو الأعمدة لئلا تخسر المعادلات)... يبقى لتغييراتك أن تقوم بحجز فقط عدد المناصب -عدد الأساتذة- حسب المواد في "جدول 1" (جدول المواد) وعدد الأفواج -عدد الأقسام- حسب الشعبة والمستوى- في "جدول 2" (جدول الأقسام) والمعادلات تقوم باللازم لملء الجداول الأخرى (حتى الجدول 3 في ورقة Data)... والله أعلم... جدول ديناميكي.xlsx

حياك الله أبو زهرة ..... بارك الله فيك ... New Microsoft Access Database.rar

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

تفضل <<<<<>>>>> v2016_183.zip

انظر هنا <<<<<<<>>>>>>>>

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

حياك اخي @عبد اللطيف سلوم بالتوفيق ........

استخدم قاعدة IF لاني اكتب على الموبايل تفضل <<<<<<>>>>>> Private Sub السيارة_جاهزة_Click() If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False ElseIf Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False End If End Sub Private Sub السيارة_مغادرة_Click() If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False ElseIf Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False End If End Sub مثال نعم لا.accdb

واياك أخي ابا الحسن ...... بالتوفيق ...

طبعا هذا الكلام في حالة مخزن واحد .... لاتستطيع اخفائها في حالة اكثر من مخزن افتح الاستعلام qry_Items_Dates_2 في حالة التصميم ثم طبق الصورة ,,,,,,

بداية جديدة 🥰

الإخوة الأفاضل خبراء عمل ماكرو في الورد، هل هناك أمر معين معناه: نفّذ العملية من هنا إلى آخر كلمة في الملف؟ أو: إذا وصلت إلى آخر كلمة في الملف فتوقف، وذلك على غرار: ..............For i = 1 To أو If Selection....... = False Then end

استبدل الفانك لديك بهذا ..... Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[tube]='" & C & "' AND [code]='" & 1000 & "'" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing End Function

الف شكر لحضرتك ربنا يبارك فيك استفسار بسيط اغير العمود E إلى ماذا

شكرا لكم سأحاول غدا وأرسل لكم..

يمكن استخدام For I = 1 to ActiveDocument.Words.count بالتوفيق

هذا ماكرو بسيط يقوم بتحديد أرقام المجلدات أو الأجزاء التي بعدها سلاش (/) ضمن فقرة معينة، بحيث يرصد كل رقمين للتأكد من أن التالي ليس اصغر من سابقه أو مساويه. وهذا اختبار يحتاجه الباحث، حيث نجد أن أرقام المجلدات كثيرا ما تأتي غير مرتبة، فتجد مثلا: المجلد (5)، بعده (4)، أو (3) ونحو هذا، وهذا خطأ، ومن المعلوم أن تتبع أخطاء الأرقام من الصعوبة بمكان، لذا كان من الضروري معرفة هذه المواضع بطريقة آلية، لتكون أسرع وأضبط. وهذا هو الماكرو لمن أراد: Sub مسلسلمجلداتخطأ() ' ' مسلسلمجلداتخطأ Macro 'ماكرو يقوم بتحديد أرقام الأجزاء التي بعدها سلاش مثل (3/5)لمعرفة الأرقام المترتبة خطأ، بحيث يكون الرقم التالي أقل من السابق أو مساويه، ويكون ذلك من خلال الفقرات 'والطريقة: أن تقف في أي موضع من الملف ثم تشغل الماكرو ليقوم بتمييز الأرقام الخطأ باللون الأصفر Dim aa, b, c As Integer Selection.HomeKey Unit:=wdStory Selection.TypeParagraph For i = 1 To ActiveDocument.Paragraphs.Count Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Font.Color = 10498160 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting For ii = 1 To 100 With Selection.Find .Text = "/" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Found = False Then Exit For End End If Selection.MoveDown Unit:=wdParagraph, Count:=1 Selection.Find.Execute Selection.Font.Color = wdColorRed Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Font.Color = wdColorRed aa = Val(Selection.Text) Selection.MoveRight Unit:=wdWord, Count:=1 Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "/" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Found = False Then Exit For End End If Selection.MoveDown Unit:=wdParagraph, Count:=1 Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend b = Val(Selection.Text) - 1 Selection.MoveLeft Unit:=wdWord, Count:=1 If aa > b Then Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Selection.MoveRight Unit:=wdWord, Count:=1 End If Next ii Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorAutomatic With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute replace:=wdReplaceAll Selection.MoveDown Unit:=wdParagraph, Count:=1 Next i Selection.HomeKey Unit:=wdStory Selection.Delete Unit:=wdCharacter, Count:=1 End Sub

أكرمكم الله أخانا الحبيب

انتقل إلى الموقع الذي تم فيه تخزين المجلد أو الملفات المحذوفة مسبقًا. حدد "استعادة الإصدارات السابقة" من قائمة السياق عند النقر بزر الماوس الأيمن فوق المجلد. في قائمة المجلدات السابقة ، اختر إصدار المجلد. احفظ المجلد والملفات في مكان مختلف من خلال النقر على "استعادة".

شكرا اخى على التوضيح واشكرك على سعة صدرك

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

يبدو أن مسار الملف في قرص النظام C أعتقد إذا كان في غير قرص النظام لن تحتاج صلاحية التشغيل كمسئول

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

بارك الله فيك حبيبنا ... وثناءك العاطر ....

تفضل >>>>> warehouse3.accdb

تفضل جرب >>>>>>>> warehouse31.accdb

الحمد لله رب العالمين ....حياك الله اخي @nabilalibibo بالتوفيق ...

جرب المرفق واعلمنا بالنتيجة ...... nabilemployer_kan2.rar

جرب هذا الكود في حدث بعد التحديث للكمبو بكس Dim a As String a = "renting" If DCount("[Customer_Name]", "Customer", "[warehouse A] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse B] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse C] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse D] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse E] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" End If

الحمد لله رب العالمين .... بالتوفيق

طيب جرب المرفق التالي ..... YasEnEx2021_Kanory.rar

وعليكم السلام بس واضح من الجدول ان الموظف 10002 مسجل دخول1 في كل ايام الشهر ............................ هل هذا يعني ان بقية الموظفين غياب .؟؟؟؟؟

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

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

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

وإياك أخي الكريم كل عام أنتم بخير

إخواني بالنسبة لمن لم يعمل معهم الملف برجاء تحميل ملف sapi.dll من هذا الرابط http://www.dlldump.com/download-dll-files_new.php/dllfiles/S/sapi.dll/5.1.4111.00/download.html ثم بعد ذلك ضعه في المسار التالي C:\Program Files\Common Files\Microsoft Shared\Speech وستجد كل شيء تمام بإذن الله

جزاك الله خيرا أخي عامر هذا رابط لمحاولة مني مع الوورد http://www.officena.net/ib/index.php?showtopic=29962 كل عام والجميع بخير يمكن استخدام ذلك الكود في إملاء الجهاز للمدرسين الدرجات في الكنترول ولكن طبعا باللغة الإنجليزية

الشكر أولا لأخي يحيى ولصاحب الكود الرائع أخي أبو أسامة كل عام أنتم جميعا بخير

بارك الله فيك أخي خالد وكل عام أنتم بخير