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

حياك الله أخي @jobramlahy أولا :يرجى التقيد بوضع عنوان صريح للطلب من ضمن قواعد المشاركة فى الموقع : 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. نتمنى في المراة القادمة التقيد بذلك . ثانيا : بالنسبة لطلبك أولا : الأكسيس يتعامل مع قواعد البيانات العلائقية ليس كالأكسيل بعنى أن هناك أكثر من جدول كي لا تتكرر البيانات مرة أخرى ، ويكبر معها حجم القاعدة وما إلى ذلك . ثانياً : أنت بحاحة إلى إنشاء ما يلي من الجداول : جدول بيانات الزوار يحوي الحقول التالية ( المعرف ،الهوية الوطنية نوع الحقل "رقم" ، اسم كاملا "اسم" ، الجنسية "رقم" ،القسم "رقم" .. إلخ ) جدول الجنسيات ( المعرف ، اسم الجنسية ) . جدول الأقسام ( المعرف ، اسم القسم ) جدول الموظفين ( المعرف ، اسم الموظف ) آخيرا جدول الإدخال ( المعرف ، الهوية الوطنية "مرتبط "، وقت الدخول والتاريخ "()Now" ، القسم رقم "مرتبط" ، الموظف رقم "مرتبط" ) يفضل أن تمسي ( الجداول وحقولها ، والاستعلامات ، والنماذج وأدواتها ، والتقارير وأدواتها باللغة الإنجليزية ) تكون أسمائهم تبدأ بثلاثة أحرف الأول مثل: الجدول tbl مثلا جدول الزوار هكذا tblVisitors الحقول بداخله كذا ( IDVisitors ، NameVisitors ) اربط اسم الحقل باسم الجدول . الاستعلام qry النموذج frm التقرير rpt الوحدة النمطية mod إذا كنت ضعيف في اللغة الإنجليزية اذهب إلى مترجم قوقل تابع هذا الموضوع الجميل ونصائح الخبراء ونحن معك في الخدمة قم بإنشاء القاعدة ونكون معك .

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

اهلا وسهلا بك اخي سيروان

السلام عليكم بعد اذن الاستاذ sandanet وجزاك الله خيرا على البرنامج الجميل لابو ساره جزاه الله خيرا كل مثال وطريقه لها وضعها الخاص يعنى مثلا الاستعلام المرفق بمثالك قمت بادراجه فى مصدر السجلات بالنموذج وحذف الاستعلام ودون تحويله بالبرنامج المرفق والاستغناء عن الاستعلام انظر للمثال وافتح النموذج فى وضع التصميم مثال.accdb

تفضل اخي الكريم StuSaifi_2.rar تحياتي

حسب طلبك هذا مرفق Entry form (2).xlsb

هذا الفورم ممكن يفي الغرض به إضافة وحذف وتعديل وتم أيضًا تنسيق التاريخ في الفورم وتم أيضًا التعديل في شيت 2 Book2.xlsm

بارك الله فيك استاذي الفاضل @أبو عبدالله الحلوانى لمسات إبداعية وإضافة جميلة كعادتك ، شكراً لك

اضافة الي ما تقدم به أساتذتي ربما مع اختلاف المدخلين للبيانات يدويا أن يكون قد حدث اختلاف في طريقة الادخال مثلا ربما كان أحدهم يفضل ادخال التاء المربوطة هاء أو الياء ياءا منقوطة بآخر الكلمات - مما يؤدي لتكرار بيانات العميل الواحد أكثر من مرة , مما سيجعل البحث عن اسم العميل به صعوبة شيئا ما- وقد واجهتنا هذه المشاكل كثيرا.. لذا كان اقتراحي أن يتم وضع مربع نص للبحث عن رقم الهوية فان كان موجودا , يتم ملئ باقي بيانات العميل تلقائيا والا فيتم التوجيه الي شاشة ادخال البيانات . وهذا مثال بسيط علي هذه الفكرة. SearchWithpesounCard.rar

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

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض تاريخ.xlsx

