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

اخونا الحبيب وأستاذنا القدير ابو عبدالله ؛ في الفقرة 1 لعلك تراجع الحسبة ، لاني حسبتها باصابعي والنتيجة 19 شهر المهم في الامر ان الاستعلام رفيقي مثل ما الاستاذ جعفر رفيق التقارير حاولت ان احل المسألة باستعلام واحد ونجحت في ذلك اتمنى ان يحقق مطلبك QuestionHalwane.rar

وعليكم السلام 🙂 استعمل الكود التالي للتحديث : "ميت غمر " & Mid(Replace([Title],"ميت غمر",""),1) . فيصبح استعلام التحديث هكذا UPDATE tblOld SET tblOld.Title = "ميت غمر " & Mid(Replace([Title],"ميت غمر",""),1); جعفر

وهنا أيضا قمت بعمل كود لإضافة السجلات وترقيمها 🙂 وهذا هو الكود : Sub Add_2000_Record() Dim x As Long For x = 1 To 2000 CurrentDb.Execute "INSERT INTO Ta1 ( IDD ) VALUES (" & x & ");" Next End Sub إضافة2000سجل.rar

اريدك تتمعن في طريقة عرض وتنسيق ومحاذاة الاكسس لبيانات الحقول ، وهو نفس التنسيق سواء للجداول او الاستعلام او النماذج او التقرير في الصورة التالية ، ترى جزء من بيانات الجدول ، وتحته 3 طرق لعرض التاريخ في الاستعلام : . من تنسيق/محاذاة القيم في الجدول ستعرف محاذاة التاريخ الصحيحة (نفس الشئ ينطبق على حقل النص او التاريخ او الرقم) ، فالمفروض تعرف اي الطرق الثلاثة من الاستعلام صحيحة 🙂 . . جعفر New Microsoft Access Database.zip

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

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

سؤال هامشي شاهدت هناك عدم تواصل في المدد وبفاصل شهر كالتالي: من 8/2020 الى 3/2022 من 4/2022 الى 1/2023 من 2/2023 الى 8/2023 يفترض أن يكون بداية الفترة التالية هي نفسها نهاية الفترة السابقة وإلا يعتبر هناك شهر مفقود ، (إلا إذا كانت مقصودة). المهم في الأمر أنا رفيق الكل.

طريقتي لا تعرف اذا كانت الجملة المراد تغيير مكانها "ميت غمر" ، في اي مكان من الحقل ، فهي تحذفها ، ثم تضيفها في البداية ، فإذا هذه الجملة ممكن ان تكون في اماكن متفرقة من الحقل ، فطريقتي لا تصلح ، الافضل استعمال هذا الكود ، لأنه يتأكد من وجود الجملة في نهاية الحقل : Trim(IIf(Right([Title],7)="ميت غمر","ميت غمر " & Left([Title],Len([Title])-Len("ميت غمر")),[Title])) جعفر

أفضل اجابة -فوق شوية 👆- يبدو انك لم تلحظ انك وضعت افضل اجابة علي حتي تسهل علي الباحثين من بعدك

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

وعليكم السلام ورحمة الله تفضلtest.xlsm

شكرا اخوي موسى خليتني اقرأ السؤال مرة ثانية 🙂 تفضل ، وبدلا عن dd-mm-yy ، تقدر تتفنن باي طريقة للتاريخ ، مثل dd/mmm/yy ، المهم انك تستخدم نفس الطريقة لإسم الحقل والمعيار: . وهذا هو الاستعلام SELECT Format([DateTime],"dd-mm-yy") AS iDate FROM revision WHERE (((Format([DateTime],"dd-mm-yy"))=Format(Date(),"dd-mm-yy"))); جعفر

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

اخي @Ahmed_J 🤨 هل رائيت ردي ...؟؟؟

لا أعلم كيف أخطات شكراُ للتصحيح والتوضيح

هذا ماطلبه السائل وكان معالجتي كما سردت (على سبيل المثال) فقط للريط بين الاجهزة .

نعم صحيحة 🙂 وللعلم ، يُفضل ان يكون هارد ديك مجلد المشاركة من نوع SSD او M.2 🙂 جعفر

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

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

السلام عليكم 🙂 هناك الكثير من المواضيع في المنتدى ذات الصلة ، والميزة في قراءتها من المنتدى ، انه سيكون فيه اسئلة واجابة على استفسارات الاعضاء ، منها . . جعفر

احسنت ... بارك الله بك ...شكرا جزيلا ابو احمد على جهودك

