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

شكرا جزيلا استاذ @Moosak لعلي لم اوضح السوال بشكل صحيح احناج جلب قيمة الحقل totalbook في الجدول tblaibrery بشرط اسم الكتاب واسم القارئ في النموذج وشكرا على المرفق الرائع

السلام عليكم لدي نموذج finfo يحتوي ثلاثة حقول اسم الكتاب اسم القارئ وحقل للنتيجة احتاج جلب عدد قرات الكتاب من الجدول tblibrarey بعد اختبار اسم الكتاب واسم القارئ في نفس النموذج test5.accdb

شكرا تم الحل <>[Forms]![Form1]![Text0]

السلام عليكم في النموذج الموجود مريعي تحرير وسرد لهما نفس مصدر البيانات كيف اجعل مربع التحرير والسرد الثاني يستثني الاسم الذي تم اختيارة من مربع التحرير والسرد الاول يمعنى عند اختيار كمثال من مريع تحرير وسرد الاول x1 وعند الاختيار من مريعي تحرير وسرد الثاني لن يظهر x1 ضمن الاختيارات test336.accdb

السلام عليكم في النموذج fmento يوجد نموذجان فرعيان fo , fi احتاج عند ادخال بيانات في النمذوج fo يتم ادخال نفس البيانات في النموذج fi وكذلك عند تحديث هذة البيانت في النموذج fo يتم تحديث البيانات في النموذج fi ينفس التحدبث وكذلك عند حذق البيانات في النموذج fo يتم حذف هذة البيانات من النموذج fi ملاحظة ادخال البيانات وتحديثها يتم فقط للحقول re , qd , mn test333.accdb

لالغاء رسالة تاكيد الحذف Dim InBox As String On Error Resume Next InBox = InputBox("أدخل كلمة المرور لتأكيد الحذف", "خاص بالادارة") If InBox = 9999 Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings Treu Else MsgBox "كلمة مرور خاطئة" End If

وعليكم السلام ضع حقل غير منظم في النموذج واعطة اسم كمثال textpassword ثم ضع الكود التالي عند الحذف if me.textpassword = 9999 then DoCmd.RunCommand acCmdDeleteRecord else msgbox "error password" end if ستكون كلمة السر 9999 وهناك طرق اخرى حسب احتياجك

numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield else call Undo Me.fash.SetFocus End If End If

بانتظار الشرح استاذنا المبدع

numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield else Me.fash.SetFocus End If End If

اعداد اللغة عند العميل تختلف عن اعداد الجهاز الذي صم علية البرنامج

Book1.xlsx

تفضل الحل هنا

فاتورة.accdb

اين الموضوع

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

في القاعدة البيانات في المرفقات في النموذج frmpassworddb يوجد زر احتاج عند الضغط علة هذا الزر يتم انشاء باسورد لقاعدة البيانات الحالية يمعنى يعد ضغط الزر و عند اغلاق النموذج frmpassworddb واغلاق قاعدة البيانات وبعد فتحها مرة اخرى يتم المطالبة بالباسورد passworddb.accdb

سؤال استاذ @Moosak لو سمحت لماذا تم وضع خمس اصفار في حقل التنسيق لماذا لم نضع صفران مثلا

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

السلام عليكم هل يوجد كود يضيف باسورد للاكسس كما في الصورة دون الدخول للاعدادت

قاعدة بيانات.accdb

مشعوذ

بالنسبة لك بديهيات جزبل الشكر غلى هذا الشرح الوافي

بالتوفيق با اخي جعلة في ميزان حسناتك

قي التقرير عند التصميم اذهي الة هذا الزر