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

السلام عليكم ورحمة الله وبركاته الفرق بين تاريخين باستخدام الدالة DATEDIF اتمنى ان يفيدكم جميعا تعريف الدالة امثلة على استخدام الدالة مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/ تحميل الملف الفرق بين تاريخين.rar

أخي الكريم الياسر جرب الكود التالي Sub Test() Dim LR As Integer LR = Cells(27, 1).End(xlUp).Row + 1 Range("A" & LR & ":F" & LR).Value = Range("A3:F3").Value End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر نبارك لك بالمشاركة 8888 ونرجو الله لك أن تكون مشاركاتك النافعة حتى تكون 888888888888 وأنت بخير وسلامة أنت وكل أحبتي فهذه المشاركة لأخي محمد الريفي جعلتني أنظر إلى قطار العمر الذي مر سريعاً 50 سنة و9 أشهر و 2 يوماً نرجو الله أن يختم لنا بالحسنى والسلام عليكم.

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

السّلام عليكم و رحمة الله و بركاته حاول أخي الكريم إتّباع هذه الصّور لعلّها تفي بالغرض ..

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

أخي الكريم محمد علي ضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show End Sub Function LastRowPic(ColumnNumber As Long) As Long Dim Arr, Pic As Shape, I As Long ReDim Arr(1 To Columns.Count) For Each Pic In ActiveSheet.Shapes With Pic For I = .TopLeftCell.Column To .BottomRightCell.Column Arr(I) = Application.Max(.BottomRightCell.Row, IIf(Arr(I) = "", 0, Arr(I))) Next I End With Next Pic LastRowPic = Arr(ColumnNumber) End Function ثم قم بوضع الكود التالي في حدث الفورم #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Private Const SW_HIDE As Long = 0 Private Const SW_SHOW As Long = 5 Private LastSelectedFilePath As String Private Sub CommandButton1_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) LastSelectedFilePath = strFileName Me.Repaint End If End Sub Private Sub CommandButton2_Click() Dim R As Range, LR As Long ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_HIDE If LastRowPic(22) = 0 Then LR = Cells(Rows.Count, "V").End(xlUp).Row + 1 Else LR = LastRowPic(22) Set R = Range("V" & LR) ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_SHOW With ActiveSheet.Pictures.Insert(LastSelectedFilePath) .ShapeRange.LockAspectRatio = msoFalse .Top = R.Top .Left = R.Left .Width = R.Width .Height = R.Height End With End Sub وإليك الملف المرفق فيه تطبيق للأكواد أرجو ان يكون المطلوب إن شاء الله Load Picture On UserForm Using Dialog & Insert Image To Worksheet YasserKhalil.rar

أخي العزيز أنس دروبي جرب الكود التالي عله يفي بالغرض Private Sub save_pro_Click() Dim C As Range, LR As Long Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeName(Ctrl) = "CheckBox" Then If Ctrl.Value = True Then With Worksheets("4") On Error Resume Next Set C = .Rows(1).Find(What:=Ctrl.Caption, LookAt:=xlWhole) On Error GoTo 0 If Not C Is Nothing Then LR = .Cells(Rows.Count, 1).End(xlUp).Row Intersect(.UsedRange, .Range(.Cells(C.Row, C.Column), .Cells(LR, C.Column))).Copy Worksheets("5").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) End If End With End If End If Next Ctrl Unload Me End Sub تقبل تحياتي

زيادة في اثراء الموضوع هذه المعادلة =SUM(INDIRECT(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1)&":"&SUBSTITUTE(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1),RIGHT(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1),1),"")&27))

أخى الفاضل سليم سلمت يداك أخى محمد هل تقصد هكذا =SUMIFS(OFFSET($D$9;;MATCH(B6;D8:AO8;0)-1;27;1);A9:A35;B3;B9:B35;B4;C9:C35;B5) New Microsoft Excel Worksheet.rar

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

ولا يهمك أخي الغالي ياسر العربي إن شاء الله المشاركة اللي جاية 9999 تكون مخصصة ليك وهعمل لك موضوع مخصوص (إن كان في العمر بقية) تقبل وافر تقديري واحترامي

