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

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

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

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

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

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

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

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

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

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

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

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

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

كدا أسهل وكنت أرجو أن تحاول فيها أولا إنما العلم بالتعلم والمحاولة والخطأ جرب تغيير الكود لهذا 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 والنتيجة . جعفر

النتائج تطلع عندنا صحيحة بالكود: A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) بس السؤال هو: اللي بين القوسين فقط ، لوسمحت نحن لا نريد معادلة ثانية ، مجرد السؤال لماذا 7 بدل 1 !! جعفر

نعم أخي ناصر ولكن لابد أن تكون متأكد أن الضغط على Ctrl + A من لوحة المفاتيح سيحدد النطاق المطلوب العمل عليه بشكل صحيح لكي لا تحدث مشاكل أو يمكنك الاعتماد على الطريقة الثانية فهي أضمن وأفضل إذا لم تكن متأكد من النطاق الحالي

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

هلا اخوي شفان هكذا هي القيمة الصحيحة: Area:{ ...... } واستخدمت المعادلة التالية لقراءة آخر قوس: InStr([f5],"}")-7 الكلام انه يجب ان يكون الرقم في المعادلة 1 بدل 7 ، ولكن الرقم 1 لا يعطي النتائج الصحيحة جعفر

الترحيل بشرط معين في عمود معين بسهوله ويسر بالمصفوفات للنابغه ياسر خليل 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 استدعاء بشرط.

1 / اتأكد من خصائص الحقل هل هم الرقمي ام نصي 2/ تأكد من كتابة الأكواد والا 3/ ارفق نسخة مصغرة من قاعدة بياناتك واشرح ما تريد على اي نموذج تقبل تحياتي

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

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

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

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

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

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

مع انك لم ترفق ملفاً للعمل عليه اجمل لك هذا الملف كتموذج عما تريد 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

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

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

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

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

طرق استعمالها: 1. اذا اردنا استعمال المتغير في الحدث / الوحدة النمطية فقط (يعني لا يمكن اخذ قيمتها من نماذج/تقارير/استعلامات/وحدات نمطية اخرى) ، فنستخدم: Dim UserName as string او Private UserName as string ويجب ان نستخدم Dim لكل حدث في النموذج/التقرير ، اي نعيد كتابته لكل حدث ، بينما يمكننا ان نضع Dim / Private مرة واحدة في اعلى الصفحة ، ولا تكون داخل اي حدث ، هكذا Option Compare Database Private User_Name As String 2. بينما اذا اردنا ان تكون القيمة متوفرة في جميع كائنات البرنامج ، فنستخدم التالي في وحدة نمطية (حتى ولو كانت وحدة نمطية فارغة): Public UserName as string مثال هذا ، عندما تستعمل نموذج المستخدمين ، ثم تريد الاحتفاظ باسم المستخدم في الكود ، فكل الذي تعمله هو: UserName = "jjafferr" ثم من اي مكان في البرنامج تستطيع ان تستعمل هذا المتغير UserName ، مثلا: User_Prevliage = iif(UserName = "jjafferr" , "Admin", "User") . ويمكننا ان نجعل الكود لا يعمل إلا بتعريف المتغير ، وفي الواقع هذه صعبة في البداية ، ولكن في النهاية سيكون برنامجك افضل ، وهكذا نجعل الكود يفرض علينا استعمال المعرف: . . واهمية هذه الخطوة هي عندما تريد ان تحفظ البرنامج لاحقا بصيغة mde او accde ، فيجب عليك ان: . واذا كانت المتغيرات في الكود معرّفة ، فلن تحصل على اخطاء في التحويل جعفر

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

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

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

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