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

جزاك الله خيراً أستاذى برنامج جميل

هذا حل و ياريت لو فيه حل أفضل يتم تقديمه Photo.rar

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

وجدت برنامج و لكنه يقوم بنقل ما يتم تحديده كيف ننقل جميع ملفات الصور المضافة للاسماء فى قاعدة البيانات الى مكان يتم تحديده نسخ الملفات.rar

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

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي

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

ان شاء الله

أستاذى @أبو إبراهيم الغامدي اولا سوف أقوم بمنع التكرار و هو موجود بالفعل فى النموذج الذى اعمل عليه ثانيا النموذج الاخير يقوم بتغيير الاسم فقط و لا يقوم بتغيير الصورة ارجو التعديل على الكود التالى أن يحذف الامتداد (jpg)حيث هناك صور "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 = OldImage 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

أستاذى العزيز @أبو إبراهيم الغامدي الان عند تغيير الاسم له صورة لا يغيير اسم الصورة 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 = OldImage 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 هذا كان يعمل و المشكلة حدثت عندما حذفنا نوع ملف الصورة

أستاذى @أبو إبراهيم الغامديانا عدلتها عند تغيير اسم ليس له صورة لا تحدث مشكلة ..., ولكن تحدث مع الصور التى لها صورة

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

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي عند تغيير الأول.. الجزء الأصفر من الشفرة غير 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 ممكن العمل يكون على النموذج الاصلى المجدول و مكان الصوة ايضا من الاستعلام بحيث قد يكون لكل ادارة مثلا ملف وجزاك الله خير