بسم الله ماشاء الله اسال الله العلى العظيم ان يتقبل منك وان يجعل كل حرف شاركت به فى 8888 ان يمحو عنك سيئة ويجعل لك حسنه اطال الله فى عمرك وبارك فيك

تكرم حبيبي ربنا يجازيك كل خير ولك بمثل ما دعوت به كنت عايز ابارك لك على المشاركة رقم 8888 ولكن يشاء القدر ان مشاركتك 8889 تكون لي وبوظت ليك الرقم ههه تقبل تحياتي

لا أعلم اذا كان هذا المطلوب بالفعل Salim Work.rar

تفضل اخي ابو البراء وجدت لك كود اخر اجمل ويعتمد علي استخدام ال IDs جرب وشوف قوائم بطريقة افضل add menu yasser.rar

أخي الكريم ابن الملك المتغير MyAr عبارة عن مصفوفة ثنائية الأبعاد ..تم تحديد أبعاد المصفوفة في السطر التالي ReDim Preserve MyAr(1 To ContColmn, 1 To ii) بعد اسم المتغير وما بين الأقواس هي أبعاد المصفوفة .. البعد الأول ثم فاصلة ثم البعد الثاني وتعتمد على المتغيرات ContColmn و iii ...

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

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

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

تفضل جرب هذا الشيء اوفيسنا salim.rar

انسخ هذه المعادلة الى الخلية C3 ,و اسحب نزولاً =IF(A3<>"",(TEXT(TRIM(A3),"dd/mm/yyyy hh:mm:ss"))*1,"")

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

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

أخي الفاضل أنس جرب التعديل التالي عله يفي بالغرض Private Sub save_pro_Click() Dim C As Range, LR As Long, I As Integer, Str As String For I = 1 To 18 If Me.Controls("CheckBox" & I).Value = True Then Str = Me.Controls("CheckBox" & I).Caption With Worksheets("4") On Error Resume Next Set C = .Rows(1).Find(What:=Str, LookAt:=xlWhole) On Error GoTo 0 If Not C Is Nothing Then LR = .Cells(Rows.Count, 1).End(xlUp).Row Intersect(.UsedRange, .Range(.Cells(C.Row, C.Column), .Cells(LR, C.Column))).Copy Worksheets("5").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) End If End With End If Next I Unload Me End Sub تقبل تحياتي

السلام عليكم لاتحزن يا أخى لعله خير أتم أعمالك واجعلها خالصة لله

عودا حميدا سيد جمال ونحمد الله على سلامتك ورجوعك لاحضان المنتدى مرحا مرحا والعود احمد خاصة بعد تحول المارد الى سيد الجمال

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

جزيت خيراً أخي الحبيب ياسر العربي على هذه الهدايا القيمة والممتعة .. بارك الله فيك وفي أهلك ومالك ووقتك وفي كل حياتك تقبل تحياتي

اطال الله عمرك وجزاك الله كل خير طبتم واهتديتم

استبدل السطر البرمجى السابق بالسطر التالى ( الدالة NZ ) تقوم بتجاهل الفرغات وتحويلها الى اى متغير تكتبه وفى هذه الحالة المتغير صفر Me.totalN = Val(Nz(number1, 0)) + Val(Nz(number2, 0))

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

أخي الكريم محمد علي إذا أردت المساعدة عليك تسهيل الأمر على إخوانك المرفق غير معبر عن الطلب .. قم بإرفاق ملف يخص طلبك فقط واحذف أية أكواد أخرى كما قم بحذف الفورم الغير مستخدم وركز على الفورم المطلوب فقط ، لتيسير الإطلاع على الملف من قبل إخوانك .. كما أنني لم ألاحظ وجود Image على الفورم .. ما هو الفورم المطلوب العمل عليه ؟؟ أفضل إرفاق الملف مرة أخرى بعد إجراء عملية تنقيح بحيث يكون الملف يخص الطلب في الموضوع المخصص له فقط تقبل تحياتي

