الرجاء التعديل علي نموذج الصادر والوارد

[zero111330566]

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

وتشغيل الاسكنر لحفظ الملف برقمة داخل المجلد وادراج ملفات من الكمبيوتر تحفظ برقمها واستعراض مكانة في الكمبيوتر

واسف علي الاطاله

 

محفوظات.accdb

[محمد أبوعبدالله]

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

مرحبا اخي الكريم

بداية الافضل لقاعدة البيانات ان تكون المرفقات بجوار البرنامج وليس مدمجة في قاعدة البيانات لعدم تكبير القاعدة البيانات بدون فائدة كبيرة

لذا  اضفت حقل باسم Attachments في الجدول

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

فيرجاء التجربة واعلامي بالنتيجة

Private Sub cmd_Open_desktob_Click()

            On Error Resume Next
            Dim fs, cf, strFolder
                        strFolder = CurrentProject.Path & "\" & "AttachmentX"
            Set fs = CreateObject("Scripting.FileSystemObject")
               If fs.FolderExists(strFolder) = False Then
                  MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation
            Set cf = fs.CreateFolder(strFolder)
            If fs.FolderExists(strFolder) = True Then
               
            MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي "
            
            Else
               MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation, "Acoade 2019"
            End If
            End If


        If Len(المجال & "") = 0 Then
                MsgBox "حفل اسم المرفق فارغ", vbExclamation, "Acoade 2019"
        Else


        Dim Fpath As Variant
        Dim Fpathz As Variant
        With Application.FileDialog(3)
            .Title = "Choose File"
            .Filters.Clear
              .Filters.Clear
              .Filters.Add "Add Files", "*.png, *.jpg, *.jpeg, *.pdf, *.doc, *.docx"
            .AllowMultiSelect = False
            .InitialFileName = ""
            
         If .Show = -1 Then
           Fpathz = .SelectedItems(1)

        Dim varFile As Variant
        For Each varFile In .SelectedItems

               Me.Attachments = Application.CurrentProject.Path & "\" & "AttachmentX" & "\" & [الرقم] & "_" & [الجهة] & "_" & [المجال] & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
               FileCopy varFile, Me.Attachments
         Next
            
                
         End If
         End With
         End If

End Sub


Private Sub cmd_browse_folder_Click()
            On Error Resume Next
   
Dim sFolder As String
    With Application.FileDialog(3)
        .InitialFileName = Application.CurrentProject.Path & "\" & "AttachmentX"
        If .Show = -1 Then
            sFolder = .SelectedItems(1)
        End If
    End With
End Sub

محفوظات1.rar

تحياتي

[zero111330566]

كنت محتاج لو ضفت حاجة في المجال يتعمل له مجلد ولو ضفت حاجة في الموضوع يتعمل مجلد وهكذا

 

[zero111330566]

كنت محتاج لو ضفت حاجة في المجال يتعمل له مجلد ولو ضفت حاجة في الموضوع يتعمل مجلد وهكذا

واين كود الاسكنر

 

[محمد أبوعبدالله]

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

كنت محتاج لو ضفت حاجة في المجال يتعمل له مجلد ولو ضفت حاجة في الموضوع يتعمل مجلد وهكذا

برجاء التوضيح اكثر ماذا تريد ؟

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

واين كود الاسكنر

الحقيقة لم اجربه من قبل وارجو ان نجد احد الاخوة يساعد في هذا الجزء

تحياتي