تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

هذا الكود الرائع لأخ فاضل بناءا على طلبي لي سابق هنا

الكود يشتغل وجربته على عدة نماذج وشغال

ونظرا لاحتياجاتي:

قمت باضافة حقلين جديدين  في جدول :  TblAttchedFiles

وهما:

annee_dossier

titre_f

فظهرت معي المشكلة التالية:

العنوان - السنة - اسم الملف: لايكونون في نفس السطر  ** كما في الصورة المرفقة رقم 1**

وتحدث هذه المشكلة عند البداية أولا بكتابة العنوان أو السنة  ثم قمت بإضافة الملف

لكن عندما أقوم بإضافة الملف أولا  ثم كتابة العنوان والسنة لا نلاحظ هذه المشكلة.

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

 

الطلب الثاني: الرجاء التعديل على كود الحذف في زر  delete  : لحذف الملف: أريد حذف السجل حتى وان كان الملف غير مرفق (غير مضاف) كما في الصورة التوضيحية رقم 2

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

 

base_mu.accdb

[عمر ضاحى]

12 دقائق مضت, moho58 said:

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

هذا الكود الرائع لأخ فاضل بناءا على طلبي لي سابق هنا

الكود يشتغل وجربته على عدة نماذج وشغال

ونظرا لاحتياجاتي:

قمت باضافة حقلين جديدين  في جدول :  TblAttchedFiles

وهما:

annee_dossier

titre_f

فظهرت معي المشكلة التالية:

العنوان - السنة - اسم الملف: لايكونون في نفس السطر  ** كما في الصورة المرفقة رقم 1**

وتحدث هذه المشكلة عند البداية أولا بكتابة العنوان أو السنة  ثم قمت بإضافة الملف

لكن عندما أقوم بإضافة الملف أولا  ثم كتابة العنوان والسنة لا نلاحظ هذه المشكلة.

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

 

الطلب الثاني: الرجاء التعديل على كود الحذف في زر  delete  : لحذف الملف: أريد حذف السجل حتى وان كان الملف غير مرفق (غير مضاف) كما في الصورة التوضيحية رقم 2

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

 

base_mu.accdb 564 kB · 0 downloads

اولا اهلا وسهلك بيك اخي الكريم

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

عدل على شروط الحذف

If Not IsNull(FileName) Or Not IsNull(annee_dossier) Or Not IsNull(titre_f) Then

 

اما بالنسبه للنقطة الاولى :-

15 دقائق مضت, moho58 said:

العنوان - السنة - اسم الملف: لايكونون في نفس السطر  ** كما في الصورة المرفقة رقم 1**

ده بسبب ان الكود فى الاصل بيضيف سجل جديد وليس تحديث

ولحلها يحتاج لوضع الكثير من الاحتمالات

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

 

استبدل الكود التالى بكود رفع الملف او فتحه

 

Private Sub cmdUploadOpen_Click()
On Error GoTo HandleError
 
    Dim folderPath As String
    Dim subFolderPath As String
    Dim fileDialog As fileDialog
    Dim selectedFile As String
    Dim destinationFile As String
    Dim recordID As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer

    
    folderPath = CurrentProject.Path & "\AttachedFiles"

    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If

    recordID = [Forms]![frm_sader_wared]![SN].Value
    subFolderPath = folderPath & "\" & recordID
    If Dir(subFolderPath, vbDirectory) = "" Then
        MkDir subFolderPath
    End If

    If Me.NewRecord Then
        Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
        With fileDialog
            .AllowMultiSelect = True
            .Title = "Select Files to Attach"
            If .Show = -1 Then
                Set db = CurrentDb()
                Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset)

                For i = 1 To .SelectedItems.Count
                    selectedFile = .SelectedItems(i)
                    destinationFile = subFolderPath & "\" & Dir(selectedFile)
                    FileCopy selectedFile, destinationFile
                    rs.AddNew
                    rs!LSn = recordID
                    rs!FileName = Dir(selectedFile)
                    rs.Update
                Next i

                rs.Close
                Set rs = Nothing
                Set db = Nothing
            End If
        End With
    
    ElseIf IsNull(Me.FileName) Or Me.FileName = "" Then
        
        Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
        With fileDialog
            .AllowMultiSelect = False
            .Title = "Select Files to Attach"
            If .Show = -1 Then
                Set db = CurrentDb()
                Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset)

                For i = 1 To .SelectedItems.Count
                    selectedFile = .SelectedItems(i)
                    destinationFile = subFolderPath & "\" & Dir(selectedFile)
                    FileCopy selectedFile, destinationFile
                    rs.FindFirst "LSn = " & recordID & " AND ID = " & ID
                    If Not rs.NoMatch Then
                        rs.Edit
                            rs!FileName = Dir(selectedFile)
                        rs.Update
                    End If
                Next i

                rs.Close
                Set rs = Nothing
                Set db = Nothing
            End If
        End With

    Else
        Application.FollowHyperlink subFolderPath & "\" & Me.FileName
    End If
  Form.Requery
