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

استأذن من الاستاذنا @jjafferr , @أمير2008 رغم من كثرة الاجابات اليك هذا Private Sub Form_Load() Dim sql As String sql = "UPDATE tbTable SET tbTable.[check] = True WHERE (((tbTable.dateend)<Date()));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub

حياك الله أخي أمير الكودين شغالين تمام ، لكني اعتمدت على كود اخي وائل بالنسبة لمقارنة التاريخ ، والآن عملت طريقتي ، وهي: Set Rs = CurrentDb.OpenRecordset("tbTable", dbOpenDynaset) Rs.MoveLast: Rs.MoveFirst RC = Rs.RecordCount For i = 1 To RC If Rs.Fields("dateend") < Date Then Rs.Edit Rs.Fields("check") = True Rs.Update End If Rs.MoveNext Next i Rs.Close: Set Rs = Nothing او طريقة النموذج مباشرة Set Rs = Me.RecordsetClone Rs.MoveLast: Rs.MoveFirst RC = Rs.RecordCount For i = 1 To RC If Rs.Fields("dateend") < Date Then Rs.Edit Rs.Fields("check") = True Rs.Update End If Rs.MoveNext Next i جعفر أخي أمير يجب ان تبدأ بـ rs.movelast قبل rs.MoveFirst وإلا فلن تحصل على جميع السجلات جعفر

اولا // انا اضفت حقل جديد باسم ID1 الى الجدول ثانيا // اليك هذا الكود Private Sub Combo2_BeforeUpdate(Cancel As Integer) If Len(Me.Combo0 & "") = 0 Then MsgBox "اولا يجب ان تختار نوع الحركة" Me.Undo End If End Sub Private Sub Combo2_AfterUpdate() If Me.Combo2 = "مستلزمات" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "مستلزمات" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 End If End Sub ثالثا // اتفضل اليك قاعدة بياناتك بعد تعديل New.rar

جزاك الله خيرا وكما قال أستاذنا جعفر تسلم ايدك وهذه فائدة صغيرة لعلك تحتاجها بوقت ما بالإمكان استبدال أسماء أجزاء الفورم بالجملة (Section(Index)) وهذه ثوابتها : Setting Constant 0 acDetail 1 acHeader 2 acFooter 3 acPageHeader 4 acPageFooter ويتحول الكود الى هذا الشكل frm.Section(0).BackColor = Color_Bu_D frm.Section(1).BackColor = Color_He_D frm.Section(2).BackColor = Color_fo_D

السلام عليكم اخي وائل انا لم اعمل بطريقتك ، وانما عملت الاسهل لي ولك عملت جدول جديد فيه جميع الكلمات بدون تشكيله ، بهذه الطريقة لا داعي للمساس لجدولنا الاصل ، ونظرا لكثرة الكتابة عندك ، اضطررت ان اعمل الحقل txt مذكرة . عملت علاقة بين الجدولين . الحقت البيانات بالجدول الجديد ، ولاحظ هنا اني جمعت جميع حقول جدولك الى حقل واحد فقط ، والذي سيتم البحث من خلاله ، (لاحظ كيف استدعيت الوحدة النمطية: (اسم الحقل المحتوي على تشكيلة)Simplify والتي تستطيع استعمالها لاحقا لتحديث/الحاق بقية البيانات) . هذا الاستعلام سيكون مصدر بيانات نموذج البحث ، بحيث نستطيع البحث عن اي كلمة او جزء منها ، من اي حقل ، يعني صار عندنا بحث Google للجدول بالكامل وليس لحقل معين . عملت تغيير لإسم حقل البحث . اما زر البحث فيحتاج الى هذا الكود فقط . هذه الطريقة جدا مرنه ، وتستطيع عمل اللي تريده بها جعفر 643.7-5-2017 بحث الفوائد بقائمة منسدلة.accdb.zip

نتيجة ممتازة أخى شيفان وهو المطلوب بالظبط جزاك الله كل خير ونفع بك

