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

السلام عليكم ورحمة الله وبركاته اخوتي الاكارم تحية طيبة وبعد المثال المرفق يبين كيف نتمكن من جلب اكثر من صورة دفعة واحدة تأخذ كل صورة منها رقما متسلسلا في الجدول الفرعي ضمن رقم المعرف الرئيسي . يوجد في المثال : جدول tbl1 باعتباره جدولا فرعيا منبثقا من الجدول الرئيسي نموذج photo يمكن جعله نموذجا فرعيا لمن يجيد تحوير الكود المصاحب علما ان الافضل استخدامه كما هو ويتم جلب المعرف الرئيسي اليه في حقل خاص غير منضم مع الاخذ بالاعتبار فيما لو وجد صور سابقة بمعنى ان المثال يضيف صورا جديدة الى الصور القديمة ان وجدت وفي المثال تطبيق للمقال اكثر من صورة.rar

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

تفضل لو خبرتنا من قبل انك تدخل معلومات في هذا النموذج كذلك ، كنت بحك راسي زيادة واحاول اوصل لنتيجة الآن تستطيع ان تدخل بيانات في النموذج frm_Temp_TTTT. ولكني انصحك بأن تنسى كل اللي عملناه ، وتستعمل النموذج frm_New_TTTT ، واللي يأخذ بياناته من الاستعلام qry_New_TTTT ، وبدون جداول مؤقته الاستعلام فيه CFF وبه يحسب عدد Cen في الجدول FFFF ، ويعطينا العدد في الحقل tmp_Number ، في النموذج ، استعملنا تنسيق شرطي Conditional Formatting ، بحيث اذا كان الرقم في الحقل tmp_Number اكبر من صفر (يعني هذا الرقم موجود في الجدولين) ، يتحول لون الخلفيه الى خضراء جعفر 100.1.TEST2.accdb.zip

جزاكم الله خيراً و جعله الله في ميزان حسناتكم

جزاكم الله خيراً و جعله الله في ميزان حسناتكم

تفضل أخي العزيز.. هذه ملفك.. مع التعديل المطلوب ........... تحياتي. اسم المستخدم: a كلمة المرور: 123 Insert-Delete Rows with formulas1.rar

في مثالك الاخير الاستعلام يفتح على اكمل وجه ولا تظهر رسائل انظر الصورة

تسلم يا كبير خيرك سابق أخي الفاضل ماجد جرب هذا التعديل ولكن لاحظ أن القاعدة التي أرفقتها أنت حقل إلى تاريخ ستجد به تواريخ قبل من تاريخ أي أن تاريخ نهاية الدورة أكبر من تاريخ بدايتها وهذا بالطبع يسبب عدم جلب النتائج الدورات---Up.rar

اعمل ما يلي: 1- اختر Developer من شريط الاوامر 2- من لتبويب controls اختر Design 3- كبسة يمين على الزر و من ثم اختر View Code (و يظهر لك الكود المخصص لهذا الزر لتدرسه على مهل) 4- تعود الى صفحة اكسل و تلغي تحديد Design 5- هذا كل شيء

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

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

اليك الحل اضغط على افضل اجابة اذا كان كذلك ayman salim.rar

تم معالجة الأمر لكن المعادلة هي معادلة صفيف لذلك عند تنفيذها يجب الضغط غلى Ctrl+Shif +Enter وليس Enter فقط اذا كان هذا المطلوب انقر على زر افضل اجابة ليكون الموضوع منتهٍ ألفى salim.rar

جزاكم الله خيرا جميعا وادخلكم الجنه

الصورة لتوضيح كلام الاستاذ تومي محمد

ههههههههههههه اخى جعفر مالك ومال الجن مش عاجبك مارد :power: اضافة الى ما تكرم به اخى جعفر يمكنك ايضا استخدام هذه الدالة ضع هذا الكود فى وحدة نمطية Public Sub ClearTextBoxes(frm As Form) For Each Control In frm.Controls If TypeOf Control Is TextBox Then Control.SetFocus Control.Text = "" End If Next Control End Sub ثم نادى على المارد يووووووه اقصد الدالة من خلال هذا الكود ضعه فى حدث عند النقر لزر جديد وليكن اسمه مسح Call ClearTextBoxes(Me)

