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

az2.accdb 608 kB · 1 تنزيلات الاستاذ المبدع ابو بسملة ماقصرت ربي يحفظك من كل سوء الاستاذ Abu Farid لن اعلق يكفي ما قالة الاستاذ ابو بسملة عن مشاركتك جزاكم الله عني كل خير

السلام عليكم من النموذج Fstudent احتاج عمل تقرير من البيانات التي تظهر بعد عوامل التصفية New Microsoft Access Database(1) (2).accdb

الاستاذ @أحمد الفلاحجى

استاذ @أحمد الفلاحجى سؤال ما الفرق بين الكودين علما انهما اعطا نفس النتيجة Me.RecordSource = "SELECT TBstudent.idstudent, TBstudent.nstudent, TBstudent.exam_result, TBstudent.Rate1, TBstudent.Rate2, ([Rate1]+[Rate2])/2 AS Rate3 " & _ " FROM TBstudent " & _ " WHERE (([Rate2]<50));" وهذا الكود لك Me.RecordSource = "SELECT TBstudent.idstudent, TBstudent.nstudent, TBstudent.exam_result, TBstudent.Rate1, TBstudent.Rate2, ([Rate1]+[Rate2])/2 AS Rate3 " & _ " FROM TBstudent " & _ " WHERE (((TBstudent.Rate2)<50));"

ما شاء الله عليك استاذي ابو بسملة روعة وشكرا لاضافة ازالة التصفية طلب اخر لو تفضلت نفس الموضوع مع الحقل RATE 2 بو اسطة الازرار RATE2 عمل تصفية

السلام عليكم في النمذج Fstudent احتاج عند الضغط على زر more than50 يظهر لي الطلاب الذين درجاتهم اكبر من 50 في الحقل RTE3 وكذلك عند الضغط على زر between اظهار الطلاب الذين تكون درجاتهم بين 70 و100 New Microsoft Access Database.accdb

شكرا الاستاذ المبدع kha9009lid جزاك الله عني كل خير

السلام عليم في النموذج جدول2 احتاج ان اجمع الحقل نص9 وهو عباره عن حقل محسوب ليس له مصدر بيانات بشرط تكون قيمة الحقل SE = TRUE اي محدد سابقا استطعت ان اجمعها باضافة حقل الى جدول3 وجعلته محسوب وخلصت من هاي الاشكالية لكني احتاج الان الى ان اجمعه بدون اضافة حقل الى الجدول هل من الممكن عمل ذلك time.accdb

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

ما شاء الله عليك استاذ @أحمد الفلاحجى """""كلمة شكرا قد لاتكفي ولكن دعوة بالغيب..........""""""

السلام عليكم في النموذج batt في الحقل nummed احتاج اظهار مجموع nummed في الجدول med بشرط ان يكون الحقل idlad في النموذج مساوي الحقل idlad في الجدول والشرط الاخر ان يكون المجموع فقط للسجلات التي يكون الحقل TYPEMED =onestar اي كمثال عندما يكون الحقل idlad في النوذج batt هو 1 يجب ان يكون مجموع الحقل nummed في النوذج يساوي 4 azhr_test_ahmed (4) (1).accdb

تم الحل بهذا الكود للاستاذ المبدع @محمد احمد لطفى Application.SetOption "Auto compact", True

السلام عليكم .... في المرفق نموذج للاستاذ المبدع Shivan Rekany عن كيفيفة ضغط واصلاح قاعدة البيانت المشكلة ان الكود يعطي نسخة بصيغة accdb وانا احتاجها بصيغة accde او اذا امكن الغاء عمل النسخة الاحتياطية والاكتفاء بالضغط والاصلاح compactInClose.accdb

اخي واستاذي @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