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

اتفضل Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!basic With tdfNew .Fields.Append .CreateField(Me.[id mon], dbText, 50) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click try.accdb

من أفضل البرامج لتصوير الشروحات بصيغة GIf ويدعم اللغة العربية على الرابط : https://www.screentogif.com/ https://www.screentogif.com/downloads.html

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

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

اتفضل DoCmd.OpenForm "Teb22", , , "[a1] = '" & Me.a1 & "'" & "And [a2] = '" & Me.a2 & "'" ماشاء الله كلنا بتوقيت واحد هههههههههههههه

تفضل اخي الكريم teest.accdb

اتفضل اليك هذا teest.zip

لعل هذا ما تريده الصفحة Salim من هذا الملف Example_Salim_Updated.xlsx

فورم بحث عن اى حرف او كلمة فى اى مكان فى العمود المحدد الفيديو الصور

استاذ يا ابا محمد 😎

لا توجد اي مشكلة تعديل واستعلام 2019 و2016

نفس الامر يعمل بشكل طبيعي

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

أخي الكريم يجب ان تأخذ بالحسبان البيئة التي بني عليها البرنامج قبل التعميم بيئة Vb.net تستخدم الاتصال المنفصل وهذا الكلام يعرفه من عمل على هذه البيئة بيئة اوراكل هذا موضوع ثاني بالكامل فخاصيتها لايتم الاضافة أو التعديل قبل النقر على زر الأمر حفظ وإذا قلت لي ان البرامج تم تصميمها بالاكسس سأجيبك ممكن ولكن ليس بطريقة تصميمك فالطريقة تكون عن طريق نماذج غير منضمه كما أشار إليك الاستاذ @kha9009lid الليلة أو غداً إن أسعفني الوقت سأضع مثال ممكن تستفيد منه وتطبق الفكرة على برنامجك ::بالتوفيق::

السلام عليكم أولا : في أي نموذج وضعت الكود و في أي حدث ثانيا: يا ريت ترفق الجزء الموجود به الخطأ من برنامجك لتعديل عليه

ارجو المساعدة لأستكمال المشروع ولكم جزيل الشكر Database2.accdb

اشكركم جميعا الاخ ( شفان ريكاني ) والاخ ( حسين كمال ) والاخ ( محمد ياسين ) كلكم وفيتو وكفيتو جزاكم الله كل خير لكن حل الاخ حسيني صدمني بصراحه لانه بدون شرط وشغال هذا الكود الذي كتبه الاخ حسين DoCmd.OpenForm "Teb22", acNormal الاخ القدير ( كاسر ) اكن لك كل تقدير واحترام واحب ان اوضح ان المثال ليس له علاقه بالواقع وانما لتوضيح السؤال فقط وانا احد الناس الذي استفاد كثير من مشاركاتك اكرر شكري وتقديري للجميع

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

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

بهذه الطريقة لن تصل ولن نصل معك لنتيجة ضع مثال ::بالتوفيق::

اخي حاول ان تستخدم طرق بسيطه بناء على الصورة اعلاه إن اسهل طريقه هي ان تضع في معيار الاستعلام للنموذج full [forms]![search]![empnumper] بناء عليه لن يتم عرض اي سجل سوى المتوافق مع السجل في صفحة البحث و حتى تضبط الأمور اكثر في تبويب الخصائص > غير ذلك > دورة السجل = السجل الحالي

جرب هذا او افتح موضوع جديد وارفق ملف نص DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] ='" & "'" & Me.Nem_1 & "'" And "[Nem_2] ='" & "'" & Me.Nem_2 & "'" رقم DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] = & " & Me.Nem_1 & " " And "[Nem_2] = & " & Me.Nem_2 & ""

المعذرة اخي د.كاف يار لم اشوفك ردك

العفو و تحت امرك و امر الجميع و الأمر كله لله وحده

الكلي =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]"))) المورد المحدد =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]";"[Cus_id]=[Forms]![صرف شيكات]![txtcom]");0))

وعليكم السلام لا يمكن هذا فلا يمكن عمل افضل مما قمت به انت

مشاركة مع أخي عبداللطيف أفضل طريقة لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق استخدم الدالة الموضحة : أما طريقة الأخ الغالي عبداللطيف تظهر لك نتائج 7 أيام من اليوم الحالي كما هو موضح وليس الأسبوع الحالي . بالمرفق بعد التعديل xx.accdb

جرب هذا المعادلة في B1 تم اسحب نزولاً =SUBSTITUTE(TRIM(A1),CHAR(160),"")

وعليكم السلام ورحمة الله وبركاتة حسب ما أراه أمامي في الصورة لايوجد تكرار ضع مرفق ووضح اكثر ما هو التكرار الذي تقصده ::بالتوفيق::

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

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

اخي العزيز اقصد بالناقصة بمعنى انها غير مؤشر عليها ابحث عليها في القائمة في الصورة ثم اشر عليها شاهد هذه المواضيع ويمكنك البحث في المنتدى https://www.officena.net/ib/topic/29748-كيف-طريقة-ارسال-الايميل-بكود-معين-عند-انقضاء-فترة-معينة/?tab=comments#comment-148114

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

تم تعديل الكود ليتناسب مع ما تريد Option Explicit Sub My_Sum_New_With_Empty() Dim i%, s#, j%, m%, k% k = Cells(1, Columns.Count).End(1).Column - 2 Range(Cells(2, k + 1), Cells(1, k + 1).End(4)).ClearContents Range(Cells(2, 1), Cells(1, k).End(4)).Interior.ColorIndex = xlNone i = 2 Do Until Range("A" & i) = vbNullString For j = 2 To k If Cells(i, j) = "" Or _ Not IsNumeric(Cells(i, j)) Or _ Cells(i, j) = 0 Then GoTo Next_J s = s + Cells(i, j) m = m + 1 Cells(i, j).Interior.ColorIndex = 6 If m = Cells(i, k + 2) Then Exit For Next_J: Next Cells(i, k + 1) = s: s = 0: m = 0 i = i + 1 Loop End Sub الملفق من جديد Matlob_2_with_empty .xlsm

تفضل -تم تصميم الملف وحماية الخلايا لعدم العبث بالمعادلات المشروع الصغير.xlsm

تفضل يمكنك استخدام هذا الكود Option Explicit Sub page_endings() Dim i As Long Dim searchvalue_for_break_after searchvalue_for_break_after = "الشهود" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = searchvalue_for_break_after Then ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Range("A" & i).Offset(1) End If Next i End Sub الشهود - 1.xlsm

تفضل المصنف1 (3).xlsm

تفضل المصنف2.xlsm

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

الملف الذى ارسلنه اليك سابقا بالفعل به كل ما تريد

تفضل دليل الهاتف - Copy.xlsm

تفضل أتمنى ان يكون المطلوب ترتيب3.xlsm

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

تفضل الحل بمعادلتين مختلفتين داخل الملف ELFAR.xlsm

اخى الكريم لابد من البحث جيدا فى المشاركات فالملف موجود برنامج مرتبات للقطاع الخاص - سعيد بيرم.xls

احسنت استاذ سليم كود ممتاز ولإثراء الموضوع هذا حل اخر بالمعادلات جمع قائمة بعدد (10) صفوف.xlsx

تفضل لك ما طلبت المصنف1.xlsx

عليك برفع الملف للعمل عليه

طيب ع العموم استنى المرفق اهو انا اسف انا كنت لاغى القوائم كل الاكواد داخل الفورم mainfrm إخفاء واظهار الجداول والكائنات.rar

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