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

السلام عليكم ورحمة الله هذا تعديل بسيط على كود أخي الكريم "سليم" وأرجو أن يتقبله مني... بن علية جلب الاسماء بدرجاتهم salim.rar

السلام عليكم سأشرح كيف اني أشير الى مكان وجود الجداول (سواء المضمنة او المرتبطة)، والذي سيكون مجلد الصور سيكون معه في نفس المجلد ، يعني مجلد الصور دائما يجب ان يكون في نفس مجلد قاعدة البيانات التي تحتوي على الجداول (بغض النظر ، سواء أكانت قاعدة البيانات واحدة او مقسمة). نضع هذا الكود في وحدة نمطية: Public Function GetDBPath() As String Dim strFullPath, Table_Name As String Dim rst As DAO.Recordset 'check for a linked table Set rst = CurrentDb.OpenRecordset("SELECT Name FROM msysObjects WHERE Type=6 AND Left([Name],2) Not In ('~t','ms')") If rst.EOF Then 'Table doesn't exist Exit Function Else 'linked Table exists Table_Name = rst(0) End If rst.Close Set rst = Nothing 'now get the path strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs(Table_Name).Connect, 11) GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\")) End Function Public Function BE_or_FE() ' to use: ' BE_or_FE ' 'if BE exits, use its path, 'otherwise use the Application path 'get the BE Path BE_or_FE = GetDBPath If Len(BE_or_FE & "") = 0 Then BE_or_FE = Application.CurrentProject.Path End If End Function Function Images_Location() 'If we want the Backend Folder Images_Location = BE_or_FE & "\archive" 'or we can assign any location we want 'Images_Location = "c:\Temp" & "\archive" End Function وعندما اريد ان اعرف مسار الجداول (بغض النظر في كون الجداول مضمنه او مرتبطة) ، فاناديه هكذا: msgbox BE_or_FE وعندما اريد ان اعرف مسار مجلد الصور ، فاناديه هكذا: msgbox Images_Location وعندما اريد ان اشير الى الصورة التي اشرت اليها انت ، فاناديه هكذا: Images_Location & "\" & txt1 & ".jpg" جعفر

او بدون إدراج رابط ، بسطر من الكود فقط جعفر

السلام عليكم ورحمة الله تفضل اخى الكريم فرق بين تاريخين.rar

اتفضل Open "D:\shivan.TXT" For Binary Access Write As #1 Close #1 هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D وتكدر تتغير مسار الى ما تريد

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

‏‏السبت‏، 28‏/10‏/1430هـ الموافق ‏17‏/10‏/2009م السلام عليكم و رحمة الله وبركاته هذه فكرة برنامج اقساط جاري تنفيذها تستطيع الإختيار بين تحديد عدد الشهور - اذا سوف يتم توزيع المبلغ المتبقي على عدد الشهور تحديد قيمة القسط الشهري - اذا سوف يتم تقسيم المبلغ المتبقي على القسط الشهري = عدد الشهور 1-تم عمل قائمة منسدلة تشمل اسماء العملاء ليتم اختيار اسم العميل منها 2-اكتب في الخلايا الصفراء فقط و لا تكتب في الخلايا الحمراء 3-تم عمل التحقق من صحة للخلايا التي لايجب الكتابه فيهااذا ادخلت تاريخ هجري لن تستطيع الكتابة في خانة تاريخ ميلادي الا بعد مسح بيانات التاريخ الهجري و كذلك العكس صحيحاذا ادخلت قيمة القسط الشهري لن تستطيع الكتابة في خانة عدد الأقساط و كذلك العكس صحيح 4-تم عمل حماية للورقة بحيث يمكنك التنقل بين الخلايا المسموح بالكتابة بها ولا يمكن الوقوف على أي خلية غير مخصصة للكتابةبدء العمل على ورقة حفظ بيانات الأقساط 1_توزيع_الأقساط_ومتابعتهاQest.rar

السلام عليكم ورحمة الله تفضل WEB.rar

فورم رصد لكنترول شيت الدرس رقم 40 فيديو شرح كيفية التنقل للمواد لرصدها

::: عليكم السلام ::: هناك امثله كثيرة في المنتدى بخصوص البحث يبدو انك لم تكلف نفسك البحث عنها ؟ ::: عموما هذا طلبك ..... بالتوفيق . test140_up.rar

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

