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

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

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

السلام عليكم احتاج كود اذا كان الحقل في النموذج ftest يحتوي ارقام فقط تظهر رسالة تنبيهية بهذا test.accdb

شكرا جزيلا

السلام عليكم في النموذج الرئيسي 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 ارجو حل المشكلة

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