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

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

تفضل ياسيدي بس لا تسال ليش 7 ، لأني ما عندي لك جواب المفروض يكون 1 ، بس ما اعطى الجواب الصحيح ، ولكن 7 اعطى الجواب الصحيح A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) جعفر

السلام عليكم ضع في المكان الذي في الصورة مسار الايقونة على ان يكون المسار جانب البرنامج او في مجلد جانب البرنامج وضع نقطة قبل المسار على الشكل التالي .\img\iconName.ico هذا المسار يدل على ان الايقونة في مجلد جانب البرنامج اسمه img واسم الايقونة هو iconName

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

وعليكم السلام افتح على خصائص الحقل / تنسيق والصق هذه العبارة @;"سجل جديد"

عليكم السلام لو لصقت في الجدول 1000 سجل ثم حذفتهم (شرط ما تسوي ضغط واصلاح للقاعدة) فان اي سجل تكتبه ياخذ الرقم 1001 والحل الافضل انك ما تتعرض لحقل اكسس التلقائي اللي في الجدول وتعتبره غير موجود وتعمل على صنع حقل تلقائي بالكود هذا الاخير يمكنك التحكم فيه والبدء باي رقم تريد

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

شرح طريقة حماية رأس و تذييل الصفحة فى مستند وورد شاهدوا هذا الفيديو

1. لا اتذكر ، ولكني على ما اعتقد ، بأن رتبتك سترتقي للمرحلة التاليه ، وعندها ستتوفر الخدمة ، 2. تم عمل الازم.

تفضلي أختي هذا مثالك بعد التغيير ، ولكن الملف بصيغة 7z ، فرجاء تغيير اسمه بعد انزاله ، ملفك حجمه بعد الضغط يصل الى 8MB فلم استطع رفعه إلا بهذه الصيغة ، ونصيجة اختي ، لا تحفظي الصور داخل قاعدة البيانات ، بل احفظيها في مجلد خارج البرنامج ، مع عمل رابط بين الصورة والسجل ، والمنتدى مليئ بالامثلة على ذلك جعفر 636.‏‏DBSystem 99999998 - نسخة (2).accdb.zip

شكرا أخي عبد الفتاح ولكني لم اكن متوقع انك راح تفتح موضوع جديد له جعفر

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

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

كدا أسهل وكنت أرجو أن تحاول فيها أولا إنما العلم بالتعلم والمحاولة والخطأ جرب تغيير الكود لهذا Sub addkasr() c = Cells(Rows.Count, "AR").End(xlUp).Row Range("an8:an" & c).ClearContents For n = 8 To c Range("an" & n) = Range("ar" & n) Next MsgBox "ok" End Sub

ملف جميل.rar

تفضل تابع الارقام بالتسلسل ، مع البرنامج . جعفر 638.All.mdb.zip

بعد إذن أخي وحبيبي في الله الأستاذ سليم حاصبيا جرب هذا المرفق أخي الكريم بكود بسيط يمكن أن يؤدي الغرض Sub addkasr() c = Cells(Rows.Count, "A").End(xlUp).Row Range("h2:h" & c).ClearContents For n = 2 To c Range("h" & n) = Range("j" & n) - Int(Range("j" & n)) Next MsgBox "ok" End Sub mas_كسرالقرش.rar

تفضلي Private Sub amr9_Click() 'If Me.sds1.Text = Me.User_ID And Me.sds2.Text = Me.User_Phone And Me.sds3.Text = Me.User_Email Then If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then DoCmd.OpenForm "New password", acNormal Else ms$ = "The data dose't match" ti$ = "Make sure your data" re = MsgBox(ms$, 0, ti$) End If End Sub والنتيجة . جعفر

اعتذر على المداخلة يااستاذنا @jjafferr حسب فهمي للموضوع السبب ان يعطي النتيجة الصحيحة برقم 7- هو ان الجملة يبدأ بـــ وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7 اي اذا نعطي هذا InStr([f5];"{")+1 سيعطينا رقم 7 اي اذا كان نريد ان نأخذ البيانات في اوله سيكون بدل رقم 7 رقم واحد هذا والله يعلم مع تحياتي

