أبوبسمله

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

الشكر لله ثم لإخواننا واساتذتنا جزاهم الله خيرا

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

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

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

وعليكم السلام اذا كنت فهمتك بشكل واضح يمكنك استخدام قاعدة التحقق من الصحة واليك رابط ميكروسوفت للتوضيح والبحث فالمنتدى اكثر https://support.office.com/ar-sa/article/تقييد-إدخال-البيانات-باستخدام-قواعد-التحقق-من-الصحة-b91c6b15-bcd3-42c1-90bf-e3a0272e988d

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

جزاك الله خيرا اخى واستاذى العزيز خالد وكذلك استاذ اسامه 💐 ولا اروع من كده اما الاولى فعلى الشيطان لعنه الله عليه والثانيه فلاخوانى واساتذتى جزاهم الله خيرا ربنا يصلح حالك اخى @ازهر عبد العزيز 💐

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 اللهم آمين

اهلا ومرحبا بك اخى واستاذى @AlwaZeeR جزاك الله خيرا ولكن عند تجاهل الخطأ لم ياتى باى بيانات استاذى العزيز ولكن ما ظهر من الاخطاء كالتالى وهذه محاولتى على قد حالى فالحل اخى قاسم اولا عند تشغيل الاستعلام يقول لا يوجد حقل f33 فى جدول temp فيجب اضافته للجدول بالنسبه لجدول الطلاب الموجود لا يوجد به الحقول المذكوره باستعلام الالحاق بعد عمل استعلام الحاق اخر لاضافه البيانات وجدت انه يقوم بجلب بيانات اول صف التى هى عناوين البيانات حاولت تغيير false ل true فلم يعمل قمت بعمل استعلام حذف لاول صف العناوين من جدول تمب ثم الالحاق باستعلام q شوف وظبط انت بقى باقى البيانات لكل عمود معذره نسيت ارفاق الملف😀 Desktop3.rar

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

السلام عليكم اخى الحمدلله رب العالمين الذى بنعمته تتم الصالحات ووفقك لما تسعى اليه ارفق لك رد لمعلمتنا الغاليه زهره جزاها الله خيرا فالمشاركه ع الرابط التالى http://arabteam2000-forum.com/index.php?/topic/151888-تمت-الإجابة-مشكلة-انشاء-accde/&do=findComment&comment=762618 بالتوفيق

وعليكم السلام اخى قاسم عند الحاجه الى المكتبه والله اعلى واعلم اخى واستاذى محمد @Barna تم التجربه على نفس المثال المرفق منك وازاله الاشاره للمكتبه من الريفرنس والتغييرات التى تمت بالكود طبعا بعد الحصول على الارقام من ميكروسوفت msoFileDialogFilePicker = 3 من الرابط التالى https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype msoFileDialogViewList = 1 من الرابط التالى https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String 'Dim objFilePicker As FileDialog تم تبديل هذا السطر بالتالى Dim objFilePicker As Object Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() 'Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) تم تبديل هذا السطر بالتالى Set objFilePicker = Application.FileDialog(3) With objFilePicker 'Setup file dialog .AllowMultiSelect = False .ButtonName = "Select" '.InitialView = msoFileDialogViewList تم تبديل هذا السطر بالتالى .InitialView = 1 .title = "Select File" 'add filter for all files With .Filters .Clear .Add "All Files", "*.mdb,*.accdb,*.xlsx" End With .FilterIndex = 1 'disply dilog boxe .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub جزاك الله خيرا اخى واستاذى محمد وجمال وجعفر 💐 BA.mdb

وعليكم السلام اخى @ازهر عبد العزيز هذا الملف به تقريبا جميع الاختصارات الخاصه بالاكسيس تم توفيره من قبل ام عهود جزاها الله كل خير 💐 موجود عندى منذ زمن اطلع عليه ولكنى لم اجد ما تريد به ولعلى راجعته بشكل سريع ان لم تجد به ما تريد كما مررت به سريعا فلعل احد اخواننا واساتذتنا جزاهم الله خيرا عنده طريقه لذلك بالتوفيق اخى key.doc