تحية طيبة استاذي الغالي جعفر المشكلة ليست من عندي و لا من عندك المشكلة من السوني بحد ذاته كما توقعت تماما للسوني سيناريو خاص به لالتقاط الصورة فعوضا عن الزر Camera يجب ارسال الزر Enter وعوضا عن المسار /sdcard/DCIM/Camera/ يكون المسار /sdcard/DCIM/100ANDRO وهذه ورقة اجابتي

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم اولا // انا حذفت قيمة افتراضية "اي شيء" لحقل doc في نموذج رئيسي ثانيا // انا نقلت كود عند الفتح لنموذج الرئيسي لتابع حقل التاريخ zdate الى بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف Me.Zdate = Date ثالثا // انا نقلت هذا الكود من بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف الى قبل تحديث لنفس الكومبوبوكس Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True واضفت هذا الكود بعد كود الاعلى If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If اي يعني في الاخير الكود قبل تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف صار هكذ Private Sub Combo51_BeforeUpdate(Cancel As Integer) Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True Me.Zdate = Date If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If End Sub والبعد تحديث صار هكذا Private Sub Combo51_AfterUpdate() [Forms]![trans_top]![Transaction subform].SetFocus DoCmd.GoToRecord , , acNewRec End Sub اتفضل قاعدة بياناتك ex (1).rar تقبل تحياتي

لتفعيل النسخ الإحتياطي التلقائي ، قم بما يلي: أولاً : إعدادت إختيار قواعد البيانات لعمل النسخ الإحتياطى التلقائي لها 1) انقر على الزر "إعداد النسخ الإحتياطي التقائي". أدخل المسار الكامل لقواعد البيانات التي ترغب في النسخ الاحتياطي لها.بإستخدام الزر "استعراض لإختيار قواعد البيانات" 2)انقر على الزر "إضافة قاعدة بيانات إلي القائمة" لإضافة قاعدة بيانات جديدة. 3) انقر مرتين على أي قاعدة بيانات في القائمة للتعديل أو الحذف. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثانياً : إعدادات مسار تخزين النسخ الإحتياطى التلقائي حدد المسار الكامل الذي تريد حفظ قواعد بيانات النسخ الاحتياطي.فيه عن طريق النقر على الزر "تحديد مسار التخزين" وهذا المسار يجب بالفعل أن يكون موجوداً أو سوف يتم إحباط العملية. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثالثاً : إعدادات وقت النسخ الإحتياطي التلقائي تحديد وقت بدء النسخ الإحتياطي التلقائي هام جداً جداً جداً أدخل الوقت بهذا التنسيق (HH:MM:SS AM / PM) شرح التسيق HH الساعة MM الدقيقة SS الثانية AM / PM أو ص / م وهذا يشير لتحديد الساعة صباحا او مساءً ويظهر هذا التنسيق فقط عندما تكون إعدادت نظام التشغيل تم تحديد الوقت فيه على نظام 12 ساعة مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (01:00:00 م ) وفي حالة ضبط إعدادت الوقت فى نظام التشغيل 24 ساعة يكون التسيق (HH:MM:SS) مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (13:00:00) ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ملاحظـــــة هامــــــــة ـــــــــــــــــــــــــــــــــــ لكى يتم عمل النسخ التلقائي لقواعد البيانات بشكل تلقائي طبقاً للإعدادت المسبقة 1- يجب فتح النموذج المسئول عن النسخ الإحتياطي التلقائي من خلال النقر على الزر "بدء النسخ الاحتياطي التلقائي" وإلا لن يتم النسخ الاحتياطى تلقائيا فى الوقت المحدد طبقاً للإعدادت المحددة 2- فى حالة إستخدام شاشة التوقف أو شاشة حماية إذا كنت ترغب فى الحصول على السرية والحماية للجهاز الخاص بك فى غيابك لن يؤثر ذلك على النسخ التلقائي ☺ ملاحظة هامة جدا جدا جدا يتم تحديد قاعدة بيانات أو أكثر لعمل نسخ احتياطى لها وضغط واصلاح مرة واحدة فقط من الاعدادت يتم تحديد المسار المراد حفظ النسخ الاحتياطى مرة واحدة فقط وقمت بعمل طريقة تجعل البرنامج يقوم كل يوم بعمل مجلد باسم وتاريخ اليوم دون اى تدخل من المستخدم فقط غير فتح النموذج "frmTimer" مشكلة لو تم وضع باسورد لحماية قاعدة البيانات المراد عمل نسخ احتياطى لها عند فتحها فلن يكتمل النسخ التلقائى الالى بسبب كلمة السر هذه ولن يتم عمل اى نسخ احتياطى لباقى قواعد البيانات الاخرى للامانة العلمية : هذا البرنامج حصلت عليه من احد المنتديات الاجنبية ولكن قمت بتعديلات كثيرة جدا للوصول الى هذه النتيجة المثمرة ان شاء الله واضعها بين أيديكم حتى تعم الفائدة AutoBackup.rar

