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

[أبو إبراهيم الغامدي]

أهلا @محمد احمد لطفى

كان من المفترض أن آخذ لاحقة الصورة الحالية للموضف وأدمجها مع الاسم الجديد هذه هو سبب الإرباك الذي حصل..

إليك التعديل Worker.mdb

وهذي هي الشفرة بعد التعديل

Option Compare Database
Option Explicit

Dim ImgPath As String

Private Sub Form_Current()
On Error GoTo errresult
  Dim ErrImage As String
  Dim CurImage As String
  Dim ImageName As String
  
  ImageName = Dir(ImgPath & Me.Worker & ".*")
  ErrImage = ImgPath & "No.jpg"
  CurImage = ImgPath & ImageName
  Me.imgWorker.Picture = CurImage
errresult:
  If Err.Number = 2220 Then
      Me.imgWorker.Picture = ErrImage
      Resume Next
  End If
End Sub


Private Sub Form_Load()
  ImgPath = "D:\Photo\123\"
End Sub

Private Sub Worker_BeforeUpdate(Cancel As Integer)
  Dim CurImage As String
  Dim NewImage As String
  Dim ImgExtention As String
  
    
  CurImage = Me.imgWorker.Picture
  ImgExtention = Mid(CurImage, InStr(CurImage, "."))
  Debug.Print ImgExtention
  NewImage = ImgPath & Me.Worker & ImgExtention
  
   
  If Dir(CurImage) = "No.jpg" Then
    Me.imgWorker.Picture = CurImage
  ElseIf Dir(NewImage) <> "" Then
    If MsgBox(Dir(NewImage) & vbNewLine _
    & "يوجد صورة سابقة بنفس الاسم.." _
    & vbNewLine & "هل تريد تعديل الاسم فقط..", _
    1572868, "تنبيه") = vbYes Then
      Me.imgWorker.Picture = CurImage
    Else
      Me.Undo
    End If
  Else
    Name CurImage As NewImage
    Me.imgWorker.Picture = NewImage
  End If
End Sub

 

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

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

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

[أبو إبراهيم الغامدي]

35 دقائق مضت, محمد احمد لطفى said:

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

آسف على هذا الإرباك..

Worker.mdb

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

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

[أبو إبراهيم الغامدي]

9 دقائق مضت, محمد احمد لطفى said:

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

أهلا بك @محمد احمد لطفى وأتطلع لخدمتك في المستقبل..

[figo82eg]

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

نفس مشكلة الاخ محمد لدى  انه عند تعير الكود لا يتغير اسم الملف .

ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج

Private Sub crn_DblClick(Cancel As Integer)
File_Path = Application.CurrentProject.Path & "\CONTACT\"

File_Name = Me.crn & ".pdf"
Name_Path = File_Path & File_Name
   
    If Dir(Name_Path) <> "" Then
    Application.FollowHyperlink Name_Path
    Else
        MsgBox "صورة ايصال العميل غير محفوظة"
    End If
End Sub

تم تعديل يوليو 4, 2019 بواسطه figo82eg

[أبو إبراهيم الغامدي]

منذ ساعه, figo82eg said:

نفس مشكلة الاخ محمد لدى  انه عند تعير الكود لا يتغير اسم الملف .

ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج

أتمنى من أحد متابعي الكرام التكرم بإجابة @figo82eg على طلبه، لأن المشاركة بالنسبة لي منتهية..

يمكن أكمال المشاركة على هذا الرابط

 

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

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

لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات 

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

If MsgBox(Dir(NewImage) & vbNewLine _
    & "يوجد صورة سابقة بنفس الاسم.." _
    & vbNewLine & "هل تريد تعديل الاسم فقط..", _
    1572868, "تنبيه") = vbYes Then
      Me.imgWorker.Picture = CurImage
    Else
      Me.Undo
    End If
  Else
    Name CurImage As NewImage
    Me.imgWorker.Picture = NewImage
  End If

مرفق الملف الاخير بعد التعديل 
وجزاك الله كل خيراً

Photo.rar

[أبو إبراهيم الغامدي]

21 ساعات مضت, محمد احمد لطفى said:

لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات 

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

عزيزي محمد.. ما الذي لم يعجبك في التعديل الأخير؟ وما الذي تريد الوصول إليه؟

الشفرة التي أشرت إليها أعلاه؛ هي التعديل الأخير بالفعل! تم دمجها إلى الشفرة الأولى!

.. الاعتماد على الاسم في تسمية الصور يسبب إرباك في المستقبل، لأن الاسماء تتشابه فلماذا لا تعتمد على المعرف؛ فهو أكثر ملائمة واستقرارا من الاسم!

.. في صدري فضول لمعرفة لماذا خلت قاعدة البيانات التي أرفتها من جدول تعريف العمال وأكتفيت بجدول وسيط؟!

.. أعود فأقول أعلمني بما يجول في خاطرك؟، وما الذي تريد تحقيقه؟ وسوف نناقشه حتى نصل إلى حل مرضي إن شاء الله..

 

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

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

D:\Photo\123

دمجها مع الكود وابعادها عن ( عند التحميل ) لأن هناك الكثير من الاوامر 

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

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

و جزاك الله خيراً على سعة صدرك