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

السلام عليكم ورحمة الله وبركاته نتقدم بأرق التهاني لأخونا الكبير ومعلمنا القدير وأستاذنا يحيى حسين (أبا الحسن والحسين) ، بمناسبة تكريمه للعام الثاني على التوالي من شركة مايكروسوفت ، وحصوله على لقب MVP وهي اختصار لــ Microsoft Valuable Professional ألف ألف مبارك لك أبا الحسن والحسين ، ومن تقدم لتقدم ، ومن رقي لرقي تقبل وافر تقديري واحترامي

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

جرب التالي وعند النقر لزر امر SendKeys ("%{TAB 2}"), True بالتوفيق

الساده : الياسرين ( الخليل - العربي - البنا ) بنحبكوا كلكم في الله وكتر الله خيركم

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

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

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

بسم الله والصلاة والسلام على خير خلق الله السلام عليكم ورحمة الله بالملف المرفق معادلة لاستخراج اسم الملف بدون اكواد وفي المثال العملي اسم الملف عبارة عن الشهر ثم شرطه ثم السنه ومن خلال الفورمات السابق تم استخراج عدد ايام الشهر وفقا للشهر والسنة, يمكن استخدام هذه المعادلات في الملفات المرتبطة بالشهر والسنه كملفات الرواتب الشهرية خصوصا المرتبات المرتبطة بعدد ايام كل شهر على حده . برجاء من له سؤال او تصويب ان لا يبخل به علينا ليستفيد الجميع. سبحانك اللهم وبحمدك لا اله الا انت Feb-2016.zip

السلام عليكم و رحمة الله وبركاته تم عمل الكود التالي Sub aHMDzMN() Dim FS As Worksheet, TS As Worksheet Dim SH, Q1, Q2, Q3, TR, ER, FR Set TS = Sheets(ActiveSheet.Name) Q1 = TS.Range("E1").Text 'ÔåÑ ÔÑßÉ Q2 = TS.Range("E2").Text 'ÔåÑ ãÄÓÓÉ Q3 = TS.Range("D1").Text 'ÇáÝÑÚ For SH = 1 To Sheets.Count If Sheets(SH).Name = Q1 Or Sheets(SH).Name = Q2 Then Set FS = Sheets(Sheets(SH).Name) TR = TS.Range("C5555").End(xlUp).Row + 1 ER = FS.UsedRange.Rows.Count For FR = 4 To ER If FS.Cells(FR, 18) = Q3 Then For C = 2 To 18 TS.Cells(TR, C) = FS.Cells(FR, C) Next C TR = TR + 1 End If Next FR End If Next SH End Sub اضغط زر البحث جرب المرفق وقول يارب برنامج-مرتبات تجريب.rar

تفضل اخي العزيز ووافني بالنتيجة ccc.rar

كل عام وجميع الامة العربية والاسلامية بألف خير

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م كل عام و انتم بخير و صحة وعافية

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م الف الف مبروك لـأستاذي الفاضل يحيى حسين وبارك الله لك في علمك وزادك الله علما ونورا وايمانا

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

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

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

أخي الغالي مختار بعد الإطلاع على الطلب الثاني وجد أنه أيسر بكثير من الأول وتم بفضل الله في وقت أقل من الكود الأول وإليك رابط الملف المرفق فيه تعبئة الفصول .. ولا تنسانا بدعوة بظهر الغيب رابط المرفق من هنا

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

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

ما يفتح المرفق عندي ... اي اصدار اوفيس انت بتستخدمها ؟

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

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج ملاحظه انا مقسم قاعده البيانات الى قسمين قسم الجداول مربوط بقاعده بيانات SQL SERVER وهيه موجوده بالسيرفر والقسم الثاني من القاعده التي هيه النماذج موجود بحاسبات المستخدمين بمعنى ان المستخدم عند اختيار صور من الحاسبه ترحل الصور الى السيرفر وعلما الحاسبات مربوطه شبكيا مع السيرفر وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء

