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

استأذن من الاستاذنا @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 تقبل تحياتي

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

السلام عليكم ورحمة الله وبركاته ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** هذا جزء رقم 1 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg العمل غير مكتمل 100% ، والخطوات التي على قائمة العمل: 1. إعطاء المستخدم الآلية لتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد ، مثلا: الخلفية الثابته: . تصوير الشخص . قطع الصورة وحذف الزوائد (برمجيا) . وكذلك يمكن الاستفادة منه في تصوير مستندات A4 او A5 ، وقطع الصورة وحذف الزوائد (طبعا يكون هناك زر للـ A4 وزر آخر للـ A5) 2. ماذا لو اردت حفظ صورة / مستند ، وكانت هناك صورة سابقا بنفس الاسم؟ سيكون للمستخدم 3 اختيارات: أ- احذف الصورة القديمة واستبدلها بالصورة الجديدة ، ب- اعطي الصورة الجديدة الرقم التسلسلي التالي ، حسب آخر رقم موجود للصورة ، مثلا: الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg والصورة الجديدة ستصبح 1_001.jpg او Inward_2017_05_06_001.jpg هذه العملية تنفع للأرشفة ج- دائما اجعل الصورة الجديدة بدون ترتيب ، واجعل الصورة السابقة تأخذ آخر رقم ، مثلا الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg وآخر صورة في المجلد لنفس الصورة هي 1_001.jpg او Inward_2017_05_06_001.jpg عليه سنأخذ آخر صورة موجودة في المجلد ونعطيها الرقم التسلسلي التالي 1_002.jpg او Inward_2017_05_06_002.jpg والصورة الجديدة التي سنلتقطها ستكون 1.jpg او Inward_2017_05_06.jpg هذه العملية تنفع لبرامجنا والتي تستعمل اسم الصورة ، والذي يكون رقم الموظف مثلا وبقية الصور تسلسلها حسب القِدم . 3- حفظ الصور افقيا او عموديا. والآن الى برنامجنا التصوير عن طريق كاميرا هاتف اندرويد اولا: تهيئة الهاتف (البرنامج المرفق فيه المادة رقم2 ، ولا يوجد داعي لإنزاله) : رجاء اتباع الخطوات التالية ليكون الهاتف مهيأ للإتصال بالبرنامج ، ويجب ان يكون الهاتف موصل بالكمبيوتر عن طريق USB: 1- يجب ان يكون الكمبيوتر متعرف على هاتفك ، ويمكنك انزال هذا التعريف من شركة هاتفك ، او من الرابط التالي ، رقم 1 : http://adbshell.com/downloads . وبرنامجنا محتاج الى البرنامج الذي في الرابط اعلاه ، رقم 2 ، والذي لا يحتاج الى تنصيب (ونضع محتواه في المجلد Android_Mobile كما في الصور في الاسفل) ، او اذا اردت البرنامج اعلاه من مصدر آخر وبه SDK الاندرويد (اي جميع برامج التحكم في جزئياته) ، فيمكن تنزيله من الرابط: https://dl.google.com/android/repository/platform-tools-latest-windows.zip 2- يجب ان يكون هاتفك في وضع Developer Options ، كما في الصورة: . واذا لم يكن ، فعليك اتباع الخطوات التالية لعمله : من الاعدادات . وسترى . ثم انقر على المربع الاحمر ، ليأخذك الى الصورة التاليه ، واختار المربعين بعلامة صح . وعند ربط الهاتف بالكمبيوتر ، اختار من الهاتف . وعند تشغيل البرنامج ، سيطلب منك الهاتف الموافقه على السماح بالكمبيوتر التحكم فيه ، فاختار السماح ، 1 ثم 2 . الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج ، ورجاء اجعل الهاتف في وضع الاغلاق (حيث تكون الشاشة سوداء) ، 3- مجلد برنامجك يجب ان يكون بهذه الطريقة . البرنامج مفتوح المصدر ، وتحتاج لمسك مفتاح Shift عند النقر المزدوج على ايقونة البرنامج لفتحه ورؤية الكود ، - البرنامج يفتح على النموذج frm_Main حيث تختار اسم الشخص او رقمه ، . وعند النقر على تفاصيل الموظف او تفاصيل الموظفين ، يفتح النموذج frm_Names ، وتلقائيا سترى ان الهاتف اشتغل ، وعند الخروج من النموذج سوف يغلق الهاتف ، في النموذج frm_Names ، عند النقر على هذه الايقونة سيتم التصوير . وخلال 8-9 ثوان ، سترى الصورة داخل النموذج ، ان شاء الله ويمكنك جعل الهاتف يأخذ الصورة بالفلاش ، من اعدادات الهاتف نفسه ، هذا كود البرنامج بطريقين ، الطريقة الاولى والتي تأخذ الوقت الاقل ، وتركت الطريقة الثانيه الابسط هنا كذلك للذي يريد اللعب فيه وتغييره: Private Sub Form_Load() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn on the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub Form_Close() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn off the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) 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_CAMERA" & "; 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/Camera/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/Camera/*.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 Exit Sub to_Here: 'image capture mode cmmd = " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) 'Dim PauseTime, Start PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'take a picture cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'exit the image capture mod cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_BACK" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'transfer the image to then PC cmmd = " pull /sdcard/DCIM/Camera/ " & Save_images_to & "\temp" Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the image from the camera cmmd = " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(App_Location & 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 'Delete the temp folder RmDir Save_images_to & "temp\" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'MsgBox Timer - istart Exit_cmd_Android_Camera_Click: Exit Sub err_cmd_Android_Camera_Click: If Err.Number = 53 Then 'No picture to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والبرنامج حاليا للمتطوعين الذين يعرفون ان البرنامج لا يحتوي على اي ميزات غير التصوير وحفظ الصور في المجلد Images ، وربط الصور برقم الموظف ورجاء اخبرونا عن نتائج تجربتكم وملاحظة هامة: ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** جعفر Camera_Scanner.zip

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

