استفسار عن سلامة الكود

[عفرنس]

السلام عليكم أعزائي المشاهدين . 

هل الكود التالي سليم من حيث ترتيبه . 

إذا فيه ملحوظات ياليت يتم تعديلها .  

Private Sub zer1_Click()
Dim filename As Variant
Dim SourceFile, DestinationFile
Dim picturepaht
 picturepaht = GetOpenFile_CLT("", "اختر صورة :")
     With picturepaht
        If picturepaht <> "" Then
            Me.imgLogo.Picture = picturepaht
            logo = picturepaht
            SourceFile = logo
            DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg"
            FileCopy SourceFile, DestinationFile
            MsgBox "تم تغيير الشعار"
              Else
            MsgBox "تم التراجع عن تغيير الشعار"
        End If
    End With

End Sub

 

تم تعديل أبريل 4, 2020 بواسطه فايز..

[أبوبسمله]

وعليكم السلام

اخى فايز ان كان يعمل معك بصوره طبيعيه فتمام

ان كان بيظهر لك مشاكل فقم بعرضها

بالتوفيق اخى فايز

[عفرنس]

4 ساعات مضت, أحمد الفلاحجى said:

وعليكم السلام

اخى فايز ان كان يعمل معك بصوره طبيعيه فتمام

ان كان بيظهر لك مشاكل فقم بعرضها

بالتوفيق اخى فايز

الكود يعمل بشكل صحيح . لكنه كان عندي قبل بهذا الشكل

Private Sub zer1_Click()
Dim filename As Variant
Dim SourceFile, DestinationFile
Dim picturepaht
 picturepaht = GetOpenFile_CLT("", "اختر صورة :")
     With picturepaht
        If picturepaht <> "" Then
            Me.imgLogo.Picture = picturepaht
            logo = picturepaht
              Else
            MsgBox "No image selected."
        End If
    End With
  SourceFile = logo
 DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg"
 FileCopy SourceFile, DestinationFile
 MsgBox "تم تغيير الشعار"

End Sub

 فقدمت فيه وأخرت .

والسبب لأنه في حال اخترت تغيير الشعار ثم تراجعت عن التغيير تظهر رسالة ( لم يتم تغيير الشعار ثم يتلوها الرسالة الأخرى تم تغيير الشعار . فقدمت الأربعة الأسطر الأخيرة من الكود ووضعتها قبل else فلم تعد تظهر لي اللخبطة التي كانت . 

تم تعديل أبريل 5, 2020 بواسطه فايز..

[أبوبسمله]

اخى فايز

قمت بتجربه الكود تبعك الان وانا اعمل على مرفقك الاخير بالموضوع الاخر وشغال تمام زى الفل

بالتوفيق ان شاء الله

[عفرنس]

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

اخى فايز

قمت بتجربه الكود تبعك الان وانا اعمل على مرفقك الاخير بالموضوع الاخر وشغال تمام زى الفل

بالتوفيق ان شاء الله

شكر الله لك .