هيوا طريقتك صحيحة تعمل زر ، وعلى الحدث تضع الاوامر اللي قلتها انت ، بس السؤال ، حمو ماجربتها وحدك ، صاك بتحصل النتيجة يوم تجربها وخليت لك طريقة ثانية ، بس هذه الطريقة أحتفظ بحقوق نشرها ، لأني انا مبتكرها هاي الله يسلمك ، لما تدخل قيمة في الحقل SN مثلا ، وتريد تخوز القيمة ، انقر على الحقل مرتين ، والجني بيوخرها ، بس لازم لك بخور من الزين جعفر 101.مسح بيانات النموذج.accdb.zip

تفضل في هذا المرفق 3 طرق: 1. النموذج frm_FFTT ، وهو عمل نموذج رئيسي وبه نموذج فرعي ، تم ربط النموذجين عن طريق الحقلين Cen (النموذج الرئيسي) ، و CFF (النموذج الفرعي) ، هنا ، فقط الارقام الموجودة في Cen ستراها في CFF ، ولكن كل رقم على حدة. 2. النموذج frm_Seq_FFTT2 ، وهو نموذج رئيسي وبه نموذج فرعي sfrm_Seq_TTTT2 ، لا يوجد ربط بين النموذجين ، عن النقر على احد سجلات النموذج frm_Seq_FFTT2 ، فسترى ان تلك القيمة سيكون خلفيها لونه اخضر ، وسيكون في أعلى القائمة ، بينما بقية القيم ستكون مفرزة تحته ، للقيام بهذه العملية ، فاننا نحتاج الى: الجدول المؤقت tbl_Seq ، الاستعلام qry_Seq_0 ، والذي يحذف البيانات من tbl_Seq ، الاستعلام qry_Seq_1 ، والذي يضيف بيانات الحقل من النموذج frm_Seq_FFTT2 الى tbl_Seq ، الاستعلام qry_Seq_2 ، والذي يضيف بيانات الحقول التي لسنا عليها في النموذج frm_Seq_FFTT2 ، وتضيف البيانات الى tbl_Seq ، ومصدر النموذج frm_Seq_FFTT2 هو الاستعلام qry_Seq_FFTT2 ولون الحقل هو عن طريق التنسيق الشرطي للحقل Conditional Fromating ، 3. وهذه هي الطريقة التي تريدها النموذج frm_Temp_TTTT ، لحاله أعزب بدون شريك ولعمله نحتاج الى: الجدول المؤقت tbl_Temp ، الاستعلام qry_Temp_0 ، والذي يحذف بيانات الجدول tbl_Temp ، الاستعلام qry_Temp_Match ، والذي يقارن بين قيم Cen و CFF في الجدولين ، ويكتب القيم المتساوية في الحقل Temp_Cen ، والرقم 1 في الحقل tmp_Number ، الاستعلام qry_Temp_No_Match ، والذي يقارن بين قيم Cen و CFF في الجدولين ، ويكتب القيم الغير المتساوية في الحقل Temp_Cen ، والرقم 0 في الحقل tmp_Number ، ومصدر النموذج frm_Temp_TTTT هو الاستعلام qry_Temp_TTTT ولون الحقل هو عن طريق التنسيق الشرطي للحقل Conditional Fromating ، السجل اللي فيه tmp_Number بقيمة 1 يعطيه اللون الاخضر ، واللي رقمه 0 ما يسوي له سالفه ولايعطيه لون جعفر 100.1.TEST2.accdb.zip

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

الرقم السري 1975

الرقم السري 1975

بالاضافة الى حل أخي أبوخليل فانا شرحت في الرابط التالي موضوع الحقول الفارغة وكيفية معالجة الموضوع http://www.officena.net/ib/index.php?showtopic=61853&p=401042 جعفر

