kkhalifa1960

تفضل أخي أنا جربت عندي Private Sub btn_supprimer_Click() Dim rs As Recordset, Quantite As Long Set rs = CurrentDb.OpenRecordset("SELECT * FROM Sorties WHERE id=" & Me.txt_id & " ") If Not rs.EOF Then Quantite = rs("Quantite") rs.Close DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM Sorties WHERE id=" & Form_Sorties.txt_id DoCmd.RunSQL "UPDATE Stock SET Sortie=Sortie-" & Quantite & " WHERE id=" & Me.txt_id & " " DoCmd.SetWarnings True Form_Sorties.Requery Else MsgBox "L'enregistrement que vous essayez de supprimer n'existe pas !", vbCritical, "Erreur" End If Set rs = Nothing End Sub

وتفضل بعد التعديل ووافي بالرد 752محاسبة2018 مستودعات.rar

نفعت معك يامالك الحرايزة لاني جربتها على حقل شطب فقط وخصائصه في الاستعلام كما قال لك أخي أبو أحمد ( تنسيق General Number) وهذه صورة الناتج

باين عليا الكبر شاين

حضرتك استخدمت الدالة {AA: Sum(Nz([شطب];0)) } لحل مشكلة الاصفار تمام ولحل مشكلتك الحالية استخدم دالة التقريب { bb: Round([AA];2) } لاقرب رقميين عشريين

ارفق مثالك أخي لمساعدتك

تفضل أخي Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article &" ")

تفضل أخي ووافني بالرد عاطف1452 (2).rar

تفضل اخي ووافني بالرد برنامج-1.rar

شكرا لك يا دكتور جمال الله يجعله في ميزان حسناتك🌹

وين رد الاستاذ سامر محمود ؟؟؟؟

من فضلك ارفق مثالك للعمل عليه

اخي لسهولة التعامل مع الجداول الحقول باللغة الانجليزية مختصرة ووجود حقل في كل الجداول وليكن نوع الوقود ورقمه علشان الربط بينهة وعدم تكرار الحقول الباقية بالجداول حيث وجدت حقول متشابهه بالجدولان 1و3 والجدولان 2و4 والجداول لابد ان تحتوي بما تطلبه بالتقرير ابدأ بذلك والكل بيساعدك

مشاركة مع احبابي واساتذتي اقدم لكم برنامج صلاحيات وبه مطلب الاستاذ سامر محمود ( اخفاء حقل معين من تقرير اكس عن طريق شاشة صلاحيات الموظفين ) 1-أدخل مرة باسم mahdi والباس 1960 ثم افتح التقرير سيظهر لك الحقل T11 وبياناته بالتقرير لان مهدي عنده صلاحية 2-أدخل مرة باسم Ali والباس 111 ثم افتح التقرير سيختفي لك الحقل T11 وبياناته بالتقرير لان علي ليس عنده صلاحية جربوه ووافوني بالرد 255.rar

أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source) حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات انا مجربها عندي وتعمل تمام التمام

وهذه محاولة أخرى 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة اذهب الى ملف ثم طباعة ثماول اختيار QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك . 3-ووافني بالرد .

الحين فهمت قصدك 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على الموذج بيسار القاعدة ونفذ مالصورة ( فكرة استاذ جعفر في مشارة سابقة ) ولكن تنبة التقرير سيظهر محتويات النموذج لمرة واحدة أطبع الان لانك لو اغلقت التقرير الجديد وحبيت تفتحه مرة أخرى سيفتح على ريكورد واحد فقط وسيطلب منك تحديده . 3- انظر مافي الصورة ووافني بالرد .

مع احترامي الشديد وبدون تجني لانه برنامج متعوب عليه أنا أفضل الاستيراد مباشرةً من الاكسل من الايكونة بالاكسس لانه اسرع

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

وهكذا الناتج السنوات المفقودة وآخر سنة سداد.accdb

واشارك مع استاري جعفر وتفضل كمان Calendar Month View.rar واشارك مع استاري جعفر وتفضل كمان

للاسف حاولت ولم بنتج شئ لان الملف فورمات اكسس 95 والنتيجة بالمرفقات حاول تعمل system restore لتاريخ قبل المشكلة أو مكن احد الشباب يقدر يساعد bb (AccessFIX).mdb

هذا برنامجي للصلاحيات أقرأه جيدا بتحصل ماتريده أنا استخدمة لجميع برامجي ووافني بالرد MahdiPermissions.rar

رجاء قراءة هذه المشاركات جيداً

حاضرين استاذ aali1973 وجميعنا بالخدمة