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

في حدث عند النقر على رز اظهار لديك ضع هذا الكود ... If Me.أمر60.Caption = "اخفاء" Then Me.Combo1.Visible = False Me.أمر60.Caption = "اظهار" Else Me.Combo1.Visible = True Me.أمر60.Caption = "اخفاء" End If

جرب المرفق ... nnn.accdb

حل ألأخ Barna هو الصحيح فلم أفهم المراد من السؤال بشكل صحيح

جرب المرفق ..... طبعا انا غيرت بل الرسالة نص لان الرسالة لو افترضنا ان الطالب ذكي ممكن يترك الرسالة كما هي ويبحث هو عن الاجابه لكي يستفيد من توقف الوقت ... ههههه InterClock (2).mdb

اجاباتك ... اقساط ؟؟؟؟

تمام هذه مفهومة ... ولكن ملالذي يحدث هل هو بيانات أم لون أم ماذا ؟

شغلت المرفق اكثر من مرة ولم افهم ما هو المطلوب ؟؟؟ هل المطلوب تغيير لون النموذج الثاني حسب اللون المختار في النموذج الاول ؟؟؟ وضح رجاءا اكثر .

تلميذك يا بشمهندس .... تحياتي لك .... بارك الله فيك اخي الكريم .... الحمد لله رب العالمين

حياك الله ... لا اظن ذلك ....ولكن عمل اختيار متعدد .... انظر هذا ....

تفضل ....... Nouveau Microsoft Access Database.accdb

ممكن مرفق مصغر للمطلوب

كيف ليس هذا هو المطلوب؟ في السجل الأول تكتب أسماء الحقول بصورة طبيعية في السجل الثاني تضيف كلمة next record قبل أول حقل في السجل الثالث تضيف كلمة next record قبل أول حقل وهكذا مثال: الاسم: «name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» أليس هذا هو المطلوب بالنسبة لحضرتك؟ ولا أنا فهمت بطريقة غير صحيحة؟!!