أخي الكريم سمو الشرق إليك الكود التالي فيه المطلوب بإذن الله Sub CreateSheetAsCopyFromtemp() Dim WS As Worksheet: Set WS = Sheet1 Dim LR As Long: LR = WS.Cells(Rows.Count, "I").End(xlUp).Row + 1 Application.ScreenUpdating = False Application.DisplayAlerts = False If blnWorksheetExists(Format(Date, "yyyy-mm-dd")) Then MsgBox "ورقة العمل موجودة من قبل", vbInformation: Exit Sub Else With Sheets("Temp") .Visible = True .Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Date, "yyyy-mm-dd") With WS .Range("H" & LR).Value = .Range("H" & LR).Row - 4 .Range("I" & LR).Value = ActiveSheet.Name .Range("I" & LR).NumberFormat = "yyyy-mm-dd" .Hyperlinks.Add Anchor:=.Range("I" & LR), Address:="", SubAddress:="'" & Sheets(.Range("I" & LR).Text).Name & "'" & "!A1" End With .Visible = False End With End If WS.Activate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تم تعديل بسيط في ورقة العمل "الواجهة" لالغاء دمج الخلايا ، وتم إدراج صف مخفي ليناسب عمل الكود .. إذا أعجبتك الإجابة يرجى تحديد كأفضل إجابة ، ولا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي Create Sheet As Copy From Temp & Rename It By Date.rar

تفضل الحل تم التعديل على العلاقة داخل الاستعلام 2Gov.rar

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

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاة الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لكم برنامجى الجديد تعليم اللغة الانجليزية بالاكسل لرياض الأطفال والمدارس الابتدائية أو English learning for k.g & primaray school by mokhtar بدايةً أحب أن أشير أن البرنامج ليس فكرتى ولكن فكرة أخينا أبوبهاء المصرى الذى اقترح علينا الفكرة واقتراحه على هذا الرابط http://www.officena.net/ib/index.php?showtopic=58297&page=2 مميزات البرنامج 1 - يناسب الفئات العمرية المختلفة من رياض الأطفال وتلاميذ المرحلة الابتدائية 2 - كما يناسب المرحلتين الاعدادية والثانوية بل والمتخصصين فى اللغة الانجليزية 3 - البرنامج مدعم بالموسيقى لجذب الأطفال وتحقيق نوعاً من السعادة لهم 4 - البرنامج به سبورة تعليمية ناطقة باللغة الانجليزية 5 - البرنامج به قاموس كلمات باللغة الانجليزية يحوى أكثر من 4000 كلمة 6 - البرنامج به موسوعة أفعال باللغة الانجليزية تحوى أكثر من 5000 فعلا 7 - البرنامج به ورقتى عمل لتعليم الترجمة من والى اللغة الانجليزية 8 - البرنامج به ورقة عمل لتعليم تصريف الأفعال الشاذة فى اللغة الانجليزية 9 - البرنامج يشجع على التعلم الذاتى واكتشاف الخطأ ومن ثم تصحيحه 10 - البرنامج به امكانية التنقل الآلى بين أوراق العمل مصحوباً بالموسيقى 11 - امكانية التعديل فى أصوات البرنامج ووضع أصوات جديدة تجنباً للملل الذى قد يشعر به الطفل من كثرة الإستعمال لتغيير صوت يجب أن يكون الصوت بامتداد wave وبنفس الاسم المرفق مع البرنامج داخل الأكواد 12 - البرنامج يعلم الأطفال والتلاميذ مبادئ الاكسل مثل : تحديد خلية - ادخال بيان فيها - التنقل بين الأوراق فتح ملف اكسل - غلق ملف اكسل - .........إلخ وأخيرا أتوجه بالشكر الى من ساهم فى هذا العمل وهما : 1- أستاذى الفاضل شيخ الاكسل عبدالله باقشير 2- أخى وأستاذى الفاضل أبو البراء ياسر خليل كما أتوجه بالشكر الى كل أساتذتى فى المنتدى الذين تعلمت أهدي البرنامج لأطفالكم وأحبابكم وأحبائنا فى العالم العربى والى أبنائى احمد وحسام الدين ورانيا البرنامج على هذا الرابط : http://www.mediafire.com/download/yjbtd2kut6jv03d/English_learning_for_k.g_&_primaray_school_by_mokhtar.rar أتمنى أن تسعدوا به ويسعد به أبنائكم لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد ***************

الاخ ياسر شكرا لك وجذاك الله خير نتمنى تعديل الاسم الى اللغة العربية حسب قواعد المنتدى

الاخ ياسر شكرا لك وجذاك الله خير نتمنى تعديل الاسم الى اللغة العربية حسب قواعد المنتدى

الاخ ياسر شكرا لك وجذاك الله خير نتمنى تعديل الاسم الى اللغة العربية حسب قواعد المنتدى

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

وعليكم السلام تفضل يابو عبدالله DATe CH.rar

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