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

السلام عليكم انا قرأت الموضوع بالخطأ ، قرأته اول وآخر سنه ، فأعتذر ارى انكم ما شاء الله اكملتوا الموضوع ، ولكني هنا اعطيكم الحل بنفس الطريقة السابقة : . والنتائج: . ولكن في شيء لم انتبه له البارحة لما وضعت جوابي ، وهو ان السنة في الجدول emp هو نص وليس رقم ، والذي معناه اننا يجب ان نحوله الى رقم قبل ان نأخذ Max ، وإلا فلن نحصل على السنة الصحيحة (صحيح ان النتائج الان ستكون صحيحة ، ولكننا نعرف ان تسلسل النص يكون غير صحيح ، وتسلسل الرقم يكون صحيح) أختي ، لا تهتمي بالاستعلامات الاولى ، فالاستعلام الاخير qry_Update_Values سيأخذ القيم بنفسه ويُتم التحديث جعفر 655.db1.mdb.zip

بعد اذن معلمى جعفر Shell "calc" هذا الامر يفتح الالة الحاسبة بغض النظر عن موقعا بالجهاز لانه يختلف من نسخ الويندوز

ربنا يبارك فيك استاذ ياسر .. عمل ولا اروع '=========================== 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو استدعاء بشرط 'تم هذا الكود في 15/2/2017 Sub استدعاء() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم شيت الهدف والمدى المطلوب مسحه Sheets("Sheet2").Range("B7:AJ10000").ClearContents 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A7:EF" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 3, 7, 8, 9, 11, 12, 24, 25, 35, 36, 46, 47, 57, 58, 72, 73) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به ورقم عمود المعيار If arr(i, 135) Like "*" & "نا*" & "*" Then temp(j, 1) = j For c = LBound(cr) To UBound(cr) temp(j, c + 2) = arr(i, cr(c)) Next c j = j + 1 End If Next i 'متغير اسم شيت الهدف With Sheets("Sheet2") .Range("B7").Resize(j - 1, UBound(temp, 2)).Value = temp 'سطر لمسح التسطير .Range("B7:AJ" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 End With End Sub ======================== هذا الكود خاص باستدعاء اعمده معينه بناء على شرط ( النجاح ) استدعاء بشرط.rar

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

اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub

وعليكم السلام أخي الغالي خالد الرشيدي بارك الله فيك وجزاك الله خيراً على كلماتك الطيبة .. وجزيت خيراً بمثل ما دعوت لي وزيادة

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

انا لا اعرف هل هذه المشاركتي مخالفة للقوانين ام لا اتفضل خذت هذا من برامجي اللي اعمل عليه الان BackUp.rar

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

السلام عليكم برنامج الصادر والوارد.... سهل جداً فى التعامل معه وبسيط للغاية.... اول عمل اقوم به اشكر عمالقة المنتدى اللذين أفادونى... جزاهم الله كل خير على فكرة : انا قبل انضمامى لموقع اوفيسنا.. كانت علاقتى بالاكسيل صفر الصادر والوارد.rar

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

هذا برنامج عند فتحه يعطي تنبيه برسالة عن الموظفين الذين تنتهي اقاماتهم بعد 60 يوم( بشكل تتابع للرسالة ) وهو مهم لمن يتابعون إنتهاء وثائق معينة ( اقامات ، جوازات ، رخص قيادة ، استمارات سيارات ، ... الخ ) الجدير بالذكر أن الكود تعلمناه من هذا المنتدى المبارك ، وللاسف لا أذكر صاحبه ( جزاه الله عنا كل خير ) نهاية+.rar

بارك الله فيك أخي العزيز ناصر وجزيت خيراً على كلماتك الطيبة تقبل وافر تقديري واحترامي

شكرا أستاذنا الفاضل ، دالة vlookup كانت كافية VLOOKUP VLOOKUP

وفقك الله جارى التنزيل و الدراسة

جزاك الله خيرا ... تمام

السلام عليكم استخدم الدالة TRUNC بهذا الشكل =TRUNC(A1,2)

احسنت عملا شكرا لك

السلام عليكم على قدر ما فهمت - اليك احد الطرق - ضع المعادلة التالية بالخلية E4 ثم اسحبها لاسفل =VLOOKUP(D4,$H$4:$I$11,2,0)

