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

حتى يكون الموضوع مرجع متكامل لمن اراد فيما بعد المرفق الاتى فقط قم باستيراد النموذج frmRestTable الى قاعد بياناتك وسوف تقوم فقط باختيار الجداول التى تريد تفريغ القيم منها تمام سواء كانت جداول بنفس القاعدة او جداول مرتبطة بقاعدة خلفية دون اى عناء او كتابة اى اكواد Reset Select Table.mdb

انا مش قادر افهم كويس يعنى ايه المقصود من الجملة مع الاستفادة من الأرقام المحذوفة ؟ ركز معى فى الاتى المثال يحتوى على عدد (2) وحدة نمطية ـــــــــــــــالوحدة الاولى ــــــــــــــــــ تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد إغلاقه المميزات ــــــــــــــــ - تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات - تقوم بإعادة ترتيب الترقيم التلقائى لو تم مسح بعض السجلات فقط وذلك دون اى تدخل من المستخدم - الاهم من ذلك أنها تتعامل مع الحقل الخاص بالترقيم التلقائى فى الجدول وهذا ما يميز الوحدة الاولى -تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير العيب ـــــــــ لا يتم تنفيذ الترتيب او التصفير الا بعد اغلاق البرنامج واعادة فتحه ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ الميزة الوحيدة ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج امممممم العيب ــــــــ غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات المرفق الثانى مكون من ثلاث امثله الاول ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 1 جدول A1 من خلال ماكرو AutoExec الثانى ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 2 جدول A1 , A2 من خلال ماكرو AutoExec الثالث ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 3 جدول A1 , A2 , A3 من خلال ماكرو AutoExec لاحظ الفرق بين كود الوحدة النمطية لكل مثال المثال الاول الذى يحتوى على عدد 1 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول End Function المثال الثانى والذى يحتوى على عدد 2 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى End Function المثال الثالث والذى يحتوى على عدد 3 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4, strSQL5, strSQL6 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى strSQL5 = "ALTER TABLE [A3] DROP COLUMN [AutoNumber] ;" ' الجدول الثالث strSQL6 = "ALTER TABLE [A3] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثالث DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى DoCmd.RunSQL strSQL5 ' الجدول الثالث DoCmd.RunSQL strSQL6 ' الجدول الثالث End Function ملاحظة هامه الحقل الخاص بالترقيم التلقائى إسمه فى كل الجداول AutoNumber ويجب الايكون مفتاح اساسى للمره الثانية يجب الا يكون حقل الترقيم الترقيم التلقائى مفتاحا اساسيا والا لن تعمل الوحدة النمطية على اعادة الترتيب مرةاخرى ممكن اجهز لك مثال للتحكم بالترقيم بكتابة الرقم الذى تريد بدأ الترقيم به وفى كل مره لاضافة سجل جديد يتابع الترقيم تلقائيا دون اى تدخل منك تقبل تحياتى اخى الحبيب بكل الحب والتقدير وبعد ان اجبتك بما فهمته على قدر عقلى البسيط فقط اهمس بود لو استخدمت البحث الخاص بالمنتدى لوجدت الكثير ولى سبيل المثال وليس الحصر انظر الرابط التالى http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1 الترقيم التقائى-officena.rar الترقيم التقائى-officena (2).rar

يمكنك استعمال هذه المعادلة =SUMIFS(5:5,4:4,">="&A7,4:4,"<="&B7) بالتوفيق

يمكنك استعمال المعادلة التالية في الخلية I2 =IF(COUNTIF(G:G,G2*-1)>0,"موجود","غير موجود") مع سحب مقبض التعبئة لأسفل لنسخ المعادلة بالتوفيق

تفضل استخدمن استعلام الحاق ::::::: DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl3 ( stname1, class1, stid ) SELECT tbl1.stname, tbl1.class, [forms]![frmmain]![id] AS K FROM tbl1 WHERE (((tbl1.class)=[forms]![frmmain]![lst4]));" DoCmd.SetWarnings True movemanyrecords (1).accdb

الأمر بسيط جداً تفضل ... معادلة بالتأكيد ممتازرة بارك الله فيك استاذ محمد وأكرمك الله 1235.xlsx

