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

السلام عليكم ورحمة الله وبركاته تفضل أخي الحبيب أرجو أن أكون أحسنت الفهم عنك. تم التجربة على أوفيس 2003 ويندوز 8 64 وأوفيس 2007 ويندوز 7 32 محبكم_ A_خلفية.rar

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

احبائى أعضاء وأساتذة هذا المنتدى العظيم أقدم لكم اليوم شيت إكسيل يوجد به جميع دوال التقريب أرجوا من الله العلى القدير أن ينال إعجابكم دوال التقريب.rar

تسلم أخي /رمهان حل ممتاز والله يعطيك العافية وتستاهل (كأفضل إجابة)

أخي الفاضل نور أنور تفضل الملف المرفق عله يفي بالغرض Sub TarhilRaseb() Dim I As Long, X As Long Dim WS As Worksheet, SH As Worksheet Dim RngA As Long, RngB As Long Dim RngColA As Long, RngColB As Long Set WS = Sheets("علمى"): Set SH = Sheets("Raseb") RngA = SH.Range("D2").Value: RngB = SH.Range("E2").Value RngColA = SH.Range("D3").Value: RngColB = SH.Range("E3").Value X = 6 Application.ScreenUpdating = False SH.Range("A6:F1000").ClearContents With WS For I = 12 To .Cells(Rows.Count, 1).End(3).Row If .Cells(I, RngColA) < RngA Or .Cells(I, RngColB) < RngB Then SH.Cells(X, 1).Value = SH.Cells(X, 1).Row - 5 SH.Cells(X, 2).Value = WS.Cells(I, 2).Value SH.Cells(X, 3).Value = WS.Cells(I, 3).Value SH.Cells(X, 4).Value = WS.Cells(I, 12).Value SH.Cells(X, 5).Value = WS.Cells(I, RngColA).Value SH.Cells(X, 6).Value = WS.Cells(I, RngColB).Value X = X + 1 End If Next I End With Application.ScreenUpdating = True End Sub تقبل تحياتي Raseb All Subjects.rar

الأخ الكريم أحمد حبيبه إليك الملف المرفق عله يفي بالغرض Sub HideNageh() With ActiveSheet .AutoFilterMode = False .Range("A2:C2").AutoFilter Field:=3, Criteria1:="<>" & "ناجح" End With End Sub Sub ShowAll() With ActiveSheet .AutoFilterMode = False End With End Sub تقبل تحياتي Filter Data.rar

مشاركة بجانب مشاركة أخونا مارد جزاه الله كل خير أخي الكريم محمد للإحاطة فقط.. ابتعد عن مسميات الحقول بالعربية وأيضا المسافات بين الكلمات في الحقول والنماذج.. إلخ ، وأيضا ابتعد عن الكلمات المحجوزة للأكسس Name - Date... وكما قلت لك مسبقا بخصوص الفواتير يجب أن يكون هناك جدول فرعي للفاتورة أم أنك ستصدر صنف واحد فقط للعميل وليس أكثر من صنف؟؟ ثم أين حقل الكمية أم أن الصنف واحد والكمية واحدة ؟؟ وأيضا تنويه أخير وأنت في مقتبل تصميم البرنامج.. يجب أخي الكريم أن تضع بذهنك (المستخدم) أي سهّل العملية على المستخدم في استخدام برنامجك ؛ فالمستخدم لن يحفظ أكواد الأصناف لكي يدرج أرقامها لتجلب له السعر.. وبصفة عامة عليك بتسهيل الاستخدام لكي لا يصعب على المستخدم التعامل مع برنامجك تحياتي للجميع

أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar

