كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. جرب التعديل التالي على الزر cmdOK في النموذج frmTimeTo :- Private Sub cmdOK_Click() Dim strDuration As String Dim frmTarget As Form Dim strTime As String Dim blnValid As Boolean Dim Hours As Integer Dim Minutes As Integer Dim TotalMinutes As Long On Error GoTo ErrorHandler '========================== ' التحقق من إدخال الوقت '========================== If Trim(Nz(Me.mdfo, "")) = "" Then MsgBox "أدخل التوقيت", vbExclamation, "تنبيه" Me.mdfo.SetFocus Exit Sub End If strTime = Trim(Me.mdfo) '========================== ' التحقق من التنسيق 00:00 '========================== If Len(strTime) = 5 And Mid(strTime, 3, 1) = ":" Then Hours = Val(Left(strTime, 2)) Minutes = Val(Right(strTime, 2)) If Hours >= 0 And Hours <= 23 _ And Minutes >= 0 And Minutes <= 59 Then blnValid = True End If End If If Not blnValid Then MsgBox "يجب إدخال الوقت بالتنسيق (00:00)" & vbCrLf & _ "مثال: 08:30 أو 14:45", _ vbCritical, "تنسيق وقت خاطئ" Me.mdfo.SetFocus Exit Sub End If '========================== ' النموذج الهدف '========================== Set frmTarget = Forms!Form1.Form frmTarget!Horair = strTime '========================== ' التأكد من وجود وقت البداية '========================== If Trim(Nz(frmTarget!Horaire, "")) = "" Then MsgBox "أدخل التوقيت", vbExclamation Exit Sub End If '========================== ' حساب المدة '========================== strDuration = GetDuration(frmTarget!Horaire, frmTarget!Horair) 'تحويلها إلى دقائق Hours = Val(Split(strDuration, ":")(0)) Minutes = Val(Split(strDuration, ":")(1)) TotalMinutes = Hours * 60 + Minutes '========================== ' يجب أن تكون ساعة واحدة فقط '========================== If TotalMinutes <> 60 Then MsgBox "يوجد خطأ في التوقيت", vbCritical, "تنبيه" frmTarget!Horair = Null frmTarget!Time_Period = Null Exit Sub End If '========================== ' تخزين المدة '========================== frmTarget!Time_Period = strDuration DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub ErrorHandler: MsgBox "خطأ: " & Err.Description, vbCritical End Sub

عمل جميل منتظرين باقي الابداع

السلام عليكم يوجد استعلام اسمه Query2 تعديل الكود الموجود في الاستعلام BB: IIf(IsNull([Hor1]);"أدخل التوقيت من";IIf(IsNull([Hora1]);"أدخل التوقيت الى";"تم حجز التوقيت")) عند حجز التوقيت من 0:00 التوقيت الى 0:00 يتم اظهار تم حجز التوقيت اريد عند حجز التوقيت 0:00 يظهر (( يوجد خطأ في التوقيت)) وعند حجز التوقيت اكثر من ساعة يظهر (( يوجد خطأ في التوقيت)) وعند حجز التوقيت اقل من ساعة يظهر (( يوجد خطأ في التوقيت)) وعند وجود الحقل فارغ تظهر (( أدخل التوقيت)) البرنامج التاريخ.rar

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

الله ينور ممكن تعمل لينا الاكود بالامثله علي الاكسل

الله ينور علي المجهود ممتاز وفكره الترحيب بالصوت حلوه وممكن الشرح لها وكيفيه عملها منتظرين المشروع بالكامل

وعليكم السلام ورحمه الله وبركاته اتفضل لعله يكون المطلوب جدول ورديات.xlsm

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

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

بارك الله فيك

لم اجد المشاركة للعمل فى اضافات فاتورة الشراء او البيع من الاخوة الزملاء

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

ولا اجمل ... شكرا لكم

جائت متأخرة لكنها كحبة الكرز على رأس الجاتوه 😁👌 تم إضافة مشاركة الأستاذ أبو ناصر لقائمة المشاركات .. 🙂⭐ :: أبو ناصر - AbuNassir ::

