jjafferr

والله ما فهت !!

اخي الفاضل انت كنت تتكلم عن ولكنك ارفت

وعليكم السلام ارسلت قيمة ID_Sanf من النموذج الفرعي frm_mr الى حقل جديد "ID_Sanf" في النموذج frmEdrajSenfm ، وبعدين اضفته في كود انزالك البيانات الى النموذج الفرعي frmSub_Recall_sales جعفر 822.اداج اسم الصنف .mdb.zip

الحمدلله

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

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

اخي كريمو انا توصلت الى كيفية جعل كل رقم في صفحة مستقلة (لأني اعتقد بأنه الطريق الصحيح) ، ولكني لم اصل الى الحل بعد جعفر 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 جعفر

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