وعليكم السلام ورحمة الله وبركاته اعتقد استاذنا الفاضل ان الامر متعلق بكود البحث نفسه فاذا كنت تقصد موقع اوفيسنا تحديدا فكود البحث الموجود كالتالي <!--بداية كود البحث --> <style type="text/css"> @import url(//www.google.com/cse/api/branding.css); </style> <div class="cse-branding-bottom" style="background-color:#FFFFFF;color:#000000"> <div class="cse-branding-form"> <form action="http://www.google.ae" id="cse-search-box" target="_blank"> <div> <input type="hidden" name="cx" value="partner-pub-4958585055085854:7791406915" /> <input type="hidden" name="ie" value="UTF-8" /> <input type="text" name="q" size="55" /> <input type="submit" name="sa" value="Search" /> </div> </form> <script type="text/javascript" src="http://www.google.com/jsapi"></script> <script type="text/javascript">google.load("elements", "1", {packages: "transliteration"});</script> <script type="text/javascript" src="http://www.google.com/cse/t13n?form=cse-search-box&t13n_langs=ar"></script> </div> <div class="cse-branding-logo"> <img src="http://www.google.com/images/poweredby_transparent/poweredby_FFFFFF.gif" alt="Google" /> </div> <div class="cse-branding-text"> Custom Search </div> </div> <!--نهاية كود البحث --> والتعديل يكون كالتالي <form action="http://www.google.ae" id="cse-search-box" target="_self"> بدلاً من <form action="http://www.google.ae" id="cse-search-box" target="_blank"> تحياتي

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ضروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات وظهار كشف الحساب لكل مورد على حدى او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اخواد و مايضهره من جمال للفورم اما الثانية ما يضهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاص يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع WPFVBA.rar

وايضا هنا فى قسم الاكسيس من 2015

العفو اخى هو ليس استعلام مؤقت بل هو نفس الاستعلام ولكن تم حذف الاستعلام وجعل جمله sql مصدر للنموذج مباشره هل تقصد هل يؤثر فى حركه سير عمل البرنامج ام لا مثل الا ستعلام العادى قبل الحذف ؟ ان كان هذا قصدك فلا يؤثر باذن الله تعالى ان كان قصدك غير ذلك فوضح اكثر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

لقد نجحت في تطبيق هذا الجزء و إلغاء فتح النافذة الجديدة بقي إصطياد اللينك الآن و هذا هو الكود: Private Sub WebBrowser4_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True End Sub

عاشت ايدك خوية سند / موفق وعاشت ايدك خوية احمد الفلاحجي/ اشكرك خوية سند طريقة احمد الفلاحجي استعلام مؤقت طريقة ناجحة بعدين هم ياثر على البرنامج لو لا عمله مثل الاستعلام الطبيعي

اتفضل استاذى الفاضل استبدل علامه * بـ % تم الحل بواسطه البحث بجوجل عالسريع Though it's not actually listed on official lists of Reserved words (I'd suggest that's an oversight) Alike is indeed a keyword in Jet SQL. It's the ANSI Like - which can be used in either mode of compatibility. In other words - when you're using Alike you would use the ANSI wildcard (%) instead of Jet's default (*). So WHERE FieldName Like 'Smith*' would be WHERE FieldName ALike 'Smith%' The behaviour you're seeing (Like automatically changed to Alike in the QBE - I presume it's the QBE - it wouldn't happen in SQL view.. the parser isn't that pushy) implies that you have your application in ANSI mode. (Whereby it assumes you want to use Alike). In fact - in that mode WHERE FieldName Like 'Smith%' would be valid syntax anyway. It's just going for maximum compatilbility in query writing. To remove it: Tools > Options > Tables/Queries > SQL Server Compatible Syntax (ANSI 92) Knock off the checkbox. Cheers. ALike "%" & [Forms]![نموذج1]![texs] & "%" تقبل تحياتى طبتم واهتديتم Database7.rar

حبيبى أستاذ أحمد لم أقصد ان افتح موضوع جديد لأننى وجدت موضوع مشابه وكنت أود معرفة سبب المشكلة حيث كان الاستعلام يعمل حتى أوفيس 2016 وعندما قمت بالتحديث لـ 2019 ظهرت المشكلة وعموما سأضيف موضوع جديد وأرفق الملف ان شاء الله

طلبك هنا ......

جرب هذا الكود Private Sub CommandButton1_Click() Me.TextBox1.Value = "G" & _ Evaluate("=MAX(IF(ISNUMBER(--(SUBSTITUTE($A$2:$A$100,""G"",""""))),--(SUBSTITUTE($A$2:$A$100,""G"","""")),0))") + 1 End Sub الملف مرفق Max.xlsm

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

تفضل أخي الكريم .. كان هنالك خطأ بسيط في استخدام المراجع انظر للمراجع في الملف المرفق وملفك السابق انصحك بفصل الجداول عن القاعدة لكي لاتواجه مشاكل فعندما تكثر البيانات ستواجه مشاكل تتعلق ببطء البرنامج p-akre.accdb

تفضل اخي الكريم StuSaifi_2.rar تحياتي

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

السلام عليكم تم عمل المطلوب بإضافة كود يقوم بحفظ كل مضمون الورقة في ملف جديد في موقع الملف الأصلي وباسم الورقة الحالية "اساتذة القسم الواحد" دون معادلات أو روابط مع ملفات خارجية... أرجو أن تفي الغرض المطلوب... ملاحظة: لم أضف في الكود أمر حذف الأعمدة الأولى (كما طلبت)... معذرة. بن علية حاجي 22 (1).xlsm

