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

اتفضل Correct_data_without_duplication(5)

السلام عليكم ورحمة الله الكود الاول لاظهار واخفاء الخطين و يربط بالشيكبوكس الاول Sub AddStright() If Sheet1.Shapes("Check Box 3").OLEFormat.Object.Value = 1 Then Sheet1.Shapes("Straight Connector 3").Visible = msoTrue Sheet1.Shapes("Straight Connector 2").Visible = msoTrue Else Sheet1.Shapes("Straight Connector 3").Visible = msoFalse Sheet1.Shapes("Straight Connector 2").Visible = msoFalse End If End Sub الكود الثانى للاثنين الباقيين و يربط بهما الواحد تلو الاخر Sub AddWords() Dim Frst As String, ForB As String Frst = " للمستفيد الأول" ForB = "يصرف لحامله" If Sheet1.Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then Sheet1.Shapes("TextBox 7").TextEffect.Text = Frst ElseIf Sheet1.Shapes("Check Box 2").OLEFormat.Object.Value = 1 Then Sheet1.Shapes("TextBox 7").TextEffect.Text = ForB Else Sheet1.Shapes("TextBox 7").TextEffect.Text = "" End If End Sub

تفضل هذا التعديل سيتم حذف المكرر سيتم الاحتفاظ بالاسم الذي لا يحمل رقم dub_names.accdb

السلام عليكم ربما لاحظت أن المعادلات لا تعمل مع شيتات الأشهر التي عدد أيامها لا تساوي 31 يوم... بمعنى آخر أن الجداول في هذه الشيتات غير متماثلة ... وفي الملفات المرفقة حلين ممكنين إما أن نطابق الجداول فنجعل عدد أعمدة أيام الشهر يساوي 31 عمود (من العمود D إلى العمود AH) ونحافظ على المعادلات التي وضعتها (الملف Attend-V5.xlms)، وإما أن نعدل كل المعادلات حسب عدد أيام كل شهر (وعدد أيام كل شهر تم جلبه من الخلية B4 من كل شيت من شيتات الأشهر) وتجد ذلك في (الملف Attend-V6.xlms). تم حذف العمود الفارغ AH من شيت June في هذا الملف... أرجو أن تفي الغرض المطلوب... بن علية حاجي attend-v5.xlsm attend-v6.xlsm

الله يبارك في الجميع حل اضافة السجلات بدون تكرار لجدول آخر ممكن عملها باستعلام واحد فقط. لكن كان ودي أشارككم بحل بالكود أقوم فيه فقط بتحديد المكرر وأراه بنظري أنسب من عمل جدول آخر ولكن لم أرى أي إشارة بقبول المشاركة. نشارككم في مواضيع أخرى إن شاء الله.

سؤال فقط الحقل sousf يضم أكثر من اسم ؟ يعني هل يضم فقط laptop أم يضم أكثر من اسم وحسب الاسم يتغير الحقل الخامس ؟

ممكن تستعمل الكود الاتى Private Sub Form_Current() If sousf = "laptop" Then CodeInv = "lap" End Sub او Private Sub sousf_AfterUpdate() If sousf = "laptop" Then CodeInv = "lap" End Sub

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

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

يمكنك استخدام هذه المعادلة =INDEX($B$2:$E$5,MATCH($J3,$A$2:$A$5,0),COUNTA(B2:E2)) البحث عن اخر قيمة فى الصف.xlsm

السلام عليكم و رحمة الله تعالى و بركاته لقد وضعت طريقتي في التحديث في هذا الموضوع و به كل حلول المشاكل التي تكلمتم عنها إن شاء الله

ممتاز أستاذنا جزاكم الله خيرا وتقبل منكم في هذه الأيام المباركة

جرب هذا التعديل وارجو ان يكون طلبك وعذرا لسوء فهمي اخي الحبيب db3-3.rar