أخي الاستاذ بلال اضفت لك دالة تسمى Nana بالفورم frm1_UserLogon واتسعيتها عند فتح الفورم وأضفت لك قاعدة تسمى ExpireDate.accdb وبها التاريخ الذي تحدده +30 يوم فترة اضافية أذا التاريخ أقدم عدى 30يوم لايفتح الفورم frm1_UserLogon وجرب وغير التاريخ ثم اغلق القاعدة ExpireDate.accdb وافتح برنامجك وطالع النتائج ووافني بالرد Khalifa1960.rar

شكرا استاذ ابو احمد كدا اصبح تمام والمواد اصبح تتغير

جرب هذا المرفق ووافنا بالنتائج اكتب عدد السجلات المطلوبة واضغط علي زر اضافة سجلات فارغة نموذج.rar

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

اخوي مصطفى ، الاكسس ، كلما تُدخل معلومة في سجل جديد ، تلقائيا يفتح لك سجل فارغ تحته ، بهذه الطريقة ، دائما يكون عندك سجل فارغ اسفل السجلات ، وما تحتاج تنقر بالفأرة اليمين لعمل سجل جديد.

السلام عليكم: يمكن استخداد الدوال Filter و Sort بالخطوات التالية 1- للتسهيل منسدله فى خلية بأسماء المناديب ولتكن I4 2- مسح محتويات جدول بطاقة المندوب بالكامل من اول سطر 6 بما فيها العمود A 3- نكتب المعادله التالية فى الخانه A6 =SORT(FILTER('بيانات العميل'!A2:G1500,'بيانات العميل'!H2:H1500=I$4,""),2,1) =SORT(FILTER('بيانات العميل'!A2:G1500,'بيانات العميل'!H2:H1500=I$4,""),2,1) دي معادله من دالتين : الداله الاولى filter : ودي بتختار فيه جدول المصدر كله 'بيانات العميل'!A2:G1500 ثم الشرط وهو ان القيمه فى عمود المندوب = الاسم اللى احنا محددينه 'بيانات العميل'!H2:H1500=I$4 ثم القيمة المفترضه فى حالة عدم العثور على بيانات "" الدالة الثانية "Sort" ودي بتستدعى جدول (هنا اخدناه من الداله السابقة Filter) ثم ترتبه بواسطة العمود رقم 2 و بيكون الترتيب تصاعدي 1 سرد العملاء التابعين لكل مندوب 2021.xlsm ملحوظة: الدوال دى غير موجوده فى اصدارات ما قبل 2021

يتم تخزين الفاتورة مكان تواجد الملف الرئيسي تفضل بيات توزيع المواد الغذائية.xlsm بيات توزيع المواد الغذائية (2).xlsm

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

الأمور غير واضحة ، ويبدو لي أن بيانات الجدول فيها تكرار ، على كل حتى البيانات في الجدول غير مفهومة. كما أن الدالة تستقبل متغيرين غير مستعملين Q و actv ولا دور لهما في الدالة. وقد قمت بفلترة الجدول بعدة أشكال ولكن مع كل النتائج أرى أن هناك سجلات متشابهة!! الصورة غير واضحة. - إما أن توضح أكثر وبتفاصيل واضحة جدا أو ترفع نسخة أخرى تحتوي على نموذج لمناداة الدالة وتوضيح أين تود إضافة نتائجها.

تم حذف السطر الاول من ملف الاكسس بواسطة كود من الاكسس وهذا هو الكود. Sub DeleteFirstRow() Dim xlApp As Excel.Application Set xlApp = New Excel.Application Dim xlWorkbook As Excel.Workbook Set xlWorkbook = xlApp.Workbooks.Open("C:\xxxxx\0125.xls")غير مسار الملف xlWorkbook.Sheets(1).Activate Dim firstRow As Excel.Range Set firstRow = xlApp.ActiveSheet.Range("A1:IV1") firstRow.Delete xlWorkbook.Save xlWorkbook.Close xlApp.Quit End Sub بالتوفيق

نعم أخي الكريم تفضل Private Sub TreeView1_Click() Dim strFormName As String Dim formsDictionary As New Scripting.Dictionary formsDictionary.ADD "بيانات الشركة", "frmCompany" formsDictionary.ADD "بيانات مستخدمي النظام", "frmSystemUserData" formsDictionary.ADD "كلمات المرور", "frmPassword" formsDictionary.ADD "بيانات المطورين", "frmDeveloper" strFormName = TreeView1.SelectedItem.Text If formsDictionary.Exists(strFormName) Then DoCmd.OpenForm formsDictionary(strFormName) Else MsgBox "عذرا هذا النموذج غير موجود", vbExclamation, "تنبيه" End If End Sub واليك الملف بعد التعديل . المكتبات المطلوبة انظر الصورة بالتوفيق MediaSoft 2.rar

