jjafferr

مافي مشكلة ، طيب اخبرينا كيف تريدينا نشتغل على برنامجك المرفق؟ اعطينا مثال لوسمحتي جعفر

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

وعليكم السلام أختي عندي اسئلة ومحتاجة توضيحات لوسمحتي: في الجدول T2 ، عندك سجل واحد فقط لكل موظف لكل شهر ، فالطريقة التي اوضحتيها في الصورة غير صحيحة ، لأنك تجمعين 3 اشهر !! جعفر

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

وعليكم السلام استاذنا الفاضل ، اتمنى ان تستخدم هذه النسخة كنسخة اصلية لبرنامجك ، فقد عدلت لك اسماء الكائنات من جدول و نموذج وتقرير واستعلام ، بمسميات البرمجة الصحيحة ، مما يجعله من السهل التعامل مع برنامجك ، لك ولنا اما طلبك ، فلم يكن سهلا بطريقة برنامجك القديم ، اما بهذه الطريقة فاصبح في غاية السهولة ، والكود الذي تريده اصبح: Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.Tsum = Me.srpt_person!sumpage_raseedafter End Sub جعفر 701.الاجازات - Copy.accdb.zip

آسف على الخطأ يجب ان نغيّر الشرطة الواحدة ' الى شرطتين " Account_Pending_Days: IIf(Len([Payment_Date] & "")=0;Date()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) المعادلة Len([Payment_Date] & "")=0 تعمل مكان 3 معادلات: isNull([Payment_Date]) و [Payment_Date] = "" و اذا كان في معلومة في الحقل وتم حذفها يعني جرب التالي وبتشوف ان معادلتك ما تعطي نتائج صحيحة: 1. جرب اي معيار لأي حقل (يعني شغّل الاستعلام بطريقة عادية) وشوف عدد السجلات ، 2. اكتب شيء في حقل Payment_Date ، انتقل الى سجل آخر ، ثم شغّل الاستعلام مرة ثانية ، ستلاحظ ان عدد السجلات اصبح اقل بسجل واحد ، السجل الذي كتبت فيه وحذفت بياناته جعفر

وعليكم السلام اهلا وسهلا بك في المنتدى سؤالك غير مفهوم ، رجاء اعطاء مثال لوسمحت. جعفر

رجاء تفسير "لا يقبله الاستعلام"

وعليكم السلام انا عملت حسب طلبك ، ولكن الظاهر كان في اشياء اخرى انت لم تخبرنا عنها ، وانا لم انتبه لها 1. احذف زر الحفظ ، لأن النموذج الرئيسي يأخذ بياناته من الجدول ، 2. استعمل الكود التالي بدلا عن السابق Dim rst As DAO.Recordset Set rst = Me.Parent.RecordsetClone rst.FindFirst "[التسلسل]=" & Me.التسلسل Me.Parent.Bookmark = rst.Bookmark 'او Me.Parent.RecordsetClone.FindFirst "[التسلسل]=" & Me.التسلسل Me.Parent.Bookmark = Me.Parent.RecordsetClone.Bookmark 3. التعديل يتم حفظه مباشرة في الجدول ، وبدون زر الحفظ جعفر

وعليكم السلام واهلا وسهلا بك في المنتدى تفضل: Account_Pending_Days: IIf(Len([Payment_Date] & '')=0;Time()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) ولكني اعتقد بانه يجب عليك استخدام Date() بدلا عن Time() ليصبح الكود Account_Pending_Days: IIf(Len([Payment_Date] & '')=0;Date()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) جعفر

وعليكم السلام نعم ممكن: في تصميم التقرير ، في اعدادات الصفحة: . وللعلم ، فإن هوامش الطابعة سوف تضاف الى العرض ايضا ، ولا يمكن عمل هوامش الطابعة = صفر (إلا في الطابعات الافتراضية) ، وبعد عمل جميع الاعدادات وضبط عرض التقرير ، وللتأكد ان عرض التقرير سيُطبع على حجم الورقة التي تم اختيارها ، انظر الى اسم التقرير الموجود في اعلى يسار التقرير (البضاعة في مثالنا اعلاه) ، انظر تحته ، فإذا رأيت مثلث اخضر صغير ، فمعناه ان عرض التقرير اكبر من عرض الورقة وعادة عملنا يفرض علينا طباعة تقارير باحجام اوراق مختلفة ، والطابعات هذه الايام تأتي بعدة ادراج لمختلف احجام الورق ، فيمكنك بالطريقة التالية عمل اعدادات الطابعة لطباعة هذا التقرير بحجم A5 وعلى ورق A5 من الرج رقم 2 من الطابعة HP8500 مثلا: . جعفر

