أبوبسمله

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

وعليكم السلام ورحمه الله وبركاته جزاك الله خيرا اخى @rey360 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

جزاكم الله خيرا اخوانى واساتذتى @ابوخليل و @محمد ابوعبد الله المثال يعمل زى الفل ويمكن عمل الحدث لزر الشيك بوكس ليعمل كما يريد الاستاذ حلبى مشاركه مع اخى محمد من اجل التعلم حاولت على قد ما قدرت فالجزئيه التاليه بالنسبه لهذه الجزئيه حاولت فيها الى انا وصلت لهذا التعديل ويتم الترقيم تمام اذا كان الجدول فارغ واضافه اول سجل ويمشى تمام ولكن حينما قمت بتغير تاريخ الجهاز الى السنه الجديده لا يعمل أرفقت المرفق لرؤيته وتعديله Private Sub r1_Click() If Me.r1.Value = -1 Then On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 4) prtTxt = CLng(Mid(DMax("Receiptno", "t1"), 3, 5)) xLast = CLng(Mid(Left(DMax("Receiptno", "t1", prtTxt = prtyr), 2), 2, 1)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!Receiptno = "R" & Format(xNext, "0") & prtyr Else Me!Receiptno = "" End If End Sub تقبلوا تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم ترقيم متقدم-معدل.accdb

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

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

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

ضعها كما فالصوره اخى

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

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

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

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

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

وعليكم السلام ورحمه الله وبركاته قم بتحميل الكتاب ده فيه شرح لعمل برنامج مخازن للاستاذ محمد فؤاد تركى جزاه الله خيرا http://www.mediafire.com/file/691sd6czn9r2j21/Warehouses_and_Saling_system.rar/file بالتوفيق ان شاء الله طبتم واهتديتم

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

جزاك الله خيرا استاذى العزيز @AlwaZeeR حاولت استدعاء الوحده النمطيمه لكن لم افلح باستدعائها ولكن قمت بوضعها فى حدث قبل التحديث لحقل الاسم واشتغلت Private Sub Names_BeforeUpdate(Cancel As Integer) Dim SallomN As String AutoNum = Me.ID.Value Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select Me.auto = SallomN End Sub وقمت باستدعئها كما اشار استاذى العزيز بنجاح تقبل تحياتى طبتم واهتديتم ex.mdb

السلام عليكم استاذ محمد ده تطبيق للشرح للتعلم والاستفاده وقمت باستبدال الماكرو لكود محاوله منى للاستفاده والتعلم على كتابه الكود جزاك الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم DBw.accdb

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

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

اخى الفاضل ارفق مثالك حتى يتثنى لاخوانك واساتذتك مساعدتك بشكل افضل بالنسبه لـ الطلب الاول لدي نموذج مبني على جدول وعند فتح النموذج يظهر لي البيانات المسجله في الجدول طلبي هو اني ارغب بظهور النموذج فارغ من دون بيانات فى حدث عند الفتح للنموذج ضع الكود التالى DoCmd.GoToRecord , , acNewRec ارفق مثالك واشرح الباقى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

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

جزاك الله خيرا اخى محمد عالتوضيح طبتم واهتديتم

السلام عليكم مشاركه لاخى محمد حل اخر باستخدام Dsum =DSum("[ratb]";"[t1]") تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم جمع الرواتب.rar اخى محمد جزاك الله كل خير هو مينفعش استخدم sum فالرئيسى مباشره من غير استخدام الحقل الاضافى بالفرعى ؟

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