جرب بقية الحلول بضرب التاريخ في 1 مثلاً أو استخدام DateValue .. حتى تصل لحل المشكلة بشكل نهائي والحمد لله أن توصلت لنصف الحل ، وإن شاء الله تصل للحل بشكل نهائي تقبل تحياتي

استخدم هذا في استعلام في حقل جديد hazirormittaaxir: IIf(Right([late];1)="+";"حاضر";"متأخر")

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

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

عفوا نسيت في اعلا نموذج في محرر فيجوال في اسفل Option Compare Database اكتب Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

عفوا منك استاذ اباجودي اليك قاعدة بيانات لاستاذ اباجودي بعد نقصنا 10 دقائق لحضور الفعلي اي يعني سمحنا لكل واحد 10 دقائق _up_حساب تأخير الموظفين.rar

جزاكم الله خيرا جميعا أتعبتكم معي أنا متأكد أن المشكلة عندي أنا نفذت ما أرشدتموني إليه بالحرف لكن لم تأت النتائج كما صنعتموها أنتم !!! هل عدلتم شيئا في بنية الجدول مثلا ؟؟ 22.rar المحاولة الأخيرة لك أخي أبا جودي ضبطت معي لكن بقيت مشكلة احتساب التأخير بعد 10 دقائق من المسجل بالحضور الدفتري

الخطأ في الكود هو بيأخذ يوم فقط مثلا في تاريخ 23\1\2017 عندك رقم 219 لذا واليوم 23\2\2017 يبدأ من رقم 120 وهذا هو الخطأ وانتظرني لعل اجيب لك حل تحياتي

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

جرب ها الملف جلب الاسماء بدرجاتهم salim.rar

فورم كنترول شيت الدرس رقم 39 الصورة فيديو شرح كيفية عمل الفورم حمل الملف كنترول شيت.rar

الاخوة الزملاء مشاركة منى للمنتدى صورة من الفورم فيديو شرح كيفية عمل الفورم لكنترول شيت الدرس رقم 39 كنترول شيت.rar

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

وعليكم السلام تفضل أخي تاريخ او ل و اخر صرف.rar

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

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

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

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

عفوا اخي الكريم لم تتضح لي الصورة ابدا حقل الرقم ( من 1 الى 17 ) لا يمكن تغييره لانه في الاساس تابع للتقرير و ليس للجدول ارجو منك التوضيح اكثر

شكرا ابو خليل ولكن قصدى في السؤال كيف يمكن اظهار عدد الطلاب في نهاية التقرير ( تزييل الصفحة )

في ذيل التقرير اكتب في مربع نص غير منظم : =Count([الاسم])

شكرا لك اخي ابو خليل

أولا : شكرا ابو خليل على سعة صدرك وردك السريع المبهر ثانيا ً : أرجوا ان كان ممكنا ارسال كتيب به هذه الدوال التي تستخدم مع الاكسيس ملحوظة للفائدة : يمكنك اختصار النماذج الاربعة والتقارير الاربعة في نموذج واحد وتقرير واحد لاستخراج النتيجة نفسها كيف يمكن عمل ذلك ؟

شكرا جزيلا جزاك الله خيرا

لتسلسل الارقام : انقر بزر بالفأرة الايمن على حقل الرقم / خصائص / بيانات غير مصدر البيانات الى = 1 ومجموع تراكمي الى شامل انظر الصورة اما بالنسبة للتقارير حسب الجنسية فجدول البيانات عندك لا يحتوي على جنسيات بل وافد ومواطن عدل البيانات فتظهر لك النتيجة

السلام عليكم ورحمة الله وبركاته الاخ الفاضل / أبو خليل معذرة عند طباعة التقرير احصل على مسلسل الاسماء مثلا 2 ، 5 ، 24 ، 6 هل يمكن تعديله بحيث يكون متسلسل 1-2-3-4 وهكذا ولكم جزيل الشكر مرفق الملف بعد إضافة ( طباعة حسب الجنسية ) وبعدها سوف اكمل الباقي ان شاء الله Copy of Ali.rar

الله يجازيك كل خير الله يذهب عنك هم الدنيا و حزن الآخرة