تغيير اسم صورة الموظف على الجهاز 2

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

السلام عليكم ورحمة الله و بركاته 

فى هذا النموذج يتم تغيير اسم صورة الموظف على الجهاز اذا تم تغييره فى النموذج

 هناك كود  (  فى الحال ) وهو الذى يقوم بالتغيير المطلوب دمج الكود الموجود ( فى الحال ) مع كود ( قبل التحديث ) أو جعله وحدة نمطية  

وجزاكم الله خيراً

Photo 2.rarFetching info...

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

للرفع

[أبو عبدالله الحلوانى]

السلام عليكم 

لست أدري أن كان هذا ما تريد أم لا 

وعلي كل جرب هذا ووافنا بالنتائج

 

Photo2.rarFetching info...

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

  في 26‏/7‏/2019 at 20:15, أبو عبدالله الحلوانى said:

السلام عليكم 

لست أدري أن كان هذا ما تريد أم لا 

وعلي كل جرب هذا ووافنا بالنتائج

 

Photo2.rar 300.17 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

Expand  

كده الكود الصوره بتكرر باسم جديد مش ده المطلوب 

دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا 

المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية 

[د.كاف يار]

جرب هذا الكود اخي الكريم

worker.rarFetching info...

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

  في 27‏/7‏/2019 at 06:53, د.كاف يار said:

جرب هذا الكود اخي الكريم

worker.rar 303.05 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

Expand  

مش عاوز انقل الصورة 

دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا 

المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية 

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

ممكن مساعدة

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

  في 27‏/7‏/2019 at 07:05, محمد احمد لطفى said:

المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية 

Expand  

أهلا محمد 

لكون المرفق من إصدار 2003.. كان الحل السابق كان يعتمد  قاعدة بيانات إصدار 2003 وماقبله.. 

وصدقني لم انظر إلى الاستعلام ولا البيانات التي فيه ولم أتوقع أنك تطلب حلا لإصدار 2007 ومابعده

تضمين الصورة كمصدر بيانات في 2007 ومابعدة غير مكتمل الخواص (غير ممكّن بالكامل) وإنما وضع لدعم النماذج المستمرة فقط.. ولا يمكن استخدامه إلا من داخل النموذج فقط..

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

للمعلومية: قمت بحذف عمود تحديد امتداد الملف من الاستعلام.. كما أجريت تعديلا على شفرة تحديد اسم ملف الصورة..

على كل حال أرجو أن يكون الحل التالي مرضيا لك

Worker.accdbFetching info...

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

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

وصدقني لم انظر إلى الاستعلام ولا البيانات التي فيه ولم أتوقع أنك تطلب حلا لإصدار 2007 ومابعده

فعلا كنت أعمل على اصدار 2003 ثم الى 2016 و لم احذف 2003 
 

 تضمين الصورة كمصدر بيانات في 2007 ومابعدة غير مكتمل الخواص (غير ممكّن بالكامل) وإنما وضع لدعم النماذج المستمرة فقط.. ولا يمكن استخدامه إلا من داخل النموذج فقط..

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

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

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

لقد دخلت الى عالم الاكسس بسبب صديق لى معى فى العمل يعمل جميع عمله عليه و لانى بفهم فى الكمبيوتر ...,أنا أيضا بدأت العمل عليه لأنه يساعدنى فى انهاء عملى بسلاسه فلا أعلم عنه الكثير و لكنى تعلمت هنا الكثير فجزاكم الله خيراً

 

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

 

تم تعديل يوليو 27, 2019 بواسطه محمد احمد لطفى

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

  في 27‏/7‏/2019 at 15:01, محمد احمد لطفى said:

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

Expand  

كل ما في الأمر أنه حصل ازدوجية في عرض الصورة الحالية فقط.. وانتهت الآن.

 

  في 27‏/7‏/2019 at 15:01, محمد احمد لطفى said:

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

Expand  

لا.. لا يمكن لأن تغيير القيمة الافتراضية يتطلب عرض الجدول في وضع التصميم..

 

هناك حيلة غبية بعض الشيء! لكنها تؤدي الغرض وأرجو تحل المشكلة

.. من قائمة الاستعلامات انقر بالزر الأيمن على الاستعلام المتعلق بعرض الصور>> اختر خصائص>> في خانة الوصف اطبع المسار الافتراضي للصور (أو انسخ وألصق) ثم اضغط موافق.

 

.. قم بتغيير وظيفة معالجة الصور لتصبح كالتالي

Public Function FileName(ImagName)
    Dim ImgPath As String
    ImgPath = CurrentDb.QueryDefs("WorkerSubQ").Properties("Description")
    FileName = Dir(ImgPath & ImagName & ".*")
    If FileName = "" Then
      FileName = ImgPath & "No.jpg"
    Else
      FileName = ImgPath & FileName
    End If
End Function

 

.. عند نقل مجلد الصور إلى مكان آخر.. قم بتغييره في خانة الوصف للاستعلام فقط..

 

Worker.accdbFetching info...

 

 

[jjafferr]

  في 27‏/7‏/2019 at 12:29, أبو إبراهيم الغامدي said:

وكان من الأولى وضع مشار الصور في الجدول.

Expand  

 

السلام عليكم 🙂

 

اتفق مع اخوي ابو ابراهيم 100% 🙂

ممكن عمل جدول خاص ، به حقل واحد فقط ، لهذه القيمة فقط ، وتنادي هذه القيمة كلما احتجت لها.

وهذه هي الطريقة ، فموقع الصور متغير من كمبيوتر الى آخر ، واللابتوبات مافيها إلا \:C ، فكيف يمكن ان يعمل برنامجك عليه !!

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

المكان الآخر الذي تقدر تخلي فيها القيمة ، وتقدر تتحكم فيها برمجيا ، هو في اعدادات الحقل في tag .

 

جعفر

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

  في 27‏/7‏/2019 at 17:38, jjafferr said:

السلام عليكم 🙂

Expand  

وعليكم السلام ورحمة الله أستاذ جعفر..

أرجو أن يأخذ زميلي محمد بنصيحتك..

  في 27‏/7‏/2019 at 17:38, jjafferr said:

المكان الآخر الذي تقدر تخلي فيها القيمة ، وتقدر تتحكم فيها برمجيا ، هو في اعدادات الحقل في tag .

Expand  

هذه الطريقة تحتاج وضع التصميم حتى تتمكن من حفظ القيمة الجديدة!🤔
 

 

 

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

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

شكراً أستاذى @jjafferr

جَعَله الله في موازين حسناتكم