قال الراوي يا سادة يا كرام: فانه ونظرا لما تم نشره بالمنتدى من قبل الاخت الشرقية (انقرللموضوع) حيث لاقت فكرتها قبولا لدى الكثيرين, وكذلك لما تم تداوله مع الاخ ابراهيم ابو منة(انقر للموضوع) حول شرح وتوصيف العلاقات في مرفق قاعدة بيانات اجنبية تعنى بالمختبرات والمعامل الطبية, والذي قبل مشكورا مبادرتي لمشاركتي افكاره والعكس حول بدء برنامج جديد يكون من افكارنا نحن ومستفيدين ايضا من افكار الاخرين سوآءا عربا كانوا ام اجانب.. وبما ان الفكرتين قد صادفت حاجة في نفس يعقوب يريد قضائها حيث كنت بصدد وضع الخطوات الاولى لبرنامج مختبرات ومعامل طبية يراعي المرونة والبساطة, وكانت فكرتي ولا زالت ان ابتعد عن التعقيدات التي لا تمس الطبيعة الفنية العلمية للمخبريين كالشئون المالية او الايرادات والمصروفات(على اهميتها وبلا شك) ولكنني في الوقت نفسه اترك المجال مفتوح للكل للتطوير والاضافات وهذه مجرد رؤية خاصة فقط.. ولا اخفيكم انني قد استعنت بعدد من البرامج المطروحة بالشبكة -حسب ما تيسر لدي- سوءا بمنتدانا او المنتديات الصديقة والتي في اغلبها لم تكن كاملة فهي اما طلبات مساعدة او بدايات لبرامج غير مكتملة او برامج بروابط تشغيل معطوبة او برامج مدفوعة مغلقة المصدر.. وبناءا على ما ذكر فاني اضع الاطر العامة للمشروع كما يلي: اولا: اوجه الدعوة خاصة للمشرفين والخبراء أن يخفضوا لنا جناحهم مشكورين لمراقبة وتقييم ما سيتم طرحه من الجميع واختيار افضل المشاركات لكل مرحلة من مراحل بناء البرنامج. ثانيا: اوجه الدعوة عامة لجميع الاعضاء بالمشاركة او التقييم او التشجيع واخص بالذكر ذوي العلاقة بالمهن الطبية كونهم اعلم الناس بما هو المطلوب من البرنامج.. ثالثا: ارجو ان يتم تثبيت الموضوع ان رأيتم انه يستحق المتابعة ليأخذ حقه من متابعة دورة الحمل وفترة الارضاع من بعدها بإذن الله ^_^ رابعا: كل من يضع تعديلا او فكرة او سؤالا فأرجو ان يضعه بمنتهى الاستفاضة والتبسيط بما سنفهمه نحن لا بما يفهمه هو ويا حبذا لو كان مصورا او مرفقا بقاعدة بيانات البرنامج الاصلية او المعدلة.. خامسا: لن يتم الانتقال للمراحل المتتالية للبرنامج الا بعد تجهيز كل مرحلة, وعليه ارى تكليف احد المشرفين الفضلاء لإدارة المشروع وحذف أي مشاركة مستعجلة المرحلة وكذلك ليخبرنا بوقت اكتمال أي مرحلة والاذن بالانتقال للمرحلة التالية. وانا اختار السيد الفاضل رمهان لمتابعة الموضوع.. سادسا: هذا المجهود –مهما صغر شأنه او كبر- سيكون مجهود عمومي ومشترك للكل ولا يحق لأحد ان يشفره او يحتكره, والغرض منه تعليمي بالدرجة الاولى كما انه دعم مجاني من المنتدى واعضاءه لكل طالب معرفة او صاحب مشروع مختبرات ولا يستطيع شراء انظمة مدفوعة في عموم وطننا العربي والاسلامي, والاجر نحتسبه عند الله... MEDI-LABS.rar

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** الكود الاول هذا كود يجعل صفحة الاكسيل عندما تكتب فيها تكتب باللغة العربيه دائما حتى ولو كانت لغة الكتابة في لوحة المفاتيح انجليزي طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على This Workbook ستجد Private Sub Workbook_Open() hosami "00000401", 1 End Sub انسخه والصقة في ملفك الجديد في نفس الموقع This Workbook ثم اضغط على موديول 1 سيتم فتح الموديول هذا Declare Function hosami Lib _ "user32" Alias "LoadKeyboardLayoutA" (ByVal A As String _ , ByVal B As Long) As Long انسخه وضعه في نفس المكان وهو موديول 1 في ملفك الجديد احفظ الملف واعد فتحه ولاحظ لغة الكتابه في لوحة المفاتيح ودمتم في حفظ الله تغيير لغة الكي بورد الى العربي.rar تغيير لغة الكي بورد الى العربي بطريقة اخرى.rar

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

السلام عليكم إخواني الكرام إليكم الملف المرفق فيه نبذة عن المصفوفات .. أرجو من الله أن ينفع به المسلمين Arrays.rar

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

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

السلام عليكم إخواني الكرام إليكم بالمرفق كود يقوم بعمل تقويم ميلادي للعام بأكمله أرجو أن ينال إعجابكم ، وينفعكم وينفع به المسلمين Create Calendar.rar

