ازهر عبد العزيز

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

السلام عليكم .... احتاج كود ضغط واصلاح قاعدة البيانات للاوفيس 2016 او 2019

مبدع كالعادة استاذ ابو بسمله

السلام عليكم ................ عندي نموذج FB يحوي حقل a1 كيف اجعل قيمتة الافتراضية تساوي قيمة الحقل a1 في النموذج FA عند فتح النموذجين معا New Microsoft Access Database.accdb

الاستاذ المبدع kha9009lid

السلام عليكم هل بالامكان الغاء عمل الزر ctrl+o في الاكسس او منع المستخدم من تغيير واجهة الدخول الرئيسية للبرنامج عن طريق خيارات قاعدة البيانات الحالية

السلام عليكم تم الحل لم استطع الا بعد انشاء حقل محسوب في الجدول3

السلام عليكم في النموذج رقم2 احتاج ان اجمع الحقل نص9 عندما يكون الحقل se = true حاولت مع كود الاستاذ جعفر الذي نجح معي سابقا لكن هنا لم يعمل لا اعرف السبب ارجو المساعدة =Sum(IIf([se]=true;[نص9];0)) time.accdb

ققق

السلام عليكم في الخطأ مسحت قاعدة بيانات من سطح المكتب الاكسس 2016 هل لديكم قكرة او برنامج جيد لاستعادتهن

شكرا لكم تم الحل وضعت احد الاكواد في حقل قبل التحديث فلم اعد بحاجة الى دمج الكودين

السلام عليكم احتاج ان ادمج الكودين معا في كود واحد والتعديل على الكود ان وجد الكود الاول Private Sub viruseid1_AfterUpdate() If Forms!testuf!txtRoom = "x" Or Forms!testuf!txtRoom = "y1" Then Me.viruseM = Me.virusT Else Me.viruseM = Me.virusL End If End Sub الكود الثاني On Error Resume Next If Me.NewRecord = True Then Dim strWhere As String, strMessage As String strWhere = "[idViruses] = '" & Me![viruseid] & "'" Me.RecordsetClone.MoveFirst Me.RecordsetClone.FindFirst strWhere If Me.RecordsetClone.NoMatch = False Then strMessage = "The name of the virus is duplicate" lResponse = MsgBox(strMessage, vbOKOnly + vbCritical) If lResponse = vbOK Then Cancel = True Me.Undo Me.Bookmark = Me.RecordsetClone.Bookmark End If End If End If

الاستاذ الغالي husamwahab احسنت زادك الله علما لو تكرمت ممكن دمج هذين الكودين معا في كود واحد Private Sub viruseid1_AfterUpdate() If Forms!testuf!txtRoom = "x" Or Forms!testuf!txtRoom = "y1" Then Me.viruseM = Me.virusT Else Me.viruseM = Me.virusL End If End Sub >>>> On Error Resume Next If Me.NewRecord = True Then Dim strWhere As String, strMessage As String strWhere = "[idViruses] = '" & Me![viruseid] & "'" Me.RecordsetClone.MoveFirst Me.RecordsetClone.FindFirst strWhere If Me.RecordsetClone.NoMatch = False Then strMessage = "The name of the virus is duplicate" lResponse = MsgBox(strMessage, vbOKOnly + vbCritical) If lResponse = vbOK Then Cancel = True Me.Undo Me.Bookmark = Me.RecordsetClone.Bookmark End If End If End If

السلام عليكم عندي نموذج testuF يحتوي حقل viruseid1 كيف امنع تكرار الاسم في الحقول وايضا عند اختيار الاسم في حقل viruseid1 وكان مربع التحرير ROOM = X اوY1 تكون قيمة الحقل virusM = قيمة الحقل virusT وبخلافة تكون قيمة الحقل virusM =قيمة الحقل virusL TEST.accdb

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

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

تفضل اخي لعلة المطلوب Database.accdb

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

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

استاذي @أحمد الفلاحجى شكرا جزيلا وهو المطلوب

بالنسبة لاحتساب السجلات تم الحل باقي التواريخ لو سمحتم

السلام عليكم في النموذج fbbb في الحقل w احتاج عند الضغط على التاريخ يظهر لي الوقت اي الساعة التي كانت في ذلك التاريخ وفي الحقل e احتاج اظهار التاريخ والوقت معا اي السنة والشهر واليوم والساعة والدقائق مسائا او صباحا وايضا كيف احسب مجموع السجلات الكلي في النموذج واحتساب مجموع السجلات التي تكون غير محددة في الحقل se و اعتذر للاطالة DEL.accdb

شكرا جزيلا استاذ @ناقل احسنت هل بالامكان اضافة رسالة تحذيرة قبل الحذف

السلام عليكم ...... لدي نموذ FBBB كيف احذف السجلات التي يكون مربع الاختيار علية علامة صح وايضا كيف احسب السجلات التي يكون خانة مربع الاختيار صح DEL.accdb

الاستاذالمبدع @أحمد الفلاحجى والاستاذ @حلبي شكرا جزيلا لكما