طاهر اوفيسنا

عملت ما اشرت لي عليه في وضع التصميم كل تقرير ووضع =[TempVars]![x] فلم يتم معالجة المشكل في الباقي

تم والتقارير الباقية الاخرى استاذ

rptCridi

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

شكرا استاذي على يد مد المساعدة لقد اضفت النموذج الرئيسي Swichboard ومن خلاله حاولت فتح نموذج التقارير المعدل فلم يفتح اي يوجهني الى مشكلة بالكود 1298.2020.mdb ولم تتم معالجة المشكلة

ايه حذف النموذج Swichboard وهل له علاقة بهذا ليس نموذج واحد بل عدة نماذج وهي

اليك المرفق ولا تبالي ببعض الميساجات لان جداولها محذوفة 2020.mdb 2020.rar

ممكن يكون الحيار الاول استاذ اما الخيار الثاني لنفترض اني غيرت المعيار ولا اشير للنموذج القديم فهل ممكن ان افتح التقارير من جهة النماذج الخاصة بها

نعم المعيارات في الاستعلامات وفي التقارير نفسها استعلام ccp SELECT ccp.ID, ccp.NCcp, ccp.TheValue, ccp.TxtMonth, ccp.Atawet, ccp.Obsérvation, Bdgi.Année FROM ccp LEFT JOIN Bdgi ON ccp.ID = Bdgi.ID WHERE (((Year([TxtMonth]))=[Forms]![FrmCcpReport]![txtYear])); استعلام القروض SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Cridi.Cridi_Date, Cridi.Cridi_ID, Cridi.Cridi_Value, Cridi.DiscountStartDate, Cridi.DiscountEndDate, Cridi.DiscountPerMonth, Cridi.Obsérvation FROM Employee INNER JOIN Cridi ON Employee.EmployeeID=Cridi.EmployeeID WHERE (((Year([Cridi_Date]))=[Forms]![FrmCridiReport]![txtYear])) ORDER BY Cridi.Cridi_Date, Cridi.DiscountStartDate; استعلام المنح SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Mena7.Menha_Date, Sum(Nz(mont1,0)) AS smont1, Sum(Nz([mont2],0)) AS smont2, Sum(Nz([mont3],0)) AS smont3, Sum(Nz([mont4],0)) AS smont4, Sum(Nz([mont5],0)) AS smont5, Sum(Nz([mont6],0)) AS smont6, Sum(Nz([mont7],0)) AS smont7, Sum(Nz([mont8],0)) AS smont8, Sum(Nz([mont9],0)) AS smont9, Sum(Nz([mont10],0)) AS smont10, Sum(Nz([mont11],0)) AS smont11, [smont1]+[smont2]+[smont3]+[smont4]+[smont5]+[smont6]+[smont7]+[smont8]+[smont9]+[smont10]+[smont11] AS TheSum FROM Employee INNER JOIN Mena7 ON Employee.EmployeeID = Mena7.EmployeeID WHERE (((Year([Menha_Date]))=[Forms]![FrmMen7Report]![txtYear])) GROUP BY Employee.EmployeeID, Employee.[Nom et Prénom], Mena7.Menha_Date ORDER BY Mena7.Menha_Date;

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

السلام عليكم اساتذتنا الكرام لديا عدة تقارير تفتح بشكل عادي على حدى اي عندما يتم فتحها عن طريق الفورم الخاص بها ولكن عندما تم تجميعهم في فورم واحد وهو فورم FrmRapport وقع مشكل في فتح كل تقرير يطلب منك ادخال قيمة معلمة وهي السنة Txtyear وهذا هو حدث عند التغيير Private Sub Nome_Report_Change() On Error GoTo Err_Nome_Report_Click Dim stLinkCriteria As String stDocName = Nome_Report.Text 'stLinkCriteria = "[Nome_Report]=" & "'" & Me![Nome_Report] & "'" DoCmd.OpenReport stDocName, acViewPreview, , "Year(date()) = " & Me.txtYear & "" Exit_Nome_Report_Click: Exit Sub Err_Nome_Report_Click: If Err.Number = 2501 Then Resume Exit_Nome_Report_Click Else MsgBox Err.Description Resume Exit_Nome_Report_Click End If End Sub كيف ينم التعديل

شكرا لك استاذ احمد تمت التجربة

إقتراح جميل استاذ أبو إبراهيم الغامدي بارك الله فيك

دخلت على الرابط وماوصلت لنتيجة استاذ

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

استاذ احمد هل تم تعديل اخر عير هذا في الملف DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

وهو كذالك استاذ شكرا ربي يبارك فيك

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

السلام عليكم اساتذة تقبل الله صيامكم وقيامكم بالمرفق ادناه لدي مشكلة وهي عند تحويل التقرير من اكسس الى ملف TXT يظهر تباعد بين الاسطر كما في الصورة Trans CD.rar

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

شكرا لك أخي على الفكرة التي كانت غائبة عني ملاحظة : لم يفي بالنتيجة الصحيحة ولكن اجريت عليه بعض التعديلات NCompte = IIf((IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97))) < 10, _ "0" & IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97)), _ IIf((100 * N°_Compte_du_Titulaire Mod 97) > 12, 97 - ((100 * N°_Compte_du_Titulaire Mod 97) - 12), 12 - (100 * N°_Compte_du_Titulaire Mod 97)))

السلام عليكم اخواني رمضان كريم ان شاء الله اللهم ارفع عنا الوباء و البلاء ببركة الشهر الفضيل يارب لدي كود معادلة من ملف اكسل حاولت تغيره للأكسس ولكن مافلحت وخاصة في الدالة MOD Function RIP_AVANT(RIP_AVAT) As Integer RIP_AVANT=IIF((IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97)))<10,"0"&(IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97))),(IIF(MOD(100*NCompte,97)>12,97-(MOD(100*NCompte,97)-12),12-MOD(100*NCompte,97)))) End Function ارجو التعديل وشكرا لكم

بارك الله فيك استاذ جعفر

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

لم يفتح المرفق على اكسس 2010