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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم .. كما هو واضح من عنوان الموضوع ، بدون شرح للموضوع ، أقدم لكم كود يقوم بتغيير اسم ورقة العمل ، وذلك تبعاً لتغير قيمة خلية تقوم بتحديدها في الكود ، فتتغير اسم ورقة العمل تلقائياً تبعاً لقيمة الخلية ، وإذا كان الاسم غير صالح Invalid تظهر رسالة تفيد بذلك .. أترككم مع الملف المرفق .. تقبلوا تحياتي Changing Sheet Name To Match Cell Automatically.rar

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

QryStu استعلام تحديد خارجي الاستعلام اعلاه لاختيار مادة محددة من جدول الدرجات حسب ما يتم اختياره في نموذج الدرجات وهذا يوضحه المعيار الظاهر في الصورة يمكنك التساؤل ولماذا من جدول الدرجات ؟ اليس الأولى ان يكون الاختيار من جدول المواد وقد يخطر على بالك ! امكانية عدم وجدود بيانات في جدول الدرجات فكيف يتم اختيار المادة ؟ وهذا هو بيت القصيد وهو ما نريده : نريد ان تظهر الدرجات المدخلة للمادة ان سبق ادخالها او يظهر حقل المادة خاليا استعلام فرعي وهنا داخل مصدر الصف للنموذج الفرعي أدرجنا استعلامنا السابق مع جدول الأسماء لاحظ المعايير المدرجة وهي لاختيار الصف والفصل حسب الاختيار من النموذج الرئيسي مع اخذ الاحتياط فيما لو وجد حقلا خاليا ( لضمان ظهور جميع الاسماء المسجلة ) من جدول الأسماء أدرجنا المعرف والاسم والصف والفصل ومن جدول الدرجات ( والذي يمثله الاستعلام QryStu ) أدرجنا كل شيء , لاحظ علامة النجمة الآن كيف ستتم عملية عرض الحقول أو الحقل المحدد ؟ نحن نريد عرض حقول الدرجة بعدد الأسماء الموجودة سواء كانت الدرجات موجودة او خالية نستطيع عمل ذلك بمساعدة خاصية الربط بين الجدولين لاحظوا السهم المتجه في خط العلاقة هذه الخاصية تتيح لنا ان نعرض جميع الأسماء في جدول الأسماء وفي الوقت نفسه تعرض ما يقابلها من حقول في الاستعلام حتى ولو كانت خالية وهذا هو المطلوب نعود للنموذج الفرعي الآن وننظر الى الحقول الموجودة نلاحظ وجود ثلاثة حقول حقل الاسماء وحقل الدرجة وحقل رقم المادة وهذا الاخير تم اخفااؤه والسبب هو ان المادة المشتمل عليها مكررة وهي معلومة سلفا في النموذج الرئيسي اذاً الحقول مصدرها من جدولين مختلفين الاسم من جدول الاسماء ، والمادة والدرجة من جدول الدرجات هذا ما تمكنت من ايضاحه اذا يوجد اشياء غير مفهومة لا باس من السؤال والاستفسار

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

النموذج الرئيسي غير منضم لذا لا يمكن ربط علاقة ليس هناك نتيجة تثبت لان الحقول غير منضمة وانما هي معايير للانتقاء اجابة موفقة وللتصححيح الارتباط يكون بعد حدث تحديث حقل الفترة اما اجابة ابي آلاء فصحيح انه يتم التصفية داخل الاستعلام الفرعي ولكن اريد كيفية هذه التصفية لان الظاهر في الاستعلام الداخلي تصفية حسب الصف والشعبة فقط وما فائدة ضم الاستعلام QrySty ضمن مصدر البيانات ؟ وماذا ينتج عن العلاقة الموجودة بين الجدول والاستعلام ؟ للدخول الى الاستعلام الفرعي مصدر بيانات النموذج الفرعي : فتح على التصميم/خصائص النموذج/لسان التبويب بيانات/ مصدر السجل انقر على النقاط الثلاث التي بجانب الحقل

