مشروع بحاجة إلى تعديل كود جلب الصور و إظهارها من أكثر من جهاز عن طريق جوجل درايف

[ابو حمزة سكر]

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

ACC.rar

[ابو حمزة سكر]

للرفع للأهمية

[Elsayed Bn Gemy]

اساعدك ان شاء الله  ولكن اود ان الفت انتباهك الى هذا

اذا انت بحاجة الى شيئين الاول

عدم وضع مسار الصورة فى الجدول
الثانى نقل الصور تلقائيا عند اختيارها الى مجلد الصور
 

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

[عبدالله مروش]

2 دقائق مضت, Elsayed Bn Gemy said:

ساعدك ان شاء الله  ولكن اود ان الفت انتباهك الى هذا

اذا انت بحاجة الى شيئين الاول

عدم وضع مسار الصورة فى الجدول
الثانى نقل الصور تلقائيا عند اختيارها الى مجلد الصور
 

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

السلام عليكم 

لدي نفس الموضوع واريد مساعدة 

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

 

[Elsayed Bn Gemy]

2 دقائق مضت, عبدالله مروش said:

السلام عليكم 

لدي نفس الموضوع واريد مساعدة 

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

 

اذا تابع الموضوع هنا سادرج الاكواد ان شاء الله لاحقا مع شرحها

[عبدالله مروش]

تمام في المتابعة ان شاء الله

 

[Elsayed Bn Gemy]

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

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

الية العمل الجديدة للبرنامج ستكون كالتالى

اولا يجب تحديد مسار  مجلد الصور الموجود على جوجل درايف لكل مستخدم للبرنامج

قمت بتسهيل الموضوع عليك فقط مرة واحدة اختر المسار  عن طريق هذا الزر وعند اختيارك المجلد يقوم البرنامج باخذ المسار واسم الكمبيوتر الخاص بك وادراجهم داخل جدول قمت بانشائه

 

عند اختيارك صورة يقوم البرنامج جلب  نوع الصورة وادراجها فى جدول الاصناف  ثم نقلها الى مجلد الصور برقم الصنف

اى انه يتم تسمية الصورة برقم الصنف 

 

الاكواد المستخدمة

 

دالة جلب نوع الصورة عند اختيارها

Function GetFileTypeFromPath(ByVal strPath As String) As String
    If Right$(strPath, 1) <> "." And Len(strPath) > 0 Then
        GetFileTypeFromPath = GetFileTypeFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

 

داالة جلب اسم الكمبيوتر الحالى للمستخدم

Declare Function apiGetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal buffer As String, BufferSize As Long) As Long
Declare Function apiGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal buffer As String, BufferSize As Long) As Long
Function GetUserName() As String
    Dim strName As String
    Dim lngSize As Long
    Dim lngRetVal As Long
    strName = Space(15)
    lngSize = 15
    lngRetVal = apiGetUserName(strName, lngSize)
    GetUserName = Left$(strName, lngSize - 1)
End Function

Function GetComputerName() As String
    Dim strName As String
    Dim lngSize As Long
    strName = Space(16)
    lngSize = 16
    If apiGetComputerName(strName, lngSize) Then
        GetComputerName = Left$(strName, lngSize)
    Else
        GetComputerName = vbNullString
    End If
End Function

 

 

دالة نقل الملفات

  'Network Security - Network does not allow reference to the Scripting runtime library (COM Object)
    ' Using Window 32 API (Kernel 132) to Move file
Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _
            ByVal NewFileName As String, ByVal FailIfExists As Long) As Long
Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean
    Dim Flag As Long
    Dim Name As String
    Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, "\"))
    If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then
       Copy = True
    Else
        Copy = False
    End If
End Function

ويتم تنفيذها بهذا الشكل

Dim sedo As Object
Dim des, fileto As String
Set sedo = CreateObject("Scripting.FileSystemObject")

 sedo.CopyFile fileto, des, True

حيث ان fileto  هو الملف المراد نقله يتم تحديد المسار كاملا بما فى ذلك نوع الملف

حيث ان des هو  المسار المراد نقل الملف اليه ويتم تحديد المسار كاملا ايضا بما فى ذلك نوع الملف

هكذا  "des = "C:\Users\xmen5\Desktop\New Microsoft Word Document (2).docx

و

