استبدال المجلد

[goldposition]

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

mm.mdb

[ابوخليل]

تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده

في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا

Dim i1
Private Sub Text1_GotFocus()
i1 = Text1
End Sub

Private Sub Text1_AfterUpdate()
Dim fs, cf
strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value
strFolder11 = CurrentProject.Path & "\" & i1
If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _
    vbQuestion + vbOKCancel, _
    "تنبيه") = vbOK Then

           Set fs = CreateObject("Scripting.FileSystemObject")
            If fs.FolderExists(strFolder11) = False Then
            Set cf = fs.createFolder(strFolder1)
            Else
            Name strFolder11 As strFolder1
            End If
    Else
    Undo
    Exit Sub
End If
End Sub

  

تغير اسم المجلد حسب قيمة الحقل.mdb

[goldposition]

تمام الله ينور عليك شكرا جدا