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

في حدث عند النقر المزدوج لـــــ 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

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

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

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

جميل اخي الكريم ....ز

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

لتطبيق فكرة الحل على ملفك بعد هذا السطر If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then نضع سطر فك الحماية fo.UnProtect password:="mas" وقبل سطر else نضع سطر الحماية fo.Protect password:="mas" حيث mas هي كلمة المرور بالتوفيق

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

يمكنك الاستغناء عن باقي شيتات الشهور حيث أن المعادلة تجلب بيانات جمبع الشهور بعد كتابة تاريخ بداية الشهر المطلوب (أو أي تاريخ منه) في الخلية A1 بالتوفيق جلب بيانات الشهور.xlsx

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

بارك الله لك ونفع بك

لا حظ ان ما تفضلوا به يتم ضمن نموذج واحد وفكرتي هي تخصيص نموذج لكل نوع

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

وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل .. حياكم الله وبياكم اولا وقبل كل شئ اشتاقت لكم نفسى كثيرا ... اسال الله تعالى لكم الصحة والعافية والبركة فى العمر والعلم والعمل والاهل والولد وكل اساتذتى الكرام واخواننا مشاركة مع اساتذتى الأفاضل هذا تطبيقى المتواضع بناء على توجيهاتكم ولكن بما ان اخى الكريم الاستاذ @alzahrani2014 يريد عمل فزر وتصفية فى نموذج تلك فكرتى المتواضعة وحاولت جاهدا امعان النظر والتفكير خارج الصندوق وفى انتظار رأيكم وتوجيهاتكم المرفق يضم بين طياته - نموذج واحد لإجراء الفرز والتصفية على كل البيانات سواء كان السجل سرى أو غير سرى -عند فتح النموذج يتم الفرز والتصفية فقط على السجلات الغير سرية -عند تحديث مربع السرد الخاص بالفرز فى حالة كانت البيانات سرية يتم اخفائها على الفور وتظهر البيانات فقط بكتابة كلمة المرور الصحيحة (123) والا لا ولن يتم عرض البيانت >>---> حيلة وخدعة -التغلب على التنقل بين الحقول بالضغط على زر TAP من لوحة المفاتيح حتى لا يتم استعراض البيانات السرية >>---> حيلة وخدعة -فى حالة الغاء الفرز والتصفية سواء كان السجل الحالى سرى او حتى بعد ادخال كلمة مرور خطأ او حتى كان السجل الحالى لا يحتوى بيانات سرية يتم اليا اجراء تطبيق الفرز على السجلات الغير سرية - طبعا تم التعديل على بنية الحقل sec فى الجدول بتحويله الى حقل رقمى وتم التعديل علية بحيث يتم تحويله الى Combo Box بحيث يكون نوع مصدر بيانات الحقل Value List وقيم الحقل الافتراضية تتكون من -1;"سرى";0;"غير سرى" -تم اضاقة موديول لاخفاء كلمة المرور اثناء الكتابة لتظهر على شكل ***** اترككم مع المرفق b2- Moh3sam.mdb

أرفق لكم الطريقة كود وملف لمن أراد أن يستفيد لاحقاً وشكرا للجميع. Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("OldStock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range ("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub QuckSolution-1-.xlsm

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

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

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

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

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

هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ...

جرب هذا الكود في حدث بعد التحديث للكمبو بكس 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

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

بسم الله الرحمن الرحيم هذه مجموعة من روابط المواقع يمكنك أن تضيفها في مفضلتك لتعليم لغة html باللغة الانجليزية وسيتم بعد ذلك عرض مجموعة أخرى ولكن باللغة العربية http://www.w3schools.com/html/default.asp http://www.davesite.com/webstation/html/ وهذا المرجع الكامل لجميع أوامر html quicklist.html وللحصول على الترجمة لهذه المواقع استعمل جوجل من هذا الرابط وكل عام أنتم جميعا بخير

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

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

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