محمد احمد لطفى

أستاذى @أبو إبراهيم الغامدي ظهرت هذه الصورة عند تغيير الاسم لموظف له صورة

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي عند تغيير الأول.. الجزء الأصفر من الشفرة غير NewImage إلى OldImage  لم يحدث مشاكل هل يمكن حذف الامتداد حيث هناك صور "jpeg" أو Png

أستاذى @أبو إبراهيم الغامدي تم تغيير الكود الى Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & Me.Worker & ".jpg" Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub 'D:\Photo\123 Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim OldImage As String Dim NewImage As String OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & Me.Worker & ".jpg" If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = NewImage ElseIf Len(Dir(NewImage)) > 0 Then MsgBox Dir(NewImage) & vbNewLine & "يوجد صورة سابقة بنفس الاسم..", _ vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Me.Undo Else Name OldImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub تبقى عند تغيير اسم لا يوجد له صورة يأتى خطأ و اذا امكن حذف الامتداد حيث هناك صور "jpeg"

أستاذى @أبو إبراهيم الغامدي ممكن أستأذن حضرتك تغيرها ذى ما موجودة بالمثال الاخير لانى معنديش خبرة كويسة فى الاكواد و منها نتعلم Photo.rar

جزاك الله خيرا استاذى @أبو إبراهيم الغامدي أرى انها تعمل اذا كانت الصور فى نفس الملف ولكن اذا كانت الصور فى ملف أخر كيف يصبح الامر

للرفع قد يساعد To Change the Name of the Attachment in Access Private Sub Command15_Click() Dim NewName As String Dim NewNameWithExt As String NewName = Me.TestID.Value NewNameWithExt = NewName & ".txt" DoCmd.RunSQL ("UPDATE TestTable SET TestAttachment.FileName = '" & NewNameWithExt & "' WHERE TestID = " & NewName) End Sub To Change the Name of the File on the Desktop Private Sub Command0_Click() Dim NewName As String Dim OldName As String Dim rs As Object Dim strSQL As String Set rs = CreateObject("ADODB.Recordset") strSQL = "SELECT TestAttachment.FileName FROM TestTable WHERE TestID = 1" rs.Open strSQL, CurrentProject.Connection, 1, 3 Do Until rs.EOF OldName = rs.Fields(0) NewName = CurrentDb.TableDefs("TestTable").Fields(0).Name Name "C:\Users\TestUser\desktop\" & OldName As "C:\Users\TestUser\desktop\" & NewName & ".TXT" rs.MoveNext Loop rs.Close Set rs = Nothing End Sub و موضوع اخر https://www.devhut.net/2010/09/27/ms-access-vba-rename-file/ و موضوع أخر Do Loop for renaming files in folder وموضوع اخر MS Access VBA loop through query and rename files موضوع اخر Rename files from VBA based on a query معنديش خبرة للاسف انى أطبق

نعم استاذى

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

للرفع

السلام عليكم ورحمة الله و بركاته كيف يمكن عند تغيير الاسم و المقصد هو تعديله لوجود خطأ أن يعدل اسم الصورة التى على الحاسب وجزاكم الله خيراً Photo.rar

شكرا أستاذى

السلام عليكم ورحمة الله و بركاته كيف يمكن ظهور صور محددة عندما لا يكون للموظف صورة على الجهاز و الصورة مرفقة No وجزاكم الله خيراً Photo.rar

شكراً أستاذى @jjafferr جزاك الله خيراً سوف أكتفى بالوحدة النمطيه حل مشكلة عدم ظهور صورة jpeg

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

السلام عليكم ورحمة الله و بركاته أعمل على عرض صور الموظفين يوجد فى الاستعلام مكان الصور جاهز ودائما امتداد jpg لكى تعمل الصورة فأنا أريد اضافة اكثر من امتداد حتى يعمل البرنامج مثلا jpg أو jpeg أو يقرأ البرنامج الامتداد تلقاء نفسه و أعتقد أنه سيقوم بتقل للبرنامج أرجو عمل ما يفيد وجزاكم الله خيراً Photo.rar

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

شكرأ أستاذى @AlwaZeeR Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To 1000 If Not IsNull(idx) Then Me.idx = DateAdd("d", i, 1) - 1 DoCmd.GoToRecord , , acNext End If Next DoCmd.Requery توصلت الى حل بدون عمل مربع نص

أساتذتى الكرام لا اريد الكود أن يكون له علاقة مع جدول و استعلام لقد وجدت حل باستخدام هذا الكود Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To 8 Me.idx = DateAdd("d", i, 1) - 1 DoCmd.GoToRecord , , acNext Next DoCmd.Requery و لكن أريده ان يتوقف بانتهاء السجلات بالنموذج و ليس عند تحديده For i = 1 To 8 وجزاكم الله خيراً test550055vv5522.rar

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

أستاذى @AlwaZeeR ممكن بعد اذنك الترتيب ميكونش ليه علاقة بخلية NAmex التأثير على Id فقط يعنى اول خلية 1 و الثانة 2 و هكذا

السلام عليكم ورحمة الله و بركاته مطلوب عند الضغط على الزارا (هنا) يبدأ البرنامج بتغير الارقام (اعادة ترقيم) بداية من 1 , 2 , 3 , 4 , 5 و هكذا وجزاكم الله خيرا test550055.mdb

هنا

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

أستاذى @عبد اللطيف سلوم أرجو تصليح الخطأ وجزاك الله خيراً اوفسنا تلقائي (1).rar

تم عمل جدول به خانة اختيار وجعلها مصدر بيانات فى النموذج و ممكن استاذى ابا جودى يكون له فكرة افضل والله اعلم