السلام عليكم إستبدل هذا السطر في الكود Mail.TextBody = "RENT EXPIRED FOR MR" & " " & .Cells(i, 1).Text & " " & "ON DATE" & " " & .Cells(i, 6).Text & " " & "AFTER" & " " & .Cells(i, 7).Text & " DAYS" & " " & "AMOUNT IS" & " " & .Cells(i, 3).Text بهذا Mail.TextBody = "RENT EXPIRED FOR MR" & " " & .Cells(i, 1).Text & " " & "ON DATE" & " " & .Cells(i, 6).Text & " " & "AFTER" & " " & .Cells(i, 7).Text & " DAYS" & vbNewLine & " " & "AMOUNT IS" & " " & .Cells(i, 3).Text

بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar

السلام عليكم إخواني الأحباب تفضلوا الملف المرفق به شرح كيفية معرفة الصف الأخير في عمود أو صف ، وبه أيضا كيفية إنشاء نطاق ديناميكي باستخدام الأكود Last Row and Dynamic Named Ranges.rar

أ. ياسر خليل : يسَّر الله لك كل خير وجعلك خليلا معطاءا لكل أحبائك وجزاك عنا وعنهم خيرا

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

اخى واستاذنا شوقى فيه بس مشكله بسيطه بتحدث وهى ايه انه عند الضغط على زر اوك بدون الكتابه داخل الكوموبوكس يحدث خطأ وفيه كمان ان عند الكتابه داخل الكوموبوكس اكثر من حرف بردو بيحدث خطأ واعتقد ان الخطأ فى عد اضافة On Error Resume Next ولكنى طبعا مستنى تعديلك فانت دائما لديك الجديد تقبل تحياتى

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

السلام عليكم احسنت وجازاك الله خير اخي ياسر ملاحظة بسيطة استخدمة كود تخطي الاخطاء On Error Resume Next الذي شخصيا لا احبذ استخدامه الا لضرورة القصوة ؟؟؟؟ وبعدها استخدمة On Error GoTo 0 الذي يقول عند وجود خطاء ادهب الى الصفر على حد علمي الكود الاول يلغي عمل الكود الاخير سؤالي ما فئدة الاخير علما ان الصفر ليس مدرج في الكود هو مجرد استفسار اخي ياسر ارجو ان تتقبله بصدر رحب فغايتي هي تحريك المواضيع و تطويرها بواسطة الاستفسارات والنقد البناء معا لرفع المستوى تحياتي للجميع

بارك الله فيك كنت بدور عليها من مده كنا بنعمل تقرير مستقل لكل طالب وكنت بدور على طريقه تخلى اسم الورقه يتحول الى اسم الطالب بارك الله فيك وتسلم الايادى

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

احسن الله اليك وزادك الله علما وتواضع اليك المرفق مع الشكر autonumberevery year.rar

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

استاذ شوقي .. حقا أبدعت ، جزاك الله كل خير

2 ضد 1 ولكن الاثبات مقدم على النفي سأنقل المثال على جهاز آخر للاطلاع والمشاركة

وأااااااااااو هو فيه كده ياجدعان

السلام عليكم ورحمة الله أخي الكريم، انظر إلى المرفق لعل فيه المطلوب... أخوك بن علية المرفق : vlokup.rar

؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم أخي عبدالرحمن اعتذر عن التأخر في الرد عليك الحقول في المربعات الحمراء هي التي قمت بالعمل عليها ، واما بعض الحقول القديمة والتي في الدائرتين ، فلم استعملهم في البرمجة ، فيمكنك حذفها ان شئت عن تغيير قيمة خانات الضريبة والخصم في النموذج الرئيسي ، فانها تعكس نتائجها مباشرة في النموذج الفرعي ، الضريبة لا تزال موجودة في سجلات النموذج الفرعي ، ونتائجها تعمل على المجموع ، ولكن الخصم يعمل على المجموع فقط تم إضافة حقلين في الجدول Ezn_ADD وهما Tax و Discount ، وهذا الكود الذي يعمل على الحدث بعد التحديث للضريبة والخصم: Private Sub Opt_Discount_AfterUpdate() 'get the Discount for the option Call txt_Discount_AfterUpdate End Sub Private Sub txt_Discount_AfterUpdate() 'just need to Requery, so that the Discount can be taken from the Main/Parent Form Me.Sub_EznADD.Form.Requery End Sub Private Sub opt_Tax_AfterUpdate() 'get the Tax for the option Call txt_Tax_AfterUpdate End Sub Private Sub txt_Tax_AfterUpdate() 'Apply ONE Tax on the whole invoice in the SubForm Sub_EznADD 'if Tax selected in txt_Tax = 10 , this means 10% Set rst = Me.Sub_EznADD.Form.Recordset rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Me.Sub_EznADD!Out_Tax = Me.txt_Tax / 100 rst.MoveNext Next i End Sub جعفر 5.test.mdb.zip

