jjafferr

السلام عليكم انا اعتذر أخوي رمهان لكن الصداع في طلب المعرفة غير عن الصداع وشئ مدوخ راسك انا غيرت تاريخ احد السجلات في الحقل Datee الى 1-1-2012 ، والان استطيع ان الخص برنامجي الذي ارفقته في مشاركتي رقم 19: جميع الطرق الثلاث تعمل بنفس الطريقة ، وهي: 1. اذا ادخلت اليوم والشهر فقط ، فالبرنامج يعتبر انك تريد يوم وتاريخ هذه السنة ، فعليه البرنامج يضيف هذه السنة ، وتحصل على النتائج 2. اذا ادخلت اليوم والشهر والسنة ، فلا يتدخل البرنامج في الادخال ، وتحصل على نتيجة ذلك التاريخ جعفر

وعليكم السلام أها ، انت تتكلم عن طريقة تنسيق معلومات الحقل نعم التنسيق في مربع النص العادي Plain Text ، عادي والتنسيق في مريع النص ، مع تغيير اعداداته الى "نص منسق" Rich Text ، يصبح شيخ التنسيق جعفر

السلام عليكم مادمت اخذت طريق الاستعلام CrossTab ، فهناك شئ جدا ضروري يجب ان تعرفه ، ولقد كلفني الكثير من العناء والمشقة والتفكير والتصليح والوقت في سبيل معرفته لما تعمل الاستعلام ، فانك تعمل حقل "عناوين الاعمدة" Column Headings ، والعناوين مثل ما ترى هنا ، هي "1-6" و "7-12": واذا القينا النظر الى بيانات الجدول ، سنرى انها تحتوي على بعض الاشهر من 1 الى 12 وعليه ، نتيجة الاستعلام ستكون: ونتيجة النموذج (او التقرير) ستكون: ولكن اذا لم تكن هناك قيمة لأحد الاعمدة (لاحظ في الصورة التالية) ، لقد حذفت سجلات الاشهر من 7 الى 12 من الجدول ، لذا فلا توجد بيانات للعمود 7-12 ، اي لا يوجد حقل اسمه 7-12: فنتيجة الاستعلام ستكون بدون ذلك الحقل (لاحظ عدم وجود عمود اسمه 7-12): ولكن نتيجة النموذج (او التقرير) ستكون: هناك طرق لحل هذه المشكلة: 1. برمجيا عن طريق QueryDef ، بحيث تعيد عمل الاستعلام: TRANSFORM Sum(Table1.ammount) AS Sumمنammount SELECT Year([dates]) AS السنة FROM Table1 GROUP BY Year([dates]) PIVOT IIf(Month([dates]) Between 1 And 6,"1-6","7-12"); وتعدل في عناوين اعمدة الاشهر ، بحيث اذا الاشهر ما موجودة في الجدول ، فانك لازم تحذفها من الاستعلام ، وتعيد حفظ الاستعلام بمعلوماته ، وكود التأكد والتغيير يجب ان تعمله في كل مرة تريد ان تشغل الاستعلام. 2. عند فتح النموذج (او التقرير) : بحيث تضع كود يفحص اذا كان هناك حقل اسمه 7-12 ، فاذا لم يوجد ، فيجب ان تحذف مصدر عنصر الحقل. 3. وهذا ما توصلت اليه أخيرا وبعد مشقة وعناء: في اعدادات الاستعلام ، اكتب اسماء الاعمدة في اعدادات الاستعلام ، وعليه اسماء الاعمدة ستكون دائما موجودة ، بغض النظر اذا كانت هناك بيانات ام لا: ونتيجة الاستعلام: ونتيجة النموذج (او التقرير): جعفر 87.1.Database1.accdb.zip

حياك الله بس هذا نص عادي في التقرير كذلك جعفر 92.New_Line.accdb.zip

انا اعتذر ، فكلامك صح ، لا يوجد 1/1/2012 في Datee جعفر

نعم شغلنا على Datee وعفوا ، هذا هو السجل: جعفر

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

