jjafferr

السلام عليكم كود اخي ابو خليل شغّال تمام ، بشرط ان تكون اعدادات النموذج تسمح بإصطياد ازرار الكيبورد قبل الذهاب الى الكود ، هكذا: . جعفر

شكرا أخوي أبو خليل

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

وعليكم السلام وبدلا عن أخوي أبو خليل ، تفضل: الوحدة النمطية: Option Compare Database Option Explicit 'رمهان 'اوفيسنا Public Function fn(fld) Dim y As String Dim i As Integer Dim xx As String y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ()><.؟}{][1234567890:,/" For i = 1 To Len(fld) If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1) Next i fn = xx End Function . وهذا كود النقر على الزر Private Sub Command2_Click() Me.Text5 = fn(Me.Text3) End Sub . والنتيجة . جعفر 821.delete char.accdb.zip

السلام عليكم اخوي ابو خليل توقيعي في آخر كل مشاركة هي: وقد اعجبتني عبارتك لدقّة معانيها ، فإذا تسمح لي بإستعمالها ودمجها في توقيعي ليصبح: جعفر

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

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

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

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

وعليكم السلام بالنسبة لحقل نعم/لا ، نعم = -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 يأخذ قيمه واحدة فقط ، واذا اردته ان يأخذ اكثر من قيمة ، فالافضل لك ان تلغي هذه الفكرة وتستخدم النموذج الفرعي للتعديل ، ففيه جميع البيانات!! جعفر

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