أخي الحبيب مختار إنت أكتر واحد يعرف إن الدمج عدو الأكواد .. والدنيا كلها داخلة في بعضها عموماً قمت بإدراج صف (الصف الثامن ووضعت فيه الفصول) ، كما قمت بالاستعانة بالعمود AQ كعمود مساعد لأحدد من خلاله اليوم والحصة .. تيسيراً للعمل قم بالدخول لورقة العمل المسماة Teachers ، وانقر على زر الأمر "إنشاء جدول لكل مدرس" ثم انقر على زر الأمر "تعبئة الجداول" لينفذ الكود المسمى Fill_Teachers_Tables هذا والله ولي التوفيق .. إليك الملف المرفق بعد إضافة التعديلات في ورقة العمل Table .. رابط الملف المرفق من هنا

بدل ذاك السطرين 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 بدل هذا السطر الى (Forms!students!Visit!lecturs!lecture.SetFocus) DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acLast Forms!students!Visit.Form!lecturs.Form.SetFocus و ايضا هذا (Forms!students!Visit!lecturs.SetFocus) DoCmd.GoToRecord , , acGoTo DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste result = "" End If Me.Panel = 0 End Sub

السلام عليكم بعد اذن أستاذى الغالى ياسر أخى خالد جرب الطريقة دى Sub delActiveRowallSheets() 'delete Active Rows in all Sheets then Un select Row Dim ws As Worksheet, bdel As Boolean On Error Resume Next bdel = True For Each ws In Worksheets With ws .Select bdel .Rows(ActiveCell.Row).EntireRow.Delete End With Application.Goto ActiveSheet.Cells(9, 1) bdel = False Next ws End Sub

السلام عليكم اتمنى ان يكون هذا التعديل مساعد لك في الحل التصاريح.rar

تم و لله الحمد حل المشكله وكان الحل بسيط جدا الغيت كود الدواء كمفتاح اساسي وجعلته رقم بس وعملت مفتاح جديد للترقيم التلقائي غيرت الربط ب الجدول الفرعي من كود الدواء الى الرقم المسلسلي الجديد او المفتاح الجديد في جدول الادويه جعلت الادويه التي اسمائها متشابهه بنفس الكود وهذا الدواء مثال Cap. Amoxacilline 500mg الان لا تستطيع تكرار ادخال اي دواء للوصفه حتى لو تغير اشكر الكل لساعدتهم لي الاخ جعفر الاخ ابو خليل الاخ عبدالله الاخ محمد امين اتمنى من الكل مشاركتهم لي لكي اكمل مشروعي Database.rar

نقل بيانات معينة.rar Sans titre.rar في سؤالك الأول لم توضح أي شرط

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