الاستعلام اهميه ضمه كمصدر بيانات هو التصفيه حسب الماده [forms]![frmdrjat]![sbjID]

استاذى الفاضل التصفيه تتم عن طريق مصدر بيانات السجل الفرعى عن طريق الاستعلام الداخلى فى الفورم SELECT tblAsma.UserName, tblAsma.studName, tblAsma.Saf, tblAsma.shoba, QryStu.* FROM tblAsma LEFT JOIN QryStu ON tblAsma.UserName = QryStu.Uid WHERE (((tblAsma.Saf)=[forms]![frmdrjat]![sfID] Or (tblAsma.Saf) Is Null) AND ((tblAsma.shoba)=[forms]![frmdrjat]![fslID] Or (tblAsma.shoba) Is Null));

جزاك الله كل خير أستاذنا الفاضل ابو ادم ونسأل الله ان يمتعك بالصحة والعافية ============================================ صح ينشاء فولدر وبداخل هذا الفولدر يوجد ملف PDF وشكراً

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

بالطبع المرفق عبارة عن الهيكل الخارجي ينقصه المحرك والمحرك هو الاوامر التي سندرجها عند كل حركة (حدث) لا تستعجل في خروج النتيجة .. الفهم اولا لدينا 7 اختبارات : خمس شهور ونصفي ونهائي ويوجد حقل واحد فقط لادخال الدرجة داخل النموذج الفرعي ! ان كنت استوعبت الفكرة فأريد منك ان تستنج الطريقة التي سيتم بها ادخال الدرجات ؟ السؤال موصول ايضا لحبيبنا ابو آلاء

السلامعليكم اخى الحبيب ياسر جزاك الله كل الخير والتقدير وتقبل عزرى فى عدم ايصال المطلوب من اول مره وارجو الا اكون قد اثقلت عليك سلمت يداك بكل خير

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

السلام عليكم ورحمة الله أخي الكريم طارق، تم عمل المطلوب (بالمعادلات والتسميات) بإضافة تسميات خاصة بالصورة (لكل سؤال تسمية خاصة + 3 تسميات للحالات)... أخوك بن علية المرفق : تعليم الحساب_مرفق الصورة.rar

السلام عليكم اخى الكريم هون علينا ووضح طلبك حتى يستطيع الاخوه الاغعضاء مساعدتك وانا منهم اليك محاولتى / فى صفحة الحسابات الرئيسيه اكسل.rar

السلام عليكم 1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة: 2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى: 3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد: وهذه طريقة ربط الجداول للحقل اعلاه: والنتيجة: 4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود: Option Compare Database Private Sub Form_Close() Me.Filter = "" Me.FilterOn = False End Sub Private Sub Check_Selected() Dim FF As String 'cmb_alaam_aldrasy If Len(Me.cmb_alaam_aldrasy & "") = 0 Then FF = "" Else FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'" End If '--------- 'cmb_almadrasa If Len(Me.cmb_almadrasa & "") = 0 Then Else FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'" End If '--------- 'cmb_alsaf If Len(Me.cmb_alsaf & "") = 0 Then Else FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'" End If '--------- 'cmb_alsuaph_aldrasy If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then Else FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'" End If '--------- 'cmb_IDalmada If Len(Me.cmb_IDalmada & "") = 0 Then Else FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada End If '--------- 'cmb_IDalsahr If Len(Me.cmb_IDalsahr & "") = 0 Then Else FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr End If '--------- If Left(FF, 4) = " And" Then FF = Mid(FF, 6) Me.Filter = FF Me.FilterOn = True End Sub Private Sub cmb_alaam_aldrasy_AfterUpdate() Call Check_Selected End Sub Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer) Me.cmb_alaam_aldrasy = "" Call Check_Selected End Sub وتركت لك في الكود بونص انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 5. والنتيجة: يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله جعفر 6.برنامجي2.accdb.zip

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

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

جزاك الله خيرا

السلام عليكم الشكر موصول للاخ ابوعيد و الاخ الصقر تفضل اخي هذا الحل ان شاء الله يفي بالغرض وان يستفيد منه الجميع اولا تم برمجة كود يدرج شيت جديد باسم رمز الشركة اوتوماتيكيا في حالة زيادة عدد اسماء الشركات مع تنسيق رؤس الاعمدة كما هو في الشيت الرئيسي Sub AddWs() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim sNam As String Dim i As Integer, c As Integer Dim Err For i = 2 To lrw sNam = sh.Range("A" & i).Value On Error GoTo Err Set ws = ThisWorkbook.Sheets(sNam) 0 Next Exit Sub Err: ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count) ThisWorkbook.Sheets(Sheets.Count).Name = sNam Set ws = ThisWorkbook.Sheets(sNam) Application.CutCopyMode = False sh.Range("C1:S1").Copy ws.Select ws.Range("A1").Select ws.Paste Application.CutCopyMode = True Feuil1.Activate GoTo 0 End Sub ثانيا تم برمجة كود ينقل التغيرات الحاصلة في كل شركة الى الشيت الخاص بها اوتوماتيكيا ويومايا مع العلم ان البيانات تتحدث تلقائيا في حالت اي تغير في بيانات شركة ما ولا يتوقف التحديث الا في حالت تغير التاريخ في هذه الحالة يتم ادراج البيانات في قاعدة البيانات الخاصة بتلك الشركة لاكن بتاريخ مختلف ملاحظة تم برمجة الكود على اساس ان الشيت الرئيسة مرتبط باحد برامج البورصة (المضاربات) مثل مستشاري Sub Rénover() Dim ws As Worksheet Dim sh As Worksheet: Set sh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") Dim lrw As Long: lrw = sh.Cells(Rows.Count, 1).End(xlUp).Row Dim lrw2 As Long Dim MyDat As Date Dim sNam As String Dim i As Integer, c As Integer Call AddWs For i = 2 To lrw MyDat = CDate(sh.Range("C" & i).Value) sNam = sh.Range("A" & i).Value Set ws = ThisWorkbook.Sheets(sNam) lrw2 = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long: Rw = lrw2 + 1 If lrw2 = 1 Then ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value GoTo 1 ElseIf MyDat = CDate(ws.Range("A" & lrw2)) Then ws.Range("A" & lrw2 & ":Q" & lrw2).Value = sh.Range("C" & i & ":S" & i).Value Else ws.Range("A" & Rw & ":Q" & Rw).Value = sh.Range("C" & i & ":S" & i).Value End If 1 Next End Sub ثالثا تم برمجة كود يقوم بملئ كمبوبكس الخاص بالرمز و اسم الشركة ايضا يعمل اتوماتيكيا Sub ListCmb() Set wsh = ThisWorkbook.Sheets("ÇáÑÆíÓíÉ") lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CobName.Clear Feuil1.CobID.Clear Feuil1.CobName.List = wsh.Range("B2:B" & lLrw).Value Feuil1.CobID.List = wsh.Range("A2:A" & lLrw).Value End Sub رابعا تم برمجة كود خاص بملئ التواريخ المسجلة في قاعدة البيانات ايضا يعمل اتوماتيكا حسب اسم او رمز الشركة المختارة Sub ListCmbDate(wsNam As String) If wsNam = "" Then Exit Sub Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Feuil1.CmbDat1.Clear Feuil1.CmbDat2.Clear If lLrw = 2 Then Feuil1.CmbDat1.AddItem wsh.Range("A2").Value Feuil1.CmbDat2.AddItem wsh.Range("A2").Value Exit Sub Else Valeurs = wsh.Range("A2:A" & lLrw).Value Feuil1.CmbDat1.List = Valeurs Feuil1.CmbDat2.List = Valeurs End If End Sub خامسا واخير تم برمجة كود يجلب البيانات حسب اختيار المستعمل للفترة التي يريد من شيت محدث Sub RowWs(wsNam As String, MyDate1 As Date, MyDate2 As Date) If wsNam = "" Then Exit Sub CalearWs Set ws = ThisWorkbook.Sheets("ãÍÏË") Set wsh = ThisWorkbook.Sheets(wsNam) lLrw = wsh.Cells(Rows.Count, 1).End(xlUp).Row Dim Rw As Long, Rw1 As Long, Rw2 As Long For i = 2 To lLrw If MyDate1 = CDate(wsh.Range("A" & i)) Then Rw1 = wsh.Range("A" & i).Row If MyDate2 = CDate(wsh.Range("A" & i)) Then Rw2 = wsh.Range("A" & i).Row: Exit For Next If Rw1 = 0 Then MsgBox "íÌÈ Çä íßæä íæã ÇáÈÏÇíÉ ÇÞá ãä Çæ íÓÇæí íæã ÇáäåÇíÉ": Exit Sub Rw = Rw2 - Rw1 + 1 ws.Range("A4").Resize(Rw, 15).Value = wsh.Range("A" & Rw1).Resize(Rw, 15).Value End Sub صورة توضيحية ملاحضة هامة الرجاء عدم التغيير في تسميات الشيتات لكي لا يتأثر عمل الاكواد (الكود يعطي خطاء) تحياتي للجميع بيانات شركة.rar

