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

الحمد لله رب العالمين

تفضل .... Exam.mdb

تريدها يدوي أو كود يدويا : عن طريق معالج التصدير في اكسس أنظر الصورة ......

نعم الباس صحيح .... تفضل ملفك ... dewon1.rar

تفضل ...... Kan1.rar

يتم تحويله عن طريق اكسس 2003 أو 2007 ؟

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

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

برنامج عملاء وموردين مفتوح المصدر مضاف نسخة بالتاريخ الهجري وأخري بالميلادي وبيانات الاستخدام كالتالي : البرنامج يعمل علي Office 2010 فما فوق اسم المستخدم : admin كلمة المرور : admin اسم المستخدم لتفعيل الشفت : ahmed كلمة السر : Ah0562982701 كلمة سر أكواد VBA فيجوال بيسك : ah0562982701 كلمة السر لتفريغ البيانات : 562982701 رابط البرنامج : http://www.mediafire.com/file/4atr6oxq1ptqm7q/إنجاز+نسخة+ميلادي.accdb http://www.mediafire.com/file/l2f334fkuyy7y5u/إنجاز+نسخة+هجري.accdb البرنامج مجاني و لا أريد الا دعوة صادقة لوجه الله تبارك تعالي بأن يعفر لوالدي ويديم الصحة والعافية علي والدتي وفي انتظار ارائكم ،،

السلام عليكم ورحمة الله وبركاته احببت ان اشارككم الأجر في نشر (جدول دوام للموظفين ) يتحدد من خلاله ساعات العمل مع الاضافي وحسم التأخير وترصيد المستحق للراتب حسب عدد ساعات العمل .. أتمنى أن تعم به الفائدة للجميع مع رجاء دعوة صالحة أخوكم سليم الأخرس كرت دوام.rar

:: تفضل .. عسى ان يكون طلبك .. _UPالمجموع.rar

شكرا استاذ kanory على الاجابة وهو المطلوب

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

السلام عليكم تم تطبيق المعادلة المقترحة بالأعلى على ملفك المرفق... بن علية حاجي Book1 (5).xlsx

الله يجزاك خير أستاذي الفاضل ع تعبك وجهدك وردك ع المشاركة السؤال الأول : كيف أحوله فيما بعد هل عن طريق برنامج ؟ السؤال الثاني : كيف يتثني لي أحوله بالكود ؟ وجزاك الله خيرا

اخي الكريم الملف عليه باس ....... هل الملف يخصك ؟؟؟؟؟؟؟

يجب اضافة مربع نص فى النموذج بنفس الاسم المظلل هذا انا ضفته ولكن قمت بتصغير طوله وعرضه الى صفر

وعليكم السلام بارك الله فيك وجعله فى ميزان حسناتك ولتعم الفائدة -كلمة السر والحماية : 123

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

صديقي الادمن : admin وكلمة المرور : 1

ما شاء الله تبارك الله كنت اعمل التحديثات وابعثها للمستخدمين عن طريق الايميل فيقومو بتنزيلها ثم استبدالها بعد ان اتاكد منها لكن من خبرتي (( كمستخدم )) لاني موظف حكومي اتعامل مع اثنان من قواعد البيانات الاولى ( اوراكل ) والثانية (SQL) عندما تقوم الشركة المالكة للبرنامج بتحديث النظام او القاعدة نفقد بعض البيانات وخصوصا التي اضيفها كملاحظات .. وفي الحقيقة لا اعرف هذه البيئة ( اوراكل , SQL ) فقط اتعامل معها كمستخدم اغلب التحديثات تكون على النماذج .. لان حسب علمي القاصر على مصصم قاعدة البيانات ان يكون مستوعب للفكرة الكلية للبرنامج الذي يصممه فاذا اخذنا نسب التحديثات على اقل تقدير تكون 80 % للنماذج ( تتطلب فترة بسيطة للانجاز ) 15% للاستعلامات (تتطلب فترة متوسطة للانجاز) اقل من شهر 5% للجداول (تتطلب فترة طويلة للانجاز) اكثر من شهر وفقك الله لكل خير وزاد في علمك وطرح فيك الخير والبركة جاري تنزيل المرفق والعمل عليه وان شاء الله سنوافيكم بانتائج