حسب فهمي لسؤالك واحتمال ان يكون فهمي لسؤالك بيكون غلط لكن اكتب الكود في نموذج قبل تحديث بدلا من حقل قبل تحديث هذا والله يعلم

العفو أخي شفان هاي مو عتاب ، وانما ملاحظة

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

اعتقدت أنك تبحث في عمود الحالة وليس العمود الأول .. عموماً لو شاهدت الفيديو الخاص بالكود يمكنك فهم كيفية عمل الكود بشكل أفضل الحمد لله أن تم حل المشكلة تقبل تحياتي

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

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

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

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

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

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

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 ) لهذا ارجو مزيد من التوضيح

الاستاذ مجدي يونس والاستاذ عبد العزيز السلام عليكم ممنون على هذه الملاحظة وكانت سهواً وانا شاكر لكم هذا المرور المعطر بالورد واتنمى لكم الموفقة ان شاء الله تحياتي

اخي الكريم لم تدع لاحد عذر شرح وافي واضح وهو نفس مفهومي الاول ولكنك لم تؤكد لي من البداية انظر اخي الحبيب : انا اعطي مشورة حسب خبرتي في العمل على قواعد البيانات وكثير هنا في هذا المنتدى من هم افضل مني ولا تأتي الخبرة الا من ممارسة انواع كثيرة ومختلفة من الاعمال وتطبيقها برمجيا . من الخطوات التي انصح بالابتعاد عنها هي النسخ واللصق والالحاق والحذف داخل قاعدة البيانات مادامت المعلومة المسجلة يمكن التعامل معها وتطويعها . لو كلفت بعمل مثل هذا لجعلت tblProjectExp هو رأس النموذج و tblRealisation فرعيا ولن اكون محتاجا لحقل NumberPeinture في جدول tblProjectExp يكفي ان اكتب المعطيات في النموذج الفرعي وحين اصل الى العدد المحدد الموجود في جدول الرأس يمنعني اكسس من تجاوز الرقم هذا مجمل الفكرة وأرى انها منطقية متسلسلة حتى لو لم يظهر من السجلات الا سجلات اليوم فان المصدر سيكون استعلاما والضوابط ستكون من خلاله

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

save_user_options.rar

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

بارك الله فيك وجزاك الله خير اخي مثال جدا رائع وفقك الله ورعاك

غالب الامتدادات 3 حروف تفضل اخي عبدالله تم التعديل جلب وإيداع الصور3.rar

تفضل test122.rar

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

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

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

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

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

::: تفضل هل هذا طلبك ....؟ UPكنترول.rar

وعليكم السلام تفضل امثله جاهزة: http://www.lebans.com/fontcolordialog.htm https://www.microsoftaccessexpert.com/Microsoft-Access-Color-Picker.aspx http://access.mvps.org/access/api/api0060.htm جعفر

السلام عليكم تفضل جرب هذا ووافنا بالنتائج ولا تنسانا من دعوة بظهر الغيب b.zip

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

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

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

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

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

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

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

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

تسلم يداك اخى

السلام عليكم بارك الله فيك اخي هشام --------------------------- ولاثراء الموضوع عندما تحرر آخر خلية فاضية في العمود A يضاف لك الصف الجديد بنفس التنسيقات والمعادلات لصف هذه الخلية الكود موجود في الوحدة النمطية للورقة1 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(Rows.Count, 1).End(xlUp).Address Then If Target.Value <> "" Then _ kh_AutoFill (Target.Resize(1, 13).Address) End If End Sub ---------------------------------------- Function kh_AutoFill(myRng As String) With Range(myRng) .AutoFill .Resize(2) .Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents End With End Function مخزن سيارات.rar