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

بالعكس جدا جميل ..... اردت التأكيد عليه اظهارة ...... بارك الله قي أخي خالد ...... تشكر

تفضل ....... db (5).accdb db (5).accdb

وعليكم السلام تفضل ..... New Microsoft Access Database.accdb

السلام عليكم انظر للنقرير Report1 اتمنى يكون المطلوب تحياتي MARK.rar

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

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

السلام عليكم 1- الملف الاول فيه تنبيه انك ادخلت رقم ايصال (ويعطيك رقمه برسالة) سابقا ويرفض التسجيل 2- الملف الثاني فيه تنبيه انك ادخلت رقم ايصال (ويعطيك رقمه برسالة) سابقا ويسمح التسجيل اتمنى يكون طلبك تحياتي ESAL-1.rar ESAL-2.rar

تفضل ..... MARK.mdb

السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂

تفضل يا سيدي 🙂 جعفر 1176.Network_PC_Time.mdb.zip

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

انظر مسافة يمين فورم الفرعي عند العرض.rar

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

وعليكم السلام 🙂 1. أ. ولكن "اي مشروع حالي" ، لا يوجد لديك اختيار "المشروع المحدد" ؟ ب. واذا عملت حقل لإختيار المشروع (مثل ما اخترت الشهر والسنة) ، وقمت بإختياره ، فما بال الشهر والسنة ، وما بال المشروع اذا تم ارشفته !! 2 و 3. نفس الاسئلة اعلاه في #1 🙂 جعفر

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

وعليكم السلام 🙂 اسمح لي اشارك معاك اخوي خالد 🙂 انا شايف ان الرقم العشوائي مجرد تمويه ، او لم يتم استعماله بالطريقة الصحيحة في الكود !! الكود يطلب منك كلمة السر ويحتفظ بها في المتغير x ، المتغير z يعمل عملية حسابية على كلمة السر التي ادخلتها ، اذا كانت كلمة السر صحيحة ، فيخبرك انها صحيحة ويفتح لك النموذج "معلومات التقارير" ، واذا كانت فيخبرك انها خطأ ويغلق النموذج "معلومات التقارير" !! ولكن النموذج "معلومات التقارير" : يا انه مُغلق ، فيتم فتحه ، او مفتوح فيتم غلقه ، ولكن الكود يعمل الاثنين ، حسب صحّة كلمة السر !! جعفر

السلام عليكم كلامك صحيح اخي @أحمد الفلاحجى انا كمان فحصته ب kaspersky ولم يظهر شيء البرنامج يعمل بصورة طبيعية في جهازي علما انيي اعمل على اوفيس 2010 تحياتي للجميع

اخي العزيز انظر للرابط تحياتي https://www.officena.net/ib/topic/4636-كيف-يتم-توليد-رقم-عشوائي-غير-مكرر-في-مربع-نص/

السلام عليكم بما ان الاخ @hatem fayz غير متواجد الاخ الفاضل @ABOLO2 و @محمد مفتاح يجب تخفيض امان الماكرو ليعمل البرنامج معكم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

وجزاك خيرا أخي جعفر

شكرا اخوي محمد 🙂 جعفر

وعليكم السلام تفضل db (4).accdb

شكرا استاذ ( ابو البشر ) و استاذ ( kajin.tha60 )

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

تمام أخي خالد تم حل المشكلة .. جزاك الله خيرا على لطفك وكرمك .. دائما مبدع

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

اخى الفاضل اولا نحن نشكرك على حرصك بالمنفعه والصالح لاخوانك ولكن يوجد فرق ما بين عدم معرفه تشغيل البرنامج وبين هذا الملف فيرس ونرجو منك عدم قول اى معلومه قبل التاكد منها ثم ارفاق مايدل على صحتها ومصدرها قم بتخفيض الامان وستعمل معك البرامج المرفقه كما وضحت لك كيفيتها وهذا الرابط مره اخرى http://arabteam2000-forum.com/index.php?/topic/272088-اداة-تخفيض-مستوى-أمان-برنامج-الأكسيس-الى-الحد-الأدنى-لجميع-النسخ/ بالتوفيق

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