هل ترغب بوضع ساعة في ورقة العمل الخاصة بك؟؟ يتم تحديثها كل ثانية مثل ساعة النظام تماما الحل تجده في المرفق لا تنسوا أخاكم محمد صالح من صالح دعائكم clock.rar الإصدار الأحدث ويوجد في المشاركة 14 من الموضوع clock3.rar والآن تم تطوير الملف بصورة أكثر احترافية ليعرض ساعة رقمية وساعة عقارب وإذا رغب أحبابي في الله يتم شرح فيديو للطريقة وخصوصا الساعة العقارب لا تحكم في رغبتك لعمل شرح إلا بعد مشاهدة هذا المرفق mas digital and analog clock.rar

ما شاء الله لا قوة الا بالله عمل رائع جداً اخي الكريم تحياتي

أولا - هلا بعودتك سالما وعساك بخير ثانيا - أنا اسمى محمد أما عبدالله فهو ابنى - وعلى كل لا بأس كل اللى يجى منك حسن أو حسين - وأخيرا - تفضل أرجو أن يكون هذا قريبا مما تريد 7-5-2017 بحث الفوائد بقائمة منسدلة.zip

نعم اخي شاهدت الفيديو ومن خلاله توصلت الى حل على كل حال الفضل يعود الى الله اولا والي حضرتك الحمد لله الف الف شكر لك استاذي

اخي شفان ، هذا الذي عملته انا في اول مشاركة لي ، بالضبط جعفر

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

وعليكم السلام الافضل ان ترفق برنامجك ونساعدك في تطبيق الكود عليه ، لأنه حتى وإن رفعت مثالي ، فتجربتي تقول بأن صاحب الموضوع سيصر على استعمال مثاله شكرا اخي على كلماتك الجميلة 1. انا لا املك مثال ، وسأضطر الى عمل مثال ، ولكن الافضل ارفاق برنامجك للتعديل عليه فهذه الجزئية اخذتها من احد برامجي لأحد الزبائن 2. هل يمكن عمل هذا ، الجواب نعم ، ولكن كيف؟ أ- كلمة البحث يجب ان ننظفها من جميع التشكيلات ، اي ندخلها في الوحدة النمطية اعلاه مرة واحدة ، ب- كل حقل موجود في سجل يجب ان ننظفه من جميع التشكيلات ، اي ندخله في الوحدة النمطية اعلاه مرة واحدة ، ويعتمد هذا على عدد السجلات المطلوب البحث فيها ، في البرمجه عندك الاختيار بين سرعة البرنامج ، او التفنن في عمل وشكل البرنامج ، في البداية سيطلب الزبون ويطلب ، وانت ستعطي وستغير ، والفائز في النهاية سرعة البرامج ، لذلك الجواب على سؤالك هو: أ- كل حقل في الجدول يحتوي على كلمات فيها تشكيله وتريد البحث فيه ، اعمل حقل جديد في الجدول لها الحقل ، وضع فيها جميع الكلمات بدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه ، او ب- اذا عندك اكثر من حقل في الجدول يحتون على كلمات فيها تشكيله وتريد البحث في جميع هذه الحقول (ليس شرطا ان تبحث في نفس النموذج في جميع هذه الحقول ، فقد يكون عندك نماذج مختلفة للبحث في حقل/حقول معينة) ، اعمل حقل جديد واحد في الجدول ، وضع فيه كلمات الحقول جميعا وبدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه وسواء استخدمت أ او ب ، فطريقة البحث سيان بتقول لي كيف ، وبقول لك ارفق برنامجك جعفر

طريقة العمل في 2013 هي نفسها في 2010 بنسخ الكود السابق ووضعه في this workbook في محرر vba

في طلبك تريد حذف تم السابقة والان تريد حذف الاخيرة هل الغيت طلبك الاول ؟ اشرح لي مجددا بالصورة ماتريد

الملف موجود به كود رسالة فعلا Private Sub Workbook_Open() MsgBox "من إعداد بوشلاغم زاكي مقتصد متوسطة طالب عبد الله **بئر الشهداء** " _ & vbNewLine & "" & vbNewLine & "مع تحياتي و احترامي للأخ مخناش جمال " _ & vbNewLine & "" & vbNewLine & "" _ , vbMsgBoxRight, "مقتصد متوسطة طالب عبد الله" End Sub

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

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

شكرا جزيلا أخي محمد

