مشكلة فى هذا البرنامج

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

Private Sub Form_Open(Cancel As Integer)

If CurrentProject.Path = "c:\godaa" Then

If CurrentProject.Name = "godaa.mdb" Then

Else

MsgBox "Êã ÊÛííÑ ãÓãì ÇáÈÑäÇãÌ æáä ÊÊãßä ãä ÊÔÛíáå " & vbCrLf _

& "áÐÇ ÓíÌÑì ÇÛáÇÞ ÇáÈÑäÇãÌ Ü "

DoCmd.Quit

End If

Else

MsgBox "Êã ÊÛííÑ ãÓÇÑ ÇáÈÑäÇãÌ " & vbCrLf _

& "áÐÇ ÊÓíÊã ÇÛáÇÞ ÇáÈÑäÇãÌ "

DoCmd.Quit

Application.SetOption "Confirm Action Queries", False

CurrentDb.TableDefs("3000").Attributes = dbHiddenObject

End If

End Sub

لذا عليك انشاء مجلد في القرص الصلب وتسميه "c:\godaa" وتضع البرنامج فيه ثم ( فوالا ) إبدأ العمل

دمت بود

شكراً اخى الكريم على تفضلك بالرد

ولكن اعذرنى فانا لا افهم المقصود بالجملة التالية :-

اقتباس

ثم ( فوالا ) إبدأ العمل

كما وأنى قمت بانشاء مجلد على الـ C

ووضعت به البرنامج ولكن ظهرت نفس الرسالة

؟؟؟

هل من الممكن أخى ان تقوم بإزالة تلك الشفرة

وشكراً مرة ثانية

omranelnopy2 كتب:

شكراً اخى الكريم على تفضلك بالرد

ولكن اعذرنى فانا لا افهم المقصود بالجملة التالية :-

كما وأنى قمت بانشاء مجلد على الـ C

ووضعت به البرنامج ولكن ظهرت نفس الرسالة

؟؟؟

هل من الممكن أخى ان تقوم بإزالة تلك الشفرة

وشكراً مرة ثانية

لا بد أن تسمى المجلد godaa حتى يعمل التطبيق بشكل سليم ومع هذا بامكانك إزالة الشفرة بنفسك من كل النماذج وهي واضحة وسهلة ولا تحتاج الى مجهود كبير منك.

كلمة ( فوالا ) فرنسية يعني تفضل

تحية

السلام عليكم

البرامج المصممة من قبل مبرمجين آخرين و مغلقة قد تكون محمية يا أخي

شكراً يا اخى

فقد قمت بإزالة الشفرة

وتم العمل معى بشكل سليم

شكراً مرة أخرى