وعليكم السلام يوجد استعلام الحاق باسم q اكتب رقم الفاتوره بالحقل بالنموذج ثم اضغط زر تنفيذ سيتم الحاق البيانات بالجدول tabl2 وعمل ريفرش وعرضها بالنموذج يمكنك بعد ذلك عمل استعلام حذف البيانات التى تم الحاقها بالجدول tabl2 من الجدول conform لم اقم بعمله لانك لم توضح هل تريد حذفها ام الابقاء عليها بالتوفيق استرجاع الفاتورة البيع.mdb

جزاك الله خيرا اخي محمد إن شاء الله سوف اجرب غدا بإذن الله واوافيك بالنتيجة 💐🌷🌹

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول للاستاذ جمال @Gamal.Saad و محمد @Barna 💐 واذا سمح اخوانى واساتذتى بالاستفسار بالنسبه لاستعمال الاوبجيكت كما اشرت سابقا لتذكرى مره قد قال اخى ومعلمنا العزيز جعفر استعمال الاوبجيكت يغنينا عن استعمال المكتبات ولكن عند تجربتها لم تعمل وعند استعمال المكتبات تعمل وبالبحث وجدت ان الاشاره للاوبجيكت لوحده ليس كافى بل يستخدم بعض المتغيرات ايضا ولعل اخواننا واساتذتنا يوضوحون

مشاركه مع اخى واستاذى @Gamal.Saad جزاه الله كل خير 💐 اخى الفاضل @khasem ما هو اصدار الاوفيس الذى لديك ؟ سيتم استدعاء المكتبه الذى اشار الاستاذ جمال اليك عليها كالتالى وتختلف من اصدار لاصدار يعنى فوق 14 ولدى 16 لان الاوفيس لدى 2016 ويمكن بدل استدعاء المكتبه Dim objFilePicker As FileDialog Dim objFilePicker As object بالتوفيق اخى

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

متابعه مع اخى واستاذى العزيز @اشرف جزاه الله خيرا اخى @بلال اليامين بعد تحديد الجداول والضغط على موافق ثم الضغط على نتوورك مثل هذا المسار \\Ashraf\1اشرف\قاعدة بيانات شير واختيار الجهاز السيرفر والدخول على المجلد المتشير ثم دبل كليك على قاعد البيانات كده تم الربط بنجاح هل تقوم بالدخول على مسار السيرفر عالنتوورك للربط ام ماذا ؟

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

السلام عليكم اخى @ازهر عبد العزيز مشاركه مع اخوانى واساتذتى @ابو تراب و @ابو ياسين المشولي جزاهم الله خيرا 💐 بالنسبه لهذا الاجراء فالماكرو كما تحب سيتم استخدام الخاصيه setproperty ولعدم التمكين نكتب اسم العنصر اى الحقل او الزر ثم نختار نوع الخاصيه وهنا ممكن والقيمه false وللتمكين مره اخرى تكون القيمه true تقبلوا تحياتى ومرورى اخوانى واساتذتى وفقكم الله azhr.accdb

واياكم اخى تنورنا اخى @فايز.. 💐

تامر اخى @فايز.. استخدمنا داله iif فى حاله ان الحقل n1 غير فارغ نفذ داله dlookup والا ضع 0 داله dlookup لجلب القيمه من الحقل piece بالجدول جدول القطع ( ولان جدول القطع متكون من كلمتين وبينهم مسافه فوضعناه بين [] ) الذى رقمه ID = n1 ولان حقل الرقم حقل رقمى فكتبناه "ID=" & [n1] اما لو كان نصى فسنكتبه كالتالى "ID='" & [n1] & "'" ارجو ان اكون قد وفقت للشرح اخى فايز وازيدك فالشرح لاساتذتنا جزاهم الله خيرا 💐 بالتوفيق