السلام عليكم ورحمة الله وبركاتة اساتذتي الافاضل كيف استطيع ان اشاهد السجلات المحصورة بين تاريخين مثلا اريد مشاهدة الموظفين المجازين من تاريخ مثلا 22/10/2003 و 22/11/2003 ولكم جزيل الشكر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أعزائي : لدينا في العمل طريقة لتوزيع العدد والأدوات فمثلا وصلتنا كمية معينه من الأدوات ( مفتاح رقم 10 ... مثلا ) طبعا هذه العدد والادوات تأخذ رقما تسلسليا كما يلي مفتاح 10 صنع بريطاني الرقم 15000 كمية العدد 50 لكل مفتاح 10 صنع بريطاني رقم خاص به مثل 15000.001 الى 15000.050 فحينما نوزع العدد والادوات على العاملين نسجل رقم العده او الاداة في سجل الموظف المستلم للعدة . اي اعطينا مثلا مفتاح رقم 10 لمحمد طاهر رقم 15000.002 مفتاح رقم 10 لاشرف رقم 15000.003 مفتاح رقم 10 لمنتصر رقم 15000.009 كما تلاحظون فان العدة ( مفتاح 10 ) مواصفاته ثابته ولكن يتغير من يستلم تلك العده طبعا يصل الى المستودع عدد معين من العدد ولنفرض انها 50 ( مفتاح 10 ) . طبعا سوف يتم ادخال عدد 50 ( مفتاح 10 ) في جدول العدد وتصبح العملية مرهقه جدا مع زيادة العدد والادوات سؤالي بعد هذا الشرح هل توجد طريقة لإدخال 50 سجل دفعة واحدة بحيث يعطيني رقم من 15000.001 الى 15000.050 علما بان جميع المواصفات للأداة ( مفتاح 10 ) متطابقة ولا يختلف الا الرقم لتمييز المعده عن غيرها من نفس النوع .؟

السلام عليكم ياأهل الخير بودي أن أعمل برنامج للمراقبة عندنا في المكتب ولكن متحير في كيفية تضبيط آليته بالاكسس المهم وظيفة البرنامج أنه عندي جدول به أرقام المراقبين واسماؤهم مثلا : رقم الموظف اسم الموظف 1 محمد 2 احمد 3 عصام 4 ناصر 5 هشام وعندي جدول آخر اسمه جدول تسجيل المراقبة وحقوله كالتالي : تاريخ المراقبة رقم الموظف سؤالي هو كيف اجعل البرنامج يضع الموظفين بشكل آلي في جدول تسجيل المراقبة بحسب ترتيبهم في جدول الموظفين بحيث مثلا أريد أن أحدد المدة التي أريد البرنامج يوزع الموظفين فيها على المراقبة بحيث أعطيه أمر من نموذج أحدد فيه تاريخ بداية المراقبة وتاريخ نهاية المراقبة فيقوم البرنامج بتوزيع المراقبين في هذه الفترة بحسب ترتيبهم في جدول الموظفين سؤالي : هل يمكن عمل هذا بالاكسس وكيف يمكن عمله تحياتي لكم

السلام عليكم انا لددي برنامج وفيه (( اسم العميل ,, رقم حسابه ...الخ)) اريد انه عندما ادخل اي من الحقلين يتعرف على الحقل الاخر مثلاً: اذا كتبت رقم الحساب للعميل مباشرة يكتب اسم العميل ...والعكس .. وجزاكم الله خيراً

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

مرفق مثال استعراض مجلد واختياره باستخدام دوال API بالضغط المزدوج على حقل المسار استخدامها مفيد احيانا فى نواحى كثيرة DIR_D.zip

السلام عليكم ورحمة الله وبركاته أخواني الكرام لاشك أن الكثير منكم يخشى من أن يقوم المستخدم لقواعد بياناتكم بإدخال تواريخ خاطئة أو أنها منطقياً لا يمكن تقبلها... فمثلاً ،،، لا يصح أن يكتب 29/2/2003 أو 31/2/2003م ، حيث أن شهر فبراير لا يمكن بأي حال من الأحول أن يتعدى 29 يوماً كما أن نهايته محكومه بنوع السنه (بسيطة أو كبيسة) :) المثال المرفق ان شاء الله يحل تلك الإشكاليات. أرجوا لكم الفائدة والله الموفق. DateComboDemo2000.rar

بدأت فى اعداد ما تريد و ستجده هنا قريبا بإذن الله

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

لتغيير اللغة المختارة اما نبدل بالماوس بين AR,En من أقصي اليمين الاسفل للشاشة أو نستخدم ALT+SHIFT و هذا المثال يظهر اللغة الحالية و يمكنك من التغيير عن طريق زر و أيضا يبين كيف نحكم لغة الادخال فى عنصر تحكم محدد فلا نسمح فيه الا بالعربية مثلا Arabic.rar