انا هنا ادمج لك 3 طرق: 1. عن طريق استخدام النموذج: الاستعلام: والنموذج عند الادخال: وكود بعد التحديث لحقل التاريخ هو: Private Sub myDate_AfterUpdate() If Len(Me.myDate) <= 5 Then Me.myDate = CDate(Me.myDate & "/" & Year(Now())) End If End Sub وعليه يصبح حقل التاريخ بالكامل ، وعندها تضغط على زر فتح الاستعلام: 2. عن طريق وحدة نمطية: الاستعلام: والوحدة النمطية Correct_This_Date: Function Correct_This_Date(D) If Len(D) <= 5 Then This_Date = CDate(D & "/" & Year(Now())) Exit Function Else This_Date = CDate(D) End If End Function 3. واخيرا ، وضعت كل شئ في الاستعلام ، بدون نموذج او وحدة نمطية: جعفر 91.Database1.accdb.zip

جربتها وما ضبطت للتاريخ 1/1/2012 يعني لازم تدخل 1/1 فقط ، والاستعلام لازم يعطيك سجل 1/1/2012 هذا كان شرط راعي الغنم ، ادخال اليوم والشهر ، بدون سنة : جعفر

يوجد في التاريخ معلومة في 1/1/2014 كيف يمكن ان يبحث عنها؟ جعفر

تفضل افتح النموذج ، وادخل التاريخ بطريقتك جعفر 91.Database1.accdb.zip

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

شوي شوي علينا يالطيب ، تراك سحرتني بطيبة كلماتك تفضل ="jaffar" & Chr(13) & Chr(10) & "Wrote" & Chr(13) & Chr(10) & "This Line" جعفر

تستطيع على الحدث "بعد التحديث" لإدخال التاريخ في الحقل myDate تستعمل هذا الكود: if len(me.myDate) <=5 then me.myDate=cDate(me.myDate & "/" & year(now())) endif باعتبار 19/05 هي خمسة حروف ، فعلى اساسه سيضيف السنة جعفر

وعليكم السلام ليس معيارا ، وانما القيمة في الاستعلام: Date1: Format([DATEE],"dd/mm/yyyy") جعفر

وعليكم السلام الاكسس ابتداءً من الاكسس 2007 (بصيغة accdb) فما فوق لا يحتاج الى اي معالج لتنسيق النص ، فالخاصية فيه تلقائيا جعفر

الله يطول في عمرك أخوي ، هل انت انزلت البرنامج وشفت اللي فيه؟ الفكرة الدارجة في موضوعك ، او الفكرة الدارجة في رأسك البرنامج ، غير التقرير والمسميات ، يعمل اللي تريده 100% هاي انت ما جبت طاريها في الموضوع الاصلي اساسا!! ولكن ، اعطنا معلومات زيادة ، وبدل النسخ واللصق ، يمكن نستطيع ان نجعلك تُدخل البيانات كلها في كبسة زر من الاكسس تقدر تستخدم حقل المسار في الجدول ، وتقدر بدون هذا الحقل (راجع الرابط وجرب البرنامج) انت اصلا ماعندك حقول في الجدول بهذه المسميات !! يجب ان تكون هذه المعلومة في جدول مستقل ، وتضيف في جدول الطلبة حقل يوضح في اي فصل/صف هذا الطالب موجود خلال هذه السنة الدراسية ، ويربط بين الجدولين بهذا الحقل لما تنتهي من عمل الجداول والنموذج ، يكون عمل التقرير سهل لاحقا المعلومة اللي كنت احاول ان أُصلها لك هي : ما ممكن (غالبا) ان تحصل على برنامج جاهز وفيه جميع الخاصيات اللي تريدها ، لذا ، جرب الموجود الاقرب الى طلبك ، وغيّر فيه/زد عليه ، حتى يكتمل اللي تريد الخطوة التالية ، ان تعمل الجداول ، ونموذج الطلبة ، وسنساعدك من المكان الذي توقفت فيه جعفر

