اذهب الي المحتوي
أوفيسنا

طاهر اوفيسنا

04 عضو فضي
  • Posts

    1088
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو طاهر اوفيسنا

  1. عملت ما اشرت لي عليه في وضع التصميم كل تقرير ووضع =[TempVars]![x] فلم يتم معالجة المشكل في الباقي
  2. تم والتقارير الباقية الاخرى استاذ
  3. أستاذ ابا جودي اهلا وسهلا بك التقرير المشار يفتح ولكن السنة في التقرير ظهرت بها Name
  4. شكرا استاذي على يد مد المساعدة لقد اضفت النموذج الرئيسي Swichboard ومن خلاله حاولت فتح نموذج التقارير المعدل فلم يفتح اي يوجهني الى مشكلة بالكود 1298.2020.mdb ولم تتم معالجة المشكلة
  5. ايه حذف النموذج Swichboard وهل له علاقة بهذا ليس نموذج واحد بل عدة نماذج وهي
  6. اليك المرفق ولا تبالي ببعض الميساجات لان جداولها محذوفة 2020.mdb 2020.rar
  7. ممكن يكون الحيار الاول استاذ اما الخيار الثاني لنفترض اني غيرت المعيار ولا اشير للنموذج القديم فهل ممكن ان افتح التقارير من جهة النماذج الخاصة بها
  8. نعم المعيارات في الاستعلامات وفي التقارير نفسها استعلام 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;
  9. نعم الاستعلام هو مصدر كل البيانات استاذي
  10. السلام عليكم اساتذتنا الكرام لديا عدة تقارير تفتح بشكل عادي على حدى اي عندما يتم فتحها عن طريق الفورم الخاص بها ولكن عندما تم تجميعهم في فورم واحد وهو فورم 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 كيف ينم التعديل
  11. إقتراح جميل استاذ أبو إبراهيم الغامدي بارك الله فيك
  12. دخلت على الرابط وماوصلت لنتيجة استاذ
  13. تقبل الله صيامك استاذ احمد نسخت الكود في القاعدة الخاصة بي ظهر لي مشكل عند التحويل
  14. استاذ احمد هل تم تعديل اخر عير هذا في الملف DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus
  15. وهو كذالك استاذ شكرا ربي يبارك فيك
  16. شكرا لك استاذ أحمد الفلاحجى على المساعدة ولكن ياريت عدم اظهار كلمة LIGNECD في المفكرة هذا من جهة ومن جهة أخرى اريد معاينة الملف NewDisq052020 مباشرة بعدالتحويل في انتظار التعديل او الفكرة
  17. السلام عليكم اساتذة تقبل الله صيامكم وقيامكم بالمرفق ادناه لدي مشكلة وهي عند تحويل التقرير من اكسس الى ملف TXT يظهر تباعد بين الاسطر كما في الصورة Trans CD.rar
  18. الف مبروك استاذ husamwahab الى الامام سر في طريق مساعدة إخوتك جعلها الله في ميزان حسناتك
  19. شكرا لك أخي على الفكرة التي كانت غائبة عني ملاحظة : لم يفي بالنتيجة الصحيحة ولكن اجريت عليه بعض التعديلات 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)))
  20. السلام عليكم اخواني رمضان كريم ان شاء الله اللهم ارفع عنا الوباء و البلاء ببركة الشهر الفضيل يارب لدي كود معادلة من ملف اكسل حاولت تغيره للأكسس ولكن مافلحت وخاصة في الدالة 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 ارجو التعديل وشكرا لكم
  21. من المستحسن عمل نموذج فرعي مرتبط بالنموذج الاصلي اجازة لكي تتمكن من اضافة عدة اجازات لنفس الموظف بالتوفيق
  22. لم يفتح المرفق على اكسس 2010
×
×
  • اضف...

Important Information