nogom

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

تم حل المشكلة والحمد الله الله يعطيكم العافية

اي صح

قمت بالمسح ولكن لا يحفظ التغيير

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

وهي المرفق فورم اسمو Rename

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

يسلمو اخ احمد الله يعطيك العافية يارب

استاذ احمد انا عارف اني دايقت هاد الكود عشان الملف الثالث strFolder = CurrentProject.Path & "\archiving" & "\Me.Text99" & "\" & "10-1" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then Else End If End If بس ما زبط معي

زبطت معي اخيرا الله يعطيك العافية استاذ احمد

اخي احمد الاكواد يلي عطيتني اياها شغاله معي تمام وتم انشاء الملفين Image\Test ولكن عندما قمت بتغير الــ TEST وضعت مكانه التاريخ السنة كما ذكرت انت انو اقوم ب عمل حقل واضع هذا الكود "" & Me.YearName & "" ولكن ظهرت هذه المشكلة كما فالصورة

يسلمو كتير جاري التجربة شكرا لك استاذ احمد

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

يعطيك العافية اخ احمد هذا الكود رح يكون على زر صح انا اريد عند فتح الفورم ينشأ المجلد مثلا C:\Archif\2018/Image حيث ان مجللد ال 2018 ينشأ على حسب السنة اتوماتيكيا

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

السلام عليكم اريد كود يقوم بسحب الاوراق بصيغة PDF مع تسمية الملف من الحقل المسجل في الاكسس مع تحديد مكان الحفظ او الحفظ تلقائي في مجلد معين

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

للرفع

السلام عليكم ورحمة الله وبركاته اخواني عندي فورم فيه قائمة منسدلة وزر اضافة عند الاختيار من القائمة وضغط زر يتم اضافة على حقل غير منضم اليكم الصورة الاضافة شغاله تمام ولكن عندي كم مشكلة فيها 1- عندي الانتهاء من الاضافة كما موضوع بالصورة أعلاه واريد اضافة المزيد سوف تظهر رسالة انه يذهب ويكوتب في جدول الملاحظات المشكلة عند حذف حقل او حقلين بغض النظر عن العدد واريد اضافة مرة اخرى تظهر رسالة كما بالصور 2- المشكلة الثانية وهي عند حذف احد الحقول مثلا ( حذفت حقل من المنتصف اريد ان يقوم بترتيب هذه الحقول كما بالصورة اريد الترتيب عند الحذف 3 -المشكلة الاخيرة وهي ضفت ممثلا 3 حقول وحذف الحقل الثالث واريد الاضافة مرة اخرى يقوم باضافة الحقل الرابع كما بالصورة والصورة اللتالية بعد الحذف والاضافة ياريت تفيدوني مرفق لكم كود زر الاضافة New Text Document.rar

ياريت احد يفيدني

شكرا على مرورك ورد علي طلبي ولكن شوف الصورة المرفقة ووضفعت هذا الكود على الزر اضافة الامر شغال وكلة تمام ولكن If IsNull(Me.Text183) Then Me.Text183 = Me.Combo181.Column(0) Me.Text183.Visible = True Me.Image218.Visible = True Me.Combo181 = Null ElseIf Not IsNull(Me.Text183) And IsNull(Me.Text185) Then Me.Text185 = Combo181.Column(0) Me.Text185.Visible = True Me.Image219.Visible = True Me.Combo181 = Null Else MsgBox "Please write the rest of the projects to be added in the notes", vbInformation, "Warning" DoCmd.CancelEvent End If ولكن مثلا اذا كان الحقول جميعها ممتلأه وقمت بحذف الرقم 5 كما بالصورة اريد عندما يتم حذف اي احد من العناصر يترتب كما بالصورة ايضا بعد ما تم الحذف رقم 5 واريد ان اضيف مرة تظهر رسالة انو اذهب الى قسم الملاحظات ولكن يوجد خانة خالية اريد هذه الرسالة لا تظهر إلى بعد ان تكون هذه الحقول كلها ممتلأ وعندما يتم حذف اي من هذه الحقول لا تظهر الرسالة مع امكانية الاضافة في هذه الحقول ايضا لما اقوم بمسح حقل واريد الاضافة يتباع على اخر حقل اضافته يعني ضفت رقم 1 و 2 و 3 وقمت بمسح رقم 3 وجيت اضيف يضيف حقل 4 وليس 3