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

انا ايضا لم استخدم شجرة الحسابات وخبرتي في الاعمال المحاسبية ليس مما افتخر به وبالتالي لن انتصر لرأي اي من الفريقين ومداخلتي تتعلق بانه ممكن عمل قاعدة بيانات بجدول واحد وشاهدت امثلة كثيرة على ذلك في الموقع ولكن في رأيي انها اشبه ماتكون بجدول الوورد او حتى اكون منصف اكثر اشبه بملف اكسل قاعدة البيانات العلائقية تتكون من عدد من الجداول يتم ربطها بعلاقات قد تكون راس لرأس اي واحد لواحد رأس لاطراف واحد لمتعدد اطراف لاطراف اي متعد الى متعدد ولكن هذا الاخير في حقيقتة متعدد الى واحد الى متعدد وهذة العلاقات تحقق لنا التكامل المرجعي وتتالي تحديث او حذف السجلات المرتبطة وتضمن لنا عدم تكرار البيانات واعيد انني لست في صف اي من الفريقين وحديثي ليس عن الشجرة وانما التصميم الصحيح للقاعدة ليس اكسس فقط وانما اي قاعدة بيانات علائقية هذا رأي شخصي غير ملزم قالت العرب الصمت حكمة وقليل فاعله واعتقد اني بهذا الرد تخليت عن ذلك☝️ تحياتي للجميع

نعم صحيح هو سؤال والاجابة ان هناك من كان يشير الى امكانية كسر الحماية وهي في نهاية الامر مزاعم ما لم تقرن باثبات احسنت بالنسبة لي فعندما كنت اعمل في هذا المجال فلم اهتم بموضوع الحماية مطلقا والسببب في ذلك ان جزء من عملي ماخود او مقتبس او مطور من اعمال اخرين فلوا ان كل مبرمج احتفظ باكواده وافكارة لنفسه ولم يشارك الاخرين ولو بنصيحة او معلومة فسوف نبقي دائما على اول درجة في السلم وجهة نظر تحياتي

كان فيما مضى احدهم يشير الى امكانية ذلك ويعتقد ويشير دائما الى ان الحماية امر نسبي ولكنه خرج ولم يعد وذهبت معه ادعاءاته ومزاعمه تحياتي

قالت العرب : من قال لا اعلم فقد افتى الصورة اعلاه من جهازي للاصدار 2021 وجربت ايضا على الاصدار 2019 والاصدار 2016 على اجهزتي الاخرى واعتقد انها موجود لديك بناء على وثائق شركة مايكروسوفت التي تشير الى ان هذا الاجراء موجود من اصدار 2007 و 2010 و 2013 و 2016 و 2019 و 2021 و ايضا 365 تحياتي

بعض اجرارات الماكروا تحتاج الى اظهارها ومنها اجراء setvalue شاهد الصورة المرفقة

اخى الكريم برجاء مراجعة الرسالة التى ارسلتها لك على رسائل المنتدى

اخي العزيز ابو احمد وفقك الله ورعاك .. قل خيرا او .... هذا يعني انك لم تعمل من قبل على الجداول المتعددة ، وترجيحك في مشاركتك السابقة عن غير تجربة استاذنا جعفر قام بالاعتذار عن المشاركة كونه لم يمر بتجربة سابقة حول هذا الموضوع احبتي واخواني الكرام : علمتنا الحياة الا ننتصر لآرائنا البرمجية .. ما نراه مستحيلا اليوم قد يتحقق غدا ، وهذا يحدث كثيرا ، والمقام هنا لطرح الآراء والتوجيه انا لا افرض رأيي هنا .. وانما ادلي بمعلومة ، من واقع خبرة تاريخية ، يأخذ بها من يأخذها او يتركها . وهي من وجهة نظري الاحدث والافضل وهذا الموضوع لا يخص الاخ السائل فقط ، بل سيمر عليه كل من يبحث عن هذه المعلومة . واختلاف وجهات النظر مطلب لبيئة صحية في اي منتدى بشرط عدم تحول الموضوع لحلبة ملاكمة الآن اكثر من مشارك هنا يفضلون الجدول الواحد .. وانا على يقين انهم لم يجربوا استخدام تعدد الجداول ، فللخروج من النقاش بافضل فائدة يجب ان يشاركنا الرأي صاحب خبرة سبق وان عمل على النظامين ( الجدول الواحد / والجداول المتعددة) ملحوظة : انا لا اتكلم عن اظهار صورة الشجرة ( المستعرض) داخل النموذج .. لانه يمكن اظهارها في الحالتين ولكني اتكلم عن التصميم الصحيح لمشروع حسابات دائن / مدين ( تحليل البيانات وبناء الجداول الصحيحة)

