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

السلام عليكم ورحمة الله وبركاته بشرى للعاملين في مدارس التربية والتعليم في جمهورية مصر العربية ، أقدم لكم أداة تمكن المدرسة من جلب قاعدة البيانات الخاصة بها من على موقع الحكومة الإلكترونية إلى ملف إكسيل في أقل من 5 دقائق الأداة تقوم بالدخول على المتصفح (الإنترنت إكسبلورر) في الخلفية ثم يقوم الكود بإدخال بيانات الدخول (اسم المستخدم - الرقم المسلسل - كلمة السر) ، ثم يقوم بجلب بيانات جميع الصفوف والأداة صالحة لجميع المراحل التعليمية سواء ابتدائي أو إعدادي أو ثانوي ،حيث يتم جلب البيانات التالية (كود التلميذ - اسم التلميذ - الرقم القومي - الفصل - حالة القيد - العام الأكاديمي"الصف الدراسي") سعر الأداة : 100 جنيه مصري (مائة جنيه) لشراء الأداة : المراسلة على حساب الفيس بوك yakh777@yahoo.com شاهد الفيديو التالي للإطلاع على كيفية تنفيذ الكود ، ومشاهدة النتائج في أقل من 5 دقائق مقدم الخدمة / ياسر خليل أبو البراء

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

جرب هذا الملف search salim.rar

أختى الكريمة حاولت التطبيق على ملفك شيت سجل الرصد لكن يفلح الامر لأنه كما قلت لك كمية البيانات فى الشيت ضخمة 200 صف x اكتر من 237 عمود لذلك قمت بعمل نموذج مصغر اليك طريقة العمل : تحديد نطاق البيانات المراد التعامل معه وتسميته باسم Mydata عدد 2 Class Module باسم Class3 و Class4 كما هما بدون تعديل وبنفس الاسم كود استدعاء الفورم بنعمل فيه تعديلات حسب الحاجة كاسم النطاق و عدد خلايا الشبكة التى تظهر فى صفحة MultiPage فى كود الفورم تعليقات بسيطة على السطور المهمة والتى يمكن تعديلها حسب الرغبة والحاجة عند تشغيل الفورم سوف يظهر النطاق Mydata فى MultiPage داخل الشبكة يمكن عمل سكرول لاستعراض البيانات كما يمكن وضع المؤشر فى اى خلية بالشبكة و تعديلها عند الضغط okay سوف تتغير الخلية فى الشيت كما يمكن وضع المؤشر فى التكست بوكس و تعديل العنوان ( بتغيير رقم الصف أو العمود ) ثم الضغط على get لمعرفة قيمتها أو set للتعديل آى استفسار تحت أمرك مع خالص تحياتى show data from-spreadsheet in MultiPage for updatting.rar

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

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

- المطالبة ببيانات الشركة / المؤسسة عند فتح القاعدة للمرة الاولى - نسخة تجريبية للسنة الحالية فقط حتى لو تم التلاعب بتاريخ النظام بالتقديم والتاخير فى شاشة اتفاقية الترخيصعند الضغط على الرز (F6) سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة 2016سوف يعمل البرنامج بنجاح - اخفاء اطارات الاكسس - انشاء مجلدات تخص نظم قاعدة البيانات -مشاركة الصور بحفظ مسارتها داخل المجلد الخاص بها بنفس مسار القاعدة -عرض الصور على الشبكة دون تغييرها او تغيير مسارها او تعديله او دون اى تدخل من المبرمج بدون عناء ( تصلح لصور الموظفين) تم ادراج نموذج يتحكم بكل صغيرة وكبيرة فى القاعدة لزيادة الحماية ملحوظة : القاعدة لن تعمل عند محاولة تغيير اسمها لم اخفى كل كائنات القاعدة بلا رجعة لم اقم بغلاق زر الشيفت demo.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم كود يمكنك من الدخول إلى حسابك على الفيس بوك بمعلومية اسم المستخدم وكلمة السر. في الملف المرفق كل ما عليك هو أن تقوم بإدخال اسم المستخدم (الإيميل) في الخلية D10 ، وكلمة المرور في الخلية D11 ، ثم تنقر على زر الأمر Login Facebook للمزيد حول الكود المستخدم والملف المرفق قم بزيارة الرابط التالي رابط الموضوع من هنا

