ابو جودي

اتفضلى يا افندم انا اسف نسيت ارفق قاعدة البيانات New Microsoft Access Database.accdb

الشرح اعلنت عن ثابت باسم cnsDefaultStartID واسندت اليه القيمة >---> 1 ليكون هذا الرقم المفضل الذى يبدأ به الترقيم ليه عملت الحركة دى علشان لو الجدول settings_general_tbl انحذف منه القيمة التى يبدأ بها الترقيم يحل هذا الثابت مكانه اعلنت عن متغير باسم lngGetStartID من خلاله يتم التحقق من القيمة فى الجدول settings_general_tbl والتى نريد بدأ الترقيم بها والتى يتحكم فيها المستخدم عند الاستخدام الاول لقاعدة البيانات فى حالة عدم وجود سجلات فى الجدول reservation_tbl التحقق من قيمة بدأ الترقيم الافتراضية من الجدول settings_general_tbl واسناد قيمته الى المتغير lngGetStartID وفى حالة عدم وجود قيمة نسد اليه القيمة من الثابت cnsDefaultStartID lngGetStartID = Nz(DLookup("ID_serial", "settings_general_tbl"), cnsDefaultStartID) استخدام دالة DCount للتحقق من عدد سجلات الجدول reservation_tbl لو كانت 0 اى لا يوجد سجلات نسند قيمة بدأ الترقيم الافتراضية من خلال المتغير lngGetStartID الى اسم الروتين SpID ونخبره بعدم استكمال الكود Exit Function If Nz(DCount("*", "[reservation_tbl]"), 0) = 0 Then SpID = lngGetStartID: Exit Function اذا لم يتحقق الشرط السابق اى ان الجدول يتحوى على سجلات سوف يتم استكمال الكود بالوضع الطبيعى لاى ترقيم اسم الروتين SpID نسند اليه قيمة الترقيم من خلال استخدام دالة DMax للحصول على اكبر قيمة ثم نقوم بحمع الرقم 1 ليتم عمل تسلسل الترقيم SpID = DMax("[ID]", "[reservation_tbl]") + 1 وبكده ينتهى شرح الروتين استدعار الوتين ابسط من البساطه فى زر الامر اضافة سجل جديد هذا السطر لاضافة سجل جديد DoCmd.GoToRecord , , acNewRec بعد ذلك هذا السطر عبارة عن اسم عنصر التحكم فى النموذج ( مربع النص ) والذى نريد وضع قية الترقيم التلقائى فيه = اسم الروتين السابق وهو SpID ID = SpID ا

طيب الكود والشرح نستخدم الروتين الاتى Public Function SpID() Const cnsDefaultStartID As Long = 1 Dim lngGetStartID As Long lngGetStartID = Nz(DLookup("ID_serial", "settings_general_tbl"), cnsDefaultStartID) If Nz(DCount("*", "[reservation_tbl]"), 0) = 0 Then SpID = lngGetStartID: Exit Function SpID = Dmax("[ID]", "[reservation_tbl]") + 1 End Function وزر اضافة سجل جديد سوف نضع فيه DoCmd.GoToRecord , , acNewRec ID = SpID

اشرح لك نظرى وتطبقى واللا اكتب لك الكود

انا مش معترض والله بس انتى قصدك يبدأ اول مره بس عند الاستخدام الاول ؟! صح كده

طيب ركزى معايا نظريا كده علشان تفهمى حضرتك عملتى ايه حضرتك عملتى الدلة تروح للجدول settings_general_tbl وتجيب القيمة اللى فيه +1 ودى القيمة الافتراضية على مربع النص فى النموذج يعنى دايما هتكون كده طيب القيمة x+1 بتتسجل فى جدول reservation_tbl طيب المفروض عند الاضافة الجديدة ياتى بالقيمة الاخيرة من الجدول reservation_tbl ثم يجمع عليها 1 طبعا هذا لا يتم حبة تركيزعلى اعتبار اننا فكرنا فى حل لو القيمة فى الجدول reservation_tbl = 5 يعنى تم استخدام الارقام 1 , 2 , 3 , 4 , 5 ما العمل لو المستخدم اراد بدء الترقيم من 3 مثلا ؟؟؟؟ طيب كيف ابنى الترقيم هل بناء على اعلى واخر قيمة فى الجدول reservation_tbl طيب لو اراد المستخدم بدء الترقيم امتى وازاى نفهم البرنامج يبدء من ترقيم المستخدم اذا كان انا توهت ومش فاهم يبقى هأفهم البرنامج ايه وازاى وامتى بعد ما حضرتك تقرائى وقبل ما تردى على شوفى الموضوع ده وبعدين نكمل يمكن تلاقى طلبك بدون تعب

اعتذر عن تأخرى فى الرد على استاذى الجليل ومعلمى القدير العفو منكم استاذى انا طويلب علم ينهل من ربوع وانهار وفيض علمكم الوفير وتحت امر حضرتك من عيونى طلبات حضرتك أوامر

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

طيب ممكن سؤال ؟ يا استاذه @safaa salem5 ممكن افهم ليه المستخدم يكون عندة اتاحة اختيار رقم بدء الترقيم ؟!

انت ؟!...هههههه انت هتقول لى عليك المنتدى منور بأهله واحبابه وبيكم .. انتم الثريا و الضياء الذى ينير دروب طلاب العلم وظلمات جهلهم .. جزاكم الله خيـــــرا

يا ترى اساتذتى الكرام الحلوين الاستاذ @kanory والاستاذ @Foksh 😡 بتضحكوا على علشان مبفهمش بسرعة واللا علشان مبفهمش اصلا هههههههه 🤪

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

المشاركة اللى وضعتها للاستاذ @jjafferr قام فيها سيادته بعمل كود لانشاء زر الامر وكذلك وضع الحدث لهذا الزر اقرأ المشاركة وانظر الى المرفقات

بسيطه قم بتفريغ مربع السرد واضغط انتر

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

على النموذج وفى مربه نص ضع السطر الاتى =FileName([id],[worker]) وبالنسبة للكود السابق يكون كالاتى If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" End If Dim oldpathANDname As String, newpathANDname As String 'oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" 'newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" oldpathANDname = FileName([id],[worker]) newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname) Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If

اى شخص لم يقم بإعداد برنامج Adobe Acrobat Reader على حاسبه سوف يواجه مشكلة بفقد المكتبة التى تخصه ولن تهمل مهخ القاعدة زى كده ممكن تقول يعنى ايه التبديل بين الثلاث امتدادت ياريت توضيح اكثر

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

طيب منا عارف انا سيبتك تجرب علشان تحاول تقدر تعرف المشكلة من فين المشكلة طبعا ان حضرتك ثبت الامتداد على المسار oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" طبعا كده لن يتغير لانه دايما سوف يكون jpg وعلى قاعدة انسف حمامك القديم دعنا نبدأ من البداية انت تريد زر امر يحدد لك صورة الموظف ثم ينقلها الى المجلد الذى تريده صح واللا غلط ؟َ

اتفضل يارب اكون فهتمك loseNumber(4).accdb

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

استخدم الكود كالاتى If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" End If Dim oldpathANDname As String, newpathANDname As String 'oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" 'newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname) Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If

اتفضل test.accdb

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

هل ذلك يحقق طلبك ؟َ loseNumber(3).accdb