Shivan Rekany

اتفضل اضفت هذا لمربع البحث Private Sub n1_GotFocus() Form.AllowEdits = True Form.AllowAdditions = True End Sub Private Sub n1_LostFocus() Form.AllowEdits = False Form.AllowAdditions = False End Sub اليك قاعدة تعديل البيانات بكلمة سر.rar

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

هناك عديد مواضيع على ذلك وشوف هنا روبط بعضهم https://www.officena.net/ib/topic/70668-النسخ-الإحتياطي-التلقائي-لقاعدة-بيانات-واحدة-أو-أكثر-من-قاعدة-دفعة-واحده-يوميا-دون-تدخل-من-المستخدم/

غير في رقم الاخير 2 =Round(([AM]*[PR]/[FA]);2)

نعم سيشتغل لانه كل منهما نفس الشي لكن متى لا يشتعل احد من الاحداث DoMenuItem في اصدار احدث اذا تلك الحدث ليس يكون موجود في قائمة الاصدار الحديث لان DoMenuItem ليس لها تطوير بعد تلك السنة وبدل منه تم استخدام runcommand هذا والله يعلم

وها هنا نعم هو احسن شكرا لك

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

حسب معلوماتي ان تم الايقاف هذه الطريقة منذ سنة 2000 وتم تبديله ب هذه الاسلوب هذا والله يعلم

المبرمج يجب ان يفكر ما يحتاجه في المستقبل ويجب في بداية المشروع ان يفكر هذا ... تمام انا معك فرضنا اضفنا جدول خدمي كيف سنعرف متى سيحتاج اي حرف او اي رقم مثلا ؟ لكي نعطيه الكود المناسب !! والا سنحتاج بعدين ان ندخل المحرر الاكواد ونعدل ذلك في حين نحتاجه لذا لا يحتاج ذلك .. هذا حسب رأيي والله يعلم

اتفضل اليك كود قبل تحديث مثلا عندك مربع نصي باسم تيكست 0 Private Sub Text0_BeforeUpdate(Cancel As Integer) If Left(Me.Text0, 1) <> 9 Then Me.Undo MsgBox "يجب ان تبدأ من رقم 9" End If End Sub

اتفضل عند دخول بهذا الرابط يقولك http://api.whatsmate.net القي نظرة الى هذا الرابط See http://www.whatsmate.net https://www.whatsmate.net/ وعند دخولك في ذلك الرابط الاعلاه عند ثلاث اختيارات اولا اضغط على whatsapp gateway api راح يفتح لك هذا الرابط وبه اللي في الفيديو https://www.whatsmate.net/whatsapp-gateway-api.html هذا والله يعلم وانا لا اعلم شي

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

اليك هذا الرابط بها ما تريد لساتاذنا الفاضل كنز المعومات @jjafferr

اتفضل 347.Medication.rar

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

استأذن من استاذنا @أمير2008 هناك سؤال ما تريد ان تنسخ اي تريد ان تنسخ اسماء الادوية اللي تعطون لكل مريض ؟

استأذن من السيد @co2002co اولا في النموذج بها كومبوبوكس وليس ليست بوكس للعلم اتفضل بطريقة هذه الاستعلام .. استعلام التوحيد SELECT T1.حقل1 FROM T1 GROUP BY T1.حقل1 ORDER BY T1.حقل1 union SELECT T2.حقل1 FROM T2; واليك ملفك بعد تعديل ListBox.rar

ممكن ترفق نسخة مصغرة من قاعدة بياناتك او اذا تريد ان يقبل في جدول وليس حقل خاص تعمله في استعلام غير خاصية الحقل اللي فيه الرقم من Long Integer الى Double

Docmd.save Docmd.refresh جرب

المرفق مش موجود لكن جرب ان تغير "," ب ";"

نعم استاذي الحبيب وانا عملت المشاركة له لكي يفكر في ذلك تقبل تحياتي

هناك بعض ملاحظات 1 / عند الضغط على التلاوة مرة بيستمع القران الكريم هناك يجب ان يكون زر او نفس الزر ان يعمل ايقاف مؤقت وتشغيل من نفس المكان الايقاف او 2/ مستحسن ان نتعامل مع اية اية بدل من صفحة صفحة

استأذن من استاذنا @محمدنجار اخي محمد طريقة استاذنا محمد نجار هو طريقة حيحة لكي توصل الى الرصيد اذا هو ليس بمطلبك ممكن تخبرنا عن نوعية العمل اي سبب لهذا الطلب تقبل تحياتي

استاذنا @Elsayed Bn Gemy اعطاك الطريقة وانا اعطاك طريقة واليك ملف تيكس بها ارقام للغات تقدر تستخدمه في مثالي الاعلاه كود اللغة في الكمبيوتر.rar