السلام عليكم و رحمة الله وبركاته بالإضافة للحل الرائع و الجميل لأخونا سليم هذا حل آخر باستخدام الكود Sub surch1() Range("data01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "order"), CopyToRange:=Range("output"), Unique:=False End Sub وبه خصائص كثيرة البحث بواحد من الخيارات استخدام البحث المتعدد بواسطة * فقط اضغط زر البحث search02salim.rar

تفضل Boo3.rar

شكراً رمهان

عمل أكثر من رائع. تعجز الكلمات عن شكرك فقد حللت لي معضلة دامت فترة طويلة وأنا أبحث عن حل لها. بوركت وبارك الله فيك. ومهما شكرت فإني لن أوفيك وأوفي القائمين على هذا المنتدى الشكر بكل معانيه. أستاذي الكريم سؤالي هل من الممكن أن تشرح لي خطوات العمل حتى أستطيع تطبيقه قدر المستطاع في أعمال أخرى مشابهة. وهل من الممكن تطبيقه بحيث تتعدد الفورمات لتكون كل مادة على حده؟ مع إخفاء كافة الشيتات ولا يتم التعامل إلا مع الفورمات فقط. بمعنى أنني أريد رصد درجات مادة القرآن الكريم في فورم مستقل ويكون هناك قائمة منسدلة في هذه الفورم تؤدي لاستدعاء شهر أكتوبر مثلاً فتكون في فورم تابع وهكذا لكل مادة. كما هو مشابه لعمل قدمه الأستاذ الفاضل عبدالله باقشير. أرجو أن أكون وُفقت في شرح المطلوب مع جزيل الشكر والاعتذار لطمعي العلمي. اظهار واخفاء اعمدة المواد الدراسية.rar

بالتوفيق

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

السلام عليكم ورحمة الله وبركاته أعرض عليكم كودا ( منقولا من أحد المنتديات الأجنبية مع التعديل لملائمة الهدف ) يمكن استخدام الكود فى نسخ صورة من اميج باليوزرفورم الى أى مكان تحدده بالهارديسك الصورة يتم تصديرها الى الهارديسك بامتداد jpg الكود Option Explicit Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&) Private Declare Function CloseClipboard& Lib "user32" () Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&) Private Sub ImageCopy() ' المتغيرات Dim MyPic As StdPicture, MyPicName As String, xCopy Set MyPic = Me.Image1.Picture ' حدد اسم الاميج الذى يحتوى الصورة MyPicName = "H:\YasserKhalil.jpg" ' حدد اسم و مسار التخزين على الهارديسك ' فتح الذاكرة العشوائية OpenClipboard 0 'تفريغ الذاكرة من البيانات EmptyClipboard ' نسخ الصورة الى الذاكرة xCopy = SetClipboardData(2, MyPic.Handle) ' اغلاق الذاكرة CloseClipboard ' شرط : فى حالة وجود الصورة بالذاكرة If xCopy Then ' جواب الشرط : حفظ الصورة المحددة بالمسار المحدد SavePicture MyPic, MyPicName ' انهاء جملة الشرط End If ' تفريغ الذاكرة DestroyIcon MyPic.Handle Set MyPic = Nothing ' رسالة بانتهاء المهمة MsgBox "Mr.YasserKhalil Your's Picture Saved On (" & MyPicName & ")" End Sub استدعاء الكود ImageCopy يتم عن طريق CommandButton فى الفورم Private Sub CommandButton1_Click() ImageCopy End Sub مع خالص نحياتى picture from UserForm to a drive.rar

جزاك الله خيرا آخى الغالى على ما تقدمه لاخوانك على طبق من ذهب تحياتى

