Eng.Qassim

وعليكم السلام.. الصورة غير واضحة بالنسبة لي..هل تريد من خلال ملئ النموذج التابع للجدول daleywork وعند الضط على نعم/لا يقوم بالحاق البيانات الى الجدول vesselINwharf؟

الملف شغال معاي..ويندوز 7..اوفيس 2013..64

مرحبا بك استاذ سامر.. انظر الى نموذج (وحدة استعلامات)..لايفتح عندك لماذ؟..مصدر بياناته من استعلام بيانات الموظفين..تمام افتح الاستعلام في واجهة التصميم وحتشوف بلاوي..كلها تعابير..على العموم امسحه كله واعد تنزيل البيانات من جدول داتا...نزل الحقول التي تحتاجها فقط نرجع لمجموع عدد ايام الاجازة.....اين هي طريقتك لحساب عدد الايام؟ المفروض ان تحسب عدد الايام بدالة الفرق بين تاريخين!!وليس كما في الصورة المفروض يظهر لك هكذا : استخدم : DateDiff("d",[بداية الاجازة],[نهاية الاجازة])

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

راجع التقرير جيدا ...الموجود هذا =[SumOfMONT]- [rest] بينما المفروض هذا ... =[SumOfMONT]- [MONT] لكن سؤالي ..هو مالفائدة من ذلك ؟

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

الصلاحيات عاملة زي الفل ...لكن ماذا تقصد بتشفير كلمة السر ..هي مشفرة ولايطلع عليها احد ..يبقى فقط توزيع الصلاحيات من قبل الادمن في صفحة (انشاء مستخدمين) والتي لاتفتح الا للادمن

وعليكم السلام..اجبتك عن جزئية العظم والتشطيب فقط الافضل ات تضع الجداول التي تحتاجها فقط عند اي سؤال ..لانها تأخذ وقتا لمتابعتها ولكي يسهل على الاخوة الافاضل التركيز على محور واحد 24-2-2023.rar

طالما انت عملتها خلف الزر...اعمل مربع نص في النموذج لادخال الرقم ..ثم غير السطر في الكود الى strInvoiceID = Me.Text1

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

استاذي العزيز @kanory...لايوجد رابط للملف ..انما موديول كنت محتفظا به وعملت منه ملف

الله يكون بعون استاذنا الحبيب @ابوخليل من الصبح وهو شغال لحل مشاكل اسئلة الاخوة ...ربي يجعلها في ميزان حسناته وحسناتكم

كلامك صحيح استاذ خالد ..ولهذا ذكرتها سابقا بأنه يحتاج الى باراميتر لتمرير القيمة من خلال نص في النموذج ..هذا اذا عملها سبروتين ..وانا حسب ماتعلمت لا افضل استخدام الاكواد خلف النموذج وانما بموديول ونستدعيها متى شئنا لاني اشتغلت على اساس ماذكره في اول مشاركة ..الرقم يتكون من 4 ارقام ولهذا جعلته integer

الخلل هنا...استبدل الى هذا Dim strInvoiceID As Long

جرب هذا الملف fatora.rar

استاذي العزيز @ابوخليل..هو يريد مسح البيانات من الجدولين فالمسح يبدأ من جدول الحركة وينتهي بجدول الفاتورة

شكرا استاذي ابو خليل.. نعم قدم السطر الثاني على الاول اقصد هذه الجملة كلها Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsHaraka.EOF rsHaraka.Delete rsHaraka.MoveNext Loop

لا اختلاف ولاحاجة.. السيت الاول بيكون Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE FatoraId <> " & strInvoiceID & "") السيت الثاني.. Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE Fatora_id <> " & strInvoiceID & "")

استبدل استبدل HarakaID ب Fatora_id انا افترضتها من عندي

وعليكم السلام.. استخدم الكود التالي لاستثناء 1001..ربما تحتاج الى باراميتر في الكود لتمرير قيمة الرقم المستثنى من خلال النموذج Sub DeleteRecordsExceptOne() Dim db As DAO.Database Dim rsFatora As DAO.Recordset Dim rsHaraka As DAO.Recordset Dim strInvoiceID As Integer strInvoiceID = "1001" Set db = CurrentDb Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsFatora.EOF rsFatora.Delete rsFatora.MoveNext Loop Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsHaraka.EOF rsHaraka.Delete rsHaraka.MoveNext Loop rsFatora.Close rsHaraka.Close db.Close Set rsFatora = Nothing Set rsHaraka = Nothing Set db = Nothing End Sub

وعليكم السلام .. وجدت لك هذا الملف وانا شخصيا لم اجربه وربما يحتاج الى تعديل لان اصلا ليس لدي واتس اب على الحاسوب ياريت تجربه وتعطينا النتيجة ..شرح الكود موجود اسفل الكود WhatsAppNumber.rar

وعليكم السلام بالاضافة لما تفضل به الاستاذ خليفة ..تعمل استعلام يظهر الارقام المتشابهة لمرة واحدة بأستخدام الاداة DISTINCT SELECT DISTINCT الموظفين.القسم, الموظفين.الادارة FROM الموظفين WHERE (((الموظفين.الادارة)=1)); ثم تقوم بحساب عدد الاقسام من مربع النص: =DCount("[القسم]","[Qry1]")

الله...اجمل دعوى اللهم ارحمهما كما ربياني صغيرا ... بس انت (لاتسك بابك ) مشان لاتنسك الابواب امامك ..!!!

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

بعد اذن استاذي @ابو جودي اعمل برنامج جديد ..واعمل جدول ونموذج جديدين...هل تحدث معك هذه المشكلة ؟