الحمدلله 🙂 طريقة التخطيط والتنفيذ : 1. اجعل الحقل/مربع النص كاملا للرقم ، واحذف الهوامش الاضافية لجميع الحقول: . 2. كان واضح ان المطلوب هو ان عرض مربع النص يجب ان يتماشى مع عدد الارقام فيه ، وعرض الارقام بالنسبة للارقام الانجليزية ثابت لجميع الارقام ، وبعد تحليل النتيجة في الصورة ، كعدد ارقام ، وعرض مربع النص : ، اتضح ان كل حرف محتاج الى 145.5 تويب Twip (وحدة قياس الاكسس) ، وبتقنين الرقم وبعد عدة تجارب توصلت الى الرقم 140 ، لذلك ، اذا استعملت خط Font آخر ، او الخط بحجم اكبر/اصغر ، فيجب عليك تغيير هذه القيمة ، بالتجارب 😁 اذن ، عرض كل حقل يحتاج الى معرفة عدد الارقام ف الحقل ضرب 140 ، للحصول على هذا الرقم لكل حقل (هذه معادلتك) ، جعلنا القيمة في المتغير fld_value عليه يصبح عرض كل مربع (وعلشان نعرف عدد الارقام في الحقل ، نستخدم الدالة Len ، ويجب تحويل الرقم الى نص CStr ، للحول على النتيجة الصحيحة للدالة) : . وفي آخر سطر من المعادلات اعلاه ، جمعنا محموع عرض هذه المربعات في المتغير width_Added ، . 3. العرض المتوفر هو width_Avail : عرض التقرير - هامش اليمين لبكرة الطابعة - هامش اليسار لبكرة الطابعة : . 4. اذن في عملنا اعلاه ، عرض جميع مربعات النص يكون صحيح ، ويحتوي على الرقم كاملا فيه ، بالعرض (الضيق) الذي يناسب الرقم ، ولكنه لا علاقة له بالعرض الحقيقي الموجود في التقرير ، لذا ، سنلاحظ انه ترك مسافة فارغة زائدة عن حاجة المربعات ، 5. هنا قمت انت بحساب عدد الحقول التي سيتم عرضها في التقرير ، الحقول التي مجموعها اكبر من صفر ، وفي المتغير fICnt : . 6. المعادلة التالية تقوم باخذ عرض التقرير ، ناقصا مجموع عرص المربعات ، فيعطينا المسافة الفارغة الزائدة عن حاجة المربعات : فنقوم بتوزيعها بالتساوي بعدد الحقول ، فيصبح نصيب كل مربع : . 7. اذن عرض المربع النهائي سيصبح: عرض المربع الحقيقي (رقم#2 اعلاه) + القيمة المضافة / الاضافية (رقم #6 اعلاه) : . . جعفر

استغفر الله العظيم ... انا مجرد طالب ذكر اخاه الطالب فقط .. بارك الله فيك

جرب هذا المرفق .... Test 1.accdb

ضع هذا الكود في حدث بعد التحديث في مربعي النص : number1 number2 If Me.txtTOTAL.Value > 50 Then Me.cbo1.Visible = False Else Me.cbo1.Visible = True End If Test 1.accdb

ممكن ترفق لنا النموذج الذي تعمل عليه

جرب المرفق ... ربما يكون هو طلبك استخدمنا طبعا هذا الكود في حدث بعد التحديث If IsNull(Me.txtSS) Or Me.txtSS = "" Then MsgBox "Enter Passcode", vbCritical, "Movement System" Exit Sub Else If DCount("sta", "barna", "[txtPassword] = '" & Me.txtSS & "' And [sta]= '" & "Open" & "'") > 0 Then MsgBox "لديك طلب مفتو ويجب اغلاقة", vbCritical, "عملية خاطئة" Exit Sub Else Me.txtFullNameEN = DLookup("[FullNameEN]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtEmployeeNumber = DLookup("[txtEmployeeNumber]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtEmpID = DLookup("[txtIntPersonID]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtSS = "" Me.cmbVehicleNameEN.Enabled = True End If End If مع اضافة استعلام ... Database1.accdb

ممكن لو عرفنا هدفك من تعطيل هذا الزر ..... ممكن نجد حل اخر ؟؟؟

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

احسنت استاذ

احسن الله اليك ... ممكن لاحظ .... تاريخ .accdb

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

هههههه .... لان بعض كتاب المواضيع يظن ان الكل يعرف عن برنامجه .... فيضع السؤال ظانا ان الجميع يعرف كيف يعمل البرنامج او حتى تشعبات البرنامج فالمفروض اعطي شرح كامل لفكرة برنامجي ( وليس باقساط ميسرة ... ههههه ....) .... ثم اطرح السؤال ايضا بشكل واضح على العموم ... بارك الله فيك ...

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

شكرا ليك اخي الكريم تمام اشتغلت معايا اخيرا ع الملف تسلم

تفضل .... تاريخ .accdb

الجدول في ملف الوورد غير موجود بملف الاكسل جهز الجدول في ملف الاكسل وان شاء الله احوله الى وورد تحياتي

اشوف الحمدلله استفدت من الشرح 🙂 . انا اقترح التقرير بهذه الطريقة: . اللي مصدر بياناته: . جعفر 1396.2.1.مطابقة موجودات.accdb.zip

3131323.accdb

تفضل هذا التعديل و بطريقتين 2223131323.zip

نداء لأخويا الكبير و معلمي الأستاذ @jjafferr الفورم لا يستطيع التعرف على التاريخ رغم الإعلان عن متغيير للتاريخ نأمل ان نجد الحل لديك

بارك الله بك اخي الفاظل انا حاولت كتابة نفس الكود لان ظاهراً كان عندي خطأ

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

السلام عليكم ورحمة الله في الحقيقة هذه المعادلات لا تخص جدول الحراس الاحتياطيين لعلاقته برقم القاعات في العمود A وجدول الاحتياطيين لا علاقة له بالقاعات... وقد تم تعديلها (هذه المعادلة) لتعمل مع جدول الحراس الاحتياطيين في الملف المرفق... تم أيضا التعديل على الملف (التنسيق - القوائم المنسدلة - ماكرو طباعة جدول الحراسة بالأرقام وجدول الحراسة بالأسماء...). أرجو أن تفي الغرض المطلوب... الجدول النهائي للحراسة 2022.xlsm

سبحان الله الموضوع قديم جدا ، عجبا .. كيف تخاطب صاحب موضوع كتبه من اكثر من 16 سنة

وعليكم الشلام ورحمة الله وبركاته تفضل اخي الكريم Me.Table1.Form.FilterOn = False 788.accdb تحياتي

أعتقد أن المطلوب الأول مرتبط بنمط القائمة المختصرة في اكسل عموما وبالنسبة لتغيير faceid فهي مجموعة من الأرقام غير كما تشاء ويمكنك استعمال هذا الملف للتعرف على أشكال وأرقام أول 4000 من رموز الاكسل الرموز تظهر في تبويب جديد FaceID2.zip

أثناء حماية شيت الحل review --> protect sheet يمكنك تحديد اختيار use auto filter للسماح باستخدام التصفية التلقائية رغم وجود الحماية

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

شكرا لكلماتك الطيبة في أول مشاركة وفي آخر مشاركة ؟؟؟؟؟ إذا كنت تقصد جلب التاريخ من الشيت وترحيل التاريخ إلى الشيت فأهم شيء هو تحويل قيمة الخلية أو مربع النص إلى تاريخ بـ CDATE طبعا مع تطابق تنسيق التاريخ في الخلية ومربع النص وإليك مثالا عن إدخال التاريخ في النموذج وترحيله وجلبه من الشيت إن شاء الله يفيدك date in form.xlsb

يمكنك استعمال هذه المعادلة في التنسيق الشرطي =COUNTIFS(A:A,A2,B:B,B2)>1 وتطبق على المدى $a$2:$a$11 وهذا ملفك به التطبيق تنسيق شرطي.xlsx

بعد اذن اخي @د.كاف يار اجعل مصدر سجلات النموذج استعلام مضمن يحتوى على استعلام فرعي يساوي SELECT kh.id, kh.merg, kh.maden, kh.daan, kh.Date, kh.MOSTND, (select(sum([maden])-sum([daan])) from [HRKAHESAB] where [id]<= kh.[id] and [date]<=kh.[date] and [merg]=kh.[merg]) AS RaseedTrakomy FROM HRKAHESAB AS kh; مع ملاحضة استخدامك لحقل في الجدول باسم date وهو من الاسماء المحجوزة لاكسس لذا قم بتعديله ايضا وجود حقل ترقيم في الجدول يساعد في معادلة حساب الرصيد الملف مرفق الرصيد التراكمي22.mdb

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

تفضل التعديل Root555.rar

ماشاء الله استاذ نارت دائماً متألق وبرأي يجب جمع جميع الاكواد في هذا الموضوع في ملف WORD أو PDF بالنسبة لي فقد بدأت الجمع

نستخدم في التطبيق بحكم الحاجة الكثير من الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,, فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم Public Function MsgOK(MsgText As String) As Boolean Dim LResponse As Byte Dim MsgTitle As String MsgTitle = " تنبيه " LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle) If LResponse = vbOK Then MsgOK = True Else MsgOK = False End If End Function وحين نحتاجها نستدعيها Call MsgOK("بسم الله الرحمن الرحيم")