السلام عليكم هذا ايضا كود آخر يقوم بنفس المهمة Sub iCOPY() Application.ScreenUpdating = False Dim Rng As Range, _ shs As Worksheet, shd As Worksheet, _ LastS As Integer, LastD As Integer Set shs = Sheets("اعتمادية3"): Set shd = Sheets("تسهيل مهمة") LastS = shs.Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To LastS Set Rng = Union(shs.Range("B2:B" & i), _ shs.Range("D2:D" & i), shs.Range("E2:E" & i), shs.Range("H2:H" & i)) Rng.Copy Next shd.Range("I" & shd.Cells(Rows.Count, 9).End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.ScreenUpdating = True Application.CutCopyMode = False MsgBox "Êã äÞá " & Rng.Rows.Count & " ÕÝæÝ Çáì æÑÞÉ ÊÓåá ãåãÉ", vbInformation + vbMsgBoxRight, "ÊÑÍíá" End Sub

السلام عليكم ورحمة الله الصق هذا الكود فى موديول جديد وخصص له زر Sub Tarhil() For R = 2 To 200 If Cells(R, 2) = Sheet3.Cells(R, 6) Then Cells(R, 9) = Sheet3.Cells(R, 2) Cells(R, 10) = Sheet3.Cells(R, 4) Cells(R, 11) = Sheet3.Cells(R, 5) Cells(R, 12) = Sheet3.Cells(R, 8) End If Next End Sub

السلام عليكم ... تابع الموضوع التالي....

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

عسى ربي يوفقك ويرضا عليك ورحم الله والديك يكفي بارك الله فيك بأنك تنقش طيبك في قلبي وكما أسلفتُ سابقاً سواء وجدت الحل أم لا ستبقى متفضل عليَّ الله يزيدك من فضله

ربط البيانات بين الجدول الرئيسي والرفرعي غير مكتمل (نقص ID ورقم فاتورة البرنامج) ثم ضع زر امر لحفظ البيانات وضع فيه الكود التالي عند حدث Click DoCmd.RunCommand acCmdSaveRecord

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

الله المستعان استاذ محمد يمكنك اختيار الحدث المناسب ! انا اخترت الاختبار على مستوى النموذج اذا تريد الاختبار على مستوى العنصر فهناك خيارين 1. حدث عند كل عنصر 2. عند الضغط على مفتاح ونحاول تحديد المفتاح الذي يسبب نقل المؤشر وهنا فكرة جديدة ! فقط يتم نسخ ولصق نفس السطر لكل عنصر تحياتي منع تكرار القيمة في نفس السجل.rar

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

جزاكم الله خيرا أ \ مصطفى شاهين على هذه الافادة النافعة

المطلوب غير واضح هل تريد زر بالنموذج يقوم بمهمة alt+tab وعبارة عن التبديل بين النوافذ المفتوحة ؟

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

شكرا مصطفى على التوضيح الجيد والسلام عليكم

الملف غير قابل للتحميل يرجى اعادة رفعه

وعليكم السلام انا اشعر اني فظ في التعامل معك ، فاعتذر منك واليك نصيحتي والتي قلتها سابقا: رجاء ان يكون سؤالك واضح وبالتفصيل الممل ، وفيه امثلة من بياناتك ، ومن اسماء نماذجك وحقولك ، وتوضيح (سواء على الاكسل او الوورد او الصور) ، وترفق هذه الجزئية من برنامجك (لأنه يجب على احدنا عمل المثال). عندها تحصل على اجابة تامّة كاملة ، وجاهزة للعمل والآن الى سؤالك: انت تعرف ان قوانين المنتدى تسمح بسؤال لكل موضوع ، لهذا السبب يجب عليك فتح موضوع لكل سؤال ، لوسمحت وسأرد على اسئلتك بسرعة ، للعلم فقط ، ويترتب عليك فتح مواضيع لها: هل بالامكان بدل طباعه التقرير ارساله الى ( القسم ) على فيئه تقرير او ايميل ، نعم على شكل مرفق pdf في ايميل مثلا ، بدل طباعه الوصفه ارسالها مباشره للصيدليه للصرف ، نعم ، اذا كانت الصيدلية مربوطة بالبرنامج على الشبكة ، فلا تحتاج لشئ ، فقط يعطي المريض رقمه الى الصيدلية ، وبنموذج خاص للصيدليه ، يمكنه الصرف ، والتأشير على السجل عند الصرف ، بدل طباعه نموذج اشعه ارساله للقسم مع امكانيه عمل فيد باك او حفظ النتيجه بملف المريض ، نعم ، كما قلت ، يمكنه العمل ، والتأشير على السجل بعد العمل ، ولو لاحظت ، فانا عملت لك تبويب Medications و Lab Reports حتى تستطيع ان تتوسع في هذا الطريق: يعني تكون هناك اشارة تنبيه للصيدليه بوجود وصفه للصرف ، المختبر ب وجود عينه ، للاشعه بوجود طلب ، للعياده بوجود مريض نعم يمكن ، وسأشرح طريقتين: 1. مثل ما قلت في الاعلى ، بأن يأتي المريض للصيدلية / المختبر / .. ويعطيهم رقمه ، وبالتالي يفتحون النموذج الخاص بتلك الجهة صيدلية / المختبر / .. ، ويتم العمل ، وهذه هي الطريقة الافضل ، 2. ان يكون نموذج صيدلية / المختبر / .. مفتوحا دائما ، وتعمل به Timer ، بحيث يتم استيراد البيانات عن طريق الامر Requery جعفر

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

الواجهة الرئيسية للبرنامج

‏22‏/1‏/1435هـ الموافق ‏25‏/11‏/2013م السلام عليكم و رحمة الله وبركاته في المرفق ملف نظم اصدار وطبع الشيكات لعدة بنوك وعدة حسابات في اولو رقة بالملف نموذج تحرير الشيكات في نموذج تحرير الشيكات عملية الإدخال كالتالي: 1 التاريخ: ادخل التاريخ للشيك وهومثبت على تاريخ اليوم حاليا ويمكنك تغييره 2- حرر في: ادخل مكان تحريري الشيك او اختاره من القائمة – اذا ادخلت اسم مكان جديد سوف يتم اضافته للقائمة عند طباعة الشيك 3- رقم الحساب: يمكنك استخدام هذه الخانة او تجاهلها - - تستخدم هذه الخانة في حالة يكون لديك اكثر من حساب في نفس البنك – يقوم البرنامج باضافة رقم الحساب الى اسم البنك للتأكد من حصولك على معلومات دقيقة 4- رقم الشيك: تقوم بادخال رقم الشيك وبعد كل عملية طباعة يقوم البرنامج بزيادة الرقم 1 ليصبح متسلسل - - اذا اخلت رقم شيك متطابق مع اسم بنك سبق اصدارة يعطيك رسالة تحذيرية بذلك 5- اسم المستفيد: أي اسم الشخص الذي يظهر على الشيك – يمكنك اختياره من القائمة اذا سبق اصدار شيك له - - و يمكنك البحث عن أي جزء من اسم الشخص وتظهر نتائج البحث في القائمة المنسدلة - - مثال: اذا كتبت في خانة اسم المستفيد: عبد سوف يظهر لك في القائمة كل من يوجد في اسمهم عبد مثل عبدالله وعبدالرحمن وغيرها وتختار منها الإسم الذي تريد 6- المبلغ و التفقيط: بمجرد ادخال المبلغ في خانته يتم التفقيط بجوار المبلغ 7- الإيضاح: يوجد نوعين من الإيضاح ايضاحات تظهر على الشيك وايضاحات تحفظ لديك مع بيانات الشيك ولا تطبع على الشيك - - وايضا الإيضاحات يوجد لدينا ايضاحات تتكرر دائما لذلك يقوم الملف بحفظ الإيضاحات الغير مكررة و يمكنك البحث عنها بواسطة بأي جزء بنفس طريقة البحث عن الإسم. يتم عمل ورقة جديدة لكل اسم بنك جديد وتنسق الورقة بما يتناسب وطباعة الشيك ورقة الحفظ و البحث: بعد كل عملية طباعة يتم حفظ بيانات الشيكات هنا ويمكنك البحث عن أي معلومة من هنا من تاريخ و الى تاريخ – او – تختار اسم البنك المطلوب – او – أي معلومة اخرى من رقم الشيك او مبلغ او ايضاحات او اسم مستفيد آمل ان يكون به ما طلبت Shiqشيكات01.rar

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

السلام عليكم حفظك الله أخي التقني على تنبيهك الأخ ابو محمود , أن أحببت استخدم هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim m As Integer Dim ctl As Control Dim intnewrec As Integer intnewrec = Me.NewRecord If intnewrec = False Then For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.OldValue <> ctl.Value Then m = InputBox(ctl.ControlName & " value already changed Enter your password to save ?") If m = 1 Then Cancel = False Else Cancel = True ctl.Undo End If End If End If Next ctl End If End Sub الفكرة تقوم على جعل خاصية قفل الحقول متاحة اي التعديل متاح , حيث يمكنك ادخال سجل جديد بدون اي حرج , لكن عند الذهاب الى سجل سابق و محاولة تعديله , و قبل الخروج من ذلك السجل سيقارن قيم الحقول ففي حال وجد اي تعديل عليها سيرسل رسالة بأن قيمة الحقل الفلاني قد تغيرت , أدخل كلمة السر لحفظ التعديل , و هي هنا " 1 " فاذا أدخل المستخدم واحد سيحفظ التعديل و الا فلا

هي عندي on Change :d و انت الأدري بالنسخة العربية :pp: