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

الاساتذة برناوي وعصام جزاهم الله خير اعطوك اجابات وافية ومثال الاستاذ عصام رائع ولمن يرغب في عملها عن طريق الاستعلام SELECT * FROM msysobjects; وفي نتيجة الاستعلام يهمنا حقلين هما Name و Type ونستخدم الرموز التالية لتحديد الكائن جداول = 1 استعلام = 5 نموذج = -32768 تقرير = -32764 مايكروا = -32766 موديول = -32761 في هذة الطريقة سوف نواجه مشكلة في نتيجة الجداول حيث ستظهر اسماء جداول النظام مما يتطلب منا ان نضع معيار لاستبعاد هذه الجداول الخاصة بالنظام مثل Not Like "MSys*" اوي اي معيار مشابه

تفضل أستاذ jo_2010 عسى أن يكون المطلوب Objects Name.accdb

أخى gelani نفترض ان جميع مشروعات الأكسيس لديك تحفظها فى فولدر إسمه AccessProjects الموجود على درايف \:D وعاوزين نخلى الفولدر ده Trasted Location علشان نمنع ظهور Enable Content فى كل مرة نغير فيها إسم الملف أو نمسحة ونضيفة مرة أخرى أو ننشئ مشروع جديد ننشئ لملف نصى فى اى مكان ونجعل إمتداده reg ونسميه مثلا TrustedLocation.reg ونضع به الكود السابق وسيكون هذه المرة بالصورة التاليه TrustedLocation.reg Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1] "Path"="D:\\AccessProjects\\" "AllowSubfolders"=dword:00000001 "Description"="" "Date"="" نغلق ونحفظ الملف ثم نوقوم بفتحه دبل كليك يعنى وبكدة خلاص اى ملف اكسيس داخل الفولدر اللى إسمه AccessProjects الموجود على درايف \:D هيفتح بدون اى رسائل لتمكين الماكرو أرجو أن أكون أوضحت مرفق ملف الريجسترى منفصل وايضا ملف اكسيس لعمل الفولدر وكذلك تمكين الماكرو بالتوفيق TrustedLocation.zip EnableContent.zip

صدقنى ما راح اتركه لو طلب منى التصميم الا ان دفع وهى جفلت امعاى يا بوي حتى لو راح يطير بيها رجاب <<------< تحول الى صعيدى

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

هذه مشاركة مجانية لأخي الفاضل @عبد اللطيف سلوم لا تخاف مجانا

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

نعم ممكن بارك الله فيك استخدم جدول النظام هذا MSysObjects اعمل له استعلام .....

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

السلام عليكم ابو اشرف شوف هذا

الرجال خاف من حكاية الدفع . هههههههه

ممكن 😃

وضعت تصميم على السريع ورفعت صوره اخد راى الاستاذ @عبد اللطيف سلوم بس يا استاذ @kha9009lid شكله لما حكيت له تدفع كام هرب

لطلب التصميم اضغط الرقم 1 للعودة للقائمة الرئيسية اضغط الرقم 0 للتحدث لمسئولى الدعم الفنى والتطوير تـأكد من وضع موضوعك بقسم الطلبات واضغط الرقم 9 حبيبى من حضر القسمة فليقتسم لما يطلب راح اخبره يعمل حسابه على طلبين زيادة لينا لانى جعان جدا ههههههه بس بشرط لا احب الاسبايسي او الصودا اطلب كيف ما بدك وتدلل استاذ @kha9009lid الطلبات اليوم على حساب الاستاذ @عبد اللطيف سلوم

تدفع كاااااااااااااااااااااااااام ؟

