msak2004

جزاك الله خير أستاذنا أبو فيصل .. 1- محبة.. :wub: نحبك بالله ... 2- لن نوفيك حقك إذا قلنا على قدر مع تعلمناه منك.. 3- لا تذهب بعيدا ... فلم يبقى من العمر قد ما مضى :) والله الصراحة جميع الأخوة هنا أصحاب فضل وبصماتهم واضحة في كل ما نقدم .. بارك الله بك وبذريتك …

السلام عليكم ورحمة الله وبركاته .. مشكور أخي tbazh ويعطيك العافية ولو تسمح لي بفكرة لنتفيذ المطلوب .. تفضل أخي محمد هذه محاولة متواضعة مني لتنفيذ برنامج شجرة العائلة ربما تستطيع أن تبدأ من عندها لما تخطط له . المثال يحتاج الى الكثير ولكن هذه مجرد فكرة .. تحيات…

وعليكم السلام ورحمة الله وبركاته أخي المسار \\pc1\\mot مسار خطأ لماذ عدد 2(\\) بعد اسم المجلد ؟ ولاحظ ان المسار \\pc1\mot\001.txt يعمل لأن المسار صحيح ، فعدد 1(\) بعد اسم المجلد يشكل اسم مسار صحيح . حاول تصحيح اسم المسار ويجب ان يعمل المسار على الجهازين الجهاز…

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

وعليكم السلام ورحمة الله وبركاته أهلا أخي عمر .. أخي لم تحدد هل تريد استبدال القيم بشكل دائم أم بغرض العرض فقط دون تثبيت .. راجع المرفق به ثلاثة طرق تحياتي Change v.zip

ما شاء الله عمل جميل بارك الله بك أخي عبيدالله .. ولو يسمح لي أخي بملاحظتين : 1- النموذج المسمى aa أرى تغيير الخاصية توسيط تلقائي الى نعم لكي نضمن توسيط النموذج في وسط الشاشة لأنني عند تجربته على جهازي قد انحرف الى يمين الشاشة . 2- حتى نتمكن من عرض قائمة يمين …

مشكور أخي عبيدالله ولو تسمح لي .. تفضل أخي هذا الاستعلام SELECT Customers.CustomersID, Customers.CompanyName, Replace([CompanyName],"أ","ا") AS RepCompanyName FROM Customers ORDER BY Replace([CompanyName],"أ","ا"); تحياتي ..

جزاك الله خير أخي الحبيب أبو رهف المثال مثل الذهب ولو كان قديم ، فالذهب يبقى ذهبا.. وفقك الله .. تحياتي ..

عن أبي الدرداء رضي الله عنه أنه سمع رسول الله صلى الله عليه وسلم يقول : "ما من عبد مسلم يدعو إلى أخيه بظهر الغيب إلا قال الملك ولك بمثل ". أخرجه مسلم . وفي رواية أن رسول الله صلى الله عليه وسلم كان يقول : "دعوة المسلم لأخيه بظهر الغيب مستجابة ، عند رأسه ملك مو…

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

وعليكم السلام ورحمة الله وبركاته .. مشكور أستاذنا الغالي محمد وجزاك الله خير .. نحن سعداء بتواصلك ومشاركاتك .. تحياتي ..

أخي الحبيب محمد علوش .... هل هناك شئ رائع أكثر من مشاركتك لنا فجزاك الله كل خير .. سعداء بمشاركتك أستاذنا الحبيب أبو يوسف بارك الله بك .. أخي الحبيب (مشارف) محمد ... والله سعيد جدا بمشاركتك بعد طول هذا الغياب ، نرجوا أن يكون المانع خير .. الصراحة ولا أبالغ نحن…

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

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

لا أعلم محتويات البيانات عندك حتى استطيع أعالج المشكلة ولكن أقترح عليك تغيير الكود التالي If [MEMONO_SER] = 0 Or fs.FileExists(StrFileParh & [MEMONO_SER] & ".PDF") = False Then Me.AcroPDF1.Object.LoadFile (StrFileParh & 0 & ".PDF") Exit Sub End If بالكود التال…

حياك الله أخي الحبيب أبو أحمد .. شاكر مروركم الكريم وجزاك الله خير .. تحياتي ..

أهلا أخي مالك .. الطلب الأول : تم بعون الله .. الطلب الثاني :نموذجك لعرض ملفات pdf وليس لعرض الصور كما أرى ، واذا كانت هناك أنواع من الملفات تريد ارفاقها في البريد فغير منطق البرنامج وهناك كثير من الأمثلة حول ذلك .. ملاحظة : أنا لا أنصح بالتعامل مع الملفات الم…

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

أهلا أخي مالك .. فقط انقل الكود الخاص بالحدث قبل الادخال [CreatedBy] = MyUser.UserName [CreatedDate] = Now() الى مفتاح سجل جديد ليصبح الكود كما يلي DoCmd.GoToRecord , , acNewRec ' Me.[مسلسل الوارد] = AutoNumber("الوارد", "MEMONO_SER", "[YYYY]-", 5) Me.[مسلسل ا…

وعليكم السلام ورحمة الله وبركاته .. حياك الله أخي الحبيب أبو رهف .. سعيد جدا بمشاركتك وما هذا الا بعض ما عندكم ، فأنت أستاذنا ونحن تعلمنا منك الكثير فجزاك الله كل خير .. نتشرف بمشاركتك أخي الحبيب همام استأذنا ومشرفنا الغالي .. وما هو الرائع هو دعمكم المتواصل..…