كود يوضع فى حدث شيت 1 لإنشاء نتيجة العام الحالى والوقوف على اليوم الحالى مظلل Sub CreateCalendar() Dim lMonth As Long Dim strMonth As String Dim rStart As Range Dim strAddress As String Dim rCell As Range Dim lDays As Long Dim dDate As Date 'Add new sheet and format Worksheets.Add ActiveWindow.DisplayGridlines = False With Cells .ColumnWidth = 6# .Font.Size = 8 End With 'Create the Month headings For lMonth = 1 To 4 Select Case lMonth Case 1 strMonth = "January" Set rStart = Range("A1") Case 2 strMonth = "April" Set rStart = Range("A8") Case 3 strMonth = "July" Set rStart = Range("A15") Case 4 strMonth = "October" Set rStart = Range("A22") End Select 'Merge, AutoFill and align months With rStart .Value = strMonth .HorizontalAlignment = xlCenter .Interior.ColorIndex = 6 .Font.Bold = True With .Range("A1:G1") .Merge .BorderAround LineStyle:=xlContinuous End With .Range("A1:G1").AutoFill Destination:=.Range("A1:U1") End With Next lMonth 'Pass ranges for months For lMonth = 1 To 12 strAddress = Choose(lMonth, "A2:G7", "H2:N7", "O2:U7", _ "A9:G14", "H9:N14", "O9:U14", _ "A16:G21", "H16:N21", "O16:U21", _ "A23:G28", "H23:N28", "O23:U28") lDays = 0 Range(strAddress).BorderAround LineStyle:=xlContinuous 'Add dates to month range and format For Each rCell In Range(strAddress) lDays = lDays + 1 dDate = DateSerial(Year(Date), lMonth, lDays) If Month(dDate) = lMonth Then ' It's a valid date With rCell .Value = dDate .NumberFormat = "ddd dd" End With End If Next rCell Next lMonth 'add con formatting With Range("A1:U28") .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=TODAY()" .FormatConditions(1).Font.ColorIndex = 2 .FormatConditions(1).Interior.ColorIndex = 1 End With End Sub Create a 12 Month Calendar With The Current Day.rar

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

حياك الله اخي مارد !! لو لاحظت في الكود انه سيقوم باظهار المسج حسب عدد السجلات !! وهذا مزعج !! كما اريدك ان تعلم ان هناك : برمجة اكسس : اي استخدام كائنات الاكسس ووظائفه فقط مع الكائن docmd وهذا يظهر في كود رمهان وهناك برمجة قواعد البيانات بالـ DAO وهذا ظهر في كود مارد ! من الافضل في الاكسس ان نستخدم برمجة الاكسس ولا نلجأ لبرمجة ال DAO الا في حالات خاصة ! تحياتي

هنا ياتي سؤال وقبل الاجابة : لماذا تمنع تكرار الكود في جدول1 ؟ فربما يستلم اكثر من مره نفس الجهاز بتواريخ مختلفة !! ام انت تريد كما طلبت وبس ؟؟ بالتوفيق

اطلعت عليها ولا اعلم كيف حلها. ولكن أنصحك أن تستخدم نموذج ومن خلاله تقوم بالبحث عما تريد أي من خلال النموذج هذا تقوم بفتح تقرير او استعلام وهكذا..

السلام عليكم تمام ولكن اضف قبل السطر هذا On Error Resume Next DoCmd.close DoCmd.OpenForm "frm-UserLogon" طبعا ده اسم النموذج الخاص بالدخول للبرنامج (frm-UserLogon) انظر هذه صورة من احداى برامجى للشاشة الرئيسية

للعلم خطر على بالى عمل زر وتسميته تسجيل الخروج وفى الحدث عند الضغط كتابة هذا الامر DoCmd.OpenForm = "user-login" ولكن سأقوم بالتجربة واوفيكم ولو نجحت يبقى السؤال الاول مطروح لاساتذتى الكرام

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب سلمان النموذج لابد أن يكون ( منبثق = نعم ) ، (شكلي أو مخروطي = نعم ) وهذا مثالك بعد التعديل A_الغاء الخلفية الرمادي.rar

دا كان رأيي وكنت سأخبرك به أخي صلاح أكيد فيه برامج بتتشغل مع بدء تشغيل الويندوز وبتستهلك الذاكرة جرب برنامج CCleaner فيه خيار خاص بالـ Startup شيل كل البرامج من الـ Startup ما عدا برنامج الأنتي فيروس ..وجرب وشوف مرة تانية لو المشكلة متحلتش ممكن يكون المشكلة من نسخة الأوفيس حاول تغيرها بنسخة تانية تقبل تحياتي

شكرا أخى ياسر عمل اكثر من رائع وفوق اكثر ماتوقعته وجزاك الله خيرا ومتعك بالصحة والعافية

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

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

