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

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

تفضل ....... 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

السلام عليكم 🙂 نعمل البرنامج ، ثم نقسمه الى قسمين ، FE الواجهة و BE الجداول ، ولما نعطيه للمستخدم ، نربط الجداول بمسار خاص به ، ويعمل البرنامج. ولما المستخدم يحتاج الى تعديل/اضافات ، ويرسل لنا نسخته بالايميل (انا ممكن اكون مسافر وبعيد عن نسختي) ، فيجب علينا ان نغير مسار الجداول ليتناسب مع مجلدات الكمبيوتر عندنا ، ولما ننتهي من التعديل ، نرسله بالايميل ، وهناك يجب على المستخدم ان يغير المسار الى ذلك الذي به BE الاصل 🙂 المشكلة انه: 1. بعض الاوقات نكون قد وضعنا الـ BE في مكان لا يجب ان يعرفه المستخدم ، فلا نريد تدخل منه لهذا التغيير ، 2. بعض الاوقات المستخدم لا يعرف مكان الـ BE اصلا ، 3. وبعض الاوقات ، المستخدم لا يكون فني ليعرف كيف يختار مكان الـ BE 🙂 صادفتني هذه المشكلة مراراً ، ومرة دفعت الثمن غالي لما ربطوه بالـ BE الغلط ، ربطوه بنسخة الـ Backup بدل عن النسخة الاصل 😁 الى ان اهتديت الى هذه الطريقة 🙂 الفكرة هي عبارة عن اضافة جدول tbl_ReLink_To_Original في الـ FE فيه سجلين ، سجل يحتوي على مسار BE المستخدم ، وسجل يحتوي على مسار BE المبرمج ، وبدل هذا الجدول ، ممكن ان نضع ملف نص txt في مجلد FE ، ونكتب فيهم السجلين ، ثم نقرأهم ، ولكن الجداول في الـ FE تناسبني اكثر ، فإستعملتها 🙂 1. لمعرفة مسار BE المستخدم: . . ثم ننسخه من (1) جدول MSysObjects الى السجل الاول (Seq = 1) في جدولنا (2) tbl_ReLink_To_Original . ثم في السجل الثاني (Seq = 2) ، نكتب مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) . طريقة العمل: نعمل ماكرو Macro باسم Autoexec ، والذي يقوم الاكسس بفتحه وتنفيذ اوامره اول ما يفتح البرنامج ، 1. نقوم بتشغيل الكود الذي سيربط الـ BE الى المسار الصحيح للمستخدم (اما المبرمج فلا يسنخدم هذا الماكرو ، وانما يدخل في البرنامج بمسك مفتاح الشفت) ، 2. اذا لم يحصل البرنامج على المسار الصحيح ، فيجب ان نخبره ان يعطينا نافذة نختار منها المسار الصحيح ، وهناك عدة طرق ، واخترت طريقتي هنا ، 3.4.5.7.8 هذه لإخفاء جميع كائنات البرنامج من جداول واستعلامات ونماذج وماكرو وتقارير ووحدات نمطية ، وتوسيع البرنامج لحجم الشاشة (فلا نحتاج ان نجعل النموذج منبثق ، والذي به الكثير من المشاكل) ، 5. فتح النموذج الاول من البرنامج ، . هذه هي الوحدة النمطية التي تقوم بالعمل (1) اعلاه : Public Function f_ReLink_To_Original(Optional Seq As Integer = 1) 'On Error GoTo err_f_ReLink_To_Original On Error GoTo Exit_f_ReLink_To_Original ' ' The client have his own path to the linked BE tables, ' yet for Development when we want to do change and modifications on the FE, ' we want to link this FE to our local BE tables, for testing, ' and we are done, we will send this FE back to the client, which will have our BE path!! ' ' Although the FE have a code on startup, which will prompt for the new BE path, but not all clients know how to use it!! ' So I added a table tbl_ReLink_To_Original to the FE, and the path to the client BE path, as Seq = 1 , ' and for the Developer BE, the Seq is 2 or other numbers. ' ' for the Development BE path, we call this Function, for the immediate window: ' ?f_ReLink_To_Original(2) ' ' or from a normal Event: ' Call Call f_ReLink_To_Original(2) ' ' and enter the DB with Shift key, ' ' and when the FE goes to the client, this Function will call Seq = 1 by default, thus returning their correct Path. ' ' ' by jjafferr ' ' v1. 24-Feb-2020 ' Dim db As dao.Database Dim tdf As dao.TableDef Dim ConnectionString As String, Linked_Connection As String Set db = CurrentDb 'which BackEnd the user selected ConnectionString = DLookup("[DB_Path]", "tbl_ReLink_To_Original", "[Seq]=" & Seq) 'the existing BackEnd Linked_Connection = DLookup("[Database]", "MSysObjects", "[flags] = 2097152") 'if the existing BackEnd = User Selected, then No need to connect again, just exit If ConnectionString = Linked_Connection Then GoTo Exit_f_ReLink_To_Original For Each tdf In db.TableDefs ' Only make a change if the table is a linked table If Len(tdf.Connect) Then tdf.Connect = ";DATABASE=" & ConnectionString tdf.RefreshLink End If Next Exit_f_ReLink_To_Original: Exit Function err_f_ReLink_To_Original: If Err.Number = 3170 Then 'MsgBox "رجاء التاكد من مسار القاعدة الموجوده في الجدول" & vbCrLf & "tbl_ReLink_To_Original" 'Resume Next Resume Exit_f_ReLink_To_Original Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_f_ReLink_To_Original End If End Function . اما للمبرمج ، فيجب عليه ان يدخل الكود ويكتب (لاحظوا اننا استخدمنا الرقم Seq = 2 ، ليشير الى السجل الثاني في الجدول ، المشير الى مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) : من نافذة الكود السفلى: immediate ?f_ReLink_To_Original(2) او من اي حدث Call f_ReLink_To_Original(2) . واذا اردت الاستفادة من هذه الطريقة لبرامجك ، فيجب عليك استيراد هذه الكائنات الى برنامجك (مع الاخذ في الاعتبار تغيير اسم النموذج في ماكرو autoexec ) : جعفر Relink Tables.zip

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

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

