solomoon

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

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

السلام عليكم ورحمة الله رمضان مبارك من فضلكم محتاج كود يساعدني على حفظ تعديلات اجريت على بيانات في نموذج فرعي انطلاقا من الضغط على زر حفظ في نموذج آخر مستقل ارفقت صورة وملف المشروع شكرا لكم مسبقا bd_Jahiz - Copie.rar

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

السلام عليكم ورحمة الله الاخوة الافاضل الكرام كيف يمكنني جعل البرنامج يرفض القيم السالبة في حقل محسوب في نموذج رفقته قاعدة البيانات النموذج R_33 هو الذي اريده عدم قبول القيم السالبة في حقل "الباقي" شكرا لكم C16.rar

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

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

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

السلام عليكم ورحمة الله المرجو مساعدتي بتصحيح الكود التالي والمتعلق بتغيير كلمة مرور المستخدمين وشكرا لكم Private Sub Command6_Click() On Error Resume Next Dim z As String z = Nz(DLookup("[passe]", "login", "utilisateur=Forms!changepass!utilisateur")) If IsNull(utilisateur) Then 'MsgBox "رجاء أدخل اسم المستخدم" Beep ms$ = "الحقل الخاص باسم المستخدم فارغ" ti$ = "انتباه" re = MsgBox(ms$, 0, ti$) DoCmd.GoToControl "utilisateur" Else If IsNull(passe) Then MsgBox "رجاء أدخل كلمة السر" DoCmd.GoToControl "passe" Else If IsNull(zxx) Then MsgBox "المرجو إدخال كلمة السر الجديدة" DoCmd.GoToControl "zxx" Exit Sub End If End If End If If Me.passe = z Then DoCmd.SetWarnings False DoCmd.OpenQuery "Q" DoCmd.SetWarnings True MsgBox "تم تغيير كلمة السر بنجاح" utilisateur = "" passe = "" zxx = "" Else MsgBox "خطأ فى اسم المستخدم أو كلمة المرور", vbOKOnly, "صلاحيات المستخدمين" passe = "" DoCmd.GoToControl "passe" End If End Sub

السلام عليكم ورحمة الله الملف المرفق مثال لاستعلام كان يشتغل قبل دخول السنة الجديدة (2019) لكنه توقف لا ادري لماذا؟ المرجو المساعدة وتصحيح الاستعلام ان كان به خطأ ما 444.accdb

جزاك الله خيرا أبا عبد الله الحلواني الامر اشتغل كما احب احسن الله اليك (ارجو ان تصحح في الوصف عندك من هاوي برمجة الى "محترف برمجة") نفع الله بك وبأمثالك

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

للاخوة الافاضل الذين طلبوا المثال ارفقته وشكرا على المساعدة 888.rar

السلام عليكم ورحمة الله الاخوة الافاضل الكرام عملت الكود التالي: If [RS] = "0" Then "RT] = "oui] "Else: [RT] = "non End If الكود يشتغل في حالة حقل نص مستقل لكنه لا يعمل اذا كان الحقل محسوب بمعنى ان RS حقل محسوب مبني على عملية طرح فإذا كانت قيمته صفر فإن الحقل RT يجب ان تظهر به القيمة "oui" والعكس اذا اختلفت عن الصفر تظهر القيمة "non" افيدوني من فضلكم

الاخ الفاضل ابو خليل شكرا لمجهوداتك معي ربمااقول اني تحايلت على اكسس كي انفذ ما اريد وذلك بفعل التالي: اولا قمت بتحويل ماكرو الحذف الى كود vba واضفت كود الحديث الذي ارسلت الي (ومشكور جدا على الكود نفعتني احسن الله اليك) بعد ذلك انشأت ماكرو وقلت له ايتيني بالدالة (دالة الحذف المتضمنة لكود التحديث) وهكذا تم الحذف والتحديث كما كنت ارغب نعم شكرا لك وجعل مساعدتك لي في الميزان اللهم امين المنتدى ناجح برجال امثالك يا استاذ ابو خليل نفع الله بك تحياتي