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

ابو ياسين المشولي

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1757

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

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

  • Days Won

    24

 نوع المحتوي 

كل منشورات العضو ابو ياسين المشولي

  1. ابو ياسين المشولي
    اتفضل هذا حسب فهمي لطلبك برنامج 0.5 %.rar
  2. ابو ياسين المشولي
    اتفضل هذا حسب طلبك 123.accdb
  3. ابو ياسين المشولي
    بالتوفيق اخي
  4. ابو ياسين المشولي
    شوف هل هذا ماتريد حذفتها حسب طلبك شو اخي ضع هذا الكود عند الحفظ DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO user (phone,uid,uname) VALUES (phone,uid,uname)" DoCmd.SetWarnings True وهذا قبل او بعد الحدث في اي حقل تريده Me.uid.Value = Nz(DMax("[uid]", "user") + 1, 1) وفبل هذا اجعل الرقم بدل ترقيم تلقايل اجعله رقم تحياتي
  5. ابو ياسين المشولي
    صدقت اخي Shivan Rekany الاسم يدل على المسمى ولكن اخونا عمل الاسم غير والقصد غير
  6. ابو ياسين المشولي
    الغي هذا DoCmd.GoToRecord , , acNewRec
  7. ابو ياسين المشولي
    بالتوفيق اخي
  8. ابو ياسين المشولي
    جرب هذا "EmpPdfFiel\" & "[emp_id]\" & "[name_morfke]")
  9. ابو ياسين المشولي
    الله ياعافيك بالتوفيك اخي ابو زاهر
  10. ابو ياسين المشولي
    اتفضل هذا طلبك سالب.rar
  11. ابو ياسين المشولي
    اجعل مصدر قاعدة التحكم في التقرير =DLookUp(" [PIC] ";"tblpics")
  12. ابو ياسين المشولي
    العفو اخي بارك الله فيك
  13. ابو ياسين المشولي
    جعلت بينات التقرير بهذا الشرط SELECT MM.[اسم العقار], MM.[مالك العقار], MM.[موقع العقار], MM.[رقم العقار], MM.[موقع الشقه], MM.[اسم المستاجر], MM.[رقم الفاتوره], MM.[رقم الحساب], MM.[القراءه الحاليه], MM.[القراءه السابقه], MM.[كميه الاستهلاك], MM.[قيمه الاستهلاك], MM.[قيمه الخدمات], MM.[اجمالي القيمه] FROM MM WHERE (((MM.[رقم الفاتوره])=[Forms]![M]![رقم الفاتوره])); اعمل تصميم التقرير وشوف من فين مصدرة مصدرة مشرط برقم الفاتورة
  14. ابو ياسين المشولي
    اتفضل جرب هذا اتمنى يكون حسب طلبك BF000.rar
  15. ابو ياسين المشولي
    جرب هذا Dim stLinkCriteria As String stLinkCriteria = "[SN]=" & "'" & Me![SN] & "'" DoCmd.OpenReport "EE5", acViewPreview, , stLinkCriteria
  16. ابو ياسين المشولي
    ممتاز بارك الله فيك
  17. ابو ياسين المشولي
    Dim xFname As String Set xFile = CreateObject("Scripting.FileSystemObject") Set Stshell = CreateObject("WScript.Shell") ' مسار واسم الملف xFname = "D:\data.mdb" 'بحث عن الملف في المسار في المتغير السابق If xFile.FileExists(xFname) = True Then 'اذا وجده شغل الملف Stshell.Run xFname 'غير ذلك اي لم يجد الملف Else MsgBox "غير موجود تاكد من مسار الملف" End If Set xFile = Nothing Set Stshell = Nothing جرب هذا
  18. ابو ياسين المشولي
    اتفضل اتمنا يكون المطلوب حفظ التاريخ بجدول الاصناف.rar
  19. ابو ياسين المشولي
    اخي ابو زاهر اجعل الكود عند الخروج تحياتي
  20. ابو ياسين المشولي
    العفو اخي ابو زاهر بالتوفيق
  21. ابو ياسين المشولي
    اتفضل ارجو ان يكون طلبك اللون عند التركيز.rar
  22. ابو ياسين المشولي
    مانفع استاذي ابو خليل هو كان هذا On Error GoTo MyErr Exit Sub MyErr: MsgBox " مصرح بإسترجاع البيانات المنسوخه أو المحفوظه " & Chr(13) & " عن طريق ( بـرنـامـج الـخـيـاط ) فقط ", vbInformation, " بـرنـامـج الـخـيـاط : خطــــــــأ " شوف حاول تحذف اي خانه في اي جدول وشوف لم يقبل او حاول تستورد من اي قاعده لم يقبل
  23. ابو ياسين المشولي
    ضع الامر في الوسط DoCmd.SetWarnings False هنا ضع امر الكود DoCmd.SetWarnings True
  24. ابو ياسين المشولي
    استاذي ابو خليل الاولى اذا كان اسماء الجداول او الحقول فيه اي اختلف يرفض حذف ويخرج لكن الاخير تحذف اي حاجه واي قاعده على العموم انت عملت مجهود كبير جدا في الاولى والاخير بس انا افضل الاولى بعشرة اضعاف عن الاخير لو تشرح لي الاكواد استاذي ممكن نجد لها حل تلميذك عنده سنه اولى متوسط في التعليم لذلك يواجهني تعب بفهم الكود حتى اتجاوز اخطائه
  25. ابو ياسين المشولي
    بارك الله فيك وجزاك الله خير
×
×
  • اضف...

Important Information

  I accept