الشكر للاخ مارد

اكثر من رائع

شكرا اخي الكريم مارد

نعم وهي مسئولة عن توسيط أي نموذج على الشاشة ويتم استدعائها في حدث عند التحميل أو حدث عند الفتح للنموذج المراد توسيطه

الأخ الكريم محبوب من الأفضل أن نناقش جزئية جزئية عشان بتوه في الكلام الكتير مثال SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value السطر ده سألت عن SH دا متغير لأي ورقة عمل في المصنف الذي يحوي الكود لأننا بنعمل حلقة تكرارية لكل أوراق العمل .. بمعني مش منطقي إننا هنتعامل مع كل أوراق العمل كل ورقة عمل باسمها .. فبنرمز لأي ورقة بالمتغير ده وطبعا بما إنه متغير فبعد كل حلقة تكرارية ما تنتهي اسم ورقة العمل بيتغير لاسم ورقة عمل جديدة (تصدق أنا نفسي تهت) Cells معناها خلايا بس استخدامها هنا عشان أعرف آخر صف فيه بيانات في العمود رقم 8 يعني مثلا Cells(99, 8) معناها الخلية في العمود رقم 8 والصف رقم 99 End(xlUp) معناها اطلع لفوق .بالظبط زي ما بنضغط Ctrl + سهم لفوق عشان يطلعنا لآخر خلية بها بيانات في نفس العمود (اللي هو في المثال رقم 8) Row عشان نعرف رقم الصف لآخر خلية فيها بيانات زائد 1 عشان ننتقل لأول خلية فارغة في العمود رقم 8 عشان نبدأ ندرج فيه بيانات ... يعني خلاصة الكلام الجزء ده كله SH.Cells(99, 8).End(xlUp).Row + 1 معناه رقم صف أول خلية فارغة ....................! يعني مثلا لو كان ناتج الجزء ده رقم 7 ..الصف السابع مثلا فيه أول خلية فارغة في هذا العمود يبقا ممكن نختصر السطر SH.Range("H7"( ولما نوصل للخلية نخليها تساوي Cell.value الموضوع محتاج وقت عشان تقدر تدرسه كويس ربنا يوفقك

هل هذا ما تريد اخى الكريم ان مشى معاك ولقيته سهل نبتدى نحسن فيه دا بشكل مبدئى كل ما عليك انك تكتبالاسم والبرنامج هيولد رقم للموظفت تلقائى لو فى اى تعديل قولى رواتب.rar

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

ضع هذا الكود فى وحدة نمطية Public Function closeIfOpen() As Boolean Dim objWINMGMTS As Object Dim objApps As Object Dim objApp As Object Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='osk.exe'") For Each objApp In objApps objApp.Terminate Next End Function وقم بعمل استدعاء لها فى احدث مثلا عند النقر لاى زر Call closeIfOpen

السلام عليكم ورحمة الله أخي الكريم، تجد خاصية مشاركة المصنفات Sharing (في كلتا النسختين) في قائمة "مراجعة" أو "Review" يكفي في هده الحالة إلغاء المشاركة إدا لم تكن هده المشاركة محمية بكلمة سرية وفي هده الحالة يجب معرفة هده الكلمة أولا لإلغاء الحماية وثانيا لإلغاء المشاركة... وبعدها ستظهر كل الأكواد إن وُجدت... أرجو أني قدمت بعض المساعدة... أخوك بن علية

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

لقد تم إضافة مايلي للنموذج: If [not] = "خزنة" Then [sum] = -[out] ElseIf [not] = "وارد خ" Then [sum] = [out] + [into] End If وبالتالي عند عمل الجمع التراكمي في الاستعلام سيتم طرح قيمة out عندماتكون قيمة not تساوي "خزنة" لأنها أخذت قيمة سالبة بينما سيتم جمعها مع into عندماتكون قيمة not تساوي "وارد خ" لأننا أعطيناها قيمة موجبة فأرجو أن تضيف الحقل للجدول وتستورد النموذج مع إجراء التعديلات المطلوبة بالنسبة للحقول التي تم مسبقاً إدخال قيم بها ملاحظة:أقترح أن يكون الترتيب للجمع التراكمي في الاستعلام على أساس التاريخ وليس الرقم no أعتقد أن العمل سيكون أدق في هذه الحالة وهذا يمكنك عمله بتغيير بعض القيم في الاستعلام وبالتوفيق

اخي ابو البراء هذا عرض اخر للكتاب ارجو ان يعجبك دورة المبتدئين.rar