انا صديق جديد بالمنتدي وعندي سؤال اذا ممكن

أهلا و سهلا بك

جرب هذا

Private Sub SS_BeforeUpdate(Cancel As Integer)
    On Error GoTo ERROR_SUB
   Open "c:my document" & "MM.TXT" For Input As #1
   DoCmd.Quit

ERROR_SUB:
 If Err.Number = 53 Then
  MsgBox " No File Found" 
  Close #1
  SendKeys "{ESC}"
  DoCmd.Quit
  Exit Sub
 End If

End Sub

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

فيحدث خطأ

ورقم الخطأ المناظر هو 53 فتظهر الرسالة

جربه فلم أجربه

و علي أن أذهب الان

مع تحياتي

مشكور يا حبيبي ولكن لم يعمل معي الكود

واشكرك علي المساعده

والله الموفق

اخي محمد ....

قمت بنسخ الكود السابق وضبط الدليل كما بجهازي ووضعت الملف mm.txt في الدليل ولكن دائماً تظهر لي الرساله No File Found دليل على ان الكود يقع دائما في الخطأ رقم 53 حتى لو كان الملف المذكور موجود في الدليل ,, فما التعديل المقترح من وجهة نظرك لكي يعمل بشكل صحيح ,,

سؤال اخر .. ما فائدة العلامه شارب # في الكود الذي بأعلى وبعدها الرقم واحد 1

ولك تحياتي

وهذا مثال بسيط قمت بالتوصل اليه بعد محاولات الان ......

openform.zip

مثال جميل جدا

شوف لك بقي اسم تاني غير مبتدئ جداً

مشكور

أما بالنسبة عن ال #

فهذه طريقة كتابة ترقيم الملفات المفتوحة

و أفهمها علي انها الرقم بمعني

#1

يعني الملف رقم 1 ( مفهوم شخصي)

أما عن الكود فبما أنه يظهر الخطأ

فهو لم يجد الملف

جرب تغيير الكود الي مسار أسهل لتجنب الأخطاء

مثلا c:mm.txt

لأن مجلد MyDocument لا يوجد بعد ويندوز 98 فى المسار السالف الذكر كما انه فى ما قبل ذلك له مسافة بين الكلمتين

و المسار النمطي به مسافة و فى آخره S

و مثال الأخ مبتدئ يوصل لما تريد

لقد راجعت الكود الخاص بي

ووجدته سليم

فقط مشكلة المسار

و كتابة حروفه

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

و ان كانت طريقته عاجباني أكثر :D

checktextfile.zip

شكراً استاذي محمد طاهر على عباراتك المشجعه :D

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

والله الموفق

ممكن نسخه على أكسيس 2000 لو سمحتم ؟

لسه فيه ناس غلابه .

أشرف خليل

هنا بتنسيق 2000 مع المرفقات

checktextfile2000.zip

هذا الكود الاول:

Private Sub Command3_Click()
On Error GoTo ERROR_SUB
Open "c:my documents" & "MM.TXT" For Input As #1
MsgBox "File is Fooooooooooound"
Close #1
DoCmd.Quit

ERROR_SUB:
If Err.Number = 53 Then
MsgBox " No File Found"
Close #1
SendKeys "{ESC}"
DoCmd.Quit
Exit Sub
End If

وهذا الكود الثاني:

Private Sub Form_Open(Cancel As Integer)
Dim fs
Set fs = Application.FileSearch
With fs
    .LookIn = "C:My Documents"
    .SearchSubFolders = True
    .FileName = "mm.txt" 'here put filename you want to search
    If .Execute() > 0 Then
        MsgBox "the file is found"
    Else
        MsgBox "the file not found and can't open the form"
       DoCmd.Close  'to ignore the procedure
    End If
End With

End Sub