السلام عليكم 🙂 مع اعتذاري للشباب ، فلم القي نظرة على مرفقاتكم 🙂 احفظ هذه الدالة باسم mod_Regional_Settings_info : 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 ' 'to use it 'cmb.AddItem fld.Name & fListseparator & iField_Caption ' 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 '''' Function LanguageName() 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_SENGLANGUAGE, strLCData, lngData) If lngX <> 0 Then LanguageName = Left$(strLCData, lngX - 1) End If End Function '''' Function LocalizedLanguageName() 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_SLANGUAGE, strLCData, lngData) If lngX <> 0 Then LocalizedLanguageName = Left$(strLCData, lngX - 1) End If End Function . وتناديه هكذا: if LanguageName & " (" & CountryName & ")" <> LocalizedLanguageName then msgbox "PC Language is : " & LocalizedLanguageName end if . جعفر

نعم أخي العزيز قمت بتوزيع الكثير من النسخ مجاناً، وسعر الإضافة ليس بالثمن الباهض فهو لا يتجاوز سعر كتاب علم إن لم يكن أقل، أيضاً ترخيص الإضافة هو ترخيص مدى الحياة للمشتري مع ترخيص للتحديثات مدى الحياة، فهنالك إضافات فيها القليل من المزايا بسعر أعلى بكثير من سعر إضافة البيان مع ترخيص لسنوات محدودة وبعدها تضطر لشرائها مرة أخرى. فسعر إضافة هو سعر زهيد مقابل الخدمات التي توفرها، وهذا كله مساعدة مني لطلبة العلم.

نعم يمكن بشرط أن تكون المتصفح هو محرك ChromeDriver، بمعنى أنه يقلع من خلال أكسس.. تعليمى.mdb

يمكنك ذلك من خلال هذه المعادلة -وهذه معادلة مصفوفة (Ctrl+Shift+Enter) ويمكنك استخدامها مرة بالدولار ومرة أخرى بالريال .. وتم وضع المعادلة بالخلية D2 =SUMPRODUCT((الجدول1[عملة العرض]=$E$1)*(SUBTOTAL(109,OFFSET(I3,ROW(الجدول1[[المبلغ ]])-ROW(I3),0)))) معادلة Subtotal للخلايا المرئية فقط وبشرط.xlsx

سيدي الفاضل ، 5 نماذج فرعية !! انا اعطيك الجائزة الاولى لمثل هذا العمق في النماذج 🙂 ولكني ولسبب ما ، اعتقد بأنه بإمكانك عمل هذا بطريقة اسهل ، ولا اعرف كي 🙂 فككت لك الكود بطريقة مفهومة ، وقد يستفيد منها بقية الاعضاء لأمور مثل طلبك : Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() On Error GoTo err_cmd_Expand_Click Me.subform.Form.SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubAcc5.Form. _ SubdatasheetExpanded = True Exit_cmd_Expand_Click: Exit Sub err_cmd_Expand_Click: If Err.Number = 2455 Then Resume Exit_cmd_Expand_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وستحصل على الخطأ 2455 اذا لم يكن لديك نماذج فرعية كافية 😁 جعفر Database2.zip

اتفضل تجربتى Database2 (1).accdb

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود ترحيل الصفحة كامله بشرط واحد على سبيل المثال عندنا درجات الطلاب وفيهم طلاب ناجحون وطلاب دور ثان وطلاب راسبون هذا الكود يفصل الطلاب الناجحون في ورقة ويفصل الطلاب الذين لهم حق الدخول في الدور الثاني في صفحة أخرى ويفصل الطلاب الراسبون في صفحة أخرى وهكذا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر Sub KH_START()[/center] ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' وإذا اردت زيادة عدد الصفحات الطلوب نقل وترحيل البيانات اليها ... سهلة إن شاء الله ماعليك إلا أن تضيف هذه الجزئيه في الكود مع كتابة اسم الصفحة الجديده والمعيار الجديد ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ودمتم في حفظ الله ترحيل مفيد جدا كل الصفحة بشرط.rar

وعليكم السلام ورحمة الله وبركاته access runtime هو الحل الوحيد والافضل لتشغيل ملفات Access على الكمبيوتر لا يوجد عليه Office اساساً ويقوم access runtime بتشغيل access فقط بدون وضع التصميم فلا يمكن تعديل تصميم الجداول والاستعلامات والنماذج والتقارير على جهاز لا يحتوي على Access كاملاً ولكن بوجود access runtime يتم تشغيل الملف فقط . ويمكن البحث في جوجل حسب الاصدار الذي تحتاجه access runtime 2010 download https://www.microsoft.com/en-us/download/details.aspx?id=10910 access runtime 2013 download https://www.microsoft.com/en-us/download/details.aspx?id=39358 تحياتي

السلام عليكم جزاكم الله خيرا والف شكر لكل من سال عني ويهمه امري انا والحمد لله في صحة وعافية واتابع المنتدى حسب الاستطاعة والارادة ...جزاكم الله خيرا اكرر شكري وتقديري ودمتم في رعاية الله

ربنا يرجع العالم عبدالله باقشير للمنتدى بالسلامه . ويطمنا عليه وعلى كل الغائبين فى اوفيسنا

لو بايدي كنت روحت لعنده وصلحته بنفسي أو كنت أشتري له واحد جديد هدية مني لأغلى إنسان سلامي للأستاذ الكبير والأخ الحبيب عبد الله اقتباس والله هذا مادار في نفسي لشحصكم الكريم