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

[awael5]

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

اريد انشاء مجلد برقم id بشكل تلقائى واضافة اكثر من صورة فى اامجلد مع ترقيم تلقائى للصور داخل المجلد

الملف ليس من انشائى تم تنزيلة من الموقع ولصاحب الملف جزيل الشكرPIC.mdb

[Ahmed.IQ]

طيب ليه انت مصعب الامور خلي الملف pdf افضل واقل حجم واسهل عليك وياخذ اكثر من صورة بنفس الفايل

[Moosak]

11 ساعات مضت, awael5 said:

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

اريد انشاء مجلد برقم id بشكل تلقائى واضافة اكثر من صورة فى اامجلد مع ترقيم تلقائى للصور داخل المجلد

الملف ليس من انشائى تم تنزيلة من الموقع ولصاحب الملف جزيل الشكرPIC.mdb

على أي نموذج تريد تشتغل أخي @awael5 ؟

وما هو المكان الذي تريد حفظ الصور فيه ؟

[awael5]

يوجد نمودج اسمة pictures_admin نختار مكان حفظ الصور 

56 دقائق مضت, Ahmed.IQ said:

طيب ليه انت مصعب الامور خلي الملف pdf افضل واقل حجم واسهل عليك وياخذ اكثر من صورة بنفس الفايل

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

PIC100.mdb

[jjafferr]

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

 

21 ساعات مضت, Ahmed.IQ said:

طيب ليه انت مصعب الامور

1. خلي الملف pdf افضل

2. واقل حجم

3. واسهل عليك

4. وياخذ اكثر من صورة بنفس الفايل

 

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

1. انا اعتبر تصفح ملف pdf الذي به صور ، كأني اتصفح ملف الموظف الورقي ،

1. لا يمكنني البحث فيه ، فأقلبه صورة صورة ، حتى اصل الى الصورة اللي اريدها ، واذا اريد مقارنة/النظر في صورة اخرى ، فأتصفح زيادة الى ان اصل الى الصورة الثانية ، وهنا لا استطيع مقارنة هذه الصورة بالصورة السابقة!!
2. يمكن استعمال ملف pdf في حال: انك لن تبحث عن صورة/رسالة/كتاب/شهادة معينة ، اي انك لا تحتاج الوصول الى صورة معينة من الملف ،
3. وفي حال: انك لن تحتاج الى اضافة صورة جديدة وسط محتواه ،

2. ملف pdf يحتفظ بالصور بصيغة مضغوطة ، وهذه الصيغة تعتمد على نوع بيانات الصورة ، وهذا الضغط هو الذي يقلل من حجم ملف pdf ، مثلا انظر في مواصفات هذا البرنامج الذي يحفظ الصور في ملف pdf :

 

.

او حتى لما تريد تصدر التقرير بصيغة pdf ، عندك خيار الضغط (ولكن بطريقة اخرى) :

.

الضغط على الصورة يجعلها تفقد بعض وضوحها ، وخصوصا اذا كان الضغط كبير (حتى تصبح الصورة صغيرة) ،

وتتجه المؤسسات الى الاعتماد على هذه المستندات للارشفة ، مع التخلص من الاوراق الاصليه (بعد مدة من الزمن) ،

هناك ISO خاص لأرشفة الصور ، وفيها يجب ان تكون دقة الصور 300 ، 600 (الموصى به) ، او 2100 DPI ، والنقاوة يجب ان تكون اقصاها او اقل بقليل (يعني بدون ضغط او ضغط قليل) ،

وصار مع احد المؤسسات التي اتعامل معها ، اشتروا سكانر جديد واستعملوه مباشرة وبدون ضبط اعداداته ، وتم استعماله في ارشفة الوثائق ، وبعد مدة طُلب منهم التحقق في الاسم الرابع لأحد الموظفين , كانت وثيقته بخط اليد ، ولم يتمكنوا من التأكد اذا كان الاسم تامر او ثامر ، بسبب ان دقة الصورة كانت صغيرة والضغط كبير ، فاضطروا لطلب نسخة ورقية اخرى من الموظف (كانت فترة الابقاء على النسخة الورقية للملف قد انتهت وتم تلفها).

.

3. نعم اسهل في عمل ملف pdf واحد من السكانر يحتوي على مجموعة وثائق ، ولكن هناك صعوبة للوصول الى الوثيقة المطلوبة ، وبسرعة في ملف pdf (انظر ملاحظتي اعلاه) ،

بينما الطريقة التي اتبعتها لبرنامج شؤون الموظفين ، هو نسخ الوثائق وحفظها صورة صورة بصيغة jpg ، برقم مسلسل ،

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

    و   

فمسمى الحقل يتحول لونه الى اللون الازرق الفاتح اذا كانت هناك وثيقة/وثائق تخص هذا الحقل ، وعند النقر على المسمى ، تظهر لنا جميع الوثائق التي تخص هذا الحقل فقط :

.

(وهنا تجد نسخه من النموذج اعلاه لتصفح الصور : https://www.officena.net/ib/topic/84228-هدية-العيد-استعراض-صورصورة-بأحجام-مختلفة/ )

وهذا لا يمكن عمله مع ملف pdf ، فإذن استخدام ملف pdf ليس اسهل للوضول الى المعلومة مباشرة .

 

4. وحتى اسهل عليك ، اليك الدالة التي عملتها ، لتعمل اسم الملف بالتسلسل :

Public Function Biggest_Value_in_Folder(ByVal Fldr As String, Pttrn As String, Digts As Integer, fle_Type As String)
'usage:
'Call Biggest_Value_in_Folder("D:\Temp", "EM_New_Section_Letter_Number_", 6, "jpg")


    Dim strFile As String

    If Len(fle_Type & "") = 0 Then fle_Type = "*"
    strFile = Dir(Fldr & "\" & Pttrn & "*." & fle_Type)
    'Debug.Print strFile
    
    Do Until strFile = ""
        'NumberOfFiles = NumberOfFiles + 1
        
        If Val(right(strFile, Digts)) > Biggest_Value_in_Folder Then
            Biggest_Value_in_Folder = Val(right(strFile, Digts))
        End If
        
        strFile = Dir()
    Loop
                
End Function

.

وهكذا استعملها

.

                'the folder path
                newpathANDname = BE_Path & "\Scanned_Files\" & Me.Employee_ID
    
                'if the Employee_ID Dir dose not exist, creat it
                If Dir(newpathANDname, vbDirectory) = "" Then
                    MkDir newpathANDname
                End If
    

            'get the Biggest Seq io this file type
            Biggest_Value = Biggest_Value_in_Folder(newpathANDname, "EM_New_Section_Letter_Number_", 6, "jpg")
            newpathANDname = newpathANDname & "\" & "EM_New_Section_Letter_Number_"
            
            x = Split(Me.Selected_Files, vbCrLf)
            
            For j = LBound(x) To UBound(x)
                If Len(x(j)) <> 0 Then
                

                    'existing jpg file path and name
                    oldpathANDname = x(j)
    
                    NumberOfFiles = NumberOfFiles + 1
                    Biggest_Value = Biggest_Value + 1
    
                    'copy the jpg file to the correct directory
                    FileCopy oldpathANDname, newpathANDname & Format(Biggest_Value, "000000") & ".jpg"
 
                End If  'Len(x(j)) <> 0
            Next j

.

جعفر