الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]المساعدة في تصحيح كود

بدأه Abo Amjad في 30 أغسطس 2008 · 7 رد · 718 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الإخوة اكرام

أرجو إرشادي إلى الخطأ في الكود التالي ولكم جزيل الشكر المطلوب : فتح "Report1" في حال أن الحقل [C_Name] يحتوي على "COM" ، وفي حال أن هذا الحقل لا يحتوي على "COM" فيجب فتح "Report2" حيث أن كل تقرير مرتبط باستعلام مختلف كمصدر للسجلات.

Private Sub PrntCrtfct_Click()

Dim C_Name As String

Dim stDocName As String

If [C_Name] <> "*" & "COM" & "*" Then

stDocName = "Report1"

stLinkCriteria = "[ID_Co]=" & Me![ID_Co]

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Else

If [C_Name] = "*" & "COM" & "*" Then

stDocName = "Report2"

stLinkCriteria = "[ID_Co]=" & Me![ID_Co]

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

End If

End If

End Sub

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

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 30 أغسطس 2008 في 22:15 — السبب: وضع الكود بالشكل المقروء

#2

ارفق ملف ليتم عمل التعديل اللازم عليه ومساعدتك باذن الله

اقتباس
[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.

اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.

اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.

اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب

[/وسط]

545050692.gif

#3

أخي الكريم

ليس بإمكاني إرفاق مثال قاعدة البيانات لكِبر حجمها أولاً وخصوصيتها ثانياً. على كلٍ المطلوب هو واضح أي إلغاء إجراء فتح التقرير الأول في حال لم يتحقق الشرط وفتح التقرير الثاني، أرجو أن تكون الأمور واضحة.

#4

اخي الكريم ابو أمجد

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

تفضل هذا هو الكود الصحيح لحل المشكلة

لمعاينة التقرير ( اذا كان حقل C_NAME يحتوي على عبارة COM سيتم فتح التقرير Report1 واذا كان حقل C_NAME لا يحتوي على عبارة COM سيتم فتح التقرير Report2 )

Private Sub ViewCrtfct_Click()
If Me![C_NAME] = "COM" Then
DoCmd.OpenReport "Report1", acViewPreview
Else
DoCmd.OpenReport "Report2", acViewPreview
End If
End Sub

اما للطباعة فهذا هو الكود

Private Sub PrntCrtfct_Click()
If Me![C_NAME] = "COM" Then
DoCmd.OpenReport "Report1", acViewNormal
Else
DoCmd.OpenReport "Report2", acViewNormal
End If
End Sub

وهذا مثال على هذه العملية

Abo_Amjad.rar

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

الأخت الفاضلة زهرة

جزاكِ الله كل خير وتقبل الله طاعتكم

المشكلة عندي أني أريد طباعة التقرير الأول في حال أن الحقل [C_Name] يحتوي على com وممكن أن يكون قبلها وبعدها أحرف أي ليس هذه الحروف الثلاثة فقط ، وعند استخدام العلامة النجمية و" &" لا أحصل على نتيجة صحيحة كما أنني لا أريد طباعة كل السجلات التي تحتوي على com فقط السجل المفتوح كما في الكود الذي وضعته في سؤالي أي : stLinkCriteria = "[iD_Co]=" & Me![iD_Co]

على كل ِ لقد جربت الكود الذي أرسلتيه مع إضافة المعيار المذكور وحصلت على نتيجة صحيحة في حال أن الحقل [C_Name] يحتوي على com فقط فكيف أجعله يعطي نفس النتيجة في حال أن الحقل يحتوي على إضافات أخرى وآسف للإطالة ولكم جزيل الشكر

#6

معذرة اخي الكريم لم انتبه للمطلوب بشكل صحيح

تفضل الكود والمثال بعد التعديل

لمعاينة التقرير

Private Sub ViewCrtfct_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[C_Name]=" & "'" & Me![C_NAME] & "'"
If Me![C_NAME] Like "*COM*" Then
DoCmd.OpenReport "Report1", acViewPreview, , stLinkCriteria
Else
DoCmd.OpenReport "Report2", acViewPreview, , stLinkCriteria
End If
End Sub

سيتم معاينة السجل الحالي المحتوي على كلمة COM سواء في بداية الكلمة او في وسطها او في نهايتها وسيتم فتح التقرير الأول

اما اذا كان الحقل لا يحتوي على كلمة COM فسيتم فتح التقرير الثاني

لطباعة التقرير

Private Sub PrntCrtfct_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[C_Name]=" & "'" & Me![C_NAME] & "'"
If Me![C_NAME] Like "*COM*" Then
DoCmd.OpenReport "Report1", acViewNormal, , stLinkCriteria
Else
DoCmd.OpenReport "Report2", acViewNormal, , stLinkCriteria
End If
End Sub

Abo_Amjad_UP.rar

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#7

أختي الكريمة زهرة جزاكِ الله خيراً ونفع الله بكِ الإسلام والمسلمين، وكل الشكر للقائمين على هذا المنتدى المبارك، وإني لأتمنى أن استطيع المشاركة في تقديم أي عمل ينفع الناس غير أني لا أعلم شيئاً مقارنةٍ بالأخوة المشرفين جزاهم الله خيراً.

#8

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…