سامي الحداد

وعليكم السلام مشاركة مع الاساتذة تفضل التعديل =IIf(Format([التاريخ],"yyyy/mm")<Format(Now(),"yyyy/mm") And [تم الدفع]=0,"قسط متأخر",IIf(Format([التاريخ],"yyyy/mm")>Format(Now(),"yyyy/mm") And [تم الدفع]=0,"لم يحن وقت السداد",IIf(Format([التاريخ],"yyyy/mm")=Format(Now(),"yyyy/mm") And [تم الدفع]=0,"جاهز للسداد"," تم السداد"))) 182.accdb

وعليكم السلام اخي الكريم جرب التعديل ووافنا بالنتيجة تحياتي Database3.accdb

تفضل اخي الكريم بالتوفيق Database2.accdb

وعليكم السلام اخي الكريم بما انك لم ترفق ملفك اليك هذا الكود عسى ان يكون هو طلبك ... Dim strSQL As String Dim i As Integer Dim Msg As String Dim NewID As String If NewData = "" Then Exit Sub NewID = UCase(Trim(Left(NewData, 3))) Msg = "'" & NewData & "' غير موجود حاليًا في قائمة الأنواع." & vbCr & vbCr Msg = Msg & "هل تريد إنشاء سجل نوع جديد?" i = MsgBox(Msg, vbQuestion + vbYesNo, "نوع غير معروف...") If i = vbYes Then strSQL = "Insert Into [Your Table Here] ([Your ComboBox],[FieldName]) values ('" & NewID & "','" & NewData & "')" CurrentDb.Execute strSQL, dbFailOnError Response = acDataErrAdded Else Response = acDataErrContinue End If غير الاسماء حسب مسميات الحقول والقائمة المنسدلة والجدول لديك تحياتي

السلام عليكم لقد عملت برنامج خاص للبحث في جميع حقول الجداول ووضعته في هذه المشاركة جرب ووافيني بالنتيجة ساضع البرنامج هنا مرة ثانية ربما يستفاد منة باقي الاعضاء تحياتي Search All Tables 2020 New.accdb

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

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

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

السلام عليكم مشاركة مع أساتذتي جزاهم الله خيرا صحيح كلامك استاذي الفاضل أبو خليل , بعد ان عطلت كود إخفاء الاوفيس عمل النموذج بصوره صحيحة وبدون ان أغير في باقي الاعدادات. ساحاول ان شاءالله معرفة الخلل اين . وهذه محاولتي بالنسبة لباقي السؤال.. زيادة مني شوي ..😄 اليك الكود. Private Sub Command17_Click() On Error Resume Next Dim strPath As String Dim strFileName As String Dim strReport As String Dim OutPath As String strReport = "T1" strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "T1" & " " & Format(Date, "dd-mm-yyyy") If Dir(strPath, vbDirectory) = "" Then MkDir strPath OutPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "T1" & " " & Format(Date, "dd-mm-yyyy") & " " & ".PDF" MsgBox " تم عملية انشاء المجلد مع تصدير الملف الى سطح المكتب", vbInformation, " تأكيد " strFileName = CurrentProject.Path & "\T1\" & strFileName DoCmd.OpenReport "t1", acViewReport, , "itemid=" & itemid & "" DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, strPath & "\T1" & " " & Format(Date, "dd-mm-yyyy") & " " & ".PDF", True, , , acExportQualityPrint DoCmd.Close acReport, strReport Else If strPath > 0 Then DoCmd.CancelEvent MsgBox " الملف موجود مسبقا بهذا الاسم والتاريخ " & vbCrLf & _ "T1" & " " & Format(Date, "dd-mm-yyyy"), vbInformation + vbMsgBoxRight, "تم إلغاء العملية" Exit Sub End If End If End Sub أخي الدكتور محمد كنت قد سألتني عن ثلانة اشياء في هذه المشاركة https://www.officena.net/ib/topic/117397-طباعة-محتويات-النموذج-على-ان-يكون-اسم-الملف-المطبوع-هو-تاريخ-اليوم-تلقائيا-عند-غلق-النموذج/ هل هذا هو المطلوب في هذه المشاركة ايضا ام لا ؟ واسف على التاخير في الرد بسبب ظروف العمل والسفر حيث عملي يتطلب ان اسافر كثيرا وهذا ما يمعني من التواجد بصفة مستمرة ارجو المعذرة من الجميع. تحياتي للجميع فتح تقرير غير منكمش.accdb

احسنت اخي الكريم @TQTHAMI وجزاك الله خير الجزاء على هذه المشاركة الجميلة.

الف الف مبروك أخي العزيز @Ahmed.IQ تستأهل كل الخير. اسأل الله لكم التوفيق والنجاح دائما. تحياتي

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

مشاركة مع الاستاذ @TQTHAMI تفضل اخي بلال جرب الملف واعلمنا بالنتيجة بالتوفيق بلال - تعديل.rar

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

تفضل اخي الكريم شوف التعديل ووافينا بالنتجة بالتوفيق الفاتورة.accdb

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

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

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

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

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

السلام عليكم اخواني جميعا ورحمة الله وبركاته عملت هذه القاعدة منذ زمن وتوقفت لانشغالي بالعمل والسفر الدائم . بإختصار شديد الهدف من البرنامج هو للبحث في جميع جداول وحقول القاعدة . لقد رايت هذا الموضوع هنا .. لا اعرف اذا كان هذا البرنامج يفي بالغرض ام لا. للامانة العلمية بعض الاكواد استعنت بها من الانترنت وحقوق الاشخاص والاكواد محفوظة. يوجد بعض الجداول في القاعدة وفيها بيانات قليلة . أتمنى من الجميع التجربة وموافتي بالنتيجة تحياتي للجميع Search All Tables 2020 New.accdb

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

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

السلام عليكم ورحمة الله وبركاته أخواني الاعزاء @العنزي العنزي @أبو ألين @kkhalifa1960 @ابو البشر @ابو نزار@محمد التميمي @غريب طرابلس @شامل2 @at_aziz@r3dx@Matin_Murad واسف ان نسيت احدا بارك الله فيكم جميعا واشكركم على المرور والتهنئة و إن شاءالله معا نتعلم ونفيد بعضنا البعض. جزاكم الله خيرا احبتي دمتم في رعاية الله وحفظه

مشاركة مع الاستاذ @TQTHAMI جزاه الله خيرا تحياتي للجميع قاعدة.accdb