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

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

الظاهر من السؤال ..انك تريد اعادتهم في نفس اللحظة .. اسهل حل هو عمل مربعي نص مخفيين يحملو القيمة الممسوحة test2023-1.rar

تفضل استاذ @محمد احمد لطفى هذا زر أمر لتأكيد الحذف أو التراجع . Private Sub cmd_delet_Click() If MsgBox("((هل تريد حذف السجل )) " & " " & DLookup("Building_Name", "OwnerBuildingName_AddNew", "[Building_Name]=sr99"), vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "Delete OwnerBuildingName_AddNew.[Building_Name] FROM OwnerBuildingName_AddNew WHERE ([Building_Name]=sr99)" DoCmd.SetWarnings True Me.Requery MsgBox "تم حذف السجل بنجاح" Else Undo MsgBox "تم التراجع عن حذف السجل" Me.m1.SetFocus End If End Sub

فيديوووووو جديددددد في هذا الفيديو هانتعلم ازاي نجيب الصور اللي مرفوعة على موقع شركتك اللي رافعاه على السيرفر بمعادلة في اوفيس 365 وكمان الصورة موش هاتكون صورة هاتكون قيمة وكمان تقدر تعمل فلاتر وتعمل معادلة البحث عن الصورة بطريقة بسيطة جدا جدا https://youtu.be/7WU-Q7n-Y6w

استخدم هذه الشيفرة اخي @محمد احمد لطفى Forms![TEST1]![Date_M] = Null Forms![TEST1]![NumberEnd] = Null If MsgBox("هل تريد اعادة البيانات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Forms![TEST1].Undo End If

تفضل أخي . Application Quit.mdb

عندنا مثل يقول : تلقمه العنان ويلقم يدك يغلق xxx

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الثالث في هذا الجزء سنقوم بانشاء سكريبت لاستخدامه في انشاء جداول قاعدة البيانات في SQL الجزء الثالث.pdf

You can use UDF in that case Function GetSheetName(ByVal rng As Range) As String Dim sFormula As String, m As Long, n As Long sFormula = rng.Formula m = InStr(sFormula, "!") If m > 0 Then GetSheetName = Trim(Mid(sFormula, 2, m - 2)) Else GetSheetName = Empty End Function

اعتقد ان هناك سوء فهم وعبارة مجرد سؤال تمت صياغته باسلوب المثل يا اخي اتق الله تصف رجل ربما يكون في سن والدك بانه قليل الذوق !! لا حول ولاقوة الا بالله

https://techno7asry.com/forum/t6567

استخدم هذه الشيفرة ............. Sub Macro1() Dim startNumber As Long Dim endNumber As Long Dim prefix As String Dim rs As DAO.Recordset prefix = "someprefix" 'change this to your desired prefix startNumber = Me.txtStartNumber.Value 'get the start number from the text box on the form Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourOriginalTable ORDER BY SomeColumn") 'open a recordset of your original table If Not rs.EOF Then 'check if the recordset is not empty rs.MoveFirst 'move to the first record Do Until rs.EOF 'loop through the records rs.Edit 'edit the current record rs!SeqNumber = prefix & Format(startNumber, "0000") 'assign the sequential number with prefix and format to the SeqNumber field rs.Update 'update the current record startNumber = startNumber + 1 'increment the start number by 1 rs.MoveNext 'move to the next record Loop End If rs.Close 'close the recordset Set rs = Nothing 'clear the recordset variable End Sub

جميل اخي ابو خليل تم التجربة انتقل الى الخطوة التالية :: تحياتي

تفضل هذا مثال لأستاذ ابو جودى فى النموذج الذى يحمل اسم Form1 كود فى حدث الوقت يتم تصفير العداد عند التنقل والعمل على قاعدة البيانات وفى حالة ترك القاعدة دون العمل عليها يتم اغلاق القاعدة بالتوفيق idle time.rar

@gamal gamal بعرض لك بمواصلة العمل بطلبك شوف الي بدك اياه تضيفه او تعدله قبل انتهاء ورفع بدو وقت بسيط واحتمال عندك اضافات لازم تكون في برنامج بمرفق @Eng.Qassim

أهلا بك أخي @kassem_geo 🙂 بالفعل البحث يتم في جميع الحقول .. ومن ضمنها الشرح .. والكود .. وطريقة لاستدعاء .. والرابط ....

أخي @abouelhassan يعمل عادي جرب (a) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (b) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته ..........ثم اضف (e) وشوف العداد تحت ولابد تحصل بحقول السجل عن ماكتبته .......... حتى تصل للكلمة أو الرقم الذي البحث عنه . الكود به نفس ما بالبحث بطريقة الاستعلام . تحياتي لك وأنا مهتم جداً بهذه المشاركات النافعة والفعالة خصوصاً من حضرتك .

بعض الحلول جرب ربط الجداول مع قاعدة بيانات جديدة جرب نسخة SQL Express

أستاذنا @Mohameddd200300 اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل أخي . SendKeys"^+{f}",True

تفضل جرب بالتوفيق Ctrl + Shift + f = SendKeys "^+F"

الله يبارك في الجميع إن شاء الله إن شاء الله آمين يا رب العالمين

السلام عليكم بعد إذن Sharaf ومحمد طاهر هذا مثال قديم يجسد استخدام الإستهداف آمل أن يكون مفيدا تحياتي . Installments.zip

بعد إذن الأخ أحمد استغليت نفس المثال لاضافة الطريقة بالكود اختار الخلية الهدف ( الصفراء ) ثم شغل الماكرو ( ALT+F8 ) ثم اختار الماكرو و اضغط Run سيسألك عن القيمة المستهدف الوصول اليها ، و يغير أصل الراتب ليصل الصافي الي القيمة التي ستحددها Sub GoolSeekit() Dim x As Double x = InputBox("Please Choose the Value", "Goal Seek Example ", 900) ActiveCell.GoalSeek Goal:=x, ChangingCell:=Range("b4") End Sub