جزاك الله خيرا حقيقى كود عبقرى تسلم لك جزيل الشكر والتقدير

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

اتمنى ان يكون ما تريد في المرفق بحث من خلال الكمبو بوكس (1).xlsm

جزاك الله خير اخي الغالي ماكان ينقصني هو ME.FRAM2=0 وايضا ME.FRAM1=0 رزقك الله من فضله ماتحب وترضى ... ممنون منك اخي Ali Sadiq

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

السلام عليكم الملف الاول التعديل بدالة iif عن طريق الاستعلام الملف الثاني التعديل بدالة if عن طريق النموذج الملف الثالث التعديل بدالة Select Case تحياتي math.rar math 2.rar Select Case.rar

اللي فهمته هو : في الجدول Tbl_A_c ، حقل التاريخ (01-03-2020) الموجود في السجل الاول ، واقعا يجب ان يكون لكل السجلات ، صح ؟ يعني في الصورة اعلاه ، السجل: تصنيع 1 ، سائق ، يجب ان يكون التاريخ امامه هو (01-03-2020) ، وهكذا لبقية السجلات ، صح ؟ او ان حقل التاريخ في الجدول فقط يرمز للتاريخ الذي تم اختياره من النموذج ، وان المقارنة لازم تكون لحقل مارس (وهو الذي تم اختياره في النموذج) ؟ سؤال : من اي جدول / حقل نحصل السنة ؟ جعفر

ledoledo أين الضغط على الإعجاب لإجابة الأستاذ سليم ؟!!!💙

جرب هذا الملف My_Book10.xlsx

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])

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

السلام عليكم Book1.rar

