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

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

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      13

    • Posts

      9,814


  2. Moosak

    Moosak

    أوفيسنا


    • نقاط

      12

    • Posts

      1,997


  3. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      5

    • Posts

      12,188


  4. ناقل

    ناقل

    الخبراء


    • نقاط

      4

    • Posts

      558


Popular Content

Showing content with the highest reputation on 13 ديس, 2021 in all areas

  1. وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb لا عدمناك عمي جعفر @jjafferr 🙂🌹 وعاد نقل الكود لموديول عام هذي لعبتك 😅
    4 points
  2. هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar
    4 points
  3. السلام عليكم ورحمة الله وبركاته .. أواصل معكم دروس مهارات في برنامج أكسس . ومع فكرة جديدة ومتميزة .. 😉 كيفية عمل رسائل إرشادية متحركة .. متابعة ممتعة أتمناها لكم 🌹 ولتحميل ملف التطبيق من هنا : درس رسائل إرشادية.accdb
    2 points
  4. نعم يؤديان نفس المهمة ، ولكنها ليسا لزيادة السرعة 🙂 البرنامج يستطيع القيام بالمعادلات بشكل سريع ، ولكنك عندما تطلب منه او تسمح له بأن يُظهر/يعرض نتائج هذه المعادلات على الشاشة ، فالعرض يأخذ وقت ، وخصوصا اذا عندك اوامر اعادة عرض البيانات مثلا ، لذا ، بإستخدام الامر Me.Painting = False او DoCmd.Echo False ، فإننا نطلب من البرنامج بعدم إظهار/عرض التغييرات على الشاشة ، وانما إظهار/عرض النتائج النهائية فقط والتي تكون بعد الامر Me.Painting = True او DoCmd.Echo True ، لهذا السبب تلاحظ سرعة في الاداء 🙂 جعفر
    2 points
  5. جرب المعادلة التالية =SUM(IF(F6<$F$6:$F$22,1/COUNTIF($F$6:$F$22,$F$6:$F$22)))+1 بعد كتابتها اضغط على shift +ctrl +Enter Students Rank.xlsx
    2 points
  6. اعتقد يمكن ذلك وبكل سهولة اذا تم تصميم المشروع على اكسس انجليزي بمعنى جميع التسميات في الكائنات والعناصر وكذلك الاحداث وبين سطور الاكواد بلغة انجليزية فقط بدليل ان جميع البرامج الانجليزية تعمل على جهازي بكل يسر رغم ان اعدادات المنطقة عربي
    2 points
  7. السلام عليكم 🙂 هذه الوحدة النمطية تقوم بإدخال القيم مربع التحرير والسرد Head_1 ، الدالة List_Table_Fields تأخذ مسمى الحقل الذي في الجدول ، واذا لم يكن هناك مسمى ، فتقوم بوضع اسم الحقل ، ويتم إضافة عمودين لمربع التحرير والسرد Head_1 ، الاول اسم الحقل (وعرضه صفر حتى لا يظهر في القائمة) ، والآخر مسمى الحقل (والذي يظهر في القائمة) : Public Function List_Table_Fields(cmb As ComboBox) As String On Error GoTo err_List_Table_Fields Dim tbdf As TableDef Dim fld As DAO.Field Dim iField_Caption As String Dim Field_Type As String For Each tbdf In CurrentDb.TableDefs If tbdf.Name = "Stu_select" Then For Each fld In tbdf.Fields iField_Caption = fld.Properties("Caption") Field_Type = DataType_Fields(fld.Type) 'fListseparator is from Regional setting, list separator 'add the items for the ComboBox Row Source cmb.AddItem fld.Name & fListseparator & iField_Caption 'Debug.Print tbdf.Name & vbTab & fld.Name & vbTab & Field_Type & vbTab & iField_Caption Next fld End If Next tbdf Exit_List_Table_Fields: Set tbdf = Nothing: Set fld = Nothing Exit Function err_List_Table_Fields: If Err.Number = 3270 Then 'this field does not have a caption for it, give it the field name iField_Caption = fld.Name Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function Public Function DataType_Fields(DF) Select Case DF 'Case 4 ' DataType_Fields = "AutoNumber" Case 10 DataType_Fields = "Text" Case 12 DataType_Fields = "Memo" Case 4 DataType_Fields = "LongInt" Case 2 DataType_Fields = "Byte" Case 3 DataType_Fields = "Integer" Case 6 DataType_Fields = "Single" Case 7 DataType_Fields = "Double" Case 15 DataType_Fields = "Replication" Case 8 DataType_Fields = "DateTime" Case 5 DataType_Fields = "Currency" Case 1 DataType_Fields = "YesNo" Case 11 DataType_Fields = "OLEObject" Case 12 DataType_Fields = "Hyperlink" Case 101 DataType_Fields = "Attachment" End Select End Function . ولا عليك من الدالة DataType_Fields ، فوضعتها هنا حتى يكون موضوع حقول الجدول متكامل 🙂 اما الوحدة النمطية fRegional_Settings_info ، فمنها اخذت الفارزة بين قيم مصدر بيانات السطر Head_1 ، ويتم اخذ القيمة من اعدادات الوندوز ، فالنظام الامريكي يستخدم الفاصلة ([كود التلميذ], [الصف], [النوع]) ، بينما النظام العربي يستخدم الفاصلة المنقوطة ([كود التلميذ]; [الصف]; [النوع]) Option Compare Database Option Explicit ' This code was originally written by Dev Ashish. ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' ' Code Courtesy of ' Dev Ashish ' Public Const LOCALE_ILANGUAGE = &H1 ' language id Public Const LOCALE_SLANGUAGE = &H2 ' localized name of language Public Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language Public Const LOCALE_SABBREVLANGNAME = &H3 ' abbreviated language name Public Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Public Const LOCALE_ICOUNTRY = &H5 ' country code Public Const LOCALE_SCOUNTRY = &H6 ' localized name of country Public Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country Public Const LOCALE_SABBREVCTRYNAME = &H7 ' abbreviated country name Public Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country Public Const LOCALE_IDEFAULTLANGUAGE = &H9 ' default language id Public Const LOCALE_IDEFAULTCOUNTRY = &HA ' default country code Public Const LOCALE_IDEFAULTCODEPAGE = &HB ' default code page Public Const LOCALE_SLIST = &HC ' list item separator Public Const LOCALE_IMEASURE = &HD ' 0 = metric, 1 = US Public Const LOCALE_SDECIMAL = &HE ' decimal separator Public Const LOCALE_STHOUSAND = &HF ' thousand separator Public Const LOCALE_SGROUPING = &H10 ' digit grouping Public Const LOCALE_IDIGITS = &H11 ' number of fractional digits Public Const LOCALE_ILZERO = &H12 ' leading zeros for decimal Public Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9 Public Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Public Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Public Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Public Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Public Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Public Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits Public Const LOCALE_ICURRENCY = &H1B ' positive currency mode Public Const LOCALE_INEGCURR = &H1C ' negative currency mode Public Const LOCALE_SDATE = &H1D ' date separator Public Const LOCALE_STIME = &H1E ' time separator Public Const LOCALE_SSHORTDATE = &H1F ' short date format string Public Const LOCALE_SLONGDATE = &H20 ' long date format string Public Const LOCALE_STIMEFORMAT = &H1003 ' time format string Public Const LOCALE_IDATE = &H21 ' short date format ordering Public Const LOCALE_ILDATE = &H22 ' long date format ordering Public Const LOCALE_ITIME = &H23 ' time format specifier Public Const LOCALE_ICENTURY = &H24 ' century format specifier Public Const LOCALE_ITLZERO = &H25 ' leading zeros in time field Public Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field Public Const LOCALE_IMONLZERO = &H27 ' leading zeros in month field Public Const LOCALE_S1159 = &H28 ' AM designator Public Const LOCALE_S2359 = &H29 ' PM designator Public Const LOCALE_SDAYNAME1 = &H2A ' long name for Monday Public Const LOCALE_SDAYNAME2 = &H2B ' long name for Tuesday Public Const LOCALE_SDAYNAME3 = &H2C ' long name for Wednesday Public Const LOCALE_SDAYNAME4 = &H2D ' long name for Thursday Public Const LOCALE_SDAYNAME5 = &H2E ' long name for Friday Public Const LOCALE_SDAYNAME6 = &H2F ' long name for Saturday Public Const LOCALE_SDAYNAME7 = &H30 ' long name for Sunday Public Const LOCALE_SABBREVDAYNAME1 = &H31 ' abbreviated name for Monday Public Const LOCALE_SABBREVDAYNAME2 = &H32 ' abbreviated name for Tuesday Public Const LOCALE_SABBREVDAYNAME3 = &H33 ' abbreviated name for Wednesday Public Const LOCALE_SABBREVDAYNAME4 = &H34 ' abbreviated name for Thursday Public Const LOCALE_SABBREVDAYNAME5 = &H35 ' abbreviated name for Friday Public Const LOCALE_SABBREVDAYNAME6 = &H36 ' abbreviated name for Saturday Public Const LOCALE_SABBREVDAYNAME7 = &H37 ' abbreviated name for Sunday Public Const LOCALE_SMONTHNAME1 = &H38 ' long name for January Public Const LOCALE_SMONTHNAME2 = &H39 ' long name for February Public Const LOCALE_SMONTHNAME3 = &H3A ' long name for March Public Const LOCALE_SMONTHNAME4 = &H3B ' long name for April Public Const LOCALE_SMONTHNAME5 = &H3C ' long name for May Public Const LOCALE_SMONTHNAME6 = &H3D ' long name for June Public Const LOCALE_SMONTHNAME7 = &H3E ' long name for July Public Const LOCALE_SMONTHNAME8 = &H3F ' long name for August Public Const LOCALE_SMONTHNAME9 = &H40 ' long name for September Public Const LOCALE_SMONTHNAME10 = &H41 ' long name for October Public Const LOCALE_SMONTHNAME11 = &H42 ' long name for November Public Const LOCALE_SMONTHNAME12 = &H43 ' long name for December Public Const LOCALE_SABBREVMONTHNAME1 = &H44 ' abbreviated name for January Public Const LOCALE_SABBREVMONTHNAME2 = &H45 ' abbreviated name for February Public Const LOCALE_SABBREVMONTHNAME3 = &H46 ' abbreviated name for March Public Const LOCALE_SABBREVMONTHNAME4 = &H47 ' abbreviated name for April Public Const LOCALE_SABBREVMONTHNAME5 = &H48 ' abbreviated name for May Public Const LOCALE_SABBREVMONTHNAME6 = &H49 ' abbreviated name for June Public Const LOCALE_SABBREVMONTHNAME7 = &H4A ' abbreviated name for July Public Const LOCALE_SABBREVMONTHNAME8 = &H4B ' abbreviated name for August Public Const LOCALE_SABBREVMONTHNAME9 = &H4C ' abbreviated name for September Public Const LOCALE_SABBREVMONTHNAME10 = &H4D ' abbreviated name for October Public Const LOCALE_SABBREVMONTHNAME11 = &H4E ' abbreviated name for November Public Const LOCALE_SABBREVMONTHNAME12 = &H4F ' abbreviated name for December Public Const LOCALE_SABBREVMONTHNAME13 = &H100F Public Const LOCALE_SYSTEM_DEFAULT& = &H800 Public Const LOCALE_USER_DEFAULT& = &H400 Const cMAXLEN = 255 Private Declare PtrSafe Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long '''' Function CountryName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCOUNTRY, strLCData, lngData) If lngX <> 0 Then CountryName = Left$(strLCData, lngX - 1) End If End Function '''' Function fLocaleInfo(lngLCType As Long) As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, strLCData, lngData) If lngX <> 0 Then fLocaleInfo = Left$(strLCData, lngX - 1) End If End Function Function fLOCALE_IMEASURE() As String ' 0 = metric, 1 = US Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, strLCData, lngData) If lngX <> 0 Then fLOCALE_IMEASURE = Left$(strLCData, lngX - 1) End If End Function Function fListseparator() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLIST, strLCData, lngData) If lngX <> 0 Then fListseparator = Left$(strLCData, lngX - 1) End If End Function . فعند حدث "تحميل النموذج" يتم اضافة اسماء ومسميات الحقول Call List_Table_Fields(Head_1) فتظهر هكذا . وعند حدث "عند التركيز" على مربع تحرير وسرد text_1 يتم عمل كود بيانات صفه : Private Sub text_1_GotFocus() Me.text_1.RowSource = "SELECT " & Me.Head_1 & " FROM Stu_select WHERE stu_code='" & Me.stu_code & "'" End Sub . الى الآن وكل شيء تمام 🙂 ولكن ، ولأن الحقل text_1 غير مرتبط بحقل في الجدول ، فأي قيمة تختارها له ، فإنها ستنطبق على بقية سجلات النموذج المستمر ، . فيجب عليك معرفة ماذا تريد عمله هنا 🙂 جعفر 1425.تحديد عناصر قائمة منسدلة وربطها بأخري.accdb.zip
    2 points
  8. هذا توضيح لملخص الدرس بعد أن عرفت كيفية عمل صورة متحركة 😅
    2 points
  9. اكتب الى اخوتى محترفى برنامج ميكرو سوفت اكسس والاكسيس له تاريخ عريق ف البرمجه وما زال مستمر ولكن لي استفسار وسؤال لاساتذتى محترفي الاكسس كيف يمكنني انشاء وجهات ديناميكيه وقوائم جانبيه منسدله و منزلقه لليمين جذابه وهل يمكن عملها باستخدام الماكرو اى بدون كتابه تعليمات فيجوال كثيره وتضيف شكل جذاب للبرنامج كما ف المثالين المرفقين ولكم منى جزيل الشكر
    1 point
  10. شكراً جزيلاً اخي ناقل نجخ الامر 🤗
    1 point
  11. تفضل ..... Dim msgstyle Dim DBOld As String Dim DBNew As String DBOld = Me.txtTAB1 'اختيار قاعدة بيانات الجداول DBNew = txtPathToExport 'اختيار مكان حفظ النسخة Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0 MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"
    1 point
  12. من خلال المنتدي الجميل عايز اوجه شكر للاخ العزيز د.كاف يار بالفعل هذا الرجل لا يتأخر عن طلب اي شئ طالما كان في استطاعته ودائما نستفيد منه جميعا وهو لا يبخل بأي معلومه وذلك عن تجربه شخصيه ربنا يجعله في ميزان حسناتك ويكرمك ويجعلك عونا لاخوانك يارب
    1 point
  13. السلام عليكم ورخمة الله تم التعديل Sub ImpClass() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, LS As Long Dim i As Long, p As Long Dim Cls As String, Spld As String, Knd As String Set ws = Sheets("arshef") Set Sh = Sheets("ك.غ") LR = ws.Range("B" & Rows.Count).End(3).Row j = 2 Do While j <= 310 Sh.Range("C" & j + 3).Resize(25).ClearContents Cls = Sh.Range("G" & j).Text Spld = Sh.Range("K" & j).Text Knd = Sh.Range("AF1").Text For i = 5 To LR If ws.Range("Q" & i).Text = Cls Then If ws.Range("P" & i).Text = Spld Then If ws.Range("L" & i).Text = Knd Then p = p + 1 Sh.Range("C" & p + j + 2) = ws.Range("B" & i) End If End If End If Next p = 0 j = j + 28 Loop End Sub
    1 point
  14. السلام عليكم ورحمة الله استخدم الكود التالى Sub ImpClass() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, LS As Long Dim i As Long, p As Long Dim Cls As String Set ws = Sheets("arshef") Set Sh = Sheets("ك.غ") LR = ws.Range("B" & Rows.Count).End(3).Row j = 2 Do While j <= 310 Cls = Sh.Range("G" & j).Text For i = 5 To LR If ws.Range("Q" & i).Text = Cls Then p = p + 1 Sh.Range("C" & p + j + 2) = ws.Range("B" & i) End If Next p = 0 j = j + 28 Loop End Sub
    1 point
  15. ما شاء الله بارك الله في علمك و ذادك من العلم
    1 point
  16. وعليكم السلام 🙂 تفضل 🙂 جعفر 1426.Delete.accdb.zip
    1 point
  17. افكار رائعه أعانكم الله وأدام عليكم الصحة والعافية
    1 point
  18. شكرا ابا جود على هذا العمل الجبار خدمة نسخ الملفات اللازمة بجانب قاعدة البيانات لا تقدر بثمن جعله الله في موازين اعمالك عندي ملاحظة افادني بها احد الاخوة يقول : ملف ابو جودي الاول الذي يعتمد على الملف التنفيذي هو الذي يعمل اما الاخير هذا فانه ينقصه شيء ما اخونا يمسح الكيو آر بتطبيق آخر يقول انه هو الرسمي المعتمد وهذا رابطه وتعليق الأخ عليه _______________________________________________________________ https://play.google.com/store/apps/details?id=com.zatca.vat هذا برنامجهم الرسمي فيه كل شي فيه تحقق من الرقم الضريبي وفية بلاغ بالسجل التجاري او بالرقم الضريبي وفيه تعليمات بمعنى قارئهم الرسمي حمله وشوف _______________________________________________________________ طبعا انا جربت وطلع كلامه صحيح سوف ادرج صور للنتيجة ادناه التي تظهر الفاتورة فيها هي الملف الاول الذي يستخدم الملف التنفيذي اما الصورة الاخرى فهي نتيجة قراءة الملف الثاني الجافا الرسالة "" شكرا لمسح رمز الاستجابة السريعة تم مشاركة ... الخ """ يعني ان الماسح لم يقرأ جرب التطبيق الجديد على الملفين
    1 point
  19. ويمكن استخدام الـ Unicode داخل محرر الاكواد وهذا موقعالـ Unicode https://www.ssec.wisc.edu/~tomw/java/unicode.html ويمكن استخدام الـ Asccii code كذلك
    1 point
  20. استدراك : اجعل مثالك المرفق خالي من الاكواد تماما الا حين تريد التعديل على كود ما اتبع هذه الطريقة في جميع مرفقاتك القادمة .. فهي افضل .. انا اعمل هذا حين اطرح سؤالا
    1 point
  21. الاستاذ/ @Moosak جميل جدا وابداع من استاذ يعرف الاكسس تماما ياريت ياريت ياريت تكون القائمة الجانبية " بالانزلاق " يعنى مثلا القسم الاول عند الضغط عليها تنزلق تحتها عدة عناوين من زمان وانا ابحث عن مثل هذا لم اجد ان متوفر عندك يبقى جزاك الله خير
    1 point
  22. السلام عليكم استغربت من تأخر الرد على موضوعك ، فدخلت وعرفت السبب مثالك المرفق سيء جدا حاول ان ترفع آخر غيره وحاول اختصاره على النموذج محل التعديل والنموذج الفرعي والجداول المرتبطة بالنموذجين فقط لدي بعض الملاحظات على الاكواد .. منها : استخدامك لـــ on error resune next في معظم الاكواد وهذا خطأ ... لانستخدم هذه العبارة الا في حالاات استثنائية قصوى ايضا وظيفة اخفاء الاطارات لاحظت تكرارها في غالب الاكواد ، وهذه الوظيفة لا تستخد الا عند فتح نموذج البداية
    1 point
  23. 1 point
  24. سيدي الفاضل الدكتور الحلبي 🙂 تم إعادة العمل ، بناء على الشرح 🙂 جعفر 1422.حذف من الفرعي.accdb.zip
    1 point
  25. السلام عليكم ورحمة الله استخدم هذا الكود Sub TraData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, ShName Set ws = Sheets("يناير ") ShName = Day(ws.Range("J3")) ws.Range("A1:K50").Copy On Error Resume Next If Len(Trim(ShName)) > 0 Then If Len(Sheets(ShName).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = ShName End If End If Sheets(ShName).Range("A1").Select Selection.PasteSpecial xlPasteAll Selection.PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False End Sub
    1 point
  26. وبصحة وسلامة ان شاء الله 🙂 جعفر
    1 point
  27. الاخ ابو محمد2 1- اسماء الجداول كلها باللغة الانكليزية 2- ما علاقة الدوال والاكواد الموجودة بالنماذج باسماء الجداول ؟ هل يمكن ان توضح اكثر , وشكرا
    1 point
  28. السلام عليكم ورحمه الله @ابو محمد2 اين انت يا ابومحمد اتمني تكون بخير ❤️
    1 point
×
×
  • اضف...

Important Information