بارك الله فيك أخي الحبيب محمد الريفي أين الملف المرفق الخاص بالموضوع لتعم الاستفادة؟ تقبل وافر تقديري واحترامي

السلام عليكم عملت إضافة لكود الوحدة النمطية ، وكود الحقل Text4 في المشاركة السابقة لإستفادة اكبر واعم جعفر

جزاكم الله خيراً أخي الحبيب رجب على هذا الحل الرائع إليك حل آخر إثراءً للموضوع ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Dim Rng As Range Dim Dn As Range Dim Dic As Object With Sheets("Sheet1") Set Rng = .Range(.Range("C6"), .Range("C" & Rows.Count).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng: Dic(Dn.Value) = Empty: Next ComboBox1.List = Application.Transpose(Dic.keys) End Sub Private Sub ComboBox1_Click() Call cValues(ComboBox1.Value, ComboBox2, 4) '4 Is Column Number End Sub Private Sub ComboBox2_Click() Call cValues(ComboBox2.Value, ComboBox3, 5) '5 Is Column Number End Sub Sub cValues(Txt As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub قمت بإعادة تسمية الكومبوبوكس .. بدلاً من Sanf استخدمت الاسم الافتراضي ComboBox1 وبدلاً من Nawa استخدمت ComboBox2 والثالث جعلته بدلاً من ComboBox1 جعلته ComboBox3 .. كما قمت بإزالة الـ Row Source لأول كومبوبوكس .. تم الاستغناء عن الأكواد في حدث ورقة العمل .. فقط الكود في حدث الفورم هو الذي يقوم بالمهمة كاملة إن شاء الله أرجو أن يكون الملف مقبول لديكم تقبل تحياتي Dependent ComboBox On UserForm YasserKhalil.rar

جزاكم الله خيراً أخي العزيز عبد العزيز على هذا الملف اللذيذ .. الذي يحتوي على البهاريز .. تقبل وافر تقديري واحترامي

ارسال ملفك سيجعل الامور اوضح... مثلا هذا ما تريده ؟؟؟ 1111.rar

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

وعليكم السلام بالنسبة لموضوع تحويل اللغة ، انظر هذا الرابط للأستاذ علي المصري: http://www.officena.net/ib/topic/64622-كتابة-اللغة-في-مربع-نص-على-حسب-اختيار-المستخدم-من-القائمة-المنسدلة/?do=findComment&comment=420711 اعمل زر لكل لغة تريدها ، ولما يشتغل البرنامج ، ارفق البرنامج ، ونحن ان شاء الله نساعدك على الازرار جعفر

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

أولا أهلا وسهلا بك حليموووووووووووو ثانيا راجع توجيهات الأستاذ ياسر صفحة 1 فى المنتدى ثالثا تفضل الملف الحفظ كالتالى اتوماتيكى كل دقيقة يمكنك تغييره بسهولة الى 4 ساعات كما تريد الحفظ يكون الى بارتش H المجلد HALEMOO غيره فى الكود الى المسار الذى تفضله يعنى تعمل مجلد اسمه HALEMOO فى الـــــــ H ,شغل الكود هتلاقى هناك ملف جديد كل فتره زمنية رابعا ان أعجبك المرفق حدد الاجابة كأفضل اجابة عشان متزعلش الأستاذ ياسر تحياتى Auto Save Workbook after x time by mokhtar for halemoooooooo.rar

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

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

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

3-2 إستعلامات الاختيار - 1 Select Queries - Part1 فى هذا الموضوع ستبدأ بإذن الله الحديث عن أول و اهم انواع الاستعلامات ،ـ و الاكثر استخداما الا و هو استعلام الاختيار Select Query و سنخصص له حلقتين بإذن الله و هذه اولاهما و محتوياتها كالتالي : إنشاء استعلامات الاختيارمن وضع التصميم Creating Select Queries From Design View وضع عرض البيانات Datasheet View ترتيب السجلات Sorting Records وضع الشروط Conditions لقيم المستنتجة و اجراء الحسابات استخدام دالة داخل الاستعلام Using a Funcion in the Query تجميع أو تلخيص البيانات Grouping Records و الموضوع من هنا و المثال من هنا