المفروض ان يكونوا في جدولين وعمل علاقة بينهما وبين الجدول الرئيسي عموماً دائماً يوجد حل اخر انظر المرفق واعلمني بالنتيجة StuSaifi_2.rar تحياتي

السلام عليكم AhmedEmam ارفق لنا ملف للتصحيح بيكون افضل هذا ملف لاحد الاخوه اظهار كلمة المرور.rar

مرحبا اخى واستاذى @أبو عبدالله الحلوانى حمدالله على السلامه نورت المنتدى جزاك الله خيرا اخى خالد بارك الله فيها اختنا زهره ام عهود وجزاها الله عنا خيرا الجزاء لى ملحوظه لم يظهر لى A5 فى اختيارات المثال هل تم برمجته على اعدادات معينه ؟ طبتم واهتديتم

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

ضعه تحت حدث عند فتح النموذج او حدث عند النقر لزر أمر وليس كما في الصورة السابقة إليك المثال التالي .. تم وضع استعلام حذف سجل تحت حدث "بعد التحديث" لمربع نص اسمه Text35 Private Sub Text35_AfterUpdate() On Error GoTo Err_Text35_AfterUpdate DoCmd.SetWarnings False DoCmd.RunSQL "DELETE time_over_chosen.id, time_over_chosen.time_over FROM time_over_chosen" DoCmd.SetWarnings True Exit_Text35_AfterUpdate: Exit Sub Err_Text35_AfterUpdate: Beep DoCmd.CancelEvent Resume Exit_Text35_AfterUpdate End Sub نصيحة: استخدم الاحرف الانجليزية دائماً عند تسمية الاعمدة والجداول لكي يسهل عليك مستقبلاً تعديلها ولتجنب حدوث مشاكل في البرنامج

جرب هذا الملف tajmi3_sa3at.xlsx

بارك الله فيك يامبدع وجعلك اعمالك كلها خالصة لوجهه الكريم

لاحظ السبت 28/9/2019 باللون الاحمر بالمعادلة السابقة كان يحسب له بعد الغاء السبت لم يتم احتساب الاضافي الغاء اضافي السبت.xlsm

أحسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله

ارفق ملفك اخي الكريم ليتم التعديل عليه ان شاء الله تحياتي

عليك السلام ورحمة الله وبركاته من فضلك قم بتوضيح ما تطلبه اكتب الشروط المطلوبة لكي يتسنى للأعضاء مساعدتك جرب هذا لعله يفي الغرض NESTED IF.xlsx

تأكد اخ احمد غير صحيح ماتقول ارفق مثال لتجربة الكود

جرب هذا الكود Option Explicit Sub TAJMI3() Dim MY_SH As Worksheet, SH As Worksheet Dim r%, m%, col% m = 5 Set MY_SH = Sheets("تجميع") MY_SH.Range("B5").Resize(5000, 50).ClearContents For Each SH In Sheets If SH.Name <> MY_SH.Name Then r = SH.Cells(Rows.Count, 2).End(3).Row col = SH.Cells(5, Columns.Count).End(1).Column MY_SH.Cells(m, 2).Resize(r - 4, col).Value = _ SH.Cells(5, 2).Resize(r - 4, col).Value m = m + r - 4 End If Next الملف مرفق All_sh.xlsm

تفضل شرح مبسط في الكود تم انشاء جدول الذي اسمة الجدول3 في الشيت A_2.xlsm

السلام عليكم مالذي تريد عمله بالضبط المرفق به طلبك بخصوص الاختيار A_1.xlsm

فورم اكسل لقصص انبياء الله للاطفال والكبار الفيديو الملف باسفل فورم اكسل لقصص الانبياء.rar

بالتوفيق والشكر موصول للاخ أبو عبدالله الحلوانى

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

بارك الله فيك أستاذ محمد طاهر على جهودك الطيبة، والمعلومات القيِّمة التي تضيفها إلينا. إن شاء الله في ميزان حسناتك يعطيك ألف عافية

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي Custom Printing.rar

مرفق كود تصدير الشيتات جميعها أو بعضا منها إلى ملف PDF واحد. أرجو للجميع الفائدة، مع خالص شكري و تقديري للجميع في هذا المنتدى العريق export_to_PDF.rar

وعليكم السلام ورحمة الله في وضع إغلاق الجداول والاستعلامات قم من تبويب خيارات اختيار مصممو الكائنات ثم في SQL Server - ANSI92 قم بإلغاء الاختيار على خانة قاعدة البيانات هذه انظر الصورة المرفقة

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