بارك الله بك ولك اضعاف ما دعوت لي جرب الملف المرفق البرنامج الجديد 2021 (1) (12) (6).xlsm

يعنى رجاء وفضلا وكرما وليس امر تسهل على من يريد مساعدتك بوضع مرفق على الاقل

خلينا ندخل في الثقيل ، واعطنا مثال ، علشان جوابنا يكون واضح 🙂 جعفر

كذلك يدويا 😁 اذا كانت المطرقة العادية تؤدي العمل ، فلا داعي لاستعمال المطرقة الكهربائية 🙂 جعفر

وعليكم السلام 🙂 وحتى نستفيد ، ممكن تخبرنا ليش تريد عمل هذا برمجيا ؟ جعفر

وعليكم السلام 🙂 لو بحثت في المنتدى ، لوجدت مترجم جميل عمل عليه اخوي حسين @د.كاف يار جعفر

تمام سوف افعل

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

اريد كود عمل كشف حساب لهذه البيانات كما موضح ولكم جزيل الشكر New ورقة عمل Microsoft Excel (2).xlsx

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

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

To restrict textbox to numbers only Private Sub TextBox16_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, TextBox16.Text, "-") > 0 Or TextBox16.SelStart > 0 Then KeyAscii = 0 End If Case Asc(".") If InStr(1, TextBox16.Text, ".") > 0 Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub As for the other notes, the code is working with no problems

وعليكم السلام 🙂 اذا فهمت قصدك: في بداية الكود عندك كود هكذا مثلا (اخذته من احد برامجي 🙂 ) : نستعمل On Error Goto err_Form_Close في البداية ، بحيث اي خطأ يحدث في الكود سيذهب الى السطر :err_Form_Close من مكان هناك ، بدل الامر Goto ، نستعمل الامر Resume فبدل عن Goto Exit_Form_Close ، نستعمل Resume Exit_Form_Close Private Sub Form_Close() On Error GoTo err_Form_Close ..... Exit_Form_Close: Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next 'تخطى هذا الخطأ وانتقل الى السطر التالي ElseIf Err.Number = 52 Then 'Folders don't exist, its a new location, ignor Exit Sub 'اخرج من الحدث ElseIf Err.Number = 76 Then 'path not found MsgBox "مسار مجلد النسخ الاحتياطية غير موجود على حاسبتك" Resume Exit_Form_Close ' Exit_Form_Close اذهب الى السطر Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Form_Close End Sub جعفر

يجب عليك تحديد ارقام الخطأ و وضع التصحيح لها كأفضل طريقة للتعامل مع الخطأ تفضل استخدم و سجل الأخطاء المحتملة و ضع لها الحلول المناسبة On Error GoTo ErrH ضع الكود كامل هنا Exit Sub ErrH: Select Case Err.Number Case = 0 ' رقم الخطأ ' ضع الإجراء التصحيحي للخطأ Case = 0 ' رقم الخطأ ' ضع الإجراء التصحيحي للخطأ End Select

هذا الموضوع يفيدك

انت ممكن تكتب السطر ده On Error Resume Next فى بدايو الكود عندك وهو هيتخطى كل الاخطأ ولا يظهر شئ منها للعميل

في هذه الحالة نستبدل كلمة mas بمرجع الخلية المطلوبة أمر التصدير .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" يتم تغييره إلى .Export Filename:=ThisWorkbook.Path & "\" & [b3] & ".jpg", Filtername:="JPG" بالتوفيق

ههههه انا عملته في التقرير

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

بارك الله لك أ / @عبدالله الصاري تبقى شيء حتى يظل تنسيق التاريخ كما هو حذف هذا السطر من اجراء sama2 Sheets("كشف الحساب").Range("A5:h10000").ClearFormats بالتوفيق

وعليكم السلام ورحمة الله وبركاته قم بتظليل عمود التاريخ تم انقر الفارة اليمين تظهر قائمة منسدلة اختر منها تنسيق خلايا ثم من القائمة الاخرى اختر تاريخ بالنسبة لمعاينة الطباعة قم باستبدال كلمة PrintOut بـ PrintPreview بالكود تحياتي

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

شكرا استاذ محمد جزاك الله خيرا

تفضل التعديل اخي الكريم و اغتذر عن التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb

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

