cocacola7

شكرا لك اخي ازهر 🙂🙂🙂 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

شكر لك اخي د. كاف يار اريد منك تعديل بسيط وهو عند اختيار ظهور الرسالة وقام المستخدم باختيار لا فانه لايحدث شيء والمؤشر يعود في التركيز على مربع النص

السلام عليكم ورحمة الله وبركاته لدي الكود التالي : numberfield = Me.fash Dim A A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية" Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End Sub وظيفة الكود هي التاكد من عدم وجود القيمة المدخلة في الحقل , فاذا كانت موجودة فانه يعرض رسالة تاكد انه تم تسجيل هذه القيمة من قبل ويعرض لك السجل الخاص بها. ما اريده هو عند وجود قيمة معينة مسجلة من قبل ان يعرض لي رسالة فيها زر موافق او الغاء الامر بحيث عند الضغط على زر موافق الموجود في الرسالة يعرض السجل وعند الضغط على زر الغاء الامر لا يتم عرض بيانات السجل ويتيح للمستخدم اكمال بياناته. شكرا لكم مقدما اعتذر منكم الكود في الرسالة السابقة لم يتم تنسيقه بشكل صحيح بسبب اللغة في الرسالة هذا هو الكود الذي لدي numberfield = Me.fash Dim A A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية" Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End Sub

شكرا لك اخي حسين . وفقك الله , هذا هو المطلوب

السلام عليكم اتمنا لكم جميعا موفور الصحة والعافية عندي نموذج حتوي على مربع نص باسم(Remark ) اريد عند الطباعة ان يتم طباعة التقرير متظمنا مربع النص هذا في حالة ان يكون بداخله ممتلى وليس فارغ . بمعنى اخر عند وجود كتابة في النموذج في مربع النص ( Remark ) يتم طباعة التقرير وفيه كل الحقول وعندما يكون مربع النص المذكور ( Remark ) فارغا يتم طباعة التقرير بدون مبرع النص هذا ( Remark ). وتقبلوا خالص تحياتي وتقديري اخيكم محمد اليافعي مرفق لكم نموذج NEW FROM NUM (2).rar

شكرا لك من كل اعماق قلبي . انت مبدع , ونفسي اجلس معك لنستفيد منك . وفقك الله واتمنا لك مزيدا من التقدم والتطور.......

مرحبا استاذ محمد عبدالله شكرا لك على سرعة الرد وحل المشكلة , لكن المرفق لم يفتح معي

لسلام عليكم ورحمة الله وبركاته كيفم اخواني جميعا اتمنا ان تكون في صحة جيدة . اريد على المثال السابق ان يكون هناك حقل نصف لكتابة ملاحظة معينة في الصفحة الاولى من التقرير فقط . فهل ممكن ذلك ؟ وكيف ؟ طبعا حقل الملاحظات موجود في النموذج وعند الطباعة اريدة ان يكون مكتوب في النسخة الاولى فقط. شكرا لكم مقدما . NEW FROM NUM.accdb

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

فعلا خبير وتستاهل اكثر من ذلك الاسم , وفقك الله وشكرا لك مرة اخرى

فعلا هو المطلوب , اشكرك كثيرا وربنا ينفع بعلمك الجميع ويجزيك الخير ممكن تشرح لي ماهي الطريقة التي استخدمتها ؟

اشكرك اخي الاستاذ اشرف الطباعة للسجل الحالي تمام ولكن باقي ان يكون مكتوب على النسخة الاولى 1 من كذا والثانية 2 من كذا وهكذا استنادا على عد الطرود .

السلام عليكم اعتقد انني لم استطع ايصال الفكرة لكم بالشكل الصحيح, لذا فقد عدلت على المرفق بحيث يكون واضح للجميع . وفقكم الله واسعدكم , واتمنا من سعادتكم حل هذه المشكلة التي لدي. لكي تفهموا اكثر افتحوا المرفق وبإذن الله سوف تفهوا المطلوب. NEW FROM NUM.accdb

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