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

نجوم المشاركات

  1. محمد يحياوي

    محمد يحياوي

    الخبراء


    • نقاط

      2

    • Posts

      1,429


  2. أمير ادم

    أمير ادم

    03 عضو مميز


    • نقاط

      1

    • Posts

      149


  3. Foksh

    Foksh

    الخبراء


    • نقاط

      1

    • Posts

      2,354


  4. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      1

    • Posts

      12,351


Popular Content

Showing content with the highest reputation on 10 أغس, 2024 in all areas

  1. فقط هذا كل شيء ؟؟ ابشر .. سوف اعيد تصميم مثالك بطريقة علمية صحيحة ولكون خذ في اعتبارك : جدول المنصب ثابت رأس الهرم في المشروع هو الموظف ، لأن المنصب يتغير من موظف الى آخر وايضا الموظفين قابلين للزيادة والنقص
    1 point
  2. أهلا أخي الكريم @أمير ادم ،، اعتقد أنه يجب أن يكون لديك حقل لكود المادة الرئيسي ( كود المنتج Odb_ItemCode ) في الجدولين ، وعليه سيكون الربط بين النموذج الرئيسي والفرعي هو حقل كود المنتج . تابع الصورة TransBom.accdb
    1 point
  3. عمال اقراء فى طلبك اكثر من مره واحاول اطبق ما تريد على النموذج الخاص بك وبعد مراجعة البيانات والجداول شعرت ان هناك خطأ فى تصميم الجداول وان هناك تكرار للبيانات غير مطلوب انت تريد نقل بيانات الجدولين الى الجدولين الاخرين ؟ طيب لماذا ؟ وياريت توضح فكرتك بالظبط علشان نساعدك على هيكلة الجداول اذا احتاج الامر
    1 point
  4. Version 1.0.0

    10 تنزيل

    برنامج لفتح اي ملف محدد بستخدام فتح مع اي برنامج آخر محدد على سبيل المثال PDF = Open With Selected application Word = Open With Selected application PowerPoint = Open With Selected application Excel= Open With Selected application any File No read application = Open With Selected application تحديد مجلد ومع مفتح برنامج المحدد PDF (كتابة يدوية) والتقارير مع اضافة مسار البرنامج وكتابة اسم البرنامج ونسيت اضافة نقل الاسم الملف بعد تحديد المسار تلقائي 😇 فقط كود في الفورم وغير PDF Text XML .... And Other فقط حدد برنامج المطلوب مع تعديل اختيار الملف الى امتداد ملف للبرنامج المطلوب☕ سهل =====(PDF) عند تثبيت برنامج غير Adobe Acrobat to Foxit عند استخدامك ActiveX web Browser Open Report Ms.Access View Foxit لا تستطيع التغير يتطلب عدة تعين من الويندوز والمتصفح العام تعين آخر البرنامج مثبت msgbox ( OLE No Record = Null ) فقط اعد تثبيت البرنامج Adobe Acrobat Reader Or Foxit ولكن من السهول تعين اذا فتح برنامج Foxit من غير التلاعب بمفاتيح الرجستري C:\Program Files\Microsoft Office\Root\VFS\SystemX86 😇 ================================== لتحميل برنامج Foxit : https://www.foxit.com/pdf-reader/?cq_cmp=14168451104&ads_cmpid=21163908177&ads_adid=&ads_matchtype=&ads_network=x&ads_creative=&utm_term=&ads_targetid=&utm_campaign=&utm_source=googleads&utm_medium=ppc&ttv=2&gad_source=1&gclid=CjwKCAjw_Na1BhAlEiwAM-dm7JWVgzNjBL1LHJLQZ47ZfYMDtzzq8CK7RCbXCHYDKMko7oUYKE8B3hoC-YgQAvD_BwE adobe acrobat reader : https://get.adobe.com/reader/download?os=Windows+10&name=Reader+2024.002.20965+English+Windows(64Bit)&lang=en&nativeOs=Windows+10&accepted=mss%2Ccr&declined=&preInstalled=&site=landing اتمنى ان ينال برنامج على اعجابكم OpenFile_PDF_And_Report_with_OPen_With_Any_Application.rar
    1 point
  5. وعليكم السلام ورحمة الله وبركاته... Sub ExportToExcel() Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim rs As DAO.Recordset Dim i As Integer Dim j As Integer ' افتح تطبيق إكسل Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) ' افتح سجل البيانات (Recordset) الذي تريد تصديره Set rs = CurrentDb.OpenRecordset("اسم_الجدول_أو_الاستعلام") ' تصدير العناوين For i = 0 To rs.Fields.Count - 1 xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name Next i ' تصدير البيانات rs.MoveFirst i = 2 Do While Not rs.EOF For j = 0 To rs.Fields.Count - 1 xlSheet.Cells(i, j + 1).Value = rs(j) Next j i = i + 1 rs.MoveNext Loop ' تنسيق العناوين With xlSheet.Rows(1) .Font.Bold = True .Font.Size = 16 .Interior.Color = RGB(255, 255, 0) ' خلفية صفراء .HorizontalAlignment = -4108 ' توسيط النص End With ' تنسيق البيانات With xlSheet.Range(xlSheet.Cells(2, 1), xlSheet.Cells(i - 1, rs.Fields.Count)) .Font.Size = 14 .Font.Bold = True .HorizontalAlignment = -4108 ' توسيط النص End With ' توسيع الأعمدة لتلائم المحتوى xlSheet.Columns.AutoFit ' عرض تطبيق إكسل xlApp.Visible = True ' تنظيف الذاكرة Set rs = Nothing Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub
    1 point
  6. أحبتي الكرام السلام عليكم ورحمة الله وبركاتة احب ان اعرض بين ايديكم عملي المتواضع جدا وهو برنامج الشؤون الإدارية للافراد راجيا من الله ان يكون مفيد لكم وذلك من خلال خبرتي المتواضعة جدا جدا في برنامج اكسس التي اكتسبتها من خلال هذا المنتدى الرائع كما اود من الاخوة الخبراء والاعضاء التكرم بالاطلاع عليه وتصحيح ما يمكن تصحييحة إذا وجد هناك أي ملاحظات. عند تشغيل البرنامج قم بتعبئة الترميزات أولا لتتمكن من اكمال البيانات الاخرى ملاحظاتي 1- مطلوب إدراج دالة في نموذج بيانات الموظفين تقوم بحساب استحقاق الرتبة التالية على ضوء الرتبة الحالية بمعنى ان شخص رتبتة جندي وتاريخ ترقيتة 1/1/1401هـ فتقوم هذه الدالة بحساب تاريخ الترقية التالية على اساس ان الجندي يحتاج سنتين لكي يستحق الترقية التالية فتظهر النتيجة في حقل تاريخ الرتبة القادمة 1/1/1403هـ. 2- النماذج الرئيسية لإدخال البيانات لا تقوم بالإنتقال لسجل جديد بعد إظافة سجل 3- مطلوب إدراج دالة لحساب تاريخ التقاعد على اساس ان لكل رتبة عمر افتراضي للتقاعد 4- مطلوب اذون استخدام للمستخدمين بحيث ان هناك مستخدمين لهم كامل الصلاحيات ومستخدمين اخرين لهم صلاحيات العرض فقط 5- مطلوب اعداد تقرير شامل عن الموظف يعرض جميع ما يتعلق به برنامج الشؤون الادارية للعسكريين
    1 point
  7. كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar
    1 point
  8. اخواني كيف حالكم التحميل ماشاء الله لكني لا ارى اي تجاوب ومع ذلك نكمل الموضوع هذا الكود لفهرسة الاوراق في الورقة1 فهرس اوراق في الورقة الاولى.rar
    1 point
  9. Private Sub Workbook_Open() MsgBox ("توضع هنا العبارة التى تريد أن تظهرها عند فتح الملف") End Sub كود صندوق حوار يظهر عند فتح الملف
    1 point
  10. هلاين اخي ان شاءالله عن قريب نزلك البرنامج يمكن ينفعك
    1 point
×
×
  • اضف...

Important Information