الأخ الفاضل .. قم بكتابة الشهر الذي ترغب في الخلية H1 ..اكتب بداية الشهر مثلا 1/1/2015 فرز الكمية حسب الشهور.rar

اوضح طلبك بشكل اكثر تفصيلا مالذي تريده من حقول في الاستعلام ؟

اليك هذا الملف لعله المطلوب لائحة دون فراغات.rar

السلام عليكم اخى الكريم جرب هذا الملف وضع هذه الصيغه فى التحقق من الصحه =OFFSET($A$1;;;COUNTA(A:A)) 1234.rar

Sub SentMail() Dim Mail As New Message Dim Config As Configuration Set Config = Mail.Configuration Config(cdoSendUsingMethod) = cdoSendUsingPort Config(cdoSMTPServer) = "smtp.gmail.com" Config(cdoSMTPServerPort) = 25 Config(cdoSMTPAuthenticate) = cdoBasic Config(cdoSMTPUseSSL) = True Config(cdoSendUserName) = "بريدك الاكلتروفي GMAIL" Config(cdoSendPassword) = "الباسوورد" Config.Fields.Update Mail.To = "البريد المرسل ايه" Mail.from = Config(cdoSendUserName) Mail.Subject = "Email Subject" Mail.HTMLBody = "<b>Email body</b>" ' هذا هو الجزء الذي يرسل في هته الحال سيتم ارسال صورة من الجهاز الى بريد ما Mail.AddAttachment "C:\Users\Admin\Pictures\QQ.jpg" On Error Resume Next Mail.Send If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "There was an error" Exit Sub End If MsgBox "Your email hes sent!", vbInformation, "Sent" End Sub تفضل اخي الكريم الكود مجهز لرسال ملف من الجهاز حدد مسارة داخل الكود الكود يعمل بدون وسيط من الاكسل الي الايميل مباشرة لكن سجل ايميل المرسل منه والباسورد والايميل المراد الارسال اليه لكن شرط اضافه المرجع كما في الصورة ومن الممكن التعديل عليه لارسال نص رساله الي اكثر من ايميل تحياتي

السلام عليكم جرب المرفق خزينة تجربة3.rar

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

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

كود التنقل بين الصفحات داخل الشيت الواحد ياخذ رقم الصفحة من الرقم الذي مكتوب في الزر للاستاذ عبد الله باقشبر Sub kh_PageSelect() Dim P As Integer Dim Adr As String On Error GoTo 1 P = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text Adr = ActiveSheet.HPageBreaks(P - 1).Location.Address Range(Adr).Select 1: If Err Then Err.Clear: Range("a2").Select End Sub التنقل الى صفحات الطباعة.rar

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

كودان احدهما لمعاينة الطباعه والآخر لمعاينة الطباعة مع امكانية الطباعه بارك الله لنا ولكم آمين معاينة طباعة.rar معاينة طباعة مع امكانية الطباعه.rar

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