jjafferr

وعليكم السلام عذرا اخي طاهر ، انا فهمي ضعيف بدون مثال!! جعفر

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

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

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

وعليكم السلام بالنسبة لحقل نعم/لا ، نعم = -1 لا = صفر فانت محتاج الى Me![txt1] = 0 جعفر

اخوي وضاح وأبو ياسين (كونكم فريق واحد) اكتب رقم الفاتورة في النموذج الرئيسي ، ثم افتح النموذج frmEdrajSenfrm ، وادخل رقم الصنف ، وستأتيك بياناته ، وعند التعديل والضغط على زر "ادراج" ، سيقوم الكود بتغيير الكمية والسعر فقط (واذا اردت المجموع والصافي ، فرجاء تكملته) . جعفر 818.المرتجع.mdb.zip

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

وعليكم السلام اعملي المقارنة عن طريق الامر Format ، هكذا A: iif(Format(Date(),"ddmmyyyy")=Format(myField,"ddmmyyyy");"OK";"Not ok") . كل انواع التواريخ اللي تشوفيها في الكمبيوترات ، هي عبارة عن تنسيق ، ولكن يظل الاكسس يحتفظ بالتاريخ بالتنسيق الامريكي: mm/dd/yyyy جعفر

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

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

أخي ابو ياسين هذه مرحلة تالية ، المرحلة التي نحن فيها الآن هي (رجاء تجرب مرفق مشاركتي الاولى): ادخل الفاتورة رقم 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 تقارير) ، ويمكنك استخدام الصفحة بالعرض ، حسب احتياجك: . ثم في اعدادات الصفحة . والنتيجة . جعفر