بارك الله فيك اخي AbuuAhmed جزاك الله كل خير

السلام عليكم و رحمة الله استخدم المعادلة التالية =INDEX($B$2:$K$8;MATCH($B$15;$A$2:$A$8;0);MATCH($C$15;$B$1:$K$1;0))

فقط في الاستعلام غير هذه الجملة بالأعلي الي ما تريد ان يظهر في الرسالة الي المستخدم مثل: like "*" & [من فضلك اكتب العام] & "*" وانتهي الامر

@saad 77 @saad alyousif @فوزى فوزى @مصطفى محمود مصطفى @mohameddeela @فارس حسن3

انظر هذا البرنامج الجدول والموديول إيقاف بالمدة.mdb

السلام عليكم ورحمة الله بما أن القوائم في كل الشيتات: "قائمة ب"، "غياب ب"، "قوائم لعب"، "استلام طفل حضانة" ، "قوائم بالميلاد"، تستمد عناصرها من القائمة الموجودة في شيت "بيان ب" فقد قمت بإضافة كود الترتيب حسب العمودين D (عمود المجموعات) و B (عمود الأسماء) بهذا الترتيب... وضعت هذا الكود داخل كود "استبدال الهمزات والتاء" ويكون تنفيذه مباشرة بعد الاستبدالات... ملاحظة: أضفت بعض النطاقات بالتسمية لأجل الترتيب (Rng_2، Rng_1، Rng)... بالنسبة للإحصائيات فقد أضفت المعادلات اللازمة لذلك في الجدول في شيت "إحصاء ب"... واعذرني على التأخير لأني بدأت العمل على الملف بالأمس (كما وعدتك) غير أني نسيت جهازي عند مغادرة مقر عملي... أخوك بن علية حاجي برنامج أبو عزيز تحديث رواق.rar

السلام عليكم سأحاول غدا بحول الله وقوته ما أستطيع عمله في الملف...

شكرا لك اخى العزيز AbuuAhmed -جعله الله فى ميزان حسناتك

احشر كلمة PtrSafe بين كلمتي Declare Function لتصبح بعد الحشر Declare PtrSafe Function

النسخة الثانية تم تبديل الكود الأساس بالكامل وتم بناءه من جديد. النتائج الآن أفضل والخيارات أوسع. وشكر خاص للاستاذ سعد @saad 77 لتقديمه المعلومات المطلوبة لانهاء المشروع. توزيع القرار لمدارس العراق_02.xlsm

بارك الله فيك استاذ AbuuAhmed وجعلك الله دائماً وأبداً زخراً لكل المحتاجين وجعل الله هذا العمل الممتاز فى ميزان حسناتكم وزادك الله من فضله

اتمنى ان تجد الوقت المناسب للرد على طلبي وشكرا جزيلاً لتعاونك الدائم

بعد أذن أساتذتى حل أخر تم تعديل المرفق لتتناسب المعادلة مع أوفيس 2007 عفوا فأنا أعمل على أوفيس 2003 تقبلوا تحياتى مقارنة قائمتين وأرجاع القيم الفريدة فى قائمة ثالثة (2003 -2007 ).rar

السلام عليكم و رحمة الله إستخدم هذه الطريقة اخي بجاني القائمة الأولى إستخدم المعادلة التالية =ISNUMBER(MATCH(ValInList1,List2,0)) طبعاً أخي الفاضل قم بتغيير ValInList1 بمرج الخلية المنوي البحث عنه و الـ List2 هي القائمة التي تريد البحث فيها إن كانت النتيجة True فمعناها أن القيمة موجودة ============ و أيضاً يمكنك إستخدام نفس المعادلة في التنسيق الشرطي حدد المجموعة الأولى و من خيارات Home Conditional Formatting New Rule Use a formula... إستخدم نفس المعادلة و إختر التنسيق الذي يناسبك أتمنى أن تكون الصورة واضحة دمت في حفظ الله

وهذه معادلة أرى بسيطة جدا =IF(ISTEXT(B7),COUNTA($B$3:B7),"") Numbring.zip