بارك الله فيك استاذ عبداللطيف وجزاك الخير

تفضل صديقي admin 1 صلاحيات المستخدمين (1).accdb

أشكرك أستاذي وبارك الله فيك إن شاء الله بعمل بالخطوات جعله الله في ميزان حسناتك .

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

وعليكم السلام لك ما طلبت ____أرقام الجلوس والمناداة - 2018 - الرابع salim1.xls

السلام عليكم شكرا استاذ ابو عارف على الاجابة وشكرا على تعاونك لدي مشكلة بخصوص كود الغاء المسافة بين الاسماء Function RemoveSpaces(TextString As String) As String Dim TempText As String Do While Len(TextString) > 0 If Left(TextString, 1) <> " " Then TempText = TempText & Left(TextString, 1) End If (TextString = Mid(TextString, 2 Loop RemoveSpaces = TempText End Function ()Private Sub Cnm01_Click Dim c, i ("c = DCount("[Xname]", "Table DoCmd.GoToRecord , , acFirst For i = 1 To c XXname = RemoveSpaces(Xname) DoCmd.GoToRecord , , acNext Next i End Sub End Sub فهو بطيء ويستغرق مدة بالنسبة للسجلات الكثيرة ويصل لحد 18000 سجل تقريبا ويهمل الباقي هل يمكن تنفيذ الكود بسرعة وعلى كل السجلات والمشكلة الثانية هي بخصوص الكود الغاء المسافات الزائدة بين الاسماء Expr1: Replace(Replace(Replace(Replace([Xname]," "," ")," "," ")," "," ")," "," ") هل يمكن استبداله بكود في زر لفورم وشكرا لك استاذي

العفو اخي الكريم Trim([Xname]) ازالة مسافة فبل كتابة الاسم في خانة الاسم و مسافة بعد اسم الكامل مثلا " احمد محمود ابراهيم " الى "احمد محمود ابراهيم" RTrim([Xname]) ازالة مسافة يمين فقط " احمد محمود ابراهيم " الى "احمد محمود ابراهيم " و LTrim " احمد محمود ابراهيم " الى " احمد محمود ابراهيم" Expr1: Replace(Replace(Replace(Replace([Xname]," "," ")," "," ")," "," ")," "," ") هذا دالة تعيد من واحد لغاية خمسة مسافات الى مسافة واحدة، اذا كانت مسافات اكثر من خمسة اضف replace آخر tp.rar

شكر لله حاضر ساشرح الكود بقدر مسنطاع رغم انني لا استحسن شروحات بشكل مطلوب rst.recordset معروف هو مجموعة سجلات جدول absent على معايير محددة (0)rst ارجاع قيمة الموجودة في عمود الاول مجموعة سجلات و (1)rst في عمود الثاني و هكذا MonthNum = rst!shaher تعين قيمة متغير MonthNum هو قيمة حقل الشهر علما بان غيرت تنسيق حقل الشهر من نص الى رقم Dt = DateSerial(rst!YR, MonthNum, 1) تعين قيمة متغير Dt تاريخ، سنة من حقل YR و شهر من shaher و يوم 1 EachMonth = DateDiff("d", Dt, DateAdd("m", 1, Dt)) تعين قيمة متغير EachMonth حساب عدد ايام بين DT و DT+شهر، مثلا 1/سبتمبر/2018 و 1/اكتوبر/2018 For i = 1 To EachMonth حلقات تكرار متغير (i) حسب عدد ايام شهر تبدء من 1 لان عمود 0 "NUm" لا علاقة لنا به If rst(i) > 0 Then اذا كان قيمة عمود الثاني اي اول يوم الشهر اكثر من 0 ، AbsCount = AbsCount + rst(i) القيمه يجمع مع متغير AbsCount (هنا يحسب غياب متواصل) و الا ، يقرأ قيمة AbsCount اذا وصلت اكثر او يساوي 15 يقوم بوضع القيمة في مربع نص اسفل نموذج ثم Exit Sub و اذا كان اقل من 15 ، يغير قيمة AbsCount الى 0 ثم ينتقل الى عمود الثاني و هكذا حتى آخر شهر و حلقة تكرارية الاخيرة لـ i ثم ينتقل الى سجل التالي حتى نهاية مجموعة سجلات.

السلام عليكم و رحمة الله و بركاته اخي العزيز اليك قاعدتين مختلفتين اذا اردت تجربة تسجيل غياب لا تسجل من خلال جدول بل من خلال نموذج لانني وجدت تسجيل غياب في ملف امس ليوم 31 نوفمبر حين شهر نوفمبر 30 يوم. و لمنع تكرار تلك الخطاء قمت باضافة كود للايام 29،30،31 شهر لقبول تسجيل غياب حسب ايام شهر فقط. TowDatabase.zip

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

أقدم لكم برنامج لجعل جهازك سيرفر تشارك فيها أصدقائك أو لعمل تجربة للسكربت لديك أو أي شيء يخص المواقع ينقسم هذا الموضوع إلى عدة أقسام: الأداوت المطلوبة. التسجيل في موقع No-IP. عمل رابط خاص بنا لموقع NO-IP. تثبيت برنامج XAMPP. تثبيت برنامج NO-IP. كيفية مشاركة الأصدقاء. 1- الأدوات المطلوبة: جهاز كمبيوتر مع RAM بسرعة 256 على الأقل. سرعة انترنت لا يقل عن 1 ميجا (يمكن استخدام الانترنت البطيء مثل باقة 256كيلو). مساحة كافية في المجلد الرئيسي للويندوز. حساب في موقع NO-IP. برنامج XAMPP. برنامج NO-IP. رواتر + حساب المدير وكلمة المرور 2- التسجيل في موقع NO-IP. أولاً ادخل على الرابط التالي، ثم تابع الصور… ، واضغط على Create Account إضغط على Sign Up تحت فرع القسم المجاني ضع معلوماتك مثل اسمك و بريدك الإلكتروني و السؤال السري وما إلي ذلك انتهينا من عملية التسجيل والباقي هو انتظار رسالة التفعيل وتحميل برنامجهم ، إضغط هنا لتحميل البرنامج وإضغط Download في الصفحة التالية. أدخل على بريدك الإلكتروني لتفعيل العضوية، تم تفعيل العضوية 3- الآن نأتي لكيفية عمل رابط أو دومين خاص بنا في الموقع. الآن اذهب إلى الصفحة الرئيسية للموقع وسجل دخولك بعد أن تسجل دخول سوف يحولك مباشرة إلى الصفحة التالية ، إضغط على Add a Host. ثم املأ البيانات كالتالي وعندما تنتهي، إضغط على Create Host. والآن انتهينا من عمل دومين لجهازنا ، وسوف نكمل طريقة شبك الجهاز بالدومين ليتصفحه أصدقائك لاحقاً… 4- والآن نأتي لتحميل برنامج XAMPP البرنامج الخاص لإنشاء سيرفر خاص على جهازك (لاحظ أنا قلت خاص وليس عام، أي إنك الوحيد الذي ستستطيع تصفحه). أولاً اضغط هنا لتحميل البرنامج . << النسخة خاصة بنظام الويندوز لتحميل النسخ الأخرى إضغط هنا (للماك ، ليونكس،…) . بعد تحميل الملف سوف يكون لدينا الملف التالي إفتح البرنامج بواسطة الضغط على الزر الأيمن للماوس واختيار Run As Administrator ثم اختر اللغة المناسبة وسوف أختار اللغة الإنجليزية، واضغط على OK. ثم اضغط موافق (الرسالة تقول: بأنه يجب فتح ملف التثبيت بواسطة المدير، وإلا لن يعمل البرنامج بشكل جيد، وايضاً يفضل تثبيت البرنامج في الملف الرئيسي للويندوز ولا يجب تغيير المسار الأصلي للبرنامج). ثم اضغط على Next. ثم إضغط على Next، يفضل عدم تغيير المسار. ثم اضغط على Install. ثم انتظر قليلاً ، استغفر الله خلال هذا الوقت. ثم اضغط على Finish ثم اضغط على Yes لتشغيل لوحة التحكم الخاص بالبرنامج. ثم اضعط على Start في أي مكان تريده مثلاً: الأولى مهمة لتشغيل السيرفر و الثانية لتشغيل نظام MySQL و الثالثة لتشغيل FTP وهكذا.. النتيجة! .. الآن اعمل التالي للذهاب إلى المجلد الخاص والذي سوف نقوم بوضع ملفاتنا لمشاركة أصدقائنا مثال: ملف كأنه مرفوع على سيرفر (لاحظ الرابط، هذا الرابط محلي وليس عالمي يعني أنت الوحيد الذي تستطيع تصفح الموقع). انتهينا من عملية تنصيب البرنامج و تشغيله، وبقي طريقة مشاركة أصدقائك بواسطة فتح المنفذ و دمج الايبي بالدومين. 5- كيف تشارك سيرفرك الخاص أصدقائك؟ إلى الآن انتهينا من عمل دومين خاص للسيرفر ولكن لم ندمجه بالسيرفر أولاً نأتي إلي تثبيت برنامج NO-IP ثم طريقة فتح البورت ونشر الرابط لأصدقائك. لتثبيت البرنامج … في إحدى خطوات التسجيل في موقع NO-IP قمت بوضع هذا الرابط ، لو حملته سابقاً لن تحتاج إلى تحميل مرة أخرى. افتح البرنامج عن طريق الضغط على البرنامج بواسطة الزر الأيمن للماوس واختيار Run As Administrator ثم وافق على الشروط بواسطة الضغط على المربع لإظهار علامة الصح ، واضغط Next. ثم اختر مسار الملف (يفضل عدم تغيير المسار)، واضغط على Next. ثم أزل علامة الصح من المربع و اضغط Install ثم اننظر ثواني إلى أن يتم الإنتهاء من ثتبيت البرنامج واضغط على Close انتهينا من تثبيت البرنامج، وبقي تشغيل البرنامج والاتصال بالموقع وأيضاً: فتح البورت في الرواتر ومشاركة أصدقائك. طريقة ربط الدومين بالأيبي (حتى لو تم إعادة تشغيل الرواتر). شغل البرنامج كأي برنامج آخر أدخل البريد الإلكتروني وكلمة المرور ثم اختر الدومين المراد استخدامه واضغط على Save انتهينا الآن، أغلق البرنامج، لن يغلق بالكامل وستراه بجانب الساعة والآن لدينا رابط بالشكل التالي: ولكن لو أعطيته لأي شخص لن يعمل، الآن شأرح كيفية جعل السيرفر يظهر للجميع، وذلك عن طريق فتح البورت في الرواتر و أيضاً تغيير بعض الإعدادات في برنامج XAMPP. طبعاً كل شخص لديه رواتر مختلف و إن شرحت لكم عن الرواتر الخاص بي لن يفهم أي شخص ولكن يوجد موقع متخصص بجميع الرواترات اضغط هنا للدخول إلى الموقع كل ما عليك هو اختيار نوع الرواتر و سوف ترى الشرح بالكامل طبعاً انا فتحت البورت 1350 الآن نأتي لكيفية تغيير الإعدادات في برنامج XAMPP، وطبعاً هذه آخر خطوة لننتهي من شرحنا الطويل ادخل على المسار التالي: C:\xampp\apache\conf وافتح ملف httpd.conf بواسطة برنامج Notepad أو أي محرر. وابحث عن رقم 80 بواسطة الضغط على Ctrl + F وغير الرقم 80 إلى رقم البورت الذي فتحته في الرواتر وعند الإنتهاء من العملية احفظ الملف وأعد تشغيل الجهاز. وهكذا يكون لدينا سيرفر عام بالشكل التالي: domain = الدومين الذي كتبته في الموقع. 1350 = البورت الذي فتحته في الرواتر. وهكذا انتهينا من عملية صناعة سيرفر كامل ومشاركة أصدقائنا، طبعاً أي شخص يواجة مشكلة ما عليه أن يعود إلى المدونة وقرأة الموضوع خطوة خطوة لأنني لم أنسى أي شيء!! ومن أراد مشاهدة مثال يمكنه الضغط هنا للمشاهدة، مع ملاحظة ان الموقع يغلق عندما يتم فصل الانترنت أو إيقاف تشغيل الكمبيوتر أو إغلاق كلاً من البرنامجين NO-IP DUC & XAMPP أي مشكلة أو أي استفسار يرجي وضع رد لكي يتم حل المشكلة من قبلي أو من قبل أي شخص آخر لأني لست خبير في هذا المجال وإلى هنا نقول بسم الله الرحمن الرحيم الآن نأتي إلى فوائد الموضوع طبعاً بعد الإنتهاء من عمل الموضوع بالكامل ، سيكون لديك موقع، وكما ذكرت سابقاً لو أغلق جهازك يعتبر الموقع مغلق ، ولو انفصل عنك الانترنت يعتبر وكأنه مغلق أيضاً ولكن الإيجابيات كثيرة و خصوصاً هذه في هذه الأيام، لماذا؟ 1- بسبب القوانين الجديدة التي تمنع نقل الحقوق وما إلى ذلك. 2- سرعة الانترنت أصبحت عند البعض صاروخية. 3- أكثر مواقع الرفع التي نستخدمها تدعم الرفع بواسطة ال URL. 4- يمكنك عمل موقع شخصي بدون أن تهتم بالقوانين الصارمة التي تعطيك إياها المواقع التي تدفع لها وبالآخر هناك قوانين صارمة. وهنالك العديد والعديد 5- يمكنك تجربة سكربت ، او صناعة منتدى أو مدونة خاصة بك 6- يمكنك الرفع بدون أن ينقطع الانترنت ، أي أنك تستطيع التصفح وكأنك ترفع عن طريق الFTP. طريقة الرفع: لنقل أن لدينا ملف ضخم جداً حجمه يفوق 4 جيجا واسمه:Detective Conan Movie 15.mkv كل ما عليك هو نقل الملف إلى C:\xampp\htdocs و أيضاً يمكنك عمل مجلد مثال:Movies ليكون الملف مع المجلد بالكامل هكذا C:\xampp\htdocs\Movies\Detective Conan Movie 15.mkv وكما عرفنا في السابق أن رابط موقعنا يدخل مباشرة إلى المجلد htdocs إذا الرابط الذي سننقله إلى الموقع هو Conan Movie 15.mkv يفضل عدم ترك مسافة أو استخدام برنامج Internet Download Manager لأنه يضع 20% مكان المسافة لاحظ أنك لن تستطيع زيارة موقعك عن طريق جهازك أو عن طريق أي جهاز متصل بنفس الرواتر المستخدم ولكنك تستطيع زيارة موقعك عن طريق كتابة انتهي هذا الدرس منقول أي استفسار أي مشكلة أنا موجود

استأذن من استاذنا ابو خليل على المداخلة اتفضل ما طلبت للعلم انا غيرت اسماء الحقول من number الى number1 ومن code الى code1 لان تلك الاسماء محجوزة لكي يتجنب من الاخطاء واتفضل استخدمت هذا الكود Private Sub f_date_AfterUpdate() On Error Resume Next If Me.number1 <> 0 Then Me.Undo Exit Sub End If If DCount("number1", "tp1") < 1 Or IsNull(DMax("number1", "tp1", "[f_date]=#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#")) = True Then Me.number1 = 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 Else Me.number1 = DMax("number1", "tp1", "[f_date] =#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#") + 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 End If End Sub واليك ملفك بعد تعديل واذا ما فهمت من الكود راح نشرح لك باذن الله تقبل تحياتي db9790.rar

السلام عليكم ورحمة الله أخي الكريم، كما وعدتك في رد سابق أني سأحاول في ملفك إن لم يقم آخر بذلك وتراني لم أنسك ولم أنس الموضوع... لذا قمت بعمل التنسيقات اللازمة على جداول ورقات (شيتات) الشهور... وبإذن الله أقول إن المطلوب الأخير تم إنجازه والحمد لله... وأنوه أنه إذا كانت أخطاء أخرى أو تقصير في هذا العمل أو كانت طلبات أخرى أن تحصيها وتسردها في رد آخر حتى يكتمل الملف وعمله على أحسن حال... أتمنى أن تروقك التعديلات الجديدة على الملف والتي تمت في أوفيس 2010. أخوك بن علية Emmpl-Attendance_Calendar_V1.22test4.rar