HandleExit:
    Exit Sub
    
HandleError:
    If Err.Number = 16388 Then
        Exit Sub
    ElseIf Err.Number = 490 Then
        MsgBox "لايمكن فتح الملف لانه مفقود"
        Exit Sub
    ElseIf Err.Number = 0 Then
        Exit Sub
    Else
        MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description
    End If
    Resume HandleExit
End Sub

 

[moho58]

الأخ الفاضل @عمر ضاحى

مشكور على الرد والمتابعة

بالنسب لكود الحدف:

 

If Not IsNull(FileName) Or Not IsNull(annee_dossier) Or Not IsNull(titre_f) Then

ربما أنا لم ارشرح جيدا

إن أمكن أريد ان يتم حذف سجل حسب الشرط التالي: سواء  كان فيه الملف لوحده أو العنوان لوحده أو السنة لوحده أو مجتمعين إثنين فقط أو مجتمعين ثلاثة معا

 

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

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

[moho58]

[عمر ضاحى]

6 ساعات مضت, moho58 said:

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

 

 

المرفق

base_mu.rar

[moho58]

22 دقائق مضت, عمر ضاحى said:

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

 

 

المرفق

base_mu.rar 39.81 kB · 0 downloads

تحية طيبة أخي

مشكور جدا على الاهتمام بموضوعي

فيما يخص كود الحذف شغال وهذا هو المطلوب

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

لإني أنا مزالت عندي نفس المشكلة

وشكرا

[Foksh]

10 دقائق مضت, moho58 said:

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

من باب التأكد ، هل ما تقوم به هو نسخ الكود من ملف الخل الذي شاركك به الأستاذ @عمر ضاحى لملفك ومشروعك الأصلي ؟؟

 

اذا كان نعم فتأكد من المكتبات التي في الملف المرفق وبين مشروعك ❗

[moho58]

18 دقائق مضت, Foksh said:

من باب التأكد ، هل ما تقوم به هو نسخ الكود من ملف الخل الذي شاركك به الأستاذ @عمر ضاحى لملفك ومشروعك الأصلي ؟؟

 

اذا كان نعم فتأكد من المكتبات التي في الملف المرفق وبين مشروعك ❗

مشكور أخي على الرد والمتابعة

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

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

لذلك منه فضلا التحقق من الملف المرفوع او وضع الكود هنا

 

[عمر ضاحى]

6 ساعات مضت, moho58 said:

مشكور أخي على الرد والمتابعة

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

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

لذلك منه فضلا التحقق من الملف المرفوع او وضع الكود هنا

 

ممكن اعرف هر مش شغال ازاى معاك

يعنى ايه الخطأ ال بيظهر لك

 

وهل جربت تعملDebug compare

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

[moho58]

54 دقائق مضت, عمر ضاحى said:

ممكن اعرف هر مش شغال ازاى معاك