أخي الكريم المتغير n يمثل سلسلة الأرقام من 2 إلى 31 وهو يمثل عدد الصفوف التي بها قائمة الإيميلات For n = 2 To 31 If Range("b" & n & "").Value = "" And Date - Range("a" & n & "").Value > 14 Then If Range("c" & n & "").Value <> "" Then Kill ThisWorkbook.Path & "\test.html" generatehtml (n) ففي بداية السلسلة التكرارية تكون قيمة n=2 وهكذا يمكنك استبدال الحرف n بقيمته 2 فيما سبق من أكواد ويتم تنفيذ الأكواد حتى نجد السطر next n والذي يعني تكرار نفس الخطوات مع زيادة قيمة n إلى 3 ثم 4 ثم 5 وهكذا حتى الرقم الموجود بعد to الذي هو 31 في حالتنا أتمنى أن يكون الأمر اتضح

الحمد لله الذي هدانا لهذا وما كنا لنتهدي لولا أن هدانا الله

سعيد جدا بمرورك أخي وصديقي م / محمد طاهر وأضيف إلى ما سبق أنه يمكن استعمالها في إرسال البريد من الموقع بعيدا عن شروط الاستضافة فقد تحتم على صاحب الموقع الاستضافة عدم إرسال أكثر من مثلا 100 رسالة في الساعة فكيف سيرسل إلى جميع أعضاء موقعه رسالة يهنئهم فيها بالعيد مثلا ؟؟؟ يوجد طريقة لنفس الغرض مع php إرسال رسائل البريد بعيدا عن قيود الاستضافة تقبل الله منا ومنكم

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

رائع أخي خبور خير كما عودتنا ولكن اسمح لي أن أضيف إضافة صغيرة لأخي قطان ألا وهي ترتيب مربعات النص في الحصول على التركيز بمعنى أنك غذا كنت تريد مثلا الانتقال إلى مربع النص الثالث وليس الثاني بعد كتابة 6 أرقام في مربع النص الأول يمكنك استعمال الخاصية TabIndex تبدأ من 0 ثم 1 ثم 2 وهكذا وبناء عليه ستجعل tabindex لمربع النص الأول 0 وتجعل tabindex لمربع النص الثاني 2 وتجعل tabindex لمربع النص الثالث 1 وهكذا أرجو أن تكون وضحت المعلومة

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

حاولت قب ذلك وكانت النتيجة تم حذف المرفق لدواعي أمنية يعلمها المتقدمون وتم التغيير والحمد لله وهديتي لك أخي الكريم أبا مشاري وكل من يريد هذا الموضوع تم عمل دالة لتصنيع ملف test.html لكل عميل بمتغيراته الاسم ورقم المعاملة وتاريخ المعاملة وإرفاقه بالرسالة ملحوظة يلزمك بعض التعديل في الكود الذي يصنع ملف test.html في الدالة وتغيير اسم شركتك أو تغيير الصيغة مع ملاحظة عدم تغيير أكواد html أو أكواد تضمين البيانا داخل الملف كل عام أنتم بخير أخوكم محمد صالح mas_mail2.rar

ولا يهمك أخي يحيى المهم أن تعم الفائدة جزاك الله خيرا

أخي أيسم الموضوع بسيط جدا الصق الكود =SUMIF('حركه يوميه للمخزن'!C7:D47;'حركه يوميه للمخزن'!C9;'حركه يوميه للمخزن'!D7:D47) ثم حدده ثم اضغط على العلامة الزرقاء الموجودة في صندوق الرد <> والتي يظهر لها تلميح insert code snippet فيتم إضافة الرمز (code)(/code) مع ابدال الأقواس المعقوفة بأقواس مربعة .... كتبتها هكذا حتى لا يترجمها الموقع على أنها كود فيظهر كهذا =SUMIF('حركه يوميه للمخزن'!C7:D47;'حركه يوميه للمخزن'!C9;'حركه يوميه للمخزن'!D7:D47) أتمنى أن يكون اتضح الأمر أخوكم محمد صالح

اما الآن فلديكم كتاب آكسس مستوى متوسط ، حيث أرفقت لكم في السابق المستوى المتقدم intaccess03.zip

وهذا كتاب مأخوذ من موقع أجنبي يتحدث فقط عن النماذج Forms.zip