استخدم برنامج البوربوينت، تستطيع تعديل حجم الشريحة بهذا الحجم، وايضًا يمكن طبع الشرائح مرة واحدة. حمل النموذج من المرفقات. ستيكر.pptx

بالانتظار اخى الكريم

السلام عليكم ورحمة الله الإخوة الكرام عندي ٣ مستودعات احتاج مساعدتكم في عمل تحويل كمية أصناف من مستودع إلى آخر. ماهي الدالة المناسبة لذلك وصيغتها؟

بعد تجربة كل الواجهات مع سيكوال من سى شارب الى فيجول بيسك نت الى واجهات البايثون كلهم متجمعين لايساووا مرونة اكسس فى الاتصال والاستعلامات التمريرية وكنت لو اتمنى ان تسعى مايكروسوفت لتطوير اكسس كلغة ليناسب الويب بدلا من دعمها الدائم ل power apps

استاذى ومعلمى الخبير الفاضل Foksh خالص الشكر لحضرتك زادك اللة خبرة وعلم الف شكر

السلام عليكم يوجد في ورقة Horaire2027 ثلاثة أيقونات اريد تعديل كود الترحيل وهذ عندما قمت بحماية الورقة Feuil1 وFeuil2 وFeuil3 1- أيقونة تأكيد حفظ المعلومات اريد تعديل كودترحيل البيانات الى الورقة Feuil1 الحقول بالون الأصفر لا تفرغ الحقول عند الترحيل ويكون الترحيل مرة واحدة دون تكرار 2-أيقونة تأكيد حفظ بالمؤسسة لمعيين بها تعديل كود ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأبيض وعند الترحيل تفرغ الحقول الا الحقول الصفراء لا تفرغ الحقول 3-أيقونة تأكيد حفظ تكملة النصاب تعديل كود ترحيل البيانات الى الورقة Feuil13 الحقول بالون الأبيض وعند الترحيل تفرغ الحقول الا الحقول الصفراء لا تفرغ الحقول يوجد ايقونة مسح البيانات اريد ادراج مسح البيانات حجز التوقيت.xlsb

مشكورين بارك الله فيكم وجعلة في ميزان حسناتكم

وضعت يدك على موضع الالم و عالجته

كنت انتظر هذه الجملة 😉 .. هل النتيجة الآن ترضيك ؟؟

أخي جو .. الجزء المسؤول عن ضبط وتنسيق العناوين يقع كما هو واضح في الكود الذي شاركته ، داخل الجزء التالي :- With xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(1, lastCol)) .Interior.Color = RGB(52, 152, 219) .Font.Color = RGB(255, 255, 255) .Font.Bold = True .HorizontalAlignment = -4108 .VerticalAlignment = -4108 End With يعني رح نعدل الجزء ونقسمه على 3 مراحل ، لأنه في طلبك انت تريد بعض العناوين بالشكل الطول والباقي سيبقى كما هو في أصله .. لذا جرب ما يلي ، كونك لم ترفق ملف للتجربة وضمان تأكيد الخطوة . فقط استبدل الجزء السابق بالجزي التالي :- ' تنسيق العناوين With xlWS.Range(xlWS.Cells(1, 1), xlWS.Cells(1, lastCol)) .Interior.Color = RGB(52, 152, 219) .Font.Color = RGB(255, 255, 255) .Font.Bold = True .HorizontalAlignment = -4108 .VerticalAlignment = -4108 End With With xlWS.Range(xlWS.Cells(1, 6), xlWS.Cells(1, lastCol)) .Orientation = 90 'هنا طبعاً زاوية دوران النص ، وتعدلها زي ما بتحب .WrapText = True End With ' وهنا لتحديد ارتفاع الصف الأول حسب أطول عنوان Dim MaxLen As Long Dim TxtLen As Long Dim i As Long For i = 6 To lastCol TxtLen = Len(CStr(xlWS.Cells(1, i).Value)) If TxtLen > MaxLen Then MaxLen = TxtLen Next i xlWS.Rows(1).RowHeight = MaxLen * 6 + 10 على العموم جرب ، وأخبرنا بالنتيجة ..