الترحيل بشرط معين في عمود معين بسهوله ويسر بالمصفوفات للنابغه ياسر خليل Option Explicit 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو ترحيل بشرط 'تم هذا الكود في 15/2/2017 Sub UsingArrays() Dim arr As Variant Dim temp As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A2:C" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به If arr(i, 3) Like "*" & "P" & "*" Then For c = LBound(arr, 2) To UBound(arr, 2) temp(j, c) = arr(i, c) Next c j = j + 1 End If Next i 'متغير اسم ورقة الهدف واسم الخليه التي سيتم ترحيل العناوين اليها Sheets("Sheet2").Range("E5").Resize(, UBound(temp, 2)).Value = Array("Names", "Marks", "Status") 'متغير اسم ورقة الهدف واسم الخليه التي سيتم الترحيل اليها Sheets("Sheet2").Range("E6").Resize(j - 1, UBound(temp, 2)).Value = temp End Sub استدعاء بشرط.

تم معالجة الامر الشرح داخل الملف Boook1 Salim.rar

كل الشكر والتقدير الى الاخ Shivan Rekany على سرعة الاستجابة وعلى مجهوداته المتميزة

السلام عليكم هههههه ، ببساطة ، هذه الهواتف اللي عندي وعندنا تلفونين غير ، وسأجري التجربة عليهم كذلك ان شاء الله جعفر

ضع موضوع جديد بعنوان واضح

شكرا جزيلا لكل من شارك الموضوع وفقنا الله لكل ما يحب ويرضى

مع انك لم ترفق ملفاً للعمل عليه اجمل لك هذا الملف كتموذج عما تريد BiDA3A.rar

السلام عليكم ورحمة الله تم الحل بطريقة مختلفة اليك الملف تجميع الأوراق في ورقة واحدة.rar

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

صحبة ان شاء الله يا اخي شيفان جزاك الله كل خير يا اخي ابا جودي

كل الشكر والتقدير استاذ @Shivan Rekany ولإكمال الفائدة بيانات تسجيل البرنامج كالاتى Name : Johny Khan CODE : HP4ANyamVnhPkJUTTsOx2CdPhAyLTMSZiXxkNERW KAwkZC+a6+sTipI7MMPyhJam0jdUttMT4Ebo9USN o9IcmHB9FGrgYIeDPhW7WujYCM1s/bpe7hzoE5tj RKphe5N1gew6I1BDJ37EMijaO+x0ROUw/YUbXOjv V1ZeSKDFqlo= الخــيــــــــــ( دمتم بكل )ــــــــــــــر

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد https://iconchanger.en.uptodown.com/windows

السلام عليكم جرب المعادلة التالية علها المطلوب - مع العلم انه لو 1 سنه و 1 شهر او اكثر تحسب 2 سنة - راجع الملف بشكل جيد وابدى ملاحظاتك MUHAMMAD SULAIMAN MUJAHID GUL_2.rar

حيا الله الاعضاء الجدد - حيا الله ابو علي وسدرة شغل تمام اشكركم وطبعا فقرة قائمة الغير موجود شغل محترم للأخ sabehwsh - اتمنى تغيير اسمه الى العربي

اتفضل اخى الكريم المطابقة على اساس اعمدتين (التاريخ + الرقم).rar

يا أخي يا أخي ، لما المرة الجاية اقول لك سهلة ، صدقني الحمدلله جعفر

السلام عليكم تفضل Access Database2003UP.rar

في الواقع ما كنت اريد اكبّر البرنامج ، ولا اعطيه وقت اكثر وإلا فيمكن عن طريق الكود معرفة حجم الورقه ، وفيما اذا كانت افقية او عمودية ، وفيتم الحساب تلقائيا ، ولا ادخال اسماء الحقول لإعطائها ارتفاعها الجديد ، ولا حجم الخط ، انما يمكن الكود يأخذ كل ذلك في الاعتبار يعني لبكرة الصبح ما كنا نخلص جعفر

