ابوخليل

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

انا قرأت ملاحظات الاستاذ جعفر قبل ان اضع الحل والدالة 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

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

وعليكم السلام مما فهمت المطلوب اعادة ترقيم اعادة الترقيم في الجداول غير مهم ما دامت ستظهر في النهاية في التقارير مرتبة في التقرير خاصية للحقل ( غير المنضم) يمكن من خلالها الترقيم مرتبا

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

الحمد لله على تحقيق المراد لو قلت : اريد اظهار مربع حوار اللغة .. لما انتظرت كل هذه المدة فهم السؤال او طرح السؤال بشكل صحيح هو نصف الاجابة

ضع طريقة للتواصل معك حتى نرفعه الى قسم الاعلانات

السلام عليكم اعتقد الاستاذ حمدي يريد مثل هذا تغير لعة الونوز2.rar

Me.feld.Height = Me.tfseel.Height

تفضل حقلين2.rar