jjafferr

نعم لاحظت هذا البارحة ، والحل ان تعمل قاعدة بيانات فاضية ، ثم تستورد كائنات قاعدة بياناتك الحالية ، إليها. جعفر

وعليكم السلام هو في حد جاب اسمي تفضل ، هذا كود زر فتح التقرير من النموذج Private Sub Command13_Click() 'On Error Resume Next DoCmd.OpenReport "salry3", acViewPreview Dim Filt As Variant If Me.Fr = 1 Then Filt = "[nam] ASC" ElseIf Me.Fr = 2 Then Filt = "[twqe] ASC" ElseIf Me.Fr = 3 Then Filt = "[draga] ASC" End If Reports!salry3.OrderBy = Filt Reports!salry3.OrderByOn = True End Sub في الواقع احنا ما محتاجين وضع امر ASC اي ترتيب تصاعدي ، لأنه الامر الافتراضي ، اذا لم نضع الامر Desc اي ترتيب تنازلي الكود اعلاه ما راح يشتغل في تقريرك ، لأنه عندك فرز في تقريرك (Sorting and Grouping) ، لذا يجب ازالت هذا الفرز اولا. واما اذا اردت الفرز ان يكون بحقلين ، بحيث الفرز الاول يكون للحقل الاول ، والفرز الثاني للحقل الثاني ، مثلا: Names Years 2001 jj 2000 ab 2001 zx 2000 aa فنريد الفرز بالسنة ثم الاسم ، وتكون النتيجة هكذا: 2000 aa 2000 ab 2001 jj 2001 zx فهنا يجب ان يكون الفرز بالحقلين ، ونبدا بحقل السنة ثم الاسم ، فيصبح الكود Filt = "[Years], [names]" ولاحظ اننا لم نستعمل الامر ASC لاننا لسنا بحاجة اليه جعفر

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

وعليكم السلام تفضل هذا الكود للنموذج: Private Sub COM1_Click() Call Form_Current End Sub Private Sub Form_Current() Dim rst As DAO.Recordset Dim i, Nums, RC As Integer Set rst = CurrentDb.OpenRecordset("Select * From QR_MO_SMS") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Nums = "" For i = 1 To RC Nums = Nums & rst!No_Mobile & "," rst.MoveNext Next i Me.txtNumbers = Mid(Nums, 1, Len(Nums) - 1) 'Or 'Me.txtNumbers = Left(Nums, Len(Nums) - 1) rst.Close: Set rst = Nothing End Sub جعفر

هذا الرابط فيه الكود للعمل الذي تريده http://stackoverflow.com/a/3133849 ولكن ما رايك في برنامج جاهز ، تقوم بادخال قواعد البيانات ، وهو يقوم بالعمل http://www.peterssoftware.com/cal.htm جعفر

وعليكم السلام تفضل . والنتيجة . اهم شئ في مثل حالاتك ، انك ما تضيف حقل "الترقيم التلقائي" AutoNumber ، وإلا فالاستعلام سيعطيك رسائل خطأ ولن يعمل جعفر 490.الحاق.accdb.zip

عفوا اخوي بدر ، انا ما كنت اريد اجابة ، وانما هذه الفكرة جعفر

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

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

السلام عليكم اخي محمد هاي سهلة ، والمرفق فيه طلبك (مع ملاحظة اني لاحظت خطأ في الكود في قراءة الملفات ذات اكثر من 3 حروف لصيغة الملف ، مثل docx و accdb و xlsx ، والملفات بدون صيغة) ، وتم تعديله في المرفق بدلا عن FileCopy File_Path_Name, Me.pate & "\" & File_Name استخدم FileCopy File_Path_Name, Me.pate & "\Alt_" & Me.id_m & "_" & i & "." & FileExt ولكن اسمح لي ان اعرض بعض التغيير: ايش رايك بدلا عن Alt_6_1.jpg Alt_6_2.doc ايش رايك في ، بحيث تحتفظ بإسم الملف ايضا Alt_6_1_Router_config.jpg Alt_6_2_Read_Router_config_Manual.doc وايش رايك في انه يوجد لكل سنه ملفاتها؟؟ جعفر 207.3.m.salama.accdb.zip

السلام عليكم اخي محمد فهم الكود اخذ مني وقت ، واعتقد بأني فهمته طيب ، اذا كنا في المسلسل رقم 6 ، وكان عندنا الملفين التاليين عند الادراج: Router_config.jpg Read_Router_config_Manual.doc . فكيف تريد حفظ هذين الملفين؟ جعفر

ونستخدم الامر Replace مثلا [barcod_item] & replace(Format([total];"0.000");".";"0") جعفر

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

وعليكم السلام استخدم الامر Format ، هكذا Expr1: [barcod_item] & Format([total],"0.000") جعفر . .

تفضل . . جعفر 487.تنسيق شرطي.accdb.zip

تفضل انظر في هذا الرابط: . جعفر

لماذا تريد ان تقوم بهذا العمل؟ جعفر

تفضل في جدول الالحاق Table3 ، نجعل الحقل في الجدول لا يقبل التواريخ المتكررة . واستعلام التوحيد لجمع التواريخ ، وتم توحيد اسم الحقل كـ D . ثم نستخدم استعلام التوحيد كمصدر لاستعلام الالحاق: . ومن هذا الاستعلام نأخذ أكبر واصغر قيمة للتاريخ . والنتيجة . ونعمل مصدر بيانات النموذج ، هذا الاستعلام الاخير ، ولكننا يجب ان نشغل الاستعلام الالحاقي قبل عرض البيانات في النموذج . والنتيجة . جعفر 486.تواريخ.mdb.zip

حياك الله نعم هناك عدة طرق ، واسهلها الحدث "عند عدم وجود بيانات" OnNoData جعفر

وعليكم السلام مايكروسوفت تشجع المبرمجين بإعطائهم قوالب Templets جاهزة للعديد من برامج الاكسس ، لذا ابحث في الرابط التالي للحصول على ما تريد: https://access-templates.com/ اما انا ، فبحثت في جوجل عن "ms access templates schools" ، ثم من النتائج ، اخترت: https://access-templates.com/tag/school.html https://access-templates.com/tag/student+database.html جعفر

السر في الجواب ، هو معرفة السؤال جعفر

تفضل ارجو ان يكون هذا طلبك ، في التقرير نعمل استعلام ، ونربط الحقول التي نريد قيمتها من بقية الجداول . وهذه النتيجة المطلوبة . وعليه ، نعمل تقرير يكون مصدره الاستعلام اعلاه: . جعفر 485.New Microsoft Office Access Application (2).mdb.zip

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

اخي محمد ، الظاهر اننا ما قادرين نوصل الفكرة لبعض !! طلبي هو ، ماذا تريدنا ان نساعدك فيه !! والجواب الذي انتظره منك مثل: عند فتح التقرير Query1 ستجد مجموعة اسماء ، كيف لي ان ابحث عن Location 35 التابع Ashraf في النموذج Table1. سؤالك/طلبك الى الان غير واضح . جعفر