وعليكم السلام ورحمة الله وبركاتة
ادخل غلى ملف ثم خيارات قم خيارات قاعدة البيانات الحالية ستجد كما في الصورة نموذج بدئ التشغيل اذا كان موجود بالامكان تغيره اذا اردت الى نموذج اخر
اضف هذا الكود للحدث الذي تريدة
With CodeContextObject
If (IsNull(.Enddate) Or IsNull(.Strdate)) Then
Beep
MsgBox "error23", vbOKOnly, ""
End If
End With
السلام عليكم
لدي قاعدة بيانات يصيغة accbd تعمل بشكل طبيعي لكن عند تحويلها الى accde ينم التحويل لكن الاكواد البرمجية لاتعمل فقط الماكرو جريت التحويل على قاعدة بيانات اخرى لم اجد اي مشكلة فقط المشكلة في هذة القاعدة
ارجو الحل
اخي qathi عذرا لكن اين الاستعلامات في برنامجك فالاستعلامات هي افضل شئ في الاكسس عملت لك استعلام بسيط تستطيع معرفة الكمية المتوفره من خلالة من دون ان تقوم بانقاص الكمية في القائمة ولاني لا افهم طريقة عمل برنامجك عليك ان تستفيد من الحقل Expr1 في الاستعلام في برنامجك لمعرفة كمية الكتب المتوفرة فقط اضف هذا الحقل الى القائمة وضع الشرط المناسب في حال الكمية لاتسمح تحياتي
InvoiceSale_9.accdb
اعتقد ان الاساتذه هنا لايستخدمون اي واحدة من هذة في برامجهم ولكن لتسهيل الامر على السائل لانهم لابعرفون طبيعت برنامجه والدليل ما اشار به الاستاذ جعفر في مكان سابق بانة في احد برامجه اضظر لااستخدام هذة الطريقة لكنه رجع ووجد الخطا وانا عملت بنصيحته وبحثت ووجدت طريقة واستخدمت الكود التالي في بداية الحدث وتم حل المشكلة اضغه هنا لكي يستفاد الاعضاء الاخرين
If Fbookmain.Form.RecordsetClone.RecordCount = 0 Then
السبلم عليكم
لدي هذا الكود للبحث داخل النموذج
DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True
المشكلة اذا لم يكن هناك بيانات في النموذج تظهر لي رسالة بالخطا 2137
ارجو منكم المساعدة
السلام عليكم
لدي هذا الكود
rs.FindFirst "[bookname] = '" & stry & "'"
الحقل bookname حقل نصي موجود في تفس النموذج لكن اصبح الحقل موجود في نموذج فرعي اسم هاذا النموذج fbooksub داخل نموذج رئيسي هو fbookmain ماحناجة هو كتابة مسار النموذج الفرعي من خلال النموذج الرئيسي فكيف تكون كتاية الكود ارجو ان تكون الفكرة واضحة لكم جزيل الشكر
السلام عليكم
في النموذج الموجود احناج عندما يكون محدد السجلات على احد السجلات يتغير لون السجل بالكامل او احد الحقول ملاحظة لا اقصد عندما يكون التركيز على احد الحفول لكن عندما يكون محدد السجلات مركز على احد السجلات كما في الصورة
xy.accdb
السلام عليكم ,,,,, اعضاء منتدى اوفيسانا الاعزاء
لدي نموذج مكون من حقلان x , y قمت بتقسبم عدد الموجود في الحقل y على الغدد الموجود في الحقل x المشكلة لدي انة لايظهر الاعداد العشرية عند التقسبم كما في الصورة
xy.accdb
السلام عليكم
في النموذج fa يوجد نموذج فرعي fa1 يحتوي على مربع تحرير وسرد numb احتاج عند اضافة اسم غير موجود يتم اضافة في الجدول tbb تحت الحقل nameb وان تكون قيمة المفتاح numb في الجدول tbb مساوية للاسم الجديد التي تمت اضافتة
bl.accdb
السلام عليكم
لدي هذا الكود بظهر خطا عند تنفيذه ممكن تعدبل الخطا
="[Nameread]='" & [x1] & "'" And [dateread] Between Nz([Forms]![fmainreader]![x2]) And Nz([Forms]![fmainreader]![x3])
شكرا جزيلا استاذ @Moosak لعلي لم اوضح السوال بشكل صحيح احناج جلب قيمة الحقل totalbook في الجدول tblaibrery بشرط اسم الكتاب واسم القارئ في النموذج وشكرا على المرفق الرائع
السلام عليكم
لدي نموذج finfo يحتوي ثلاثة حقول اسم الكتاب اسم القارئ وحقل للنتيجة احتاج جلب عدد قرات الكتاب من الجدول tblibrarey بعد اختبار اسم الكتاب واسم القارئ في نفس النموذج
test5.accdb