ظهور ماكتب بالملاحظات لمجموعة فورمات بالتقرير VIREMENT_CCP

[كريمو2]

السلام عليكم إخواني

 

طلب مساعدة

بالفورمات التالية :FrmMenah و FrmCridi وFrmMossa3da و   غيرها  بها حقول

تسمى  ملاحظات (Obsérvation) مكتوب بها "معلومات مثلا "

أريد إظهارها في الإستعلام الموحد qryTransfer

 

ملاحظة : انظر مثلا الفورم FrmMenah وادخل على العامل 'عبد الله' لديه منحة '3000.00' وملاحظة مكتوب بها ' منحة ولادة '   

السؤال : لماذا مبلغ المنحة يظهر في الإستعلام الموحد والملاحظة لا تظهر ؟

الا يبدو ان هنا نقص في تركيبة الإستعلام !

 

على فكرة عملت تعديل بنفسي للإستعلام وكانت النتيجة الي عدلت من أجلها الملاحظة فارغة من المعلومات كما في الصورة 

(SELECT Company.ID , Company.[N_fournisseur] , Company.[Name COMPTE] , Company.[N° COMPTE] ,Company.[Obsérvation] ,  (SELECT SUM (Nz(mont20 , 0))  FROM Bill WHERE MONTH(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = MONTH (BillDate) AND  YEAR(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = YEAR (BillDate)AND Company.ID = Bill.CompanyID) AS Total , -1 AS TheType FROM Company)
 UNION (SELECT Employee.ID  ,[Nom et Prénom]  ,[Name COMPTE]  ,[N° COMPTE] ,[Obsérvation] ,  (SELECT SUM( [TheValue] )   From qryValues WHERE  MONTH(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = MONTH (TheDate) AND  YEAR(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = YEAR (TheDate) AND Employee.employeeID = qryValues.EmployeeID) AS Total , +1 AS TheType   From Employee);
 

 

20140707.rar

[ابوخليل]

اخي كريمو

الجداول المدمجة في الاستعلام  وهي  Employee  و Company   اساسا لا يوجد فيها ملاحظات 

حيث ان الملاحظات التي بينتها في الصورة موجودة في جداول اخرى 

[كريمو2]

اخي كريمو

الجداول المدمجة في الاستعلام  وهي  Employee  و Company   اساسا لا يوجد فيها ملاحظات 

حيث ان الملاحظات التي بينتها في الصورة موجودة في جداول اخرى 

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

نعم غير موجود في هذه ولكن موجود في جداول أخرى مثل جدول CRIDI و MENA7 وغيرهم 

ولكن هاذين الجدولين مربوطات بجداول اخرى

وهذا الإستعلام qryTransfer   الذي احبذ التعديل عليه هو مستقطب من الإستعلام الموحد qryvalues

[كريمو2]

تم التصحيح وتم الرفع من جديد

 

 20140716.rar

تم تعديل يوليو 16, 2014 بواسطه كريمو2

[ابوخليل]

اعتذر منك اخي كريمو فلم استطع الامساك باي حبل يوصلني الى مطلوبك

ضاعف الله لك الدرجات وكل سنة وانت طيب

[كريمو2]

اعتذر منك اخي كريمو فلم استطع الامساك باي حبل يوصلني الى مطلوبك

ضاعف الله لك الدرجات وكل سنة وانت طيب

اخي ابوخليل حياك الله

تقبل الله صيامكم وقيامك بمزيدا من الأجر والثواب

هاهو الحبل الذي يوصلك لمطلبي وهو :

ظهور ماهو موجود بالملاحظات لكل الفورمات في الإستعلام  qryTransfer

مثلا ندخل على الفورم FrmMenah نجد ان الموظف عبد الله لديه ملاحظات وهي 'منحة ولادة'

والموظف محمد لمين لديه ملاحظات مكتوب فيها 'منحة الزواج'  ........ وهكدا  

ثم ندخل على الفورم الثاني وهو FrmCridi نجد ان الموظف عبد الله لديه ملاحظات وهي 'قرض مالي '

المطلوب : ظهور الملاحظات بالإستعلام qryTransfer

كما في الصورة

 

 

اتمنى اني وفقت في طرح مشكلتي وفهمك لها اخي ابو خليل

[ابوخليل]

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

[كريمو2]

أخي  ابوخليل شكرا لك على النصيحة

لقد وفقت في ذالك بفضل الله وبعض الإخوة امثالك جزاكم الله كل خير

ولكن بقيت لديا مشكلة في تقريرين واردت أن ادمجهما في تقرير واحد 

وتم الدمج ولكن بقيت مشكلة التصفية حسب إسم الحساب

ياحبذا لو تعطيني فكرة على ذالك 

حسب الصورة 

 

دمج تقريرين17072014.rar

[ابوخليل]

تفضل تم التعديل 

آمل ان يوافق رغبتك

دمج تقريرين.rar

[كريمو2]

شكرا لك استاذ أبوخليل على المساعدة ولكن لم اعرف اين تم التعديل هذا من جهة 

ومن جهة أخرى لم تتم التصفية

يبدو  ان التقرير rpt_Transfer يفتح على تصفية إسم الحساب TRESOR فقط

اين تصفية الحسابات الأخرى 

والصورة توضح ماهو المطلوب

 

تم تعديل يوليو 18, 2014 بواسطه كريمو2

[ابوخليل]

كنت متوقعا مثل هذا الرد

تم التعديل

وضعت معيارا في الاستعلام مصدره حقل في النموذج

وهذا الحقل يأخذ بياناته من تسميات الازرار عتند النقر

دمج تقريرين2.rar

[كريمو2]

بورك فيك استاذنا

هو المطلوب

ولك الأجر إن شاء الله

اكمل تعبك معي شوية

عند فتح التقرير عند عدم وجود بيانات وضعت هذا الكود فلم أفلح

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo Report_NoData_Err
MsgBox " معذرة اخي الكريم .... لايوجد تحويلات مالية خلال هذا الشهر ", vbCritical, "تنبيه"
Cancel = True
Report_NoData_Exit:
Exit Sub
Report_NoData_Err:
MsgBox Err.Number & " - " & Err.Description
Resume Report_NoData_Exit
'If DCount("[]", "") = 0 Then
'End If

End Sub

[ابوخليل]

جرب الاقتصار على الرسالة فقط  ليصبح الكود هكذا

Private Sub Report_NoData(Cancel As Integer)MsgBox " معذرة اخي الكريم .... لايوجد تحويلات مالية خلال هذا الشهر ", vbCritical, "تنبيه"
Cancel = True
End Sub

[كريمو2]

 

جرب الاقتصار على الرسالة فقط  ليصبح الكود هكذا

Private Sub Report_NoData(Cancel As Integer)MsgBox " معذرة اخي الكريم .... لايوجد تحويلات مالية خلال هذا الشهر ", vbCritical, "تنبيه"
Cancel = True
End Sub

 لم يعمل الكود أستاذ ابو خليل في حدث عند ' عدم وجود بيانات ' في التقرير rpt_Transfer

[ابوخليل]

لم يعمل لان التقرير غير منضم اي لا يوجد له مصدر بيانات

جرب واجعل  له مصدر بيانات جدول فارغ وانظر النتيجة

[كريمو2]

أخي ابوخليل حياك الله

ممكن أضافة كود التصفية الذي قمت بوضعه انفا في إحدى الإستعلامات

FROM Employee
WHERE (((Employee.[Name COMPTE])=forms!FrmTransfer_Trésorie!NB)); 

على هذا الإستعلام الموحد qryTransfer_NEW

SELECT Employee.ID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.[Agence],Employee.[Cité], +1 AS TheType, Sum(qryValues.TheValue) AS Total, Add_Observations([ID]) AS Obsérvation
FROM Employee INNER JOIN qryValues ON Employee.EmployeeID = qryValues.EmployeeID
WHERE (((Month([TheDate]))=Month(CDate([Forms]![FrmTransfer_Trésorie]![txtMonth]))) AND ((Year([TheDate]))=Year(CDate([Forms]![FrmTransfer_Trésorie]![txtMonth]))))
GROUP BY Employee.ID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE],Employee.[Agence],Employee.[Cité], +1, Add_Observations([ID])
UNION ALL SELECT Company.ID, Company.[N_fournisseur], Company.[N_fournisseur_latin], Company.[Name COMPTE], Company.[N° COMPTE], Company.[Agence],Company.[Cité], -1 AS TheType, qry_Bill.Total, qry_Bill.OBS
FROM qry_Bill INNER JOIN Company ON qry_Bill.CompanyID = Company.ID;

لأني صراحة حاولت ومافلحت ابدا

 

دمج تقريرين بتصفية.rar

 

[ابوخليل]

السلام عليكم

اخي كريمو تحية طيبة وبعد

حاول دائما اختصار مثالك حسب الحاجة  لا ن  زيادة الحجم  عبء على المنتدى

فمثلا في مثالك الحالي 20نموذج والمطلوب التطبيق على واحد منها فقط ومثلها في الاستعلامات وكذلك الجداول

 

تم التعديل

دمج تقريرين بتصفية2.rar

[كريمو2]

السلام عليكم

اخي كريمو تحية طيبة وبعد

حاول دائما اختصار مثالك حسب الحاجة  لا ن  زيادة الحجم  عبء على المنتدى

فمثلا في مثالك الحالي 20نموذج والمطلوب التطبيق على واحد منها فقط ومثلها في الاستعلامات وكذلك الجداول

 

شكرا على النصيحة أخي ابو خليل

وبارك الله فيك

نعم تمت التصفية

ولكن فكرة الصفحة البيضاء بين التقريرين هل من حل لها في التقرير المدمج rpt_Transfer

[ابوخليل]

حل الصفحة البيضاء ان تقلل من عرض التقرير عند الصميم

دمج تقريرين بتصفية2.rar

[كريمو2]

حل الصفحة البيضاء ان تقلل من عرض التقرير عند الصميم

شكرا لك  أخي ابو خليل على كل المساعدات 

اول مرة في حياتي ارى تقريرا معقدا أخي ابو خليل

كل التقارير تعمل صحيحة حسب تصفية إسم الحسابات إلا التقرير الذي يتضمن تصفية حسب  ccp يكرر الطباعة يعني في ألأصل يكون فيه صفحتان ولكن نجد 4 صفحات الأولى مكررة والثانية مكررة 

ماسبب هذه التصفية في هذا الحساب ؟

[ابوخليل]

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

التقرير الاساسي مصدره qryTransfer  بينما التقريرين الفرعيين مصدرهما  New_qryTransfer

وهذا ليس تكرار  بل هما سجلين اثنين فيqryTransfer   ولكن لا يظهرا بسبب اختلاف المصادر

[كريمو2]

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

التقرير الاساسي مصدره qryTransfer  بينما التقريرين الفرعيين مصدرهما  New_qryTransfer

وهذا ليس تكرار  بل هما سجلين اثنين فيqryTransfer   ولكن لا يظهرا بسبب اختلاف المصادر

وهو كذالك اخي ابو خليل

شكرا والف شكرا على كل المساعدات والتنبيهات 

صراحة يعجز لساني عن وصفكم الكريم

ماعساني الا ان اكرمكم بدعوة صالحة بظهر الغيب

تم الحل