الصلاة والسلام علي سيدنا محمد بارك الله فيك

شكرا جزيلا لكم جميعا

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

من اين لك بهذه المعلومه اخى الفاضل لقد قمت بفحص البرنامج اونلاين https://www.virustotal.com/gui/home/upload ولم يتم اكتشاف اى فيروسات تاكد بارك الله فيك مره اخرى بالتوفيق

اخي الفاضل farahat رجاء الالتزام بقوانين المنتدى : https://www.officena.net/Tips/Questions.htm فانت فتحت 3 اسئلة مستقلة لهذا الموضوع ، ومن دون ان تضيف اي معلومة زيادة لكي يساعدك الاعضاء !! رجاء فكر في سؤالك ، و اعد طريقة العرض او ضع مثال ، و رد على اسئلة الاعضاء ، حتى يستطيعوا ان يساعدوك 🙂 جعفر

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

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

هذا هو المطلوب شكرا جزيلا

السلام عليكم تم الاستعانة بشيت worksheet الموجود في الملف بوضع (نسخ/لصق) الإرشادات في عمود ما من الشيت، ثم إنشاء قائمة منسدلة لهذه الإرشادات في شيتات الصفوف (الأقسام) بأعمدة "الإرشادات" (باستعمال خاصية "التحقق من الصحة" Validation) وذلك لاختيار ما يناسب من الإرشادات لكل طالب من هذه القائمة... يمكن تطبيق الفكرة نفسها لقائمة "الملاحظات"... تجد تطبيق ذلك على ملفك المرفق بالأعلى... بن علية حاجي قوائم الفصل 2.xls

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

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

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

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

وعليكم السلام هل هذا ما تريد ؟ Private Sub student_AfterUpdate() If Len(Me.student & "") = 0 Then Me.wezary = 0 ElseIf Me.student < 200 Then Me.wezary = 1 ElseIf Me.student >= 200 And Me.student < 300 Then Me.wezary = 2 ElseIf Me.student >= 300 And Me.student < 400 Then Me.wezary = 3 ElseIf Me.student >= 400 And Me.student < 500 Then Me.wezary = 4 ElseIf Me.student = Null Then Me.wezary = Null End If End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق math.accdb

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

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

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

يمكنك فتح صندوق حوار لاختيار الطابعة بهذا الكود Application.Dialogs(xlDialogPrinterSetup).Show

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

الأخ/ 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

أخواني الكرام:- لقد وجدت هذا الملف علي أحدي المنتديات الأجنبية وأردت أن تشاركوني فيه لما فيه من فائدة. فهذا الملف به العديد من التقارير الماليه الهامة والرسومات البيانية المفيدة جدا. وهو يقوم بعقد مقارنات بين أخر أربع ميزانيات ويقدم لك توقعا عن الأربع سنوات القادمة. 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 تحياتي .