"fileto = "C:\Users\xmen5\Desktop\New Microsoft Word Document (2).docx

 

ويمكن تغير اسم الملف فقط فى متغير des  ليتم نقل الملف باسم جديد

 

تم تغيير مصدر بيانات عنصر تحكم الصورة ليتمكن من قراءة مسار الصورة  هكذا

 

 وهذا كود انشاء مجلد جديد فى مسار محدد لاخونا السائل

If Len(Dir(des, vbDirectory)) = 0 Then
  MkDir Path:=des
end if

حيث  ان des  هى مسار المجلد

 

تذكر يا اخى يجب تحديد مسار مجلد الصور اولا  ولمرة واحدة لكل مستخدم للبرنامج

والان مع المرفق

http://www.mediafire.com/file/t6pv4pg7iz9feg6/ACC.rar/file

 

 

 

تم تعديل يناير 16, 2019 بواسطه Elsayed Bn Gemy

[عبدالله مروش]

السلام عليكم 

اخي @Elsayed Bn Gemy ممكن تجيني على الخاص 

 

[Elsayed Bn Gemy]

58 دقائق مضت, عبدالله مروش said:

السلام عليكم 

اخي @Elsayed Bn Gemy ممكن تجيني على الخاص 

 

اخى الكريم ارفق موضوع جديد لمشكلتك 

او ادرج هنا رابط المشاركة

الخاصة بك 

[عبدالله مروش]

السلام عليكم استاذ @Elsayed Bn Gemy

اريد تعديل على هذا البرنامج بحيث زر اضافة ينشئ مجلد جديد باسم تاريخ الرسالة وزر اضافة الصور يقوم باضافة عدة صور وليس واحدة  وزر حفظ يحفظ الصور في المجلد المنشئ الجديد 

وعمل نسخة احتياطية باعدادات معينة ولك جزيل الشكر والتقدير 

 

PIC.rar

تم تعديل يناير 16, 2019 بواسطه عبدالله مروش

[Elsayed Bn Gemy]

3 ساعات مضت, عبدالله مروش said:

السلام عليكم استاذ @Elsayed Bn Gemy

اريد تعديل على هذا البرنامج بحيث زر اضافة ينشئ مجلد جديد باسم تاريخ الرسالة وزر اضافة الصور يقوم باضافة عدة صور وليس واحدة  وزر حفظ يحفظ الصور في المجلد المنشئ الجديد 

وعمل نسخة احتياطية باعدادات معينة ولك جزيل الشكر والتقدير 

 

PIC.rar

 

 

السلام عليكم اخى الكريم

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

1 - تم ادراج وحدة نمطية لنقل الصور الى مجلد الصور

2 - تم ادراج وحدة نمطية لجلب مسارات الصور من كل فولدر يتم اختيارة

-----------------------

يتم انشاء المجلدات الاتية تلقائيا فى نفس مسار قاعدة البيانات

1 -  open  backup --- وذلك لوضع اخر نسخة احتياطة عند الفتح

2 -  close backup  --- وذلك اخر نسخة احتياطية عند الاغلاق

3 - ادراج  مجلد باسم الناريخ مع تغيير علامة / الى - وذلك لاستحالة انشاء مجلد يحمل تلك العلامة

-------------------------------------

تم ادراج كائن واحد داخل النموذج وهى ( Listbox )   وذلك لاحضار مسارات الصور بها  واصبح شكل مرفقك كالتالى

------------------------

تم ادراج دالة لجلب الاسم والنوع للصورة عند اختيارها  وهى كالتالى

Function GetFilenameFromPath1(ByVal strPath As String) As String

    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath1 = GetFilenameFromPath1(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

 

 

 

الية العمل

كما طلبت اخى الكريم

1 - يتم انشاء  نسخة احتياطية عند الفتح وعند الاغلاق  فى مجلدين منفصلين فى نفس مسار قاعدة البيانات

وهذا  هو الكود الخاص بهما مع تغيير اسم الملف فقط فى الحالتين

   Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB
OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = CurrentProject.Path & "\" & "open backup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)

CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
MyErr:
If err.Number <> 0 Then
MsgBox err.Number & " - " & err.Description

 

وحدة نمطية لجلب الملفات من مجلد محدد الى Listbox 

Public Function ListFiles(strPath As String, Optional strFileSpec As String, _
    Optional bIncludeSubfolders As Boolean, Optional lst As ListBox)