ما اعتقد الصلاحية لها دور في الفكره مثلا ابغاهم يرحلون التمام يوميا قبل الساعه التاسعه صباحا ... وعند التاسعه سيتم اقفال الزر ... والمتأخر ياااا ويله من حنيني ... او المناوبات الاسبوعيه .. كل يوم أحد .. فقط واعطيهم وقت وبعدها تقفيل واي تعديل يتم عن طريق الإداره فقط . والسبب في التقفيل ... بعد ما يتم الترحيل نتفاجأ بلخبطه عكس ما تمت طباعته في اليوم السابق ... ويتهمون البرنامج بالزهايمر واكتشفت بدون اثبات بأنهم يغيرون في اي وقت بدون علم الاداره وحسب هواهم ...

متأسف على تأخر الرد مشغول جدا فى جدول المدرسة سأحاول تطبيق الفكرة على المرفق خاصتك فى أقرب وقت تحياتى

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

عليكم السلام ورحمة الله اخي انت بحاجة الى جهاز قارىء بصمة خاص يحقق مطلوبك القارىء هذا يكون يدعم التعامل مع الواجهات ويطلق على هذه الاجهزة بالبيومترية غالب هذه الاجهزة يأتي بصحبتها من المصنع تعليمات خاصة بالمبرجين او ما يسمى SDk عن طريق هذه التعليمات يمكنك ربط برنامجك بهذه الآلة حسب لغة البرمجة التي تستخدمها هذه معلومات بسيطة ولكنها مهمة لفهم متطلبات العمل علك تجد الفائدة

حياك الله استاذ عبد الله ... ويسعد مساك الكود الغى العملية ....حيث لا يتم لصق السجلات .. تجياتي ::::::: نجحت العملية بعد تفعيل السطر الملغى في الكود ......شكرا لك استاذ عبد الله وهذا الكود Private Sub Panel_Click() On Error Resume Next If Me.Panel = -1 Then Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acFirst Forms!students!Visit.Form!lecturs.Form.SetFocus DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acLast Forms!students!Visit.Form!lecturs.Form.SetFocus DoCmd.GoToRecord , , acGoTo DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste result = "" End If Me.Panel = 0 End Sub

اخي الكريم.. اذا كان الهدف من ذلك صلاحيات المستخدمين فهنا امثلة كثيرة في المنتدي.. ابحث عنها بكلمة صلاحيات المستخدمين تحياتي

بارك الله فيك أستاذ مختار حسين محمود تقبل تحياتي

اخ رمهان 100 % تمام ضبطت الف الف شكر +1

Private Sub Form_BeforeUpdate(Cancel As Integer) Dim c As New Collection تعرف متغير من نوع كولشن ليتم استخدام وظائفه On Error Resume Next الخطأسيحصل عند تكرار احد القيم For Each ct In Me.Section(0).Controls الدوران على العناصر التي بجزء التفصيل If ct.Tag = "ramhan" Then c.Add ct, ct: i = i + 1 الدوران على العناصر التي التاق لديها باسم رمهان واذا هناك تكرار لن يضيف للقائمة Next If c.Count <> i Then Cancel = MsgBox("يوجد تكرار") this هذا فكرة الحل وهو المقارنة بين عداد عدد العناصر والقيم المضافة فلو حصل تكرار ستكون عدد القيم اقل من عدد الحقول وهذا مؤشر للتكرا End Sub هذا ومارايك بالفكرة استاذ محمد ؟ تحياتي

مشكور أستاز سيد على تعبك على فكره أنا بكتب الأس والباسورد بس مبيفتحش ليه mared الباس ورد 123 صح كدا

السلام عليكم و رحمة الله تعالى و بركاته. بعد إذنك أستاذي محمد أيمن أريد أن أضيف تعديلا بسيطا على الكود من أجل حفظ الملف في نفس مسار البرنامج كما طلب السائل Dim DP As String DP = Application.CurrentProject.Path & "\" & Format(Now(), "dddd") & " " & Format(Now(), "ss-nn-hh") & ".xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "table1", DP MsgBox "تم التصدير إلى أكسل بنجاح" & vbCrLf & "الملف في نفس مسار البرنامج"

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