كم مستخدم عندك؟ عادة لكل مستخدم سجل فيه معلوماته ومعلومات الدخول، فاذا كان عندك مستخدم اسمه جعفر ، وآخر اسمه جعفر2 ، وعند دخولك النموذج ، فتلقائيا النموذج يُفتح على السجل الاول ، والذي يكون جعفر ، ولكن المستخدم قد يكون جعفر2!! الطريقة السهلة لكي تعرفين ان البيانات متطابقة هي ان تجعلين الحقول ظاهره وغير مخفية ، ومنها تكون المقارنة شيء آخر تستطيعين عمله هو تغيير الكود بهذا: if me.sds1.text=me.user_Name and ..... بحيث تضيفين للحقول الغير مضمنه كلمة .text ومعناها القيمة التي لم تُحفظ بعد واذا هذه الطرق ما نفعت ، فلوسمحتي ترفقي هذه الجزئية من قاعدة بياناتك جعفر

السلام عليكم اخوانى اتمنى ان اشارك معكم فى هذا العمل الرائع حتى يكون مرجع للاعضاء. اتمنى ان لا ينسي هذا الموضوع وهذه مشاركة محذوفة اتمنى ان تعيد تنشيط الموضوع . الدالة DateAdd يمكنك استخدام الدالة DateAdd لإضافة فاصل زمني معيّن أو طرحه من تاريخ ما. على سبيل المثال، يمكنك استخدام الدالة DateAdd لحساب تاريخ لمدة 30 يوماً من اليوم أو وقت لمدة 45 دقيقة من الآن. وصيغتها كالاتى DateAdd ( الفاصل الزمني، رقم، تاريخ ) الفاصل الزمني : ويوضع رمز للمتغير الذي تريد اضافة القيمة الزمنيه إليه رقـــــــــــــــــم : ويوضع الرقم الذى تريد اضافته للمتغير الذي قمت بتحديده تــــــــــــــاريخ : ويوضع هنا الزمن الذي به المتغير موضح به القيمه الحاليه حتى يتم اضافة الرقم إليه حسب المتغير الذي قمت بتحديده مثال 1 : يقوم المثال التالي بإضافة شهر واحد إلى 31 يناير DateAdd("m", 1, "31-Jan-95") جدول اكود المتغيرات " الفواصل الزمنيه " yyyy السنة q ربع سنوي m الشهر y يوم من السنة d اليوم w يوم من الأسبوع ww الأسبوع h الساعة n الدقيقة s الثانية مثال 2 : أذا اردت مثلاً اضافة شهر الى القيمه الحالية للتاريخ DateAdd("m", 1, Date)

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

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

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

شكرا أخي صالح في الواقع انا لم ادرس البرمجة (نعم مادة الفورتران في بداية دراستي الجامعية) ، ولم ادخل في تدريب ، وحتى ما عندي رخصة سواقة الحاسوب وانما كل الذي عندي من تجارب عملية ، لذلك ترى الفرق واضح من طريقة عرضك للموضوع ، وطريقة عرضي جعفر

dprgegf jyd

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

تفصلو الأرشيف الإلكتـروني.rar

حياك الله يعني انت اخترت الطريقة الاولى او الثانية ، فقط للعلم جعفر

السلام عليكم بخصوص موضوع الهمزه ، بالمرفق كود رائع كنت قد أخذته من مشاركة لمدير المنتدى بارك الله فيه وفى القائمين على ظهور المنتدى بهذه الصورة ، هذا الكود يمنع كتابة الهمزة ولقد استفدت منه فى أعمال خاصة بى . hamza.rar

السلام عليكم... الأخ وائل وهذه إضافة بسيطة على ملف الأستاذ نزار توضح في حالة كتابة أي بند جديد يظهر تلقائيا في المكان المخصص وهو موجود حاليا في 20 مكان وقابل للزيادة والجدول يصل مداه إلى 1000 بند وقابل للزيادة . هذا هو المرفق وشكرا الملف المرفق وشكرا. Book_1.rar