jjafferr

الله يرضى عليك يا سفيان ، لا تفتكر اني اعرف اللي انت تعرفه ، واعطني المعلومة كاملة !! ثم ان برنامجك بالفرنسي !!

السلام عليكم اخي سفيان انزلت مرفقك واشتغل عندي مباشرة ، رجاء تشوف الرابط الذي ارفقته لك في مشاركتي السابقة حول اعدادات الوندوز ، فالظاهر مشكلتك من هناك. جعفر

اخي كريمو انا توصلت الى كيفية جعل كل رقم في صفحة مستقلة (لأني اعتقد بأنه الطريق الصحيح) ، ولكني لم اصل الى الحل بعد جعفر 820.التقرير المقسم.mdb.zip

نعم يمكن ، ولكني في كودك لا انصح ابداً ، لأنك ما محتاج ان تقوم بهذا الشيء ، ثم انه يكون من المستحيل تعديل الكود لاحقا ، وانا هنا اضع كود "داخل مربع النص" للدعابة فقط Me.Total_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) Me.Avg_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) واعتذر عن رفع صوتي ، ولكني اردت ان اتأكد انه وصلك جعفر

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

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

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

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

وعليكم السلام وبدلا عن أخوي أبو خليل ، تفضل: الوحدة النمطية: 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 ، فتستطيع ان تعمل له تصفية حسب رقم الفاتورة ، وتظهر لك جميع الاصناف ، والمستخدم يغيّر من هناك. الآن ، يجب ان تأخذ وقتك وتفكر في الموضوع جيدا ، قبل ان تضيف اي تعليق جديد جعفر