وعليكم السلام هذا الرابط قريب من طلبك ، ولكن بمسميات مختلفة: http://www.officena.net/ib/index.php?showtopic=61911 جعفر

وعليكم السلام انا اعطيتك الرابط اعلاه ، فهل نظرت فيه؟ هو يقوم بالذي تريد! وبعدها ، تطور البرنامج في الرابط اعلاه الى : http://www.officena.net/ib/index.php?showtopic=61295 جعفر

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

تفضل انا حذفت الحقل Pic_Path من الجدول والنموذج والكود ، والآن ، لما تغير مكان قاعدة البيانات ، فمجرد غير المكان لـ Image_Location في الوحدة النمطية ، والبرنامج وكل الصور راح يشتغلوا على طول جعفر ربط الصور.zip

نعم ، ومثل ما قال أخي مارد ، ولكن اذا كان اسم الاستعلام صحيح ، فيمكن ان يكون الكود مجرد سطر واحد: فاذا كان اسم القائمة lst_qry ، فالكود يكون: docmd.openquery lst_qry جعفر

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

تفضل ولكن رجاء انظر الى الكود ، ففيه الكثير 1. في النموذج client عندما تضغط على زر "دفع القسط" ، فالحدث لا يفتح النموذج df فقط ، وانما يختار من قائمة Code_Client (ليس يدخل الاسم فقط) ، وذلك من خلال مقارنة رقم العميل ، بتلك الموجودة في القائمة المنسدلة ، والكود الذي يعمل هذا هو: Dim stDocName As String Dim stLinkCriteria As String stDocName = "df" DoCmd.OpenForm stDocName, , , stLinkCriteria 'Now select this name from the Listbox Code_Client of the Form df, 'this is as if we select from the Code_Client listbox itself, 'where we will get the Code_Client and Name_Client columns Dim ctl As Control Set ctl = Forms!df!Code_Client For i = 0 To ctl.ListCount - 1 If Val(ctl.Column(0, i)) = Val(Me.Code_Client) Then ctl.Value = Val(ctl.Column(0, i)) Exit Sub End If Next i 2. في النموذج df ، دائما نجعل التاريخ d1 يكون اول الشهر ، بغض النظر عن اي تاريخ تم اختيارة (وذلك تسهيلا للمستخدم ، بدل ان يفتش عن اول الشهر) ، والكود التالي يعمل هذا: 'make the date always the 1st of the month, 'making it easier for the user to select anydate of the month, and the code corrects it Me.d1 = DateSerial(Year(Me.d1), Month(Me.d1), 1) 3. عند الضغط على زر دفع ، تأتي الخطوات التاليه فيه: أ- التأكد ان المستخدم اختار عدد الاشهر ، والذي يجب ان يكون اكبر من 0 ، وإلا سيتوقف عمل الحدث: 'if No month is selected, get out If Me.f = 0 Then Exit Sub ب- يبحث في الجدول B_Pay ، في انه هل تم الدفع لهذا الزبون في الشهر d1 مسبقا ، فاذا تم الدفع ، واذا تم ، ستحصل على رسالة بذلك ، وسيتوقف عمل الحدث: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From B_Pay Where [Code_Client]=" & Me.Code_Client) rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1) If rst.NoMatch = False Then MsgBox "you already used this date for this client" Exit Sub End If ج- اما اذا كان كل شئ تمام ، فالكود التالي يدخل البيانات في الجدول B_Pay: For i = 0 To Me.f - 1 rst.AddNew rst!Code_Client = Me.Code_Client rst!Code_Elshr = i + Month(Me.d1) 'rst!Dfa= 'rst!mogl= 'rst!data_eldfa = rst!data_eldfa1 = DateAdd("m", i, Me.d1) rst!data_eldfa2 = DateAdd("m", i + 1, Me.d1) 'rst!byen = rst.Update Next i MsgBox "Done" جعفر 89.db1.mdb.zip

اي والله ، الحمدلله على السلامه أخي رضوان جعفر