السلام عليكم 1- لو ارفق لنا مرفق بسيط يحوي الفورم المراد التعديل عليه فقط لجعلت الأمر أكثر سهولة علينا وعليك 2- حاول أن تجرب هذا التعديل في رأس الشرط علي اعتبار أن الكمية المتاحة من الصنف هي "ItemQnty" ويتم تخزينها بنفس جدول الأصناف "ItemsTble" If DCount("[ItemCode]", "[InvoiceTT]", "[InvoiceCode]=" & Me.InvoiceCode & "and [ItemCode]=" & Me.ItemCode) > 0 And nz(Vlookup("ItemQnty","ItemsTbl"),0) > 0 Then وان لم تكن النقطة 2 مفهومة جيدا فعد للنقطة 1 وجزاك الله خيرا تمنياتي بالتوفيق

بعد اذن الاخ علي و لا لزوم لعامود مساعد هذه المعادلة (Ctrl+Shit+Enter) =MAX(IF(LEN($A$9:$A$500)>=10,0,$A$9:$A$500)) تصيحيح المعادلة هنا لا نستطيع الاعتماد على الدالة LEN لانه ممكن ان يكون هناك رقم مثل هذا 12.1234567 طوله 10 وحدات (مع احتساب الفاصلة العشرية) بالتالي المعادلة السّابقة لا تعطي الجواب الصحيح المعادلة الصحيحة 100% (Ctrl+Shit+Enter) =MAX(IF($A$9:$A$15>10^9-1,0,$A$9:$A$15))

أخى engyasin انا كدة ابتديت افهم ممكن تتغلب على هذا الموضوع بعمل Trusted Location من داخل الاكسيس كما يمكنك عملة عن طريق الريجسترى كالتالى: انشئ ملف نصى جديد بأى إسم تريد على أن يكون إمتداده .reg ضع به الكود النالى: Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1] "Path"="D:\\" "AllowSubfolders"=dword:00000001 "Description"="" "Date"="09/18/2019 07:56" هنا جعلت درايف ال D بكامله أمان لأى ملف أكسيس وبالتالى أعتقد والله أعلم لن تظهر لك Enable Content جرب وبالتوفيق

هذه المعادلة تضعها في F7 (او اينما تريد) وتسحب الى اليسار ثم نزولا ( استعمال Ctrl+Shift+enter وليس Enter وحدها) =IF(ISNUMBER(IF($B$4="","",SEARCH($B$4,$A7:$D7))),A7,"") الملف مرفق test-new.xlsx

الاخوة الافاضل اعضاء الجروب المحترمين فى اكسيس 2007 كيف يمكن طرح تاريخين لمعرفة الفترة الزمنية بينهما مع جزيل الشكر والاحترام

رحتوا فين يا جدعان ؟؟ خلص براحتكم انا عايز انام وما بدي تصميم وعنهم ما اعجبهم البرنامج ههههههههههههه

ممتاز الان نجحت الف الف شكرا بارك الله فيك

العفو ياباشا احنا في خدمتك

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

ههههههههه حبيبي الغالي انت تؤمر تسلم اخوي خالد كلك ذووق

كدا انا خفت منك ... هههه ... @ابا جودى رجل الفائدة والدعابة

جرب هذا المرفق لعله ما تريد fillt.xlsm

فى هذه الحالة استخدم دالة حساب العمر سوف اتيك بالرابط اتفضل المرفق الفرق بين تاريخين (3).mdb

حاجة ع السريع كده

شكرا لتعبك كتر خيرك لكنى احتاجها بالسنة والشهر واليوم اذا امكن

جرب المرفق ولكن بعد مثال الاستاذ عصام لا توجد امثله تستحق ان ترفع Database281.accdb

فتح الله عليك أخى kha9009lid

لا ادري كيف عملت over group علي حقل رصيد سابق هل تقصد على التعبير مربع رصيد سابق ؟ ياليت ترفع الملف أخي @اسلام سيدفي المرفق تجد قاعدتين على طريقتين جرب و وافيني بنتيجة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

نعم اخى الفاضل

اشكرك اخيBarna على ماقدمتة وجزيت الف خير والشكر كذلك للاخ hussamjjk على مجهودة

نفضل هذا ..... مستودعات.accdb

