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

هذا الكتاب الذى بين أيديكم الان يشرح وبالتفصيل قواعد البيانات ومفهومها ويشرح الأكسس وبالتفصيل ليجعل اى مبرمج شخصاً واعياً فاهماً وقد تم إضافته الى أوفيسنا التى تعتبر حقاً الطريق الى معرفة علوم الكمبيوتر بمجهود أخوانكم الأخرين وستجدون الملف مرفقاً وبالتوفيق access.zip

اخي ساندنت بعد اطيب تحية ومشاركة معكم وبعد اذنكم هناك فكرة سهلة كاتالي: اعمل مربع نص في تذييل النموذج الفرعي sub وبه المعادلة التالية وسميه t1 = last([no]) في الحدث بعد التحديث يكون الشرط كالتالي if me.no = me.sub!t1 then ........ بالتوفيق

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

نعم اخي هو يريد تاريخ ام القرى وانا جربته واتوقع الكود حسب مافهمت انه يعطيه التاريخ ام القرى بشكل صحيح sdert (1).rar

استخدم هذا الكود تحت أمر التراجع If Me.Dirty Then Me.Undo

=Count(IIf([QUANTITY]<>0,0))

فقط ضع الامر on error resume next قبل الكود

تطبيق اليوم كيف نستخدم التقويم (لإختيار وتحديد التاريخ ) How To Use Calendar كلمات استدلالية: تقويم - Calender - نموذج - تاريخ قم باستيراد النموذج frmCalender و الوحدة النمطية ajbCalendar إلى قاعدة البيانات الخاصة بك قم بنسخ زر التقويم وأحد حقلي التاريخ أو كلاهما من النموذج F2 وأضفه ضمن نموذجك لاحظ الكود في حدث عند النقر لزر التقويم =CalendarFor([txtStartDate];"Set the start date") وفي الصورة توضيح الكود واليكم التطبيق ... NA_Calendar2000.rar

السلام عليكم مرفق مثال يمكن يفيدك بالموضوع - تحياتى اختيار من الجدول للتقرير.mdb

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

شكرا اخي هذا هو المطلوب باقي نقطة واحدة وهو هل يمكن تثبيت حجم الباركود على مقاس 4*6 الشكر لجميع الاستذه على المساعدة

نعم الكود الذي وضعته يعطي تاريخ تقويم ام القرى بشكل صحيح

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

حمداً لله علي سلامتك استاذ رمهان عودا حميد

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

اخي الكريم في حدث عند التحميل ضع هذا Application.SetOption "Use Hijri Calendar", 1 Dat_w = Format(UmDate, "yyyy/mm/dd") CreatedDate = Format(UmDate, "yyyy/mm/dd")

التاريخ صحيح وهو تاريخ مبني على التقويم الهجري لاتوجد مشكلة أنظر الصورة

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

نعم اخي الكريم هو كذلك بسبب عدم توضيحك للمطلوب جيداً من البداية .. كان من المفروض ان تقول عمل شرط بين خليتين منهم خلية في اخر سجل لكل شخص .. بهذا نستطيع ان نفهم انك لاتريد اخر سجل في الجدول بشكل عام ، وانما تريد اخر سجل لكل شخص في الجدول .. كما ان جدولك كان لايحتوي الا على اسم واحد وهو "محمد مجدى" وبعدها تقول "محمود اخر سجل عنده 10" ..اخي الفاضل يجب عليك تقديم السؤال بشكل صحيح لكي تحصل على جواب صحيح على العموم .. تفضل المرفق التالي test120.mdb

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

تعليقين فقط من مجموع 92 قراءة وتحميل هذا محبط جداً

معذرتا اخي ههههههههههههههههه ما انتبهت

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

السلام عليكم تم الاستغناء عن خاصية "دمج المراسلات" (الإكسيل مع الوورد) واستبدالها باستعمال الإكسيل فقط، حيث تم إنشاء شيت (نمط الشهادات -ثلاث شهادات في صفحة واحدة-) وربطه بالمعادلات مع شيت "تحكم" (شيت البيانات بعد التعديل عليه قليلا -تغيير بعض التنسيقات وإضافة معادلة التسلسل في العمود A وإظهار بعض الأعمدة الضرورية للشهادات)... وفي الأخير تم إدراج كودين لطباعة الشهادات أحدهما باستعمال خاصية من ... إلى والكود الآخر للطباعة الكلية... أرجو أن تفي هذه التعديلات المطلوب... بن علية حاجي تحكم.xlsm

تفضل أخى مطلوب معادلة ناجح بحكم القانون.xls

وعليكم السلام اخي الكريم@غسان علي لو تطرح مثال مصغر راح تحصل على مساعده لانه ما احد يعرف كيف تصميمك تحياتي

ضع المرفق للتأكد من المشكلة هل هي بجهازك ام بالبرنامج

ما نوع الحقل؟ Issuance ID هل هو رقم ام نص؟؟؟

السلام عليكم ورحمة الله اكتب الكود الاول فى موديول عادى و الكود الثانى فى حدث الصفحة Sub ShNames() Dim x As Integer x = Sheets.Count - 1 y = Sheets(x).Name For i = 2 To x If Sheets(i).Name <> "عملاء" Then Cells(i + 1, 1) = i - 1 End If Cells(i + 1, 2) = Sheets(i).Range("B2") Next End Sub -------------------------------- Private Sub Worksheet_Activate() Call ShNames End Sub

الاساتذه الأفاضل أ/سليم حاصبيا أ/ali mohamed ali شكرا على مجهودكم وجزاكم الله خيرا على المساعده

بالفعل السبب هو وجود الامر docmd فى عنوان السؤال حيث قمت بتجربة اضافة عدة مواضيع تحوي هذا الامر و حدثت نفس المشكلة يرجى اعادة طرح الموضوع مرة اخرى بدون كتابة الامر فى عنوان الموضوع ، حيث افضل ترك هذا الموضوع على حاله قليلا لبحث المشكلة بصورة اكبر

اخي الكريم من قال لك بأنه يأتي بالرقم الأكبر من الاستعلام؟؟ الدالة المستعملة هي دالة Last يعني اخر سجل .. ليس لها علاقة بالرقم اذا كان كبير ام لا

الخطأ في الاسم المحجوز Name If Me.name استبدله باي اسم اخر وليكن Name1 مثلا

يمكنك استعمال هذه الدالة لفحص هل الملف مفتوح Function IsWBOpened(FileName As String) As Boolean Dim xWb As Workbook For Each xWb In Application.Workbooks If xWb.Name = FileName Then IsWBOpened = 1: Exit Function Next IsWBOpened = 0 End Function ويمكن استدعاؤها كالتالي Sub test() If IsWBOpened("yourfile.xlsx") Then MsgBox "الملف مفتوح", vbInformation, "a1mas.com" Else MsgBox "الملف غير مفتوح", vbInformation, "a1mas.com" End If End Sub

الملف الرائع لنهاية الخدمة للاستاذ ضاحي لا يعمل علي اوفيس 2016 نتيجية عدم ظهور التقويم ويعطي رسالة خطاء فهل من امكانية لجعله يعمل علي اوفيس 2016 مع الشكر والتقدير مستحقات نهاية الخدمة (2).rar

شوف المرفق سندات.rar

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

السلام عليكم جرب هذا الكود Private Sub CommandButton1_Click() Dim Lr As Integer, i As Integer If Trim(Me.TextBox1) = "" Then Exit Sub Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 1 To 9 Cells(Lr, i + 1).Value = Me.Controls("TextBox" & i).Value Next End Sub تحياتي

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