أخواني الأعزاء إليكم هذا الملف الذي أعددته واستخدمه في العمل وهو يفيد في تسجيل وحساب وصرف أجور ساعات العمل الإضافي للموظفين من خلال القيام بالتالي ، وهذا شرح مبسط مبدئي وأن مستعد لتوضيح أي جوانب أخرى لم أغطيها سهواً بهذا الشرح : • الورقة الأولى (OVERTIME RECORD SHEET) وهي تستخدم لتسجيل أوقات بداية ونهاية ساعات العمل الإضافي لكل موظف بتنسيق الوقت ( ( hh:mmومن ثم احتساب فترة العمل الإضافي بتنسيق رقمي عادي ، مع ملاحظة أن العمود (D) وعنوانه ( O/T TYPE ) اختصار ( OVERTIME TYPE ) هو عمود يتم فلترة الجدول من خلاله لإظهار الأيام فقط التي بها ساعات عمل إضافي من خلال تمييز اليوم الذي به عمل إضافي ب ( ON ) والعكس ب ( OF ) ومن ثم عمل فلتر فقط لل ( ON ) . يمكن عمل نسخة بالملف لنفس الورقة بعد تعديل معلومات الموظفين وأيام الشهر واليوم وباقي المعلومات المطلوب تعديلها وتفريغها فقط من معلومات تسجيل الساعات وطباعتها فارغة بعد فك الفلتر المعمول للعمود D وبالتالي يتوفر عندك نموذج تسجيل يدوي يمكن استخدامه بداية من قبل المسئول عن تسجيل ساعات العمل الإضافي للموظفين ، ومن ثم يتم تفريغ المعلومات لاحقا بمعرفتك بالملف وإكمال باقي الإجراءات . تم ربط الورقة الأولى بالورقة الثانية المسماه ( OVERTIME PAY SHEET ) بدءاً من العنوان ثم معلومات الموظفين ونتائج جمع ساعات العمل الإضافي والتي تم التمييز فيها بين ساعات بأيام عمل عادية وساعات بأيام عطلات لاختلاف معدل الأجر للساعة بالاحتساب ( يوم العمل العادي الساعة بساعة ونصف – ويوم العطلة الساعة بساعتين ) وطبعاً يمكن تعديل المعدل بمعادلة الاحتساب . • الورقة الثانية ( OVERTIME PAY SHEET ) تحتوي من خلال الربط بالمعلومات الواردة بالورقة الأولى على حساب لأجر كل موظف من خلال راتبه الأساسي وبالطريقة المتعارف عليها . • الأوراق التالية ( PAY SLIP FOR EVERY EMPLOYEE ) هي عبارة عن سند صرف لكل موظف لأجره عن ساعات العمل الإضافي من خلال الربط ببيانات حساب كل موظف بالورقة الثانية ( OVERTIME PAY SHEET ) . تم وضع شعار العمل وهو مجرد شعار لشركة وهمية طبعاً بكل PAY SLIP ويظهر فقط بالطباعة يمكن تغييره طبعا من PAGE SETUP ثم HEADER/FOOTER ثم CUSTOM HEADER . • ملف ال ( WORD ) المرفق هو عبارة عن ظهر ال ( PAY SLIP ) ( سند الصرف لكل موظف ) والذي يجعله مع طيه للداخل من ناحية السند من خلال الخطين باللون الرمادي أعلى وأسفل حدود الظرف تجعل منه ظرف فعلياً يتم وضع المبلغ فيه وتدبيسه من الطرفين لحفظ المبلغ وعند تسليم الموظف يتم فكه وتسليم المبلغ للموظف وتوقيعه عليه واحتفاظ الحسابات طبعاً بالسند كمستند يثبت الصرف ، طبعاً يمكن تغيير المعلومات بالكامل في الملف الإكسيل حسب المعلومات لدى المستفيد وكذلك بالنسبة لفكرة ظهر السند ( الظرف ) والشعار الموضوع عليه مجرد فكرة للتوضيح . أرجو أن تنال الفكرة استحسانكم وأن تجدوا فيها النفع والفائدة ومستعد للإجابة على أي استفسار ولكم شكري وتقديري ،،، OVERTIME_REC_CALC_PAY_SYSTEM.zip BACK_SIDE_OF_OVERTIME_PAY_SLIP.zip

الأخ/ 2MM ارجو أن يكون طلبك في المرفق . أبو عبدالله ATTENDANCE_CALCULATION.rar

إخواني الإعزاء هذا الكود يقوم بتلوين كل الخلايا بالورقة التي تحتوي معادلات ‘ وبالملف المرفق تستطيع تشغيله بالضغط على مفتاح ( COLOR ) وهذا كود آخر لجعل كل الخلايا بالورقة التي تحتوي معادلات بدون لون وتستطيع تشغيله بالضغط على مفتاح ( UNCOLOR ) كعملية تراجع عن العملية الأولى يفيد الكود الثاني جداً في حالة قيامك بإلغاء معادلات وقد كنت سلفاً قمت بتلوين خلاياها بالكود الأول ففي هذه الحالة ستبقى الخلايا ملونة على الرغم من عدم وجود معادلات بها ، لذا يمكنك السيطرة على هذه المشكلة بتلوين الخلايا ثم إلغاء التلوين مرة أخرى بالكود الثاني وبذلك تظهر معك خلايا ملونة بعد الغاء التلوين وهي الخلايا التي لاتحتوي معادلات في هذه الحالة تستيطيع إلغاء تلوينها . ولمن لايحبذون التعامل مع الأكواد إليهم البديل بدون أكود : 1- اضغط CONTROL+G 2- اختار SPECIAL 3- اختار FORMULAS ثم OK 4- تلاحظ أنه تم اختيار جميع الخلايا بالصفحة التي تحتوى معادلات 5- من أيقونة FILL COLOR أو من FORMAT CELLS قم بتلوين الخلايا باللون اللي يعجبك . 6 - الآن حصلت على تلوين لكل الخلايا التي تحتوي معادلات 7- للتراجع عن التلوين كرر الخطوات من 1 الى 5 وفي نهاية الخطوة الخامسة اختار NO FILL عند تحديد اللون 8- الآن لديك الخلايا نفسها بدون ألوان . ودمتم . تحياتي أبو عبدالله color_and_uncolor_formula_cells.rar

أخواني الأعزاء الكثيرون منا لديه هذه الإضافة الرائعة التي تعطيك أكثر مما تحلم به من أدوات في الإكسيل ( ASAP UTILITIES ) ولمن لديهم هذه الإضافة أهدى لهم رابط آخر إصدار مجاني من هذا البرنامج الرائع لتنزيه ، كما أهديه لمن ليس لديهم هذا البرنامج الرائع ، علماً بأنني قد اكتشفت أن وجوده يضيف الى قائمة FUNCTIONS - المعادلات مجموعة رائعة من المعادلات تراها في قائمة USER DEFINED وهي مجموعة معادلات أكثر من رائعة . أتمنى لكم الفائدة والمتعة مع هذا الأدوات الرائعة . وإليكم الرابط : http://www.asap-utilities.com/download-asap-utilities.php تحياتي أبو عبدالله

أخواني الكرام:- لقد وجدت هذا الملف علي أحدي المنتديات الأجنبية وأردت أن تشاركوني فيه لما فيه من فائدة. فهذا الملف به العديد من التقارير الماليه الهامة والرسومات البيانية المفيدة جدا. وهو يقوم بعقد مقارنات بين أخر أربع ميزانيات ويقدم لك توقعا عن الأربع سنوات القادمة. 1.rar ملاحظة هامة: لاحظ أنك لن تقوم بأدخال أي بيانات غير في ال MASTER SHEET وفقط وهو يقوم بترحيل البيانات إلي جميع التقارير. أخوكم في الله / إسلام. أسألكم الدعاء لوالدي رحمة الله عليه

هذا المثال لاستدعاء بيانات جدول معين من الاكسيس باستخدام ال ADO تأكد من وجود مرجع ADO معرف مرفق مثال و مضاف به الوصلة للصفحة الأصلية بموقع ExcelTips و يتم تحديد مسار القاعدة و اسم الجدول و مكان اللصق فى ورقة العمل Sub Getit() ADOImportFromAccessTable "E:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", _ "Products", Range("A1") End Sub Sub ADOImportFromAccessTable(DBFullName As String, _ TableName As String, TargetRange As Range) ' Example: ADOImportFromAccessTable "C:\FolderName\DataBaseName.mdb", _ "TableName", Range("C1") Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) ' open the database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ DBFullName & ";" Set rs = New ADODB.Recordset With rs ' open the recordset .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable ' all records '.Open "SELECT * FROM " & TableName & _ " WHERE [FieldName] = 'MyCriteria'", cn, , , adCmdText ' filter records 'RS2WS rs, TargetRange ' write data from the recordset to the worksheet ' optional approach for Excel 2000 or later (RS2WS is not necessary) For intColIndex = 0 To rs.Fields.Count - 1 ' the field names TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub ADO-getFromAccess.rar

السلام عليكم شكرا لك أخي محمد على مجهوداتك المباركة . يوجد طريقة سهلة بعمل استعلام باتباع التالي : نختار الصفحة ثم نذهب إلى : Data Import External Data New Database Query Databses Ms Access Database OK ثم نختار قاعدة البيانات ثم الجدول ثم الحقول المطلوبة Next Next Next Finish OK انتهى ويمكن تحديث الصفحة كالتالي : Data Refresh Data أو عمل زر يحتوي على هذه الشفرة : Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False تحياتي .

الكود باستخدام dao Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) ' Example: DAOCopyFromRecordSet "C:\FolderName\DataBaseName.mdb", _ "TableName", "FieldName", Range("C1") Dim db As Database, rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records 'Set rs = db.OpenRecordset("SELECT * FROM " & TableName & _ " WHERE " & FieldName & _ " = 'MyCriteria'", dbReadOnly) ' filter records ' write field names For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' write recordset TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nothing db.Close Set db = Nothing End Sub