يعنى ايه الخطأ ال بيظهر لك

 

وهل جربت تعملDebug compare

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

مشكور أخي الكريم على الرد والمتابعة والصبر معي

كود حذف السجل يعمل بامتياز  .

بالنسبة لكود رفع الملف مزال نفس المشكل معي العلم اني اشتغل على نفس الملف الذي انت رفعته انت لي وفي الصورة الموضحة اشتغل معاك

المشكلة: عند اضافة السنة تم العنوان  أولا 

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

نتمنى يكون فيه حل لاني احتاج الملف غدا إن أمكن

 

مرة أخرى جزاك الله كل خير على الصبر والمتابعة

[عمر ضاحى]

اخي الحبيب @moho58

حسب رسالتك معي على الخاص 

فان المشكله معاك تحدث عندما تحاول ادراج ملف بعد ان تكتب السنه او اى شئ 

وهذا يحدث بسبب الاتي 
وانك عندما تبدأ فى تسجيل مثلا السنه فانك بالفعل مازلت فى وضع السجل الجديد 

وبالتالى لما تضغط على الزر لتحديد الملف 

فانك بالفعل ايضا فى وضع السجل الجديد ومفيش معرف تم حفظه جديد علشان يتم الربط به 

وبالتالى الحل 

ان تسجل السنه واي شئ اخر انت تريده وتنتقل لاى سجل اخر علشان يتم الحفظ 

ثم بعدها ترفق الملف

 

ام ممكن تجرب فى حدث بعد التحديث ان تجعل النموذج يعمل Requery

 

مثل هذا الكود 

Private Sub annee_dossier_AfterUpdate()
Form.Requery
End Sub

Private Sub titre_f_AfterUpdate()
Form.Requery
End Sub

وبكده مشكلتك هتتحل ان شاء الله 

 

اتمني ان اكون قدرت اوصل لك المعلومه بشكل صحيح 

[moho58]

4 ساعات مضت, عمر ضاحى said:

اخي الحبيب @moho58

حسب رسالتك معي على الخاص 

فان المشكله معاك تحدث عندما تحاول ادراج ملف بعد ان تكتب السنه او اى شئ 

وهذا يحدث بسبب الاتي 
وانك عندما تبدأ فى تسجيل مثلا السنه فانك بالفعل مازلت فى وضع السجل الجديد 

وبالتالى لما تضغط على الزر لتحديد الملف 

فانك بالفعل ايضا فى وضع السجل الجديد ومفيش معرف تم حفظه جديد علشان يتم الربط به 

وبالتالى الحل 

ان تسجل السنه واي شئ اخر انت تريده وتنتقل لاى سجل اخر علشان يتم الحفظ 

ثم بعدها ترفق الملف

 

ام ممكن تجرب فى حدث بعد التحديث ان تجعل النموذج يعمل Requery

 

مثل هذا الكود 

Private Sub annee_dossier_AfterUpdate()
Form.Requery
End Sub

Private Sub titre_f_AfterUpdate()
Form.Requery
End Sub

وبكده مشكلتك هتتحل ان شاء الله 

 

اتمني ان اكون قدرت اوصل لك المعلومه بشكل صحيح 

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

بعد اضافة خاصية requery

والتجربة باضافة ملفات كثيرة

حمد لله يشتغل الكود بامتياز وبدون مشاكل 

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

وشكرا كثيرا  كثيرا على الصبر و المتابعة معي 

[عمر ضاحى]

13 دقائق مضت, moho58 said:

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

بعد اضافة خاصية requery

والتجربة باضافة ملفات كثيرة

حمد لله يشتغل الكود بامتياز وبدون مشاكل 

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

وشكرا كثيرا  كثيرا على الصبر و المتابعة معي 

الحمد لله 
تحت امرك

 

[moho58]

27 دقائق مضت, عمر ضاحى said:

الحمد لله 
تحت امرك

 

شكرا 

ربي يرزقك ما تتمنى اخي الكريم