Eng.Qassim

استاذنا العزيز @ابو جودي مشتاقون لك واعمالك الجميلة والرائعة ... بس ياعمي انت حتخرب شغل على المبرمجين 😂 دة عندنا علشان المبرمج يضيف جدول اضافي ...بياخد الشيء الفلاني

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

انا اسف على عدم الاستمرار ....بسبب حالتي الصحية بس طالما موجود الاخ @ابو عارف والاخ @Foksh الامور ماشية والحمد لله

وعليكم السلام ... قبل الدخول في تفاصيل البرنامج قم بتنزيل وتثبيت خط الباركود (على سبيل المثال، Code 128 أو Code 39). ثم ارفع ملفك للتعديل عليه ... وبالمناسبة لو انك استخدمت البحث في الموقع ستجد الكثير من المواضيع خاصة بالباركود

تفضل CCCODE 7.rar

وعليكم السلام هل هذا ماتريده ؟

مشاركة مع اساتذتي الكرام @ناقل & @أبوبسمله ملاحظة: الطريقة التي ارفقتها محددة جدا...لايمكنك تغيير الاسعار مستقبلا رغم اني افضل عمل جدول بالاسعار للاصناف مرتبط بالشركات او الزبائن تحسبا لتغير الاسعر كل فترة Test_2k.rar

وعليكم السلام تفضل التعديل ...كلمة السر 1234 ...يمكنك تغييرها ops.rar

الحمد لله ...بالتوفيق يارب

طالما ان الرسالة لا تظهر عندك ..اغلب الظن المشكلة في نسخة الاوفيس

طيب اخي ...لنجرب هذا الكود لقراءة picture property لديك If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then MsgBox "Picture Property: " & Nz(Me.Image.Picture, "(Null)") سوف تظهر لك رسالة لقراءة الخصائص ...بين لنا ماهي؟

طيب ..جرب هذا السطر If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(لا يوجد)" Then

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

سنحاول try & error جرب السطر التالي ..لان نسختي بالانكليزي If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Or Me.Image.Picture = "(بلا)" Then

ممكن تاخذ لي صورة لخصائص ال Image لديك

في خصائص ال Image هل لديك كما في الصورة؟

سارفع الملف بدون مجلد الصور Database.accdb

هو يحذف الملاحظة 1 عندي !! ربما اصبح خطأ معين ... على كل حال الصق هذا الكود لديك Private Sub Command5_Click() On Error GoTo ErrorHandler If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then Me.Note1 = Null Else Me.Note2 = Null End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical, "Error" End Sub

وعليكم السلام .. تفضل اخي موقف طبي.rar

عزيزي استاذ @Tarekfathallah ارجوا علمكم بأن النموذج الموجود في الملف هو لادخال البيانات اليومية .. اما طلبكم في اظهار المعاش والاعطال فذلك فيه حديث اخر ويحتاج الى نموذج اخر خاص بهذا المطلب.. لان المعاش يعتمد على كل شهر يمكنني اظهار المعاش في نفس النموذج لكتتي غير مقنع منه.. ان مكنتني صحتي سوف اكمل ما طلبته ...وبالمناسبة فان جدول T_EMPLOYEE لايعمل وهو ضروري حاول معالجة ملفك.. احترامي وتقديري لك

لقد اجبتك عن الجزئيات المطلوبة منك افتح صفحة جديدة وجرب... واخبرني النتيجة CODE HR (1).rar

وعليكم السلام عملت لك استعلام attendance query يمكنك عمل نموذج مستمر ويكون الاستعلام مصدر بياناته ... كل ما علي ان ان تعمل combobox للموضف واخر للمشروع ..يقومون بعمل تصفية للبيانات في النموذج CODE HR.rar

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

اخي ومعلمي الغالي @أبوبسمله غلبتني والله بأستخدامك ال UNION راحت عن بالي...على كل حال زيادة الخير خيرين لاني كنت اظن ان القائمة المنسدلة تبحث في بيانات واحدة انا عن نفسي اعطيك اجابة جيدة بعد اذن الاخ @محمد التميمي

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