اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عمر ضاحى

الخبراء
  • Posts

    1,156
  • تاريخ الانضمام

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

  • Days Won

    8

كل منشورات العضو عمر ضاحى

  1. واياكم (الحمد لله)
  2. اخي الحبيب جرب ازالة دالة format لربما اخطأت فى التقدير جرب هذا السطر strSQL = "INSERT INTO kanory ( a, b, c, d ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _ "WHERE (((Bdgi.PDG_Date) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"
  3. اضف زر فى نموذج tabl1 واضف هذا الكود له Dim filter As String filter = "" If Not IsNull(Me.sana) Then filter = filter & "sana = '" & Me.sana & "' AND " End If If Not IsNull(Me.rakm) Then filter = filter & "rakm = '" & Me.rakm & "' AND " End If If Not IsNull(Me.wadia) Then filter = filter & "wadia = '" & Me.wadia & "' AND " End If If filter <> "" Then filter = Left(filter, Len(filter) - 5) End If DoCmd.OpenForm "tabl", , , filter
  4. ارفع ملف للعمل عليه مع توضيح اين تريد ان يظهر القيمه
  5. وهنا اعطيك حل للما سبق ذكره strSQL = "INSERT INTO kanory ( a, b, c, d ) " & vbCrLf & _ "SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _ "WHERE (((Format([PDG_Date],""dd-mm-yyyy"")) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));" ده بس انتبه ان لا يستخدم المتغير فى شئ اخر غير التاريخ ولازم تعلن عنه وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك
  6. اخي الحبيب كريم يبدو ان هناك شئ فهم او تقصير مني الاكسيس برنامج يقوم زيه زي اى برنامج له اجراءات يقوم بتنفيذها حسب ما انت وضعتها انت توريني صور للجدول لكن الاكسيس كيف هيعرف ان الثالث الاول هو التاريخ من الى لازم تعرف ده باى وسيه والاسهل ليك ان تقوم بوضع حقلين لهذه الفتره وانت بالفعل عامل كده لكن المشكلة ان انت بالفعل معلن عن المتغير D1 وهو بيستخدم فى اجراءات اخري وبيحمل قيمة نصيه الحل اما تلغي موضوع المتغيرات وتضع مسار حقل التاريخ مباشرة او انك تعلن عن متغيرين جديد وانا افضل الحل الاخر وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة
  7. ممكن تستخدم متغير tempvars مثل tempvars!username = اسم المستخدم وده ضعهدداخل الاجراء لما يكون اسم المستخدم وكلمة المرور صحيحه وبعدها حط tempvars! username فى اى ماكن تريد يظهر قيمته فيها
  8. طيب هو بياخد التواريخ من اين؟ انت شايف النتيجه؟ راجع المعطيات هتحل المشكله ان شاء الله
  9. الاستاذ كريم حضرتك لم تنتبه لهذه النقطه شوف بعد ما جربت اشغل الكود وحبيت اعرف الاكسيس شايف ايه جو المتغيرات طلعت لى النتيجه صدمه المفترض ان المتغيرات تحمل تاريخ لكن واحد يحمل قيمة نصية والاخر لا يحمل قيمه يبقي الكود هيشتغل ازاي
  10. ايه المشكلة تحديد معاك ارفع صورة بالمشكله وبلاش تستخدم موقع https://top4top.io لانه محجوب عندي
  11. جربت تخفض جودة الصورة او تجعل مقاسها حسب حجم النموذج؟
  12. امممممم جرب تعدل على الشرط فى الكود هكذا WHERE Bdgi.PDG_Date Between #" & D1 & "# And #" & D2 & "#; لكن لازم تتأكد ان المتغيرين D1 و D2 من نوع تاريخ وان بهم قيمة صحيحه (كتاريخ) وان شاء الله بيعمل معك
  13. استاذي ومعلمي الجليل @jjafferr فى خطأ ظهر معي عند محاولة استخدام جدول لدي (اعتقد ان الخطأ يخص الحقول التى بها مرفقات)(Attachment) لاني ليس فى الجدول حقل متعدد القيم غير هذا الحقل وجزاك الله عنا كل خير
  14. 🤔 غريبه سبحان الله هو شغال معايا حاولى تراجعي كل شى وبتأني اتأكدي مره اخري من كل الملاحظات وان الكود فى مكانه الصحيح
  15. ارسل لي رسالة على الخاص فيها عنوان (اي دي ) anydesk احاول افهم فين المشكله عندك
  16. كود واسلوب متقدم جدا سائل المولى ان يبارك لك فى صحتك ويجازك عنا كل خير فاني اقبل رأسك على هذا الابداع استاذى ومعلمي الاستاذ @jjafferr الله يبارك لك
  17. هعطيك طريقة سهله انسخ هذا الاستعلام INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, "02- المداخيل ( الموارد)" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear])); وعدل عليه فى الاستعلامات وبعد ما تاخد النتيجة التى تريدها انسخ الكود من الاستعلام وحطه بدل الكود الحالي بس انتبه فى ال vba " فى وسط الجمله هتعمل ربكه للكود فلازم تكون "" يعني هنا كمثال ""02- المداخيل ( الموارد)"" هتكون فى كود ال vba هكذا "02- المداخيل ( الموارد)" دي هتكون فى السيكول (الاتسعلام)
  18. طيب اول حاجه اعملى حقل جديد وسميه SN وخليه رقم تلقائى فى الجدول وضيفى الحقل ده فى التقرير الفرعي وممكن تخفيه لو مش عاوزاه وبعد كده ضعي الكود ده فى التقرير الفرعي Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim x As Integer x = Nz(DLookup("TH_no", "settings_general_tbl"), 0) If [SN] Mod x = 0 Then Me.Detail.ForceNewPage = 2 Else Me.Detail.ForceNewPage = 0 End If End Sub وان شاء الله هيشتغل معاكي وخلى طريقة عرض التقرير Print Preview وده مرفق ليكي لو معرفتيش برضه 😁 انا حذفت الشروط من التقرير علشان اقد اتعامل معاه وضفت حقل جديد فى الجدول No.of record.rar
  19. تقدر تعدل فى الكود لانه فى الاصل هو استعلام استبدل الاستعلام بهذا السطر strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear]));"
  20. الملف ما فيه بيانات علشان اطبق عليه اعملى بيانات واضحه وخلى الملف يشتغل بشكل سليم وانا باطبق عليه ان شاء الله لكن افتح التقرير ويطلب مني بيانات انا ما اعرفها كيف بكمل؟
×
×
  • اضف...

Important Information