ما معنى هذه الرسالة

أخي الحبيب :

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

On error resume next

و إن شاء الله تنتهي هذه المشكلة .

و لك مني جزيل الشكر,,, (h)

on error resume next

شوف توقف عرض الرسالة ولكنها لن تحل المشكلة ...

أخي أبو عمر 5 .. لو تضع الكود وتخبرنا ما عمله .. أعتقد بأن ذلك سيكون أسهل لنا للتعرف على المشكلة ومن ثم إعطائك الحل المناسب ...

طريقة طرحك للسؤال وكأن الرسالة خاصة جداً .. هذي رسالة عامة بشكل عملاق :D وتنتج بسبب عدد كبير من الأخطاء ...

والمعلومات التي أعطيتها لا تكفي للتحديد الخطأ المتسبب بها .. لذلك نرجو التوضيح ..

تحياتي ...

هل يوجد بكود البرنامج هذه الجمله؟

CreateObject

;) ;) :rolleyes:

بعد التحية للجميع

آسف يا أخي : عادل شريف على عدم تأخري على الرد ولكن ..

الكلمة : CreateObject

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

هل أضعها أو ماذا أفعل

اخي ابو عمرة

المشكلة تكمن في أن هناك خلل في الاداة ذات الامتداد ocx

ارجو ان تستبدلها

المشكلة يا عزيزي أنك تحاول التعامل مع Object أيا كان دون الإعلان عنه أو معرفته

مثلا تحاول ربط RecordSet بقاعدة بيانات ، وأنت لم تعرف القاعدة أصلا ، ومثل هذا ستجده عندك

والله يا شباب ما فهمت قصدكم

يعني ايش أسوي بالأكواد

قولولي مثلاً : هل أحذف كود ، استبدل كود ، وهكذا ...

وشكرا على ردودكم

أخي الكريم

ضع الكود أو الروتين اللي فيه المشكلة وأبشر

أخي الحبيب :

يجب أن تضع الكود كاملا حتى نستطيع أن نساعدك على حل مشكلتك بإذن الله .

و لك مني جزيل الشكر,,, (h)

الأدوات للبرنامج :

كومند ديلجون

درايف ليست بوكس

دير ليست بوكس

ليست بوكس

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

الأسماء للأزرار :

زر خفي المجلد ( cmdHide )

زر اظهار المجلد ( cmdShow )

الأسماء للأدوات :

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

 ليست بوكس ( Folders )

أما الباقي خلي أسمائهم

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

الأكواد للبرنامج :

أضف في قسم الفورم لود هذا الكود :

ReadFolders
--------------------------
أضف في أداة درايف ليست بوكس هذا الكود :

On Error Resume Next

Dir1.Path = Drive1.Drive

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

أضف في زر ( خفي المجلد ) هذا الكود :

On Error Resume Next
Dim FP As String
FP = Dir1.Path
If (MsgBox("هل تريد خفي هذا المجلد?" & vbCrLf & FP, vbYesNo, "Hide?") = vbYes) Then
    If (VBA.Right(FP, 2) <> ":\") Then
        ShowHide FP, False
        AddFolder FP
        ReadFolders
        Dir1.Path = Dir1.Path & "\.."
    End If
End If
-------------------------
أضف في زر ( اظهار المجلد ) هذا الكود : 
Dim FP As String
If Folders.ListIndex <> -1 Then
    FP = Folders.List(Folders.ListIndex)
    ShowHide FP, True
    RemFolder FP
    Dir1.Path = FP
    Dir1.Refresh
    Folders.RemoveItem Folders.ListIndex
End If
---------------------------
ضف إلى قسم الجنرال هذا الكود :

Private Sub ReadFolders()

Dim Content As String, tmp() As String, i As Integer

Folders.Clear

If VBA.Dir(App.Path & "\data.dat") <> "" Then

Open App.Path & "\data.dat" For Input As #1

Content = Input(LOF(1), 1)

Close #1

tmp = Split(Content, vbCrLf)

For i = 0 To UBound(tmp)

If Replace(tmp(i), vbCrLf, "") <> "" Then

Folders.AddItem Replace(tmp(i), vbCrLf, "")

End If

Next i

End If

End Sub

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

أضف قسم (( موديل )) وضع عليه هذا الكود :

Public Sub ShowHide(ByVal FolderPath As String, ByVal Show As Boolean)

Dim FS, F

Set FS = CreateObject("Scripting.FileSystemObject")

Set F = FS.GetFolder(FolderPath)

If Show = True Then

F.Attributes = 0

Else

F.Attributes = -1

End If

End Sub

Public Sub AddFolder(ByVal FolderPath As String)

Open App.Path & "\data.dat" For Append As #1

Print #1, FolderPath

Close #1

End Sub

Public Sub RemFolder(ByVal FolderPath As String)

Dim Content As String

Dim tmp() As String

Dim i As Integer

FolderPath = LCase(FolderPath)

If (VBA.Dir(App.Path & "\data.dat") <> "") Then

Open App.Path & "\data.dat" For Input As #1

Content = Input(LOF(1), 1)

Close #1

Kill App.Path & "\data.dat"

tmp = Split(Content, vbCrLf)

Content = ""

For i = 0 To UBound(tmp)

tmp(i) = LCase(tmp(i))

If Trim(tmp(i)) <> FolderPath And Trim(tmp(i)) <> "" Then

Content = Content & Replace(tmp(i), vbCrLf, "") & vbCrLf

End If

Next i

If (VBA.Len(Content) >= 2) Then

Content = VBA.Left(Content, VBA.Len(Content) - 2)

Else

Content = ""

End If

Open App.Path & "\data.dat" For Output As #1

Print #1, Content

Close #1

End If

End Sub

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

وهذا كل كود البرنامج

ويمكنكم تجربته

أخى العزيز

الخطأ عندك فى الكود التالى

Set FS = CreateObject("Scripting.FileSystemObject")

إحذف هذه الجمله ثم من قائمة Project إختر Refrance وقم بإختيار المكتبه Microsoft Scripting Runtim وأضغط موافق وقم بوضع هذا الكود فى قسم التصاريح العامه فى Medule

Public FS as New Scripting.FileSystemObject

وجرب البرنامج مره اخرى

وذا حدث أى خطأ أخر أخبرنا به

مع خالص تحياتى...

;) ;) :rolleyes:

صلح البرنامج

وشكرا للجميع