jjafferr

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

أخي ابو ياسين هذه مرحلة تالية ، المرحلة التي نحن فيها الآن هي (رجاء تجرب مرفق مشاركتي الاولى): ادخل الفاتورة رقم 1 في الحقل n3 في النموذج الرئيسي ، ستجد ان النموذج frmEdrajSenfrm يأخذ اول صنف من النموذج الفرعي frm_mr ، هل هذا المطلوب؟ ماذا اذا كان المطلوب تعديل الصنفين من الفاتورة رقم 1 ؟ جعفر

تفضل جرب المرفق ولو اني طلبت منك معادلة متوسط الوقت ، ولم تعطنيه انا استعملت هذا الكود Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'a = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60) Total_Miutes = DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Total_Time = H & ":" & M Count_Miutes = DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") Total_Miutes = Total_Miutes / Count_Miutes H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Avg_Time = H & ":" & M End Sub جعفر 816.حساب1.accdb.zip

اخي وضاح 2. يجب ان تخبرنا كيف استعمال هذا المرفق ، وكيف نعرف بياناته = وووو ، ولكن اتضح لي ان النموذج frmEdrajSenfrm هو نفسه كالذي في مرفقك السابق. 1. انا اخبرتك سابقا أ. فالنموذج صالح لإدخال سجل واحد فقط (صنف واحد فقط من الفاتورة) (وقد اعطيتك الجواب في مشاركتي اعلاه https://www.officena.net/ib/topic/81068-جلب-القيم-لنموذج-الاضافه-من-نموذج-فرعي-بداخل-الريسيي/?do=findComment&comment=517512) ، فإذا اردت ادخال اكثر من صنف من الفاتورة ، فهذا النموذج لا يصلح ، فالنموذج يجب ان تكون فيه خاصية اخذ اكثر من سجل ، وبما اننا لا نعرف عدد الاصناف المرجعة ، لذلك يجب ان يكون هذا النموذج "مستمر" او "جدولي" ، ب. واذا اردنا تغيير هذا النموذج (frmEdrajSenfrm) الى نموذج مستمر او جدولي ، فليش تقوم بالعمل مرتين ، انت عندك النموذج الفرعي frm_mr ، فتستطيع ان تعمل له تصفية حسب رقم الفاتورة ، وتظهر لك جميع الاصناف ، والمستخدم يغيّر من هناك. الآن ، يجب ان تأخذ وقتك وتفكر في الموضوع جيدا ، قبل ان تضيف اي تعليق جديد جعفر

وعليكم السلام هل قصدك تنسيق التاريخ؟ جعفر

شكرا اخي مرشد على هذا الاطراء جعفر

تفضل النموذج "D'elimination" ومصدر بياناته الجدول "BORDEREAU D’ELIMINATION D’ARCHIVES" مليئين بحروف non-unicode ، وحسب لغة هذه الحروف ، تحتاج اعدادات وندوز خاصة بها ، وكذلك اسم احد الحقول في الجدول غلط (والذي ينتهي بنقطتين : ). عندك حلين: 1. ان تغير اعدادات الوندوز عندك الى الفرنسية (المادة رقم 4) : . 2. او مثل ما عملت لك انا ، وهو تغيير جميع حروف (اسماء الحقول ، وليس تسميتها) الى الانجليزية ، كما هو الحال مع النموذج "De versement" ومصدر بياناته "BORDEREAU DE VERSEMENT DARCHIVES". جعفر 819.zip

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

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

وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج frmEdrajSenfrm Private Sub Form_Load() On Error GoTo err_Form_Load Me.cmd_Search2.Enabled = False 'هذه قيمة الفاتورة من النموذج الرئيسي A = Forms!frm_Recall_sales!n3 Dim rst As DAO.Recordset 'نأخذ بيانات النموذج الفرعي في الذاكرة Set rst = Forms!frm_Recall_sales!frm_mr.Form.RecordsetClone 'نذهب لآخر سجل ، ثم نرجع لأول سجل ، حتى تكون السجلات جميعا في الذاكرة rst.MoveLast: rst.MoveFirst 'عدد السجلات RC = rst.RecordCount 'اذا لا توجد سجلات ، اخرج من الكود If RC = 0 Then GoTo Exit_Form_Load 'نطوف بجميع سجلات النموذج الفرعي For i = 1 To RC 'اذا كان الجزء الايمن من فاتورة النموذج الفرعي تساوي رقم الفتورة في النموذج الرئيسي If Right(rst!Rjmfatwra, Len(A)) = Val(A) Then 'انقل البيانات Me.Rjmfatwra = rst!Rjmfatwra Me.Rajmsanf = rst!Rajmsanf 'النموذج الفرعي لا يحتوي على اسم الصنف ، وانما رقم الصنف فقط 'لذا يجب ان نأخذ رقم الصنف لى جدول الاصناف ونستخرج من اسم الصنف Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]=" & rst!ID_Sanf) Me.Alkmiah = rst!Alkmiah Me.Price_Sales = rst!Price 'لا يوجد داعي لمراجعة بقية سجلات النموذج الفرعي ، فلنخرج من الكود GoTo Exit_Form_Load End If 'اذهب الى السجل التالي rst.MoveNext Next i Exit_Form_Load: 'لإزالت البيانات من الذاكرة المؤقتة rst.Close: Set rst = Nothing Exit Sub err_Form_Load: If Err.Number = 3021 Then 'No Records Resume Exit_Form_Load Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 818.المرتجع.mdb.zip

وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر

هل المشكلة في كمبيوتر واحد ، او لما تستعمل كمبيوتر آخر؟

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

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

عفوا انزلت البرنامج البارحة ولم افهم المطلوب!! يا ريت مثال لوسمحت جعفر

وانا عملت الاصلاح ، ولكن ما اصلح البرنامج جعفر

وعليكم السلام المشكلة هي وجود وحدة نمطية فيها عطب ، اخي مرشد تغلب عليها بطريقته ، ولكن ، ولكي نتأكد من إزالة المشكلة من جذورها ، فيجب ان تعمل قاعدة بيانات جديدة ، ثم تستورد لها جميع كائنات البرنامج السابق. جعفر New_DB.zip

هذا الرابط يشرح الطريقة بالصور جعفر

وعليكم السلام تفضل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text2.Visible = True Me.text2.SetFocus Me.text1.Visible = False End Sub Private Sub text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text1.Visible = True Me.text1.SetFocus Me.text2.Visible = False End Sub جعفر

لأن اسم الموضوع كان لا علاقة له بمضمون الموضوع ، فقمت بتعديله ، ودوختك

لا يوجد داعي لفتح موضوع جديد ، رجاء تكملة الموضوع هنا جعفر

اخي الشربيني ، هل جربت المرفق؟ جعفر

تفضل عملت لك اسم المسابقة بطريقتين ، فاختار اللي يناسبك . . جعفر 815.مثال.accdb.zip

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

حياك الله اخوي محمد جعفر