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

[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

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

أهلا بك @figo82eg

أشكرك على تفهمك لسياسة المنتدى..

أتمنى من أحد متابعي الأفاضل التكرم بوضع تصورة للشفرة وكيفية تطبيقها.. 👨‍💻

 

[AlwaZeeR]

ابشر اخوي أبو ابراهيم

تفضل

On Error GoTo ErrHandler

Dim File_Path As String
Dim File_Name As String
Dim Name_Path As String
  
  File_Path = Application.CurrentProject.Path & "\CONTACT\"
  File_Name = Dir(File_Path & "\*.*")
  Name_Path = File_Path & File_Name
    
   '=ابحث ان كان الملف موجود في المجلد المحدد
    If InStr(File_Name, crn) > 0 Then
      
    '= في حال وجوده وتم تغيير اسمه قم بتبديل الاسم القديم بالجديد
      
      Name File_Path & File_Name As File_Path & Replace(File_Name, crn, Newname)
                  
    '= افتح الملف
      Application.FollowHyperlink Name_Path
    
    Else
    '= في حال لم ييجد الملف باعتماد رقم Crn
            MsgBox "صورة ايصال العميل غير محفوظة"

    End If


'== ازالة خطأ Esc / ليس مهما الرقم
ErrHandler:
    If Err.Number = 16388 Then Exit Sub

عمل الكود

- يقوم بمقارنة الاسم الموجود في الملف كونتاكت حسب الرقم Crn

- في حال وجد الملف يقوم بفتحه

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

::

تحياتي

نسيت

حقل 

NewName

مفترض ان يكون في النموذج 

للاسم الجديد

تم تعديل يوليو 5, 2019 بواسطه AlwaZeeR

[figo82eg]

شكرا اخر الكريم على اهتمامك ‌@AlwaZeeR 

ارجو تطبيق الشفرة السابقة على المثال المرفق لأنى حاولت ولم تنفع معى

account.mdb CONTACT.rar

[AlwaZeeR]

تفضل

واي استفسار لا تتردد

 

5555.pdf account.mdb

[figo82eg]

   شكرا استاذنا الكريم هو المطلوب فعلا وجزاك الله عنا خيرا

NewName ولكن لو تكرمت تعديل لو امكن هو: انه بمجرد تعديل الرقم ان يتم التعديل بمجرد الإنتقال الى الخانة التالية دون الحاجه الى زر ابديت فى النموذج ونلغى خانه 

[AlwaZeeR]

عند التعديل في نفس الرقم كيف سيعرف ملف البي دي اف؟

التعديل يتم بعد ان يبحث عن الرقم الموجود في

crn

اذا وجد انه نفس الرقم لا يقوم بعمل شيء

واذا تم تغييره يتم التعديل

على ماذا سيعتمد اذا غيرنا رقم crn

===

قد أكون لم افهمك جيدا

دائما هناك حل

اشرح اكثر 

[figo82eg]

شكرا اخى الكريم قمت بتطبيق الحل لدى بطريقة مثالية

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

1 ساعه مضت, figo82eg said:

شكرا اخى الكريم قمت بتطبيق الحل لدى بطريقة مثالية

من حقنا عليك أن تكشف عن هذه الطريقة المثالية..