نجوم المشاركات

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

السلام عليكم أقدم لك حلين في المرفق، الأول تبسيط لمعادلات IF والثاني باستعمال دوال أخرى (يمكن إضافة شروط أخرى)... أرجو أن تفي الغرض المطلوب... بن علية حاجي محاولة.xlsx

أهلا بك @محمد احمد لطفى وأتطلع لخدمتك في المستقبل..

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

=Count(IIf([YourFild] Like "*صباحية*",1)) =Sum(IIf([YourFild]="صباحية", 1, 0) Untested

تفضل واي استفسار لا تتردد 5555.pdf account.mdb

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

مشكور يالطيب

الله يعطيك العافية اخي عبد اللطيف مجهود تشكر عليه

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

للاسف اذا الغيها يلتغي الكود بالنسبة لي اعجز عن تقديم المساعدة ننتظر مرور الخبراء ومنهم نستفيد

السلام عليكم 🙂 للأسف الشديد ، مو كل شيء ممكن يتحقق بإستعلام واحد !! نعمل استعلام لعملية البيع ، واستعلام لعملية الشراء ، ثم نربط هذين الاستعلامين في استعلام ثالث واللي نحصل فيه النتيجة . والنتيجة . جعفر 1078.Database2.accdb.zip

أستاذ @عبد اللطيف سلوم عند ادخال في النموذج الرئيسي والانتقال للادخال في النموذج الفرعي تظهر هذه الرسالة وانا لا اريدها

جميل جدااااااااااااااااااااااااااا

السلام عليكم الذي أعرفه أن أف11 وحدها تظهر صفحة مخطط جديد Graphic ولا أعرف أنها تخفي أوراق العمل (ليس من عملها)... أما إظهار ورقة العمل فيتم بعدة طرق حسب نسخة الأوفيس التي تعمل عليها... في النسخ 2007 فما فوق يمكن النقر باليمين بالفأرة على اسم أي ورقة عمل أخرى فتظهر لك نافذة فيها اختيار "إظهار" عند النقر عليها تظهر قائمة أوراق العمل المخفية فتختار التي تريد إظهارها... والله أعلم بن علية حاجي

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

تاريخ الدخول وتاريخ الخروج يتم تسجيله في جدول tblBedCase ولكن وجدت بعض الخلل في الجملة البرمجية انظر الصورة وانظر السطر الملون بالازرق ، فعندك السطر يوجد قبل جملة الاستعلام حاول تنقله كما في الصورة

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

أخى الكريم أعتقد أن عملية الإنتقال تكون الى سجل واحد فقط ولا ينتقل الى كل السجلات فى حدث عند الضغط على الزر ضع الكود التالى عله يفيد Private Sub Comd1_Click() DoCmd.GoToControl "اسم حقل التاريخ المطلوب الانتقال اليه" End Sub

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

تفضل يا اخونا الحلبي اقرأ بدقة .. يجب مراعاة التالي : 1- انت بحاجة الى انشاء نموذج يتم من خلاله تسجيل جميع الاسرة (الأساسيات) الحالة : متاح/غير متاح هذه تعني انه لا يمكن ظهور السرير الغير متاح باي حال من الاحوال ، فإما ان يكون تحت الصيانة او تم حذفه من الغرفة نهائيا . وهنا يجب ان يبقى كغير متاح لتعلق كثير من البيانات به ، وتعيين الحالة يتم يدويا من نموذج تسجيل الاساسيات . 2- لا يمكن بحال من الاحوال بعد التسجيل ان يتاح التعديل على الطوابق او الغرف ....... وتبقى الفرصة متاحة للتعديل على الأسرة نتكلم عن المثال المرفق : تم عمل الجداول اللازمة تم عمل نموذج يعرض جميع الغرف (الشاغرة والمشغولة)///// ويمكن جعله تبويبات كل تبويب يعرض طابقا معينا انقر على حقل الموظف سواء كان شاغرا او يحمل اسم اذا كان شاغرا فسينقلنا الى مربع حوار نختار منه اسم الموظف ثم تنفيذ ( لاحظ ان مربع التحرير لا يعرض الموظفين الذين يملكون اسرة ) اذا نقرنا على اسم موظف موجود فسينقلنا الى مربع حوار يمكننا من خلاله تنفيذ مغادرة للموظف البيانات التاريخية يتم رصدها عند كل حركة المهم اني عملت العمود الفقري لوظيفة التسكين ، وبطريقة بسيطة احترافية أرجوا ان تجدوا فيها الفائدة والمتعة ويتبقى الخدمات الاخرى الفرعية والتحسينية كالتقارير وغيرها اعتقد انها لن تصعب عليك sakn.mdb

تفضل اتمنى ان يكون طلبك 5- Service Charge 12 % June 2019.xlsm

عن طريق مصدر الصف أخي العزيز كما في الصورة

ابشر اخوي أبو ابراهيم تفضل On Error GoTo ErrHandler Dim File_Path As String Dim File_Name As String Dim Name_Path As String File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Dir(File_Path & "\*.*") Name_Path = File_Path & File_Name '=ابحث ان كان الملف موجود في المجلد المحدد If InStr(File_Name, crn) > 0 Then '= في حال وجوده وتم تغيير اسمه قم بتبديل الاسم القديم بالجديد Name File_Path & File_Name As File_Path & Replace(File_Name, crn, Newname) '= افتح الملف Application.FollowHyperlink Name_Path Else '= في حال لم ييجد الملف باعتماد رقم Crn MsgBox "صورة ايصال العميل غير محفوظة" End If '== ازالة خطأ Esc / ليس مهما الرقم ErrHandler: If Err.Number = 16388 Then Exit Sub عمل الكود - يقوم بمقارنة الاسم الموجود في الملف كونتاكت حسب الرقم Crn - في حال وجد الملف يقوم بفتحه - اذا تم تعديل الاسم في حقل الاسم الجديد يقوم بتغييره الى الاسم الجديد :: تحياتي نسيت حقل NewName مفترض ان يكون في النموذج للاسم الجديد

وعليكم السلام 🙂 1. انت تريد عرض التقرير يكون 90 سم ، بينما تقرير الاكسس يمكنه ان يكون 55.8 سم بحد اقصى ، فيمكنك ان تستعمل 55.8 سم (او اقل) كحد اقصى للعرض ، بعمل تنسيق يختلف قليلا ، هكذا: او 2. الاكسس كونه قاعدة بيانات ، ومثله مثل باقي البرامج ، له حدود معينه لا نستطيع تجاوزها !! اقترح عليك تصدير البيانات من استعلام الى ملف اكسل ، والطباعة من الاكسل ، سواء للطابعة مباشرة او لملف PDF (والذي بإمكانه احتواء عرض صفحة A0). جعفر

عمرو 16/02/1993 مصر:الجيزه بكالوريوس تجاره القاهره محاسب اول احب تصميم برامج محاسبيه على الاكسس و اريد بعد اتقانها ان اتعلم تصميم برامج محاسبيه اكبر بواسطه البرامج التى تساعد فى تصميم البرامج المحاسبيه المتكامله الاقسام Amr16293@gmail.com اريد ان اتعلم من خبراتكم فى تصميم برامج المحاسبه

السلام عليكم تم تعديل الكود وأرجو أن يناسبك , قم ينسخه ولصقه في ملفك الأن لن يعتمد هذا الكود على الورقة1 , يعني في السابق كنت تضع تاريخ ظهور الرسالة وتاريخ الأغلاق في الورقة الأولى أما في هذا الكود فقد تم وضع التاريخين داخل الكود (افتح الكود وستجد ذلك بداخلة , قم بتغيير التاريخ حسب رغبتك) هذين التاريخين تم وضعهم داخل الكود حتى نستغني عن الورقة1 جرب الكود الجديد في الملف المرفق ملاحظة : العملية الحسابية التي يتم بها حساب رقم الترخيص هي عملية واحدة من بين عشرات العمليات الحسابية وتستطيع تغييرها كما تريد تحياتي المصنف11.xlsm

(الصباحية)count=

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

نواصل الشرح مما سبق عرفنا أنه لا يمكن أن يشتغل البرنامج على جهازين لأن لكل جهاز رقم خاص به فصاحب البرنامج يضع الترخيص بناء على رقم الحاسوب ولكن !!! تستطيع أن تجعل البرنامج يعمل على عدة أجهزة !!! بشرط أن تعرف رقم كل جهاز ثم تفتح الكود وتكتب هذه الارقام داخل الكود (لاحظ الملاحظة 2) فعند تشغيل البرنامج فإن الكود سيختبر رقم الحاسوب فإذا كان رقم الحاسوب ضمن الأرقام المسموح بعمل البرنامج عليها فإن الكود لن يطلب رقم ترخيص ولكن سيشتغل مباشرة ويثبت البرنامج نفسه بدون رقم ترخيص ملاحظة 1 : هذا السطر في الكود For R = 2 To 7 يبين أن البرنامج يتكون من سبع أوراق , لذا يجب تعديل الرقم 7 إلى الرقم الصحيح الذي يتكون منه ملفك فإذا كان ملفك يتكون من 4 اوارق غير الرقم 7 إلى 4 وهكذا مع مراعات أن تكون الورقة الاولى في ملفك الجديد هي نفس الورقة الأولى في هذا الملف المرفق لأن فيها الخلايا التي تبين انتهاء ترخيص البرنامج ملاحظة 2 : هذا السطر من البرنامج If x = -955230912 Or x = 346461075 Or x = -695641268 Then GoTo d يبين ارقم الحواسيب المسموح للبرنامج العمل عليها بدون ترخيص , أنا وضعت هنا ثلاثة ارقام لثلاثة حواسيب تستطيع أن تزيد فيها أو تقلل المهم أن تكتب =x ثم تضع الرقم وبعده Or ملاحظة 3 : طريقة تثبيت الكود في ملفك الجديد تجدها في الورقة2 من الملف المرفق تفضل تحياتي المصنف10.xlsm

حياك الله سأشرح لك عمل الكود . أما (سطر سطر) فهذا يشبه من يفتش عن أبرة وسط الركام الكود يثبت البرنامج في جهاز الحاسوب عن طريق رقم يظهر للمستخدم يطلب منه إدخال رقم الترخيص دعني أقص لك هذه القصة لتفهم الكود كيف يعمل 1 - ابن الجنوب هو صاحب البرنامج المكون من سبع صفحات 2 - أراد أحمد أن يستخدم البرنامج في جهازه (بالبيت أو العمل) 3 - عندما يشغل البرنامج ستظهر رسالة فيها رقم وتطلب من أحمد أدخال رقم الترخيص 4 - أخمد لا يعلم رقم الترخيص ولكنه سبتصل عبر الهاتف بصاحب البرنامج ابن الجنوب 5 - ابن الجنوب سبخبر أحمد بأن يعطيه الرقم الذي ظهر له في جهازه (وهذا الرقم يختلف من جهاز لآخر , انظر الملاحظة في الاسفل) 6 _ عن طريق عملية معينة يجريها بن الجنوب سبعرف رقم الترخيص للبرنامج ويعطيه أحمد حتى يدخله في الرسالة ويعمل معه البرنامج تمام التمام 7 - أنثاء عمل أحمد على البرنامج وقبل أن تنتهي مدته ستظهر رسالة لأحمد بأن مدة البرنامج أوشكت على الانتهاء في اليوم الفلاني (يظهر التاريخ في الرسالة) 8 - عندما يحل الموعد المحدد سيتم أقفال البرنامج ولن يعمل كما هو المعتاد ملاحظة : كيفية حساب رقم الترخيص للبرنامج هذه العملية يتحكم فيه صاحب البرنامج ابن الجنوب فمثلا : في هذا الرنامج المرفق يتم حساب رقم الترخيص عن طريق ضرب الثلاثة خانات الأولى في الثلاثة خانات الأخيرة مثال 1 : ظهر لأحمد في الرسالة الرقم الآتي : 324556782 طريقة الحساب : الثلاثة خانات الأولى هي 324 الثلاثة خانات الأخيرة هي 782 أدن 324 × 782 = 253368 ابن الجنوب سيعطي أحمد هذا الرقم 253368 مثال 2 : ظهر لأحمد في الرسالة الرقم الآتي : 324556782- (لاحظ هنا ظهرت إشارة السالب) طريقة الحساب : الثلاثة خانات الأولى هي 32- الثلاثة خانات الأخيرة هي 782 أدن 32- × 782 = 25024- ابن الجنوب سيعطي أحمد هذا الرقم 25024- (لم ينتهي الشرح ولكن تفضل جرب الملف ) المصنف9.xlsm

ههههههه أهلا أخي ابو سليمان انتحار الملف يعني حذفه في الجهاز نهائيا أهلا أخي ابن الجنوب عملت لك هذا الكود ولكنه لن يحذف الملف (انتحار) بل سيتم أقفال البرنامج في الوقت الذي تحدده كلمة مرور الورقة هي 1223334 تقبل تحياتي المصنف8.xlsm

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

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

الأخ الحبيب أبو نبأ إليك الملف المرفق عله يفي بالغرض Filter & Extract Duplicates.rar