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

شكرا جزيلا

السلام عليكم في النموذج الرئيسي ftest1 يوجد حقل مربع تحرير غير منضم Amino_Acidu يحتوي كود Private Sub Amino_Acidu_AfterUpdate() DoCmd.GoToControl "FTest2" DoCmd.GoToRecord , , acNewRec FTest2!Amino_Acid = Amino_Acidu FTest2!Molecular_formulaT = FTest2!Molecular_formula FTest2!Molecular_weightT = FTest2!Molecular_weight FTest2!pKa_a_COOHT = FTest2!pKa_a_COOH End Sub المشكلة ان عند الاختيار من هذا الكود اسم تلمض جميع الازرار في النموذج بمعنى ثقل بمعالجة الامر لن تلحظوا هذا الشئ في هذا النموذج لانة جزء بسيط من نموذج اكبر ارجو منكم المساعدة في ايجاد بديل لهذا الكود او طريقة لمعالجة هذا الثقل Amino.accdb

اختي العزيزة اعملي الجدول وادخلي البيانات لكي يساعدك بقية الاعضاء في طلبك

بالتوفيق ان شاء الله

وعليكم السلام 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 هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات