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

kkhalifa1960

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

  • Posts

    2365

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

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

  • Days Won

    64

Community Answers

  1. kkhalifa1960
    kkhalifa1960's post in كيف امنع حذف رقم حساب تم التعامل علية was marked as the answer   
    تفضل استاذ  المرفق بعد التعديل بطلبك .  حتى لو فُعّل الزر بالخطأ
    الكود في Click ما زال يمنع الحذف ← أمان مضاعف  وتم العمل للعداد لازم توحد اسم رقم الحساب بالجدولان  لاتنسى تمت الاجابة ليستفيد غيرك .
    ACC_2026-2.rar
  2. kkhalifa1960
    kkhalifa1960's post in تعديل كود الاستراد والتصدير الى الاكسيل was marked as the answer   
    راجع المرفق والزر الجديد وملف الاكسل الجديد .  ووافني بالرد والطلبات  .
    Excel_Bilal_Yamen-2.rar
  3. kkhalifa1960
    kkhalifa1960's post in فترة عن طريق كمبوبكس was marked as the answer   
    مشاركةً مع الاساتذة الكرام ......... تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد .
                                                                              
    saad.rar
  4. kkhalifa1960
    kkhalifa1960's post in تعديل على كود لفتح التقارير كأنها PDF was marked as the answer   
    تفضل استاذ @jo_2010 كود الزر بعد التعديل بطلبك .ووافني بالرد .
    Private Sub أمر1595_Click() Dim TaskDialog As Y_CTaskDialog Set TaskDialog = New Y_CTaskDialog Dim sSubReport As String sSubReport = Screen.ActiveControl.Caption ' مسار التصدير Dim sBasePath As String Dim sFolder As String Dim sPDF As String sBasePath = CurrentProject.Path sFolder = sBasePath & "\MyReports" ' إنشاء المجلد إن لم يكن موجودًا If Dir(sFolder, vbDirectory) = "" Then MkDir sFolder End If With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_RTL_LAYOUT Or TDF_USE_COMMAND_LINKS _ Or TDF_USE_IMAGERES_ICONID_BUTTON .AddCustomButton 101, _ " طبـاعـة كـل التقـارير بتاريخ " & " / " & DDate & vbLf & _ " عدد التقارير " & URn & " تقرير ", 5380 .AddCustomButton 102, _ " طبـاعـة تقــريــــر واحــــد " & vbLf & _ " باســــم / " & PNAME & " ", 5351 .AddCustomButton 103, _ " تــراجــــــع عـن الطبــاعـة ", 5315 .SetWindowsButtonIconSize 32 .MainInstruction = "جمعية حماية البيئة من التلوث" .Content = "معمـل الام والطفــل" .IconMain = 76 .Title = "طباعـــة" .Width = 250 .ShowDialog Select Case .ResultMain ' ===== الحالة 101 ===== Case 101 Me.Refresh ' مسار واسم ملف PDF sPDF = sFolder & "\AllReports_" & _ Format(Me.DDate, "yyyy-mm-dd") & ".pdf" ' فتح التقرير في وضع مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format(Me.DDate, "yyyy-mm-dd") & "# AND NOT IsNull(colour)", _ acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF ' ===== الحالة 102 ===== Case 102 Me.Refresh Dim PatientName As String Dim FileDate As String Dim RLM As String Dim LRM As String RLM = ChrW(&H200F) ' Right-To-Left Mark LRM = ChrW(&H200E) ' Left-To-Right Mark ' اسم المريض PatientName = Me.PNAME ' تنظيف الرموز غير المسموحة PatientName = Replace(PatientName, "/", "-") PatientName = Replace(PatientName, "\", "-") PatientName = Replace(PatientName, ":", "-") ' التاريخ FileDate = Format(Date, "dd-MM-yyyy") ' اسم الملف (اتجاه مضبوط 100%) sPDF = sFolder & "\" & _ RLM & PatientName & RLM & "_" & LRM & FileDate & ".pdf" ' فتح التقرير بشكل مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, acHidden, sSubReport ' تصدير PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF Application.FollowHyperlink sPDF Case 103 Exit Sub End Select End With Set TaskDialog = Nothing End Sub  
  5. kkhalifa1960
    kkhalifa1960's post in اضافة ورقة جديدة بعد استراد وتصدير ملف الاكسيل was marked as the answer   
    تفضل استاذ @بلال اليامين المرفق بعد التعديل بطلبك . ووافني بالرد  .
    Bilal_Yamen.rar
  6. kkhalifa1960
    kkhalifa1960's post in اضافة ورقة جديدة بعد استراد وتصدير ملف الاكسيل was marked as the answer   
    تفضل استاذ @بلال اليامين المرفق بعد التعديل بطلبك . ووافني بالرد  .
    Bilal_Yamen.rar
  7. kkhalifa1960
    kkhalifa1960's post in استراد وتصدير ملف الاكسيل was marked as the answer   
    تفضل استاذ @بلال اليامين طلبك .... وحتي يتحقق طلبك اهم شئ 3 حقول لازم تملأهم سواء وانت بضيف جديد بأكسل أو بالجدول الاساسي (Fondation و prénom وNom) ....
    وانت بضيف بأكسل لا تكرر رقم التسجيل (id_pers) . تم اضافة كمبوبكس  من خلاله بتصدر جسب الاسم المركب من  (الاسم واللقب والمؤسسة)
    بعدما تصدر اذهب بجوار القاعدة بتحصل مجلد (Mon_Excel) وبه ملف اكسل باسم حسب الكمبوبكس  . افتح ملف الاكسل عدل به ماتشاء  واضف جديد ...
    وبكود الاستيراد لازم تحدد بالكمبوبكس الاسم المركب .  ولاتنسى فتح مشاركة جديدة لارفق لك الهدية. اكنب بها اين الهدية يا خليفة .
     اليك المرفق ووافني بالرد .
    Bilal_Yamen_Export_Import_Excel-1.rar
  8. kkhalifa1960
    kkhalifa1960's post in اخفاء واظهار الحقل في النموذج والتقرير was marked as the answer   
    كيف اكتب نص في جقل رقمي ؟؟  ولكن يوجد تعديل حتى لايظهر Error  عنما لا توجد علامة . اليك التعديل .
    بلال_العلامة-2.rar
  9. kkhalifa1960
    kkhalifa1960's post in تصدير الى اكسيل مع الاجماليات was marked as the answer   
    أولا استاذ @Foksh  عمرة مقبولة وعقبل الحج الاكبر  انشاء الله  .
    اسمحولى بالمشاركة بهذا المرفق . تفضل استاذ @jo_2010 محاولتي حسب مافهمت اليك المرفق . 
    Jo_ExportToExcel.rar
  10. kkhalifa1960
    kkhalifa1960's post in استراد وتصدير ملف الاكسيل was marked as the answer   
    تفضل استاذ @بلال اليامينطلبك كما فهمت . صدر لاكسل . وعدل وضيف . ثم استورد . جرب . ووافني بالرد .
    Bilal_Yamen_Export_Import_Excel.rar
  11. kkhalifa1960
    kkhalifa1960's post in مساعدة في تصفية تقرير was marked as the answer   
    تفضل استاذ @basem1978 طلبك حسب ما فهمت . ووافني بالرد .
    1 (1).rar
  12. kkhalifa1960
    kkhalifa1960's post in لدي مشكلة في استراد الاكسيل والصورة was marked as the answer   
    نبدأ بسم الله الرحمن الرحيم  تفضل استاذ @بلال اليامين حل أول مشكلة الصور  ...   عدلت كل شئ وشغل البرنامج من اي كمبيوتر . بشرط ملف الصور بجوار القاعدة . واليك المرفق . ووافني بالرد.
    اما المشكلة الثانية جاري العمل عليها لكن المطلوب منك فقط جدول به كل طلباتك واسماء الحقول واسم الجدول باللغة الانجليزبة .وانا بانتظاره بمشاركة جديدة..................... 
    Images (1).rar
  13. kkhalifa1960
    kkhalifa1960's post in حقل (مذكرة) لتعديل على حجم الخط was marked as the answer   
    تفضل استاذ @بلال اليامين .
     
    Bilal_Yamen.rar
  14. kkhalifa1960
    kkhalifa1960's post in استخراج السن تلقائياً من تاريخ الميلاد من الرقم القومي was marked as the answer   
    تفضل استاذ @soik225998 طلبك  واليك المرفق . ووافني بالرد
                                                                                   
     
     
    تجربة-1.rar
  15. kkhalifa1960
    kkhalifa1960's post in توزيع رقم الجلوس والسري علي اللجان was marked as the answer   
    تفضل استاذ @2saad المرفق بعد التعديل بطلبك . ووافني بالرد .
    2saad (7).rar
  16. kkhalifa1960
    kkhalifa1960's post in الارقام بالحروف was marked as the answer   
    تفضل استاذ @بلال اليامين الطلب بالاستعلام  Query1  . ووافني بالرد .
    Nouveau Microsoft Access-111 قاعدة بيانات.rar
  17. kkhalifa1960
    kkhalifa1960's post in استعلام جدولى لمعرفة بيانات من جدول was marked as the answer   
    استاذ @figo82eg عملت لك مرفق من عندي به كل طلبك 4 استعلامات بطرق مختلفة  والتقرير يوضح طلبك بالضبط .  ووافني بالرد  .
    figo82eg.rar
  18. kkhalifa1960
    kkhalifa1960's post in توزيع رقم الجلوس والسري علي اللجان was marked as the answer   
    ماكينة طباعة السري 5 أرقام .     
                                                                                                             
  19. kkhalifa1960
    kkhalifa1960's post in استراد وتصدير ملف الاكسل was marked as the answer   
    تفضل استاذ @بلال اليامين طلبك ولا تنسي التعليمات السابقة. ووافني بالرد .
    Bilal_Yamen(Import-Export)EXCEL-1.rar
  20. kkhalifa1960
    kkhalifa1960's post in انشاء جدول من حقلين فقط was marked as the answer   
    تفضل .
    Jo111.rar
  21. kkhalifa1960
    kkhalifa1960's post in فتح التقرير was marked as the answer   
    استاذ بلال اليامين لحسن الحظ اني فهمت طلبك . اليك الشرح والمرفق . ووافني بالرد .
                                                                     من هذا الرابط :     https://www.mediafire.com/file/ez0biwb1fd4ss2p/Bilal_Yamen.rar/file
                                                                                                                          
    Bilal_Yamen.rar
  22. kkhalifa1960
    kkhalifa1960's post in توزيع أسماء الطلاب بنون وبنات بنفس اللجنة was marked as the answer   
    تفضل المرفق بعد التعديل .   https://www.mediafire.com/file/vzs2qx4b7nza6g7/لجان+الامتحانات.rar/file
     
    لجان الامتحانات.rar
  23. kkhalifa1960
    kkhalifa1960's post in اظهار معلومات عند الضغط على اسم الموظف was marked as the answer   
    تفضل استاذ @بلال اليامين الشرح والمرفق . ووافني بالرد .
                                                                                             
    البرنامج1.rar
  24. kkhalifa1960
    kkhalifa1960's post in تقرير تجميعي حسب المشروع واسم الشخص was marked as the answer   
    تفضل استاذ @Emad.85 المرفق  بطلبك ووافني بالرد .
    Emad.85.rar
  25. kkhalifa1960
    kkhalifa1960's post in الملف لا يفتح was marked as the answer   
    هذا الملف اصل امتداده (سجل الموظفين.accde) وتم تغييرة الى (سجل الموظفين.accdb) فلا يمكن فتحه أو اصلاحه .
×
×
  • اضف...

Important Information

  I accept