المطلوب السنتان الأخيرتان أيا كانا يتغير ذلك سنويا و مع ذلك فقد توصلت لحل بسيط جدا يتطلب إضافة واحدة و هى حقل فى جدول REPORT يسجل فيه رقم تقرير الموظف يعنى رقم داخلى غير الرقم العام المسلسل كما بالصورة بعد ذلك نستخدم هذا الحقل فى شرط فى استعلام التحديث DLookUp("[REP]";"REPORT";"[EMP_ID]=" & [EMP_ID] & "AND [EMP_TAQNO]=" & DCount("[EMP_ID]";"REPORT";"[EMP_ID]=" & [EMP_ID])) و مفادها البحث عن القيمة فى حقل REP بالجدول REPORT بحيث أولا : تساوى رقم الموظف ثانيا : رقم تقرير الموظف = عدد تقاريره التى حصل عليها (هذا لتقرير العام الحالى و عدد تقارير الموظف -1 و هذا لتقرير العام السابق و نبتعد عن التواريخ غير المنضبطة هاكم الملف بعد التعديل 655keraFINAL.db1.rar وشكرا لتعاونكم

نعم اعرف انا لا استخدمت قاعدة بياناتها لان بعد ما وضح لي المطلوب الى اختنا @ساره عبدالمنعم مثلا السنين تابع لموظف الاول مثلا هما 1914 و 1915 و 1916 و 1917 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 و 1919 ما تريد الان هل تريد ان يظهر لكل موظف سنتين الاخرين ام تريد ان تظهر السنتين الاخرين 1918 و 1919 وفي هذه الحالة سيكون للموظ الاول ما بها اي سجل

عليكم السلام ورحمة الله وبركاته جرب المرفق db2.rar اسف استاذى ابوخليل لم ارى مشاركتك الا الان عموما نفس الفكرة

المرفق مختلف عن الملف فى أول مشاركة

بكل سرور لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام استخدمت هذا Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub واليك ملفك بعد تعديل test150.rar

أنت لها أنت لها @shivan باقى استعلام تحديث للجدول employees

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

المطلوب أحدث سجلين اثنين

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

المطلوب اخر سنتان ايا كانت نحن الان فى سنه 1917 يكون المطلوب تقرير 1916 -1917 السنه القادمه يكون المطلوب هما تقرير 1917- 1918 وهكذا مع شكرى لحضرتك استاذ عبدالفتاح

شكرا أخي محمد

السلام عليكم ورحمة الله وبركاته نموذج سريع للبحث في القرآن الكريم يمكنك البحث فيه بالتشكيل او بدونه طلب من الاخ الحبيب ياسر خليل ملحوظة : ارجوا استخدام المرفق فقط لغرض البحث واستخراج المعلومة المرفق 2003 نموذج بحث سريع في القرآن الكريم.rar

جزاكم الله الخير الوفير وزادكم حرصًا علي مرضاته

الله يكرمك بس كنت عاوز أنبهك إن ده كود تفصيل يعني ممكن تجد به أخطاء . لأن لم يجربه أحد من قبل طبعا هنحتاج نعدل الشرط من : لو زاد عدد الشهور عن 12 يتحول إلى سنة إلى : لو زاد عن 11 يتحول إلى سنة ProgWork 4.rar

جزاك الله خيرا ذكرتنى ببرنامج لى قديم استخدمت فيه هذه الملفات أو مثلها Holy_Quran.rar

تم النقيح وضم المواضيع المتشابهة

أوك الحين البيانات ستدخل لكن راجع الجمع وانتبه لأن الشهور لو زادت عن 12 تتحول إلى سنوات كذلك الأيام لو زادت عن 30 أو 60 أو 90 ProgWork 3.rar

استاذ محمد عند تحويل الملف الي اكسيل 2003 اعطاني هذا الخطاء التقاط صورة2.rar

تفضل الفترق حدث قبل التحديث test120.rar

أخي حمادة بما انك في المنتدى وفي قسم الاكسس بالذات ، فهذا معناه انك مبرمج. ومن شروط المنتدى ان تبحث عن ما تريد ، قبل ان تضع السؤال ، وقبل ان اغلق موضوعك السايق ، اثبت اخي شفان ان هناك عدة روابط لعمل النسخ الاحتياطية. ومن شبه المستحيل ان تحصل على ماتريد 100% ، ولكن كونك كمبرمج ، تستطيع ان تستفيد من هذه الروابط وتتوصل الى الذي تريد. لهذا السبب تم اغلاق الموضوع السابق. جعفر

وهذا مثال خاص لمعلمنا الجليل ابو خليل بصيغة 2003 send2.rar

استاذى الفاضل / العلم نور المطلوب بالمرفق لعله يكون هو الجواب المطلوب وشكرا 22.rar

اشكرك اخي الكريم ما زالت المشكلة على حالها؟!!

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد) والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل: Private Sub cmd_WhatsApp_Click() Dim cmmd As String Dim cmmd1 As String Dim cmmd2 As String Dim cmmd3 As String Dim cmmd4 As String Dim cmmd5 As String Dim cmmd6 As String Dim cmmd7 As String 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'Send a message from MS Access through WhatsApp cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; " cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; " cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; " cmmd4 = "input text " & Me.To & "; sleep 1; " cmmd5 = "input tap 400 700" & "; sleep 2; " cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) Exit Sub 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & Me.To & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) End Sub جعفر Send_WhatsApp_messages.mdb.zip

السلام عليكم تفضل هذا الكود شبه النهائي ، وشغال 100% مع اللغة الانجليزية 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & "Hason" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & "Testing" & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) ولكن للوصول الى الارقام في السطر قبل الاخير ، يجب اتباع التالي (بدل ان تكون ارقامك بالتجربة): . اختر الحقلين 1 و 2 بعلامة الصح ، واللي محتاجين لهم ليعطونا نتائج رقم 3 و 4 (وبعد الحصول على الارقام الصحيحة ، يجب الغاء الصح من الحقلين 1 و2): . لمعرفة مكان زر الارسال ، محور س و ص X Y : ثم بعد ان ندخل اي شيء في حقل الكتابة في الواتس اب ، اغغط وخليك ماسك زر المايكروفون (لانه بعد الكتابة سيتغير الى زر الارسال) ، لاحظ الارقام في الاعلى في المربعين الاحمرين ، وسترى من الصورة انها 1022 في 1062 ، والذي قربته انا في الكود الى 1000 في 1100 . جعفر

استدراك علما انه يتوفر الواتساب على جهاز الكمبيوتر واستخدمه كثيرا شرط يكون جهاز الهاتف مفتوحا انظروا الصور

تفضل اخي الكريم db11.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء الرجاء اريد منكم خدمة لو تكرمتم اريد برنامج على الاكسس لتسجيل الاطفال والرسوم الشهرية والرسوم المدفوعة والتبقية فمن يستطيع ارجوكم مساعدتي البريد الالكتروني : l.a.t411@gmail.com او جوال : 0541687681 انا محتاج البرنامج

بارك الله لك في أهلك ومالك وأعمالك الصالحة من قال أنه ليس بجديد إنه عمل فريد وفقك الله لكل خير كلما تهدف لخدمة الغير تقبل تحياتي

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