ابوخليل

اللهم بلغنا رمضان .. وأعنا على صيامه وقيامه كل عام وانتم بخير

انت من يضع المثال حيث اكوادك موجودة , ولا يحضرني شيء الآن احرص ان يكون على صيغة mdb

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

انظري الروابط المشابهة في الاسفل

وعليكم السلام نعم يوجد .. عرف القيمة واجعلها عامة في رأس وحدة نمطية عامة (مديول ) الصق هذه Public uuu وتنادي القيمة هكذا : if uuu يساوي كذا ... هذا كل شيء

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

اشرح الفكرة فقد نساعدك على تنفيذها بطريقة أخرى

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

انا قرأت ملاحظات الاستاذ جعفر قبل ان اضع الحل والدالة val سقطت سهوا لا حظوا اني كتبتها في اجزاء اخرى من الكود هذه حقيقة .. انا اتكلم عن -1 ( اذا كان Dmax = 2017 ) فـ -1 = 2016 لو فرضنا ان احدهم له تقييمين 2017 و 2015 فلن يظهر تقييم 2015 وسيعطي الكود خطأ

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

ما شاء الله .. دقة ومتابعة وكأن العمل يخصك , نعم مر بخاطري -1 هذا لذا قلت تطبيق لفكرة الاستاذ جعفر فكرت في Dlast ان كنا سنتعامل مع السجلات وليس القيم ولكني لم اجرب لذا تظهر هنا جليا فائدة الترقيم التلقائي كمفاتيح للجداول اما مسألة تقرير واحد فلم يخطر ببالي ,, يعني تحتاج شرط . صح ؟

السلام عليكم قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اخواني الكرام ... تسببون لنا الحرج في تطبيق القوانين بكل اسف مضطرين لقفل الموضوع

مشاركة قمت بعمل هذه الدوارة لتطبيق فكرة استاذنا جعفر Dim db As DAO.Database Dim rs As DAO.Recordset Dim j, i, ii, x As Integer Dim r, rr As String Set db = CurrentDb Set rs = db.OpenRecordset("emp") rs.MoveLast rs.MoveFirst For j = 1 To rs.RecordCount x = rs!emp_id i = DMax("rep_year", "report", "emp_id=" & x) ii = DMax("rep_year", "report", "emp_id=" & x) - 1 r = DLookup("rep", "report", "val(rep_year) =" & i & " and emp_id=" & x) rr = DLookup("rep", "report", "val(rep_year) =" & ii & " and emp_id=" & x) rs.Edit rs!rep_last = r rs!rep_befor = rr rs.Update rs.MoveNext Next j MsgBox "تم" Set db = Nothing Set rs = Nothing تحديث حسب سجل وما قبله.rar

شكرا لك اجتمع الشرح النظري مع التطبيق العملي اخي السائل رعاك الله .. انا اعمل على نسخة عربية ولكن ستجد ما ذكرت في الخصائص في لسان التبويب الثالث اجعل القيمة : Pop-up = yes

عليكم السلام من خصائص النموذج الفرعي/ لسان التبويب : غير ذلك اجعل منبثق = نعم

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

شكرا لك

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

لم استطع الارسال باستخدام مثال الاستاذ جعفر علما اني احاول من الصباح اما مثال السيد جمال فانه عمل معي من اول محاولة الملاحظة : واعتقد انها موجودة في جميع الامثلة الواردة : انه لن يتم الارسال الا للاشخاص الموجودين والمسجلين سابقا في برنامج الواتس فبعد تنفيذ الحدث يقوم الكود بالبحث عنهم في متصفح واتساب فأن وجد الرقم او الاسم ارسل والا (يظهر الرقم وعبارة لايوجد) وهذا لا يخدم الفكرة . الحل : يجب عمل خطوة تسبق الارسال وهي تسجيل الرقم في واتساب برمجيا

ما شاء الله غفوت ساعة و كل هذا حصل تكاثرت الظباء على خراش .... فمايدري خراش ما يصيد .

دوما اخي على الرحب والسعة ما رأيك احيلك على المستودع تنتقي منه ما تشاء

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

أكرمك ربي واصلح لك الذرية

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus) استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

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