طاهر اوفيسنا قام بنشر بالامس في 14:43 قام بنشر بالامس في 14:43 السلام عليكم اساتذتي الكرام مشكلتي وقعت عندما وحدت التقرير face5 عند الدخول بواسطة الزوجة يظهر اسمها ولقبها (حرم)او(ارملة) الشرط واضح اذ كان CheckBox=-1 حرم واذا كان يساوي 0 ارملة هنا المعاينة تمام ولكن المشكلة عند الدخول بواسطة الزوج او الابن تظهر حرم او ارملة فكيف يتم التعديل حتى لاتظهر عند هاذين الاخرين وشكرامشكلة التقرير الموحد.rar
ابوخليل قام بنشر بالامس في 16:13 قام بنشر بالامس في 16:13 عليكم السلام عملت لك متغير للتفريق بين الزوجة من جهة اذا قيمة المتغير = 0 وبين الزوج والابناء من جهة اخرى اذا قيمة المتغير = 1 هذا المتغير يتم اعطاؤه القيمة في نموذج A1 عند الاختيار وعملت لك كود في محرر التقرير لاختيار القيم حسب الرغبة بناء على المتغير .. طبعا الكود بسيط يمكنك التعديل حسب حاجتك .. وعلى حقول اخرى ايضا If testTypeGender = 1 Then text1 = [Prenom1] Else text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] End If مشكلة التقرير الموحد2.rar
طاهر اوفيسنا قام بنشر منذ 21 ساعات الكاتب قام بنشر منذ 21 ساعات 4 ساعات مضت, ابوخليل said: عملت لك متغير للتفريق بين الزوجة من جهة اذا قيمة المتغير = 0 4 ساعات مضت, ابوخليل said: وبين الزوج والابناء من جهة اخرى اذا قيمة المتغير = 1 هذا المتغير الذي تم وضعه استاذ ' الزوجة If F1 = -1 Then testTypeGender = 0 ' الزوج ElseIf Y1 = -1 Then testTypeGender = 1 ' الابناء الاكبر من 18 سنة ElseIf T1 = -1 Then testTypeGender = 1 وفي التقرير If testTypeGender = 1 Then text1 = [Prenom] & " " & [Nom] Else text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] End If صراحة طبقت كل هذا في النموذج الاصلي ولكن وجدت مشكلة عند الزوج ظهر التقرير مثلا " الطاهر بن عتوس 1 حرم "
Foksh قام بنشر منذ 21 ساعات قام بنشر منذ 21 ساعات أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي = Public testTypeGender As Byte
طاهر اوفيسنا قام بنشر منذ 21 ساعات الكاتب قام بنشر منذ 21 ساعات 27 دقائق مضت, Foksh said: أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي = Public testTypeGender As Byte نعم تم الحجز استاذي ولكن بدون نتيجة صحيحة علما اني نسخت الفورم A1 والتقرير Face5 في ملفي وبقيت النتيجة على حالها علما ان تعديل الاستاذ ابوخليل على المرفق صحيح 100% مانعرف اين يكمن المشكل
Foksh قام بنشر منذ 21 ساعات قام بنشر منذ 21 ساعات 8 دقائق مضت, طاهر اوفيسنا said: مانعرف اين يكمن المشكل لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل
طاهر اوفيسنا قام بنشر منذ 21 ساعات الكاتب قام بنشر منذ 21 ساعات 7 دقائق مضت, Foksh said: لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله
Foksh قام بنشر منذ 20 ساعات قام بنشر منذ 20 ساعات (معدل) 52 دقائق مضت, طاهر اوفيسنا said: الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله بعد التدقيق في فكرة أستاذي ومعلمي @ابوخليل ، تبين لي ان المتغير لا يتم حجزه بشكل مناسب قبل فتح التقرير ، وهنا خطر لي تعديل بسيط بحيث نعتمد على قيمة CheckBox في النموذج A1 والذي هو مفتاح الربط في فكرتي ، بحيث اذا كان فارغاً يتم تعديل القيمة كما فعل أستاذي في فكرته ، وإلا فيتم عرض النص الأصلي ( بين عرض اسم الزوج أو الزوجة ) جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :- Private Sub Report_Load() Me.Rep1.Value = Rept1 Me.Rep2.Value = Rept2 'المعلومات الشخصية Me.Nom.Value = TempVars("Nom") Me.Prenom.Value = TempVars("Prenom") Me.Date_Naiss.Value = TempVars("Date_Naiss") Me.Lieu_Naiss.Value = TempVars("Lieu_Naiss") Me.Nom_Per.Value = TempVars("Nom_Per") Me.Nom_Mer.Value = TempVars("Nom_Mer") Me.CheckBox.Value = TempVars("CheckBox") Me.Prenom1.Value = TempVars("Prenom1") Me.ep = IIf(([CheckBox]) = 0, "أرملة", "حرم") 'الشاهد الاول Me.C1.Value = TempVars("C1") Me.N1.Value = TempVars("N1") Me.d1.Value = TempVars("D1") Me.L1.Value = TempVars("L1") 'الشاهد الثاني Me.C2.Value = TempVars("C2") Me.N2.Value = TempVars("N2") Me.D2.Value = TempVars("D2") Me.L2.Value = TempVars("L2") ''السكن وبلدية الاقامة Me.N4.Value = TempVars("N4") Me.N5.Value = TempVars("N5") If Not IsNull(Forms!a1!CheckBox) Or (Forms!a1!CheckBox) <> "" Then text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] Else text1 = [Prenom] End If End Sub تم تعديل منذ 20 ساعات بواسطه Foksh تعديل الجملة الشرطية بشكل صحيح 1
طاهر اوفيسنا قام بنشر منذ 13 ساعات الكاتب قام بنشر منذ 13 ساعات 6 ساعات مضت, Foksh said: جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :- شكرا استاذي على التعديل الجميل اي تم الاستغناء عن 0 & 1=testTypeGender
ابوخليل قام بنشر منذ 12 ساعات قام بنشر منذ 12 ساعات 1 ساعه مضت, طاهر اوفيسنا said: شكرا استاذي على التعديل الجميل اي تم الاستغناء عن 0 & 1=testTypeGender الحمد لله على انقضاء الحاجة فائدة : يمكن توظيف المتغير هذا .. بحيث يمكن تضمينه قيمة نصية صريحة 1
طاهر اوفيسنا قام بنشر منذ 8 ساعات الكاتب قام بنشر منذ 8 ساعات اساتذي الفضلاء ممكن على نفس المرفق والفورم A1 عند النقر على اسم الزوجة يظهر الميساج "هذه الزوجة متوفية" وكذا الزوج علما ان الكود موجود ولكن عند التنفيذ يتجاهله
Foksh قام بنشر منذ 8 ساعات قام بنشر منذ 8 ساعات أخي طاهر , هل هذا الطلب نفس المشكلة السابقة ؟؟؟؟؟؟؟؟؟؟؟ من الواضح أنه لا ، ليس له صلة وعلاقة بالمشكلة الأولى . انصحك بفتح موضوع جديد كي لا يكون في نفس الموضوع أكثر من مشكلة ولن يستدل أحد على المشاكل من خلال العنوان . على الرغم من أنه عند اختيار "مبروكه منيح11" ، لم تظهر لي الرسالة ان "هذه الزوجة متوفية" . شكراً لك سعة صدرك
طاهر اوفيسنا قام بنشر منذ 7 ساعات الكاتب قام بنشر منذ 7 ساعات 32 دقائق مضت, Foksh said: شكراً لك سعة صدرك ياريت معالجة امر الكود استاذ ولو في الخاص وشكرا لك 1
Foksh قام بنشر منذ 7 ساعات قام بنشر منذ 7 ساعات 6 دقائق مضت, طاهر اوفيسنا said: ياريت معالجة امر الكود استاذ ولو في الخاص وشكرا لك لماذا في الخاص أخي طاهر ,, المنتدى قائم على الفائدة العامة وللجميع ، أم هل هو صعب عليك أن تقوم بفتح موضوع جديد !!
طاهر اوفيسنا قام بنشر منذ 7 ساعات الكاتب قام بنشر منذ 7 ساعات (معدل) 24 دقائق مضت, Foksh said: المنتدى قائم على الفائدة العامة وللجميع ، أم هل هو صعب عليك أن تقوم بفتح موضوع جديد !! لا ليست القضية في فتح موضوع جديد ولكن نحسها أمور بسيطة تحتاج إلى تعديل طفيف لايحتاج موضوع جديد ولك واسع النظر تم تعديل منذ 7 ساعات بواسطه طاهر اوفيسنا
Foksh قام بنشر منذ 6 ساعات قام بنشر منذ 6 ساعات أخي طاهر ، الواضح من خلال الكود انك تعتمد على مربع النص IDM كشرط للحصول على رقم الهامش للزوجة ، ولكن!! مربع النص IDM عند الكود التالي :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" تكون قيمته = تاريخ ميلاد الزوجة ، وهنا لا تتم المقارنة بالشرط بشكل صحيح . لذا ، انشئ مربع نص جديد على سبيل المثال Tx_IDM ، واجعل قيمته = رقم الزوجة Me.Tx_IDM = [Forms]![Search_Frm]![IDM] ثم عدل الجزء السابق ليصبح :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.Tx_IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" وعليه سيظهر لك مسج انه هذه الزوجة متوفية ، ونفس الشيء عند الزوج في مربع النص IDP ، هو شرط لجلب قيمة الهامش ، ولكن قيمته = تاريخ ميلاد الزوج قمت بذكر المشكلة وتركت الحل لك لتتبين لك الأمور بشكل واضح .
ابوخليل قام بنشر منذ 6 ساعات قام بنشر منذ 6 ساعات مشاركة مع احبتي الكود صحيح والمشكلة في ترتيب الاعمدة في استعلام حقل (3)SearchListZ العمود الثالث ولكن عمود الهامش في آخر الاستعلام ربما هو العاشر فقط اسحب العمود في الاستعلام ليكون ترتيبه بعد عمود : الأب .. (الرابع نظريا والثالث بحسابات أكسس) العمود الاول عند اكسس=صفر انتبه : الرسالة لن تظهر الا في آخر اجراء قبل فتح التقرير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.