وعليكم السلام-اهلا بك فى المنتدى بالتأكيد لا يمكن المساعدة هكذا فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب

مافهمت بضبط هل تقصد زيادة ارتفاع تفصيل؟ هذا ممكن جعلها في صفحة الاخيرة فقط test120 (1).mdb

أخي و حبيبي الاستاذ @ابو ياسين المشولي كلامك صح مئة في المئة ولكن السبب هو كبس زر غير موافق بالخطاء عند حفظ الاخير في ارشيف لان كان وقت متأخر من اليل و تم اكمال الباقي لا بالعكس اتا اعتبر خبرتي نقطة من بحر خبراتكم و انا من استفيد من خبراتكم. قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar و ادخالها في المعادلة يمكن تغير ها الى =Nz([الفواتير],0)+Nz([المرتجعات],0)+Nz([الخصم],0)+Nz([الدفعات],0)+[x1]

أخي @ابو ياسين المشولي عملت على حسب صورة توضحية بي بداية الموضوع هل سمعت كلام الأخ @essam rabea و قال قم برفع الرصيد السابق من التفصيل الى رأس التقربر و الأخ إسلام السيد قال لا.... اريده في تفصيل و بصوت عالي🤤

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

أخى engyasin أنا مش فاهم السؤال بالضبط ولكن لتشغيل الماكرو ضع الكود التالى فى اى حدث تشاء كحدث عند الضغط على زر معين DoCmd.RunMacro "إسم الماكرو المراد تشغيله"

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

لا يمكنك فعل هذا لان لكل ملف خصائصه من ناحية عدد الأعمدة فيه وبداية البيانات ونهايتها بالاضافة الى نوعيتها (نصوص أرقام الخ...) بل يمنكك تعديل الكود بما يتلائم مع وضعية الملف الذي تريد العمل عليه على فكرة تم التعديل قليلاُ على الملف السابق بحيث تستطيع عمل الفلترة على اي عامود من الجدول وليس فقط (Name1) تختار الحقل اولاً من الخلية B1 (يتم اطهار كافة البيانات) ومن ثم تحدد اي عنصر من هذا الحقل تريد من الخلية C1 الملف الجديد مرفق Filter_By_Select_by_col.xlsm

ارفق مثال لنرى امكانية ذلك ...

جرب هذل الملف أولاً الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$1" Then Call filter_me(Range("A3").CurrentRegion, 6, Target.Value) End If Application.EnableEvents = True End Sub '=========================================== Sub Create_dat_val() Rem created By Salim Hasbaya On 17/9/2019 Dim s1 As Worksheet: Set s1 = Sheets("sheet1") Dim ro_n: ro_n = s1.Range("A3").CurrentRegion.Rows.Count Dim i% Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary") With s1 For i = 4 To ro_n dict(.Range("F" & i).Value) = "" Next With .Range("c1").Validation .Delete .Add xlValidateList, Formula1:=Join(dict.keys, ",") End With End With dict.RemoveAll End Sub '=========================================== Sub filter_me(rg As Range, n, My_st) Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData rg.AutoFilter End If rg.AutoFilter field:=n, Criteria1:=My_st End Sub '=========================================== Sub Show_Me_All() Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Range("A3").CurrentRegion.AutoFilter End If End Sub ثانياً الملف Filter_By_Select.xlsm

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

تفضل ghaleb1.xlsx

تحياتي، جرب هذه المرة الملف المرفق لعل فيه ما تريد وزيادة... بن علية حاجي سند.xlsx

السلام عليكم ... إذا كنت تريد طباعة ورقات مصنف الاكسل كلها بدون استثناء ، فالكود التالي يحقق لك الغرض : Sub PRINT1() Dim Pr As Worksheet For Each Pr In ActiveWorkbook.Worksheets Pr.PrintOut Copies:=1, Collate:=True Next Pr End Sub طبعاً هذا مع الأخذ بالاعتباه ما قاله الأخ العزيز حسام نور .