السلام عليكم الطريقة الصحيحة للبرمجة: 1. حقل الرقم التلقائي ، هو فهرسة لسرعة جلب بيانات الجدول للبرنامج ، يعني هذا الحقل يجب ان لا يعتمد عليه المبرمج وانما هو للبرنامج (نعم تستطيع استعماله متى ما شئت بالوضع الذي هو عليه) ، 2. حقل التسلسل ، وهو الحقل الذي يعمله البرنامج حسب حاجته فالآن انت خلطت بين الاثنين والحل ان تترك هذا الحقل مثل ماهو ، ولا تهتم بارقامه ، واعمل حقل جديد تعتمد عليه لبرنامجك جعفر

وعليكم السلام يجب عليك تغيير اسم المسار والمجلد ، الى مسار ومجلد موجود عندك في الجهاز ، هذه الرسالة تقول بأنك تريد حفظ الملف في مسار/مجلد غير موجود ، والمسار حسب الكود هو: c:\temp جعفر

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

وعليكم السلام 1. انا غيّرت الحقل "رقم السند" الى نص ، 2. هذه الوحدة النمطية تقوم بعمل الترقيم Function Next_Seq(T As String) As String 'T = Type نوع السند 'A = سند ايردات 'M = سند مصروفات 'S = سند سداد 'G = سند قبض myGroup = "A = سند ايردات" & vbCrLf & _ "M = سند مصروفات" & vbCrLf & _ "S = سند سداد" & vbCrLf & _ "G = سند قبض" If Len(T & "") = 0 Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup Exit Function ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup Exit Function Else Next_Seq = Nz(DMax("Mid([رقم السند], 2)", "السندات", "Mid([رقم السند], 1, 1) = '" & T & "'"), 0) Next_Seq = T & Format(Next_Seq + 1, "00000") End If End Function وكلما اردت ان تحصل على رقم جديد في نموذجك ، اكتب هذا الكود: تذكر 'A = سند ايردات 'M = سند مصروفات 'S = سند سداد 'G = سند قبض me.[رقم السند]= Next_Seq("A") جعفر 698.3333.mdb.zip

1. ابدأ بعتاب ، المادة رقم 2 2. تأكد انك لم تختار الارقام العشوائية من اعدادات الحقل في الجدول ، فالصورة تعطيك الاعداد الصحيح: 3. هذه الارقام غير عشوائية ، وانما انت لم تعمل فرز بهذا الحقل ، فاعمل الفرز ، واعمل رقمين التاليين ، وستلاحظ انها ليست عشوائية اما اذا كانت هناك مجموعة كبيرة من الارقام غير موجودة ، والرقم التالي يكون كبير ، فاحذف الرقم الكبير ، واعمل كما قال أخونا ابو عبدالله اعلاه جعفر

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

الطريقة الصحيحة لأكثر من معيار: Private Sub cmd_Print_Click() Criti = "[رقم الفاتورة]=" & Me.[رقم الفاتورة] Criti = Criti & " And [اسم العميل]='" & Me.[اسم العميل] & "'" DoCmd.OpenReport "فاتورة مبيعات", , , Criti End Sub Private Sub cmd_Print_Preview_Click() Criti = "[رقم الفاتورة]=" & Me.[رقم الفاتورة] Criti = Criti & " And [اسم العميل]='" & Me.[اسم العميل] & "'" DoCmd.OpenReport "فاتورة مبيعات", acViewPreview, , Criti End Sub جعفر

تفضل هذا الكود: . جعفر 696.المستخدمين.accdb.zip

وعليكم السلام قد يفيدك هذا الرابط جعفر

السلام عليكم اخي سلمان انا قبل ان اعمل تعديل على النموذج ، آخذ نسخة منه ، وبسبب عدم التوضيح مني ، انت تستخدم النموذج النسخة من ن_ادخال_العروض !! رجاء استخدام النموذج ن_ادخال_العروض ، لتحصل على: جعفر

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

انا اعتذر منك ، لم اجرب الكود قبل ان اضعه لك واليك التغيير ، بعد التجربة: Dim rst As DAO.Recordset Dim C 'As Integer Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst rst.MoveNext C = rst!VisitNo rst.MovePrevious rst.Edit If C <> "NA" Then rst!VisitNo = C + 1 End If rst.Update rst.Close: Set rst = Nothing Me.frm_WORKSCOPE.Requery جعفر

بالنسبة الى الخطأ ، اعملي هذا التغيير على السطر rst!VisitNo = IIf(IsNumeric(C), C + 1, "") والآن عندك كودين يشتغلون ، وانتي اختاري الكود اللي يريحك جعفر

بالنسبة للتغيير اللي انتي عملتيه ، استخدمي التعديل التالي ، وراح يشتغل الكود Dim rst As DAO.Recordset Dim RC 'As Integer Dim C 'As Integer Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount rst.MoveNext C = rst!VisitNo rst.MovePrevious If C = "NA" Then Else ' If IsNull(Form_frm_WORKSCOPE.VisitNo) Or Form_frm_WORKSCOPE.VisitNo = "" Then rst.Edit rst!VisitNo = C + 1 rst.Update Me.frm_WORKSCOPE.Requery 'End If End If rst.Close: Set rst = Nothing جعفر