Private Sub cmd_Android_Camera_Click() On Error GoTo err_cmd_Android_Camera_Click 'KEYCODE_POWER = 26 'KEYCODE_CAMERA = 27 'KEYCODE_BACK = 4 'KEYCODE_HOME = 3 Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd1 = App_Location & " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & "; sleep 1; " cmmd2 = "input keyevent KEYCODE_ENTER" & "; sleep 2; " cmmd3 = "input keyevent KEYCODE_BACK" & ";" & Chr(34) cmmd = cmmd1 & cmmd2 & cmmd3 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'transfer the image to the PC cmmd = App_Location & " pull /sdcard/DCIM/100ANDRO/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/100ANDRO/*.jpg" Call Shell(cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'Delete the temp folder RmDir Save_images_to & "temp\" 'MsgBox Timer - istart End Sub هذا هو الكود بعد التعديل

لقد قمت باضافة طلب جديد المجموع 3 طلبات في الانتظار الان كيف يمكنني ان اخذ طلب طلب واعمل له قبول ؟

::: شكرا لك ... هذا من ذوقك ... وانت بخير

جزاك الله خير

لا عليك أ / خالد يمكنك ان تسأل كما تشأء لحين ان يتم الامر ان شاء الله ولكن وفقا للشروط التي ذكرتها حضرتك في البدايه أعتقد انها ليست بأخطاء حيث: بإفتراض ان الراتب 3000 في حالة اتمام 5 سنوات سيكون للموظف فى الحالات (aa,cc) ـ 7500 عن ال 5 سنوات أما الاستقاله سيتم ضرب 7500 في 2/3 = 5000 وليس 2500 وفي حالة اتمام 10 سنوات عندها يكون له عن الخمس سنوات الاولى 7500 وعن الخمس سنوات الثانية 15000 ( 5 * 3000 )= 22500 وليس 15000 وتتشابه الحالات الثلاثة في ذلك ( aa ,bb ,cc ) لهذا ارجو مزيد من التوضيح

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

1. العمل لازم يكون بالتسلسل اعلاه ، 2. هل جربت المرفق؟

الحمد لله وبارك الله لك وجعله في ميزان حسناتك وانشاء الله سوف احاول بكل جهدي الاستفاده من هذا الصرح الكبير وان افيد غيري باذن الله وتقبل تحياتي

شكرا بارك الله فيك يا أخي على الإفادة لقد أفدتني كثيرا

SUB تعني الجدول الكود يقوم بمسح اي كلمة في العمود قبل عملية النسخ واللصق

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

::: شكرا لك برنامج جميل ومفيد .. اتمنى لك النجاح

اسعدتنى جداً كلماتك استاذنا جعفر . اتمنى ان يكون نال على رضاك اخى وفقت فى استخدامه . وياك اخى شيفان واتمنى ان يكون عند حسن ظنك . مثال جيد اخى محمد واتمنى ان ينول مثالى على رضاك .

شكرا على الهدية الله يبارك فيك ويجزيك الفردوس الاعلى

اصبر فان الصبر مفتاح الفرج اذا ما وصلت عالنتيجة حتى غدا ان شاء الله غدا لي العودة تقبل تحياتي

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

وتفضل مثال : يحفظ رقم اللون الذي يتم اختياره في الجدول تسجيل اللون في الجدول.rar

واللي عندي ما يحتاجه وجزاك الله كل خير

للاضافة نستخدم الدالة DateAdd للنقصان نستخدم الدالة DAteSerial تفضل التعديل التاريخ قبل وبعد2.rar

انا جمعت الطرق الثلاث مع بعض ، وبدون وجود سجل فاضي في جدول الدول . جعفر 638.1.All.accdb.zip

وعليكم السلام افتح على خصائص الحقل / تنسيق والصق هذه العبارة @;"سجل جديد"

والف شكر لك وشكرا يا @athal

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى ) للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه كيفية استخدام نظام فلترة البيانات عن طريق الاكواد_ أ / عماد الحسامى ( موضوع مميز ) قوائم منسدلة متعددة مترابطة _ أ / عماد الحسامى جلب البيانات موضوع مميز قائمة منسدلة _ متعددة الاتجاهات_ دمج الصفوف بخلية على التوالى _ أ / عماد الحسامى و مشاركات الاعضاء كود لـ القوائم المنسدلة _ أ / عماد الحسامى و أبوعبد الله القائمة المنسدلة بدون فراعات_ ا / رحمه الله_ الحسامي _ هشام شلبى _ بن علية حاجي شرح اعداد كشوفات مدرسية باختيار روؤس الاعمدة عن طريق فورم _ أ / عبدالله باقشير اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم _ أ / عبدالله باقشير كود و فلاش_ربط مربع التحرير والسرد بقائمة منسدلة للاسماء _ أ / عبدالله باقشير انشاء قائمة Validation _ أ / عبدالله باقشير بالكود و المعادلات_طريقة عمل قائمة منسدلة _ أ / عبدالله باقشير القائمة المنسدلة _ _ أ / عبدالله باقشير _ أ / حماده باشا من قائمتين منسدلتين مرتبطتين معا _ أ / عماد الحسامى و مشاركات الاعضاء قائمة منسدلة بحساسية الاحرف_و قائمة بناء على خلية اخرى مع التصفيه _ أ / عماد الحسامى _ أ / محمد يحياوي قائمة منسدله متعددة المستويات _ أ / عماد الحسامى و مشاركات الاعضاء تصفية متقدمة في صفحة اخرى _ أ / عماد الحسامى و مشاركات الاعضاء قائمة منسدلة مفلترة _ أ / محمد يحياوي النص التنبئي على الكمبوبوكس (حركة مميزة) _ أ / شوقي ربيع البحث في القائمة المنسدلة ذات أكثر من عمود (النص التنبئي) _ أ / شوقى ربيع إنشاء القوائم المنسدلة (دروس للمبتدئين) _ أ / ياسر خليل تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس _ أ / ياسر خليل التصفية المتقدمة بالأكواد Advanced Filter _ أ / ياسر خليل عمل قائمة منسدلة يمكنك البحث من خلالها _ أ / ياسر خليل عمل قائمة منسدلة بدون كود _ أ / محمد طاهر درس إنشاء قائمة منسدلة بطريقة تظهر في خلية معينة طريقة سهلة جدا _ أ / الجموعي تجمعية تحت عنوان تغذية القائمة المنسدلة خاصة بالفورم (ComboBox) بمدى ديناميكي أ / الجموعي لائحة منسدلة جديدة _ أ / سليم حاصبيا حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية _ أبو تامر _ عمر الحسينى قوائم منسدلة متعددة المستويات_ أ / أبو تامر_عمر الحسينى إنشاء قوائم منسدلة مرتبطة متعددة المستويات _ أبو تامر _ عمر الحسينى قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة _ أبو تامر _ عمر الحسينى القائمة المنسدلة المرتبطة بقوائم متعددة _ أبو تامر _ عمر الحسينى فلترة الاسماء بظهور ثلاثة صفوف للإسم الواحد الساده / سليم حاصبيا _ أبو تامر_عمر الحسينى قائمة منسدلة مطاطية من صفحة اخرى بدون تكرار و فراغات أ / سليم حاصبيا _ ياسر خليل أبو البراء ( موضوع مميز ) تصفية بلون الخليه _ أ / احمد فضيله _ أبوعبد الله_اكسلجى بالكود_ بحث فى قائمة منسدلة_بحساسية الاحرف _ أبوعبد الله_اكسلجى قائمة منسدلة تعرض بيانات عمودين _ أ / أبوعبد الله_اكسلجى قائمة منسدلة بناء على متغير الخلية _ أ / أبوعبد الله_اكسلجى تطبيق فكرة القوائم المنسدلة المرتبطة وخاصية التحقق من صحة _ أبوعبد الله_اكسلجى انشاء قائمة منسدلة مع ارتباط بالإكسل _ أ /هشام شلبى قائمة منسدلة تعتمد على قائمة منسدلة اخرى ( بالمعادلات) _ أ / محمد الريفى قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر _ أ / حمادة عمر تصفية متقدمة بين تاريخين وفق عدة معايير بالأكواد والمعادلات للتاريخ _ أ / محمد حسن المحمد مع المعادلات انس تعقيدات الكود ( قائمه منسدله مرتبه ابجديا حتى اذا كانت الأسماء غير مرتبه ابجديا ) _ أ / ابو اياد ( الاسيوطى ) (موضوع مميز) مطلوب عمل قائمة منسدلة مرتبطة بقائمة أخرى _ مشاركات الاعضاء شرح عن كيفية إنشاء قائمة منسدلة في الإكسل _ أ / علي السحيب استيراد ورقة عمل إلى الملف الحالي _ أ /زياد علي _ مشاركات الاعضاء تصفية القوائم بالمعادلات _ أ / الزباري فكرة لتصفية الجدول بمعايير متغيرة _ أ / الزباري قائمه منسدله باسماء الاوراق _ أ / ابو اسامة العينبوسي شرح القوائم المنسدلة_شرح فلاشى و التطبيق _ أ / نزار سليمان عيد شرح عن كيفية إنشاء قائمة منسدلة معتمده على قائمه اخرى في الإكسل _ أ / Ahmed Emannan شرح قائمة Validation _ أ / haroonqudah شرح قائمة التحقق Validtion _ أ / haroonqudah كود صغير جدا و لكن مفيد جدا_ازالة الفلترة من ورقة العمل _ جلال الجمال_ابو أدهم موضوع مميز_قوائم منسدلة مع البحث بحساسية الاحرف_مع الشرح _ مشاركات الاعضاء موضوع مميز_البحث فى القوائم المنسدلة بحساسية الاحرف _ مشاركات الاعضاء بحث يعتمد علي 3 متغيرات _ أ / رجب جاويش

إخوانى الافاضل السلام عليكم ورحمته الله وبركاته نظرا لما يعانيه الكثيرمن الساده الزملاء محررى إستمارات المرتبات بالتربية والتعليم عناءا شديدا فى تسجيل صوافى مرتبات الساده العاملين صعودا وهبوطا بحثا عن كل إسم على حدى حتى يتمكن من تسجيل تلك الصوافى على الملف المعد لهذا الغرض تمهيدا لتسليمة لمسؤل وحدة الدفع والتحصيل الالكترونى للإدارة التابع لها حيث الاختلاف بين الترتيب الابجدى المطلوب لوحدة الدفع وبين الترتيب الدفترى المعمول به هذا من جهة ومن جهة أخرى أنه فى حالة إضافة موظف جديد على المدرسة أوتم حذف موظف من تلك المدرسة اوفى حالة ماتم التنقل بين المدارس ففى هذه الحالات يضطرمسئول وحدة الدفع بتحديث الملف بملف خالى من أى صوافى الامر الذى يستدعى اعادة تلك الصوافى مرة أخرى الامر الذى يكون فيه ارهاق على كاهل محررى الاستمارات وخاصة المدارس التى بها أعدادا هائلة من العاملين وتيسيرا على جميع الساده الزملاء على مستوى مدارس الجمهورية ولا يتعاملون من خلال برامج للمرتبات أتشرف بعرض هذا المرفق لعله يكون فيه الافاده والتيسير وحتى تتمكن من العمل بطريقة صائبة دون أخطأ بالمرفق عبارة عن شيتين الاول DATASAIEDAMERBIRAM والشيت الثانى تحت إسم " الدفع الاكترونى " راعيت فيه ان يكون بنفس تنسيق ملف الدفع الاكترونى يرجى اتباع الخطوات التاليه اولا أخذ نسخة من العمود الخاص بالاسماء بملف الدفع الاكترونى ثم لصقه بملف جديد ثانيا من خلال الملف الجديد يتم ترتيب الاسماء حسب ترتيب الاستمارة الورقية ثالثا بعد الانتهاء من عملية الترتيب يتم أخذ نسخة من الفقرة ثانيا ولصقه بالشيت DATASAIEDAMERBIRAM مع مراعاة تسجيل صافى المرتب قرين كل إسم بذات الشيت رابعا بعد ذلك يتم أخذ نسخة من العمود الخاص بصوافى المرتبات كقيم من الشيت " الدفع الاكترونى " ثم لصقه بالملف الاصلى المراد تسليمه لوحدة الدفع راعينا فيه عملية الحذف من الشيتين لحالات الوفاه أو الاحالة أو لاى سبب من حالات اخلاءات الطرف بالنسبة للسادة المحولون بنك ففى حالة اخلاء طرفه من البنك المحول اليه فيجب هنا تسجيل صافى راتبه وفى حالة تحويل اى موظف لاى بنك فيجب هنا تسجيل زيرو امام صافى مرتبه وحتى لايكون هناك جهدا فراعيت ان يكون هناك بحث بالاسم فيظهر لك الرقم المسلسل لهذا الموظف ومن ثم تعديل وضعه كما ورد من تعديل اما بالنسبة لحالات الاضافة فيمكنك الاضافة بعد أخراسم مدون بالشيت DATASAIEDAMERBIRAM مع مراعاة تسجيل صافى راتبه وافر تقديرى واحترامى وجزاكم الله خيرا منظومة الدفع والتحصيل الالكترونى + بحث بالاسم - سعيد بيرم.rar

رائع والف الف شكر

جزاك الله خيرا أيها الأخ الكريم محمد صالح

استاذي محمد صالح والله عمل رائع وابداع متميز بارك الله فيك

تسلم يداك اخى