On Error GoTo Err_Handler
    'Purpose:   List the files in the path.
    'Arguments: strPath = the path to search.
    '           strFileSpec = "*.*" unless you specify differently.
    '           bIncludeSubfolders: If True, returns results from subdirectories of strPath as well.
    '           lst: if you pass in a list box, items are added to it. If not, files are listed to immediate window.
    '               The list box must have its Row Source Type property set to Value List.
    'Method:    FilDir() adds items to a collection, calling itself recursively for subfolders.
    Dim colDirList As New Collection
    Dim varItem As Variant
    
    Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)
    
    'Add the files to a list box if one was passed in. Otherwise list to the Immediate Window.
    If lst Is Nothing Then
        For Each varItem In colDirList
            Debug.Print varItem
        Next
    Else
        For Each varItem In colDirList
        lst.AddItem varItem
        Next
    End If

Exit_Handler:
    Exit Function

Err_Handler:
    MsgBox "Error " & err.Number & ": " & err.Description
    Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, ByVal strFolder As String, strFileSpec As String, _
    bIncludeSubfolders As Boolean)
    'Build up a list of files, and then add add to this list, any additional folders
    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant

    'Add the files to the folder.
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
        colDirList.add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        'Build collection of additional subfolders.
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp <> vbNullString
            If (strTemp <> ".") And (strTemp <> "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0& Then
                    colFolders.add strTemp
                End If
            End If
            strTemp = Dir
        Loop
        'Call function recursively for each subfolder.
        For Each vFolderName In colFolders
            Call FillDir(colDirList, strFolder & TrailingSlash(vFolderName), strFileSpec, True)
        Next vFolderName
    End If
End Function

Public Function TrailingSlash(varIn As Variant) As String
    If Len(varIn) > 0& Then
        If Right(varIn, 1&) = "\" Then
            TrailingSlash = varIn
        Else
            TrailingSlash = varIn & "\"
        End If
    End If
End Function

 

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

وعند التنقل بين السجلات بواسطة الازرار  يتم عمل قائمة باسماء الملفات الموجودة داخل كل مجلد الذى يحمل التاريخ

يمكنك اضافة اكثر من صورة للتاريخ الواحد   ولكن كل منهما على حدا

وهذا فيديو يشرح العمل

 

 

وهذا هو المرفق

 

 

PIC.rar

[عبدالله مروش]

35 دقائق مضت, Elsayed Bn Gemy said:

 

 

السلام عليكم اخى الكريم

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

1 - تم ادراج وحدة نمطية لنقل الصور الى مجلد الصور

2 - تم ادراج وحدة نمطية لجلب مسارات الصور من كل فولدر يتم اختيارة

-----------------------

يتم انشاء المجلدات الاتية تلقائيا فى نفس مسار قاعدة البيانات

1 -  open  backup --- وذلك لوضع اخر نسخة احتياطة عند الفتح

2 -  close backup  --- وذلك اخر نسخة احتياطية عند الاغلاق

3 - ادراج  مجلد باسم الناريخ مع تغيير علامة / الى - وذلك لاستحالة انشاء مجلد يحمل تلك العلامة

-------------------------------------

تم ادراج كائن واحد داخل النموذج وهى ( Listbox )   وذلك لاحضار مسارات الصور بها  واصبح شكل مرفقك كالتالى

------------------------

تم ادراج دالة لجلب الاسم والنوع للصورة عند اختيارها  وهى كالتالى

Function GetFilenameFromPath1(ByVal strPath As String) As String

    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath1 = GetFilenameFromPath1(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

 

 

 

الية العمل

كما طلبت اخى الكريم

1 - يتم انشاء  نسخة احتياطية عند الفتح وعند الاغلاق  فى مجلدين منفصلين فى نفس مسار قاعدة البيانات

وهذا  هو الكود الخاص بهما مع تغيير اسم الملف فقط فى الحالتين

   Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB
OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = CurrentProject.Path & "\" & "open backup" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)

CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
MyErr:
If err.Number <> 0 Then
MsgBox err.Number & " - " & err.Description

 

وحدة نمطية لجلب الملفات من مجلد محدد الى Listbox 

Public Function ListFiles(strPath As String, Optional strFileSpec As String, _
    Optional bIncludeSubfolders As Boolean, Optional lst As ListBox)
On Error GoTo Err_Handler
    'Purpose:   List the files in the path.
    'Arguments: strPath = the path to search.
    '           strFileSpec = "*.*" unless you specify differently.
    '           bIncludeSubfolders: If True, returns results from subdirectories of strPath as well.
    '           lst: if you pass in a list box, items are added to it. If not, files are listed to immediate window.
    '               The list box must have its Row Source Type property set to Value List.
    'Method:    FilDir() adds items to a collection, calling itself recursively for subfolders.
    Dim colDirList As New Collection
    Dim varItem As Variant
    
    Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)
    
    'Add the files to a list box if one was passed in. Otherwise list to the Immediate Window.
    If lst Is Nothing Then
        For Each varItem In colDirList
            Debug.Print varItem
        Next
    Else
        For Each varItem In colDirList
        lst.AddItem varItem
        Next
    End If

Exit_Handler:
    Exit Function

Err_Handler:
    MsgBox "Error " & err.Number & ": " & err.Description
    Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, ByVal strFolder As String, strFileSpec As String, _
    bIncludeSubfolders As Boolean)
    'Build up a list of files, and then add add to this list, any additional folders
    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant

    'Add the files to the folder.
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
        colDirList.add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        'Build collection of additional subfolders.
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp <> vbNullString
            If (strTemp <> ".") And (strTemp <> "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0& Then
                    colFolders.add strTemp
                End If
            End If
            strTemp = Dir
        Loop
        'Call function recursively for each subfolder.
        For Each vFolderName In colFolders
            Call FillDir(colDirList, strFolder & TrailingSlash(vFolderName), strFileSpec, True)
        Next vFolderName
    End If
End Function

Public Function TrailingSlash(varIn As Variant) As String
    If Len(varIn) > 0& Then
        If Right(varIn, 1&) = "\" Then
            TrailingSlash = varIn
        Else
            TrailingSlash = varIn & "\"
        End If
    End If
End Function

 

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

وعند التنقل بين السجلات بواسطة الازرار  يتم عمل قائمة باسماء الملفات الموجودة داخل كل مجلد الذى يحمل التاريخ

يمكنك اضافة اكثر من صورة للتاريخ الواحد   ولكن كل منهما على حدا

وهذا فيديو يشرح العمل

 

 

وهذا هو المرفق

 

 

PIC.rar

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

وشكرا شكرا شكرا جزيلا لك 

[ابو حمزة سكر]

الأخ المحترم @Elsayed Bn Gemy  أشكرك كل الشكر على دعمك و مساعدتك و أعتذر عن تأخري بالرد و قراءة ردك سوف أقوم الآن بتنزيل المرفق و مشاهدة المتغيرات و أتعلم طريقتك ..
أشكرك جداً أخي الكريم على دعمك و سوف أرفق رداً آخر بعد إختبار المرفق و تعلم الطريقة 

تم تعديل يناير 17, 2019 بواسطه ابو حمزة سكر

[ابو حمزة سكر]

في ١٦‏/١‏/٢٠١٩ at 10:56, Elsayed Bn Gemy said:

اساعدك ان شاء الله  ولكن اود ان الفت انتباهك الى هذا

اذا انت بحاجة الى شيئين الاول

عدم وضع مسار الصورة فى الجدول
الثانى نقل الصور تلقائيا عند اختيارها الى مجلد الصور
 

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

أنا أشكرك جزيل الشكر و أرجو من الله أن يجعل مساعدتك هذه في ميزان حسناتك ..
أردت الإجابة على سؤالك عن موضوع الترقيم التلقائي ..
فكرة أن تصبح الصورة بنفس رقم المنتج شيئ جميل لكن مشكلتي في الترقيم التلقائي هو أن المنتجات تحمل أرقام خاصة مستخدمة و متعارف عليها من قبل العملاء و مدرجة في برنامج حسابات المصنع و تغييرها صعب بسبب كثرة المنتجات التي يزيد عددها عن 500 منتج و حفظ الأرقام الجديدة و تحفيظها للموظفين أيضاً و العملاء

[Elsayed Bn Gemy]

5 ساعات مضت, ابو حمزة سكر said:

أنا أشكرك جزيل الشكر و أرجو من الله أن يجعل مساعدتك هذه في ميزان حسناتك ..
أردت الإجابة على سؤالك عن موضوع الترقيم التلقائي ..
فكرة أن تصبح الصورة بنفس رقم المنتج شيئ جميل لكن مشكلتي في الترقيم التلقائي هو أن المنتجات تحمل أرقام خاصة مستخدمة و متعارف عليها من قبل العملاء و مدرجة في برنامج حسابات المصنع و تغييرها صعب بسبب كثرة المنتجات التي يزيد عددها عن 500 منتج و حفظ الأرقام الجديدة و تحفيظها للموظفين أيضاً و العملاء

اعتقد ان المرفق لا يتعارض مع ما تقول 

فى الواقع انت تقوم فعليا باعطاء رقم لكل منتج انا اقوم باخذ هذا الرقم وتسمية الصورة به ليتسنى لنا عرض الصورة لكل سجل اى كان الرقم الذى ستكتبه سيتم تسمية الصورة به تلقائيا 

[عبدالله مروش]

السلام عليكم 

اخي @Elsayed Bn Gemy مساعدة في هذا البرنامج وهو برنامج ارشيف عثرت عليه في احدى المواقع 

احتاج الى تعديل بحيث يحفظ الملفات خارج القاعدة نفسها ونعمل له مثل مافي البرنامج الاخير 

ولك جزيل الشكر والتقدير 

 

http://www.mediafire.com/file/2wzf1dlt2htgaqo/برنامج+أرشفة.rar

[عبدالله مروش]

السلام عليكم 

اخي @Elsayed Bn Gemy 

ارجو ان تساعدني في هذا المشروع 

 

 

[عبدالله مروش]

السلام عليكم 

اخي @Elsayed Bn Gemy 

ارجو المساعدة 

واسف اذا اكثرت عليك 

 

 

 

 

[Elsayed Bn Gemy]

منذ ساعه, عبدالله مروش said:

السلام عليكم 

اخي @Elsayed Bn Gemy 

ارجو المساعدة 

واسف اذا اكثرت عليك 

 

 

 

 

برنامج أرشفة.rar

[عبدالله مروش]

 اخي @Elsayed Bn Gemy 

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

واسف اذا اكثرت عليك 

 

 

 

 

 

[ابو حمزة سكر]

 اخي العزيز @Elsayed Bn Gemy  شاكراً فضلك و كرمك في شرح و تعديل البرنامج ..
لقد قمت بنقل النموذج و الجداول و كل ما قمت بالتعديل عليه إلى مشروعي و هذا لأني ضعيف في ما تفضلت بشرحه فلم أقم بإعادة صياغة بل بالنقل و قمت بتحديد المسار كما أشرت مشكوراً ...
لكن عندما أضغط على الصورة مرتين لأقوم بإضافة صورة يظهر لي أن هناك خطأ برمجي أعتقد أنه بسبب قلة خبرتي لم أعرف إصلاحه و أعتقد أنه بسيط من مجال خبرتك ..
و الخطأ يتمثل بالصورة المرفقة ..

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

[ابو حمزة سكر]

للرفع للأهمية

[Elsayed Bn Gemy]

المشكلة الاولى تخبرك ان هؤلاء المتغيرات قد تم التصريح بها من قبل
الحل  قم بمسح هؤلاء الثلاث سطور 

 

 

 

تم تعديل يناير 28, 2019 بواسطه Elsayed Bn Gemy

[Elsayed Bn Gemy]

المشكلة الثانية

[ابو حمزة سكر]

 اخي العزيز @Elsayed Bn Gemy 
أشكرك شكراً جزيلاً على ردك الكريم 
فعلاً فرغت نفسي قليلاً و بسبب عدم معرفتي باللغة الإنجليزية قمت بترجمة الرسالة و تأكدت أن المشكلة هي التكرار و قمت بحذف المكرر و أنتهت المشكلة قبل أن أقرأ ردك الكريم ..
و أقوم بحل المشكلة التالية الآن 
و لكن صديقي بعد أن قمت بحذف السطور الثلاثة المكررة تم حل المشكلة و تم عمل الكود بشكل صحيح بأنه يقوم بنقل الصورة إلى المجلد المحدد و إعادة تسميته .. إلى أن الصورة لا تظهر في النموذج ..
أنا أحاول البحث عن السبب الآن و أكون شاكراً لك إن كان لديك فهم لهذه المشكلة و حل سريع