Eng.Qassim

وعليكم السلام استاذ @ابو جودي هي محاولة ..استبدل السطر اعلاه ب If Len(strOptionExtension) > 0 Then .Filters.Add "Select File", strOptionExtension Else .Filters.Add "Select File", "*.jpg;*.png" End If الاستدعاء .. Dim selectedFile As String selectedFile = CustomPicker(0, "*.jpg;*.png")

بالمناسبة ... UcanAccess ...لايعمل ان كان هناك ماكرو

السلام عليكم اخوتي وأساتذتي الكرام .. معضمنا يعلم بأنه يمكن تشغيل برنامج الاكسس دون الحاجة لتنصيب الاوفيس عبر استخدام Access RunTime عملت برنامج لاحد العملاء ..حينما نزلته على حاسوبه ..ليس فيه اوفيس او Access RunTime ..مع العلم ان لديه برنامج اكسس يعمل على نفس الحاسوب قمت بالبحث عن هذا الموضوع .. وجدت برنامج اسمه UcanAccess نزلت البرنامج لكنه لم يعمل معي ...هل لدى احد الاخوة اي خبرة في ذلك

بالتأكيد استاذ ابو خليل ..النموذج يفتح حينما يكون الجدول فارغ ..لانه سيلصق ال IP للحاسوب في الجدول حينما يتم نسخه الى حاسوب ثاني سوف لن يشتغل ..لانه سيقارن بين IP الموجود في الجدول مع ال IP للحاسوب الجديد بالمناسبة ..السطر الاول المفروض يكون هكذا ..حب ما اعتقد ارجوا منك استاذي ان تشرح لي الثغرة If DCount("[IpAddress]", "tblLog") = 0 Or DLookup("[IpAddress]", "tblLog") = Null Then

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

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

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

اعتقد المشكلة في اوفيس 2013 جرب 2007 او 2010

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

هل text1 و text2 رقمي ام نص؟ ان كان نصي فهو صحيح .. وان كان رقمي فليس صحيح ...لانه يحتمل ان يكون لايساوي او اكبر من او اصغر من او يساوي

ممكن لديك نسختين من الاوفيس ؟ ان كانت واحدة ..جرب هذه الطريقة التي وجدتها في احد المواقع الاجنبية ...انا شخصيا لم اجربها Press Win + R to open the Run window, enter msaccess /decompile, and press Run When Access opens, hold down shift and open your database Once the database is open, exit Access fully Restart Access and open your database again Open the code editor, click Debug >> Compile After the db compiles, close the code editor and click Compact and Repair Database in Database Tools

ضع هذا السطر بدل الموجود في حقل الربح ...لكن هذا سيسبب لك مشكلة في قيمة الارباح الربح: IIf([سعر الشراء]=0;0;Abs([سعر البيع]-[سعر الشراء])) العمليات الحسابية وضعتها اكسس في الجدول على سبيل التعلم ...دائما اجري العمليات خارج الجدول

هل هذا ما تقصده ؟ برنامج حسابات صغير.rar

طبعا ممكن ...ولو السؤال غريب الربح.rar

مشتاقون لافكارك الجميلة استاذ @ابو جودي

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

استاذ ابو خليل..انا لاحظت المرفق سابقا تركيبة الملف حسبما اظن هو بأدخال بيانات جديدة ومسح القديم ..يعني لاتبقى اي بيانات سابقة ...بصراحة هذا امر غريب!!

اذا كنت تقصد عمل مجموع اجمالي ..اعمل استعلام وانزل بيانات الجدول لديك ثم اعمل حقل ضع فيه هذا التعبير AccSum: DSum("[منصرف تحليلي]";"اوامر الصرف 2023";" [م]<=" & [م])

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

انا فهمت بأنك تريد فتح الاستعلام للتجربة !! وليس اظهار نموذج فوق نموذج ...عذرا لسوء الفهم

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

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

نعم صحيح اخي @دروب مبرمج وهذا ما اقترحته لكني افضل ان تجري العمليات الحسابية داخل التقرير وليس في الجدول

1- اعمل الانبثاق =لا 2- اعمل ال tab order هكذا

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