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

وعليكم السلام If (FRM = "F1") Then DoCmd.OpenForm "F1", acNormal, "", "", , acNormal ElseIf (FRM = "F2") Then DoCmd.OpenForm "F2", acNormal, "", "", , acNormal ElseIf (FRM = "R1") Then DoCmd.OpenReport "R1", acViewReport, "", "", acNormal ElseIf (FRM = "M1") Then DoCmd.RunMacro "M1", , "" End If test (1).accdb

وعليكم السلام Dim strPasswd Dim stDocName As String Dim stLinkCriteria As String On Error GoTo Err_Command6_Click_Error strPasswd = InputBox("Enter Password", "Restricted Form") If strPasswd = "" Or strPasswd = Empty Then MsgBox "لا لم تدحل كلمة المرور", vbInformation, "Required Data" Exit Sub End If If strPasswd = "12345" Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Else MsgBox "ليس لك الحق بالوصول", vbOKOnly, _ "Important Information" Exit Sub End If Exit_ErrorHandler: Exit Sub Err_Command6_Click_Error: If Err.Number = 2501 Then MsgBox "Delete action cancelled" Resume Exit_ErrorHandler Else MsgBox "Error " & Err.Number & " (" & Err.Description & _ ") in procedure Command6_Click of VBA Document Form_T2 at Line " & Erl Resume Exit_ErrorHandler End If base_pass.accdb

نعم بدون استخدام كود الاستاد الوزير لانة حسب اعتقادي اعتقد انك تريدها باستخدام الكود وليس استعلام

لن تتاثر القاعدة المقسمة وستكون النتيجة واحدة

الافضل استخدام استعلام واعتدر ان لم يكن المطلوب تفضل لعلة المطلوب تعديل القيمة الافتراضية.accdb

محاولة مني القيمة الافتراضية.rar

السلام عليكم لدي جدول يحتوي حقول k= 40 , e =100 , t= 8.5 , m=110 , c= 7 , b =2% , a = 7.5 احتاج اظهار النتيجة في حقل اخر كما في الصورة سواء بواسطة نموذج او استعلام وجزاكم الله خير الجزاء ra.accdb

1366 *768

زادك الله علما وعافية

صحيح استاذ حاولت تغير اسم الموضوع الى (التعامل مع المجلدات في اكسس) لكني لم استطيع ارجو من ادرارة المنتدى تغييرة ليكون مرجع مفيد لمن يبحث عن موضوع مشابة

الاستاذ @Foksh , @محمد احمد لطفى , @kkhalifa1960 طلب اخير او قبل الاخير هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل BookName

جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها

شكرا جزبلا اخي ملاحظة كان لدي سؤال نقريبا قبل ثلاثة سنوات لنفس سؤالك الطريف بالامر انة انت من قام بالاجابة عن السؤال بنفس الكود لاجابتي حاولت اجده لم افلح لكثرة مشاركاتي

تمام استاذ لمشكلة عندي انتم وضعتم MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA غيرتة الى MkDir CurrentProject.Path & "\Library1\BOOKS\" & FolderA الان تمام الاستاذ @محمد احمد لطفى الاستاذ @Foksh تعجز الكلمات عن الشكر لكن طلب اخر ارجو ان يتسع لي احتاج كو تحت زر لفتح هذا الفولدر الذي بتم انشائة

اسف استاذ لم يعمل لا اعرف السبب هل قمت بتجربتة

لم يعمل الكود عندي @Foksh ارجو حل المشكلة

ظهرت لي هذة المشكلة

ما شاء الله عليك اخي احسنت زادك الله علما وعافية طلب اخر يا اخي القلولدرات Libraries , Library1 , BOOKS دائما ستكون موجودة بجانب القاعدة لا احتاج الى التاكد من وجودهن ممكن اختصار الكود الاخير لو تفضلت بحسب المطلوب

اتعبتك يااخي لكن ممكن شرح لهذا الكود If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & FolderA

جزاك الله كل خير اخي ماذا لو تم نغير المسار بالكامل مستقبلا C:\Libraries\Library1\BOOKS الى D:\Libraries\Library1\BOOKS هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات

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

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb

السلام عليكم لدي هذا المسار C:\Libraries\Library1\BOOKS اريد انشاء فولدر داخل الفولدر BOOKS من خلال الزر الموجود بحسب الاسم المدخل في مربع النص الموجود في النمودج Libraries.rar

السلام عليكم لدي نموذج يحتوي زر وحقل احتاج عند النقر على الزر الموجود يضيف رقم عشوائي محصورة بين 0 الى 73 بشرط ان بتم ادراج الارقام المحصورة كافة وعند انتهاء الارقام يعيد من جديد بمعنى عند الضغط اولا تكون قيمة الحفل الرقم مثلا 44 وعند الضغط مرة ثانية يكون قيمة الحقل مثلا 55 الى ان تنتهي الارقم 72 test200.accdb