ماهو الكود الذي يمنع تشغيل اكثر من نسخة

للرفع

مهم جدا

ارجو من الخبراء افادتنا

هل تقصد يعمل البرنامج لمده اربع او خمس مرات ثم لا يعمل بعد هذا

لا

اقصد عند وضع قاعدة البيانات على شبكة يستطيع اكثر من شخص تشغيلها و العمل فيها.

أرغب في منع ذلك عن طريق عدم السماح لاكثر من شخص من تشغيل القاعدة و العمل بها و في حال قام شخص اخر من الدخول الى الجهاز الموجودة به القاعدة و اراد تشغيلها تظهر له رسالة تفيد بان القاعدة تعمل وتغلق القاعدة وتفقى المفتوحة في العمل و لا تتاثر بما جرى.

ارجو ان اكون قد اوضحت المطلوب جيدا

اعتقد انه من خلال خصائص المشاركة كما في الصورة التالية

حدد العدد الطلوب للسماح لهم بالمشاركة

شكرا اخي المبرمج 2003

اعتقد ان هناك كود vb وهو افضل حيث ان الطريقة التي ذكرتها يمكن ان يغيرها الزبون وهو ما لا نريده.

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

اذا لم تمتلكها استطيع نسخ الكود في المشاركةز

وشكرا

اخي الكريم stcp ياريت تضع الكود او ترفق ملف ليستفاد منه الزملاء وتكسب الاجر

وجزاك الله خير

اذهب إلى خيارات

ثم نافذة متقدم

ثم أشر على دخول حصري

كما في الصورة

عذرا لدي اكسس فرنسي

شكرا للاخوة الطاير و Daniello

هذا هو الكود

Function AnotherInstance() As Integer

Dim AppTitle$

If App.PrevInstance Then

' Hold the title of the application (title bar caption)

AppTitle$ = App.Title

' Change our application title

App.Title = "No longer want this app running..."

' Activate the previous instance

AppActivate AppTitle$

' Let calling procedure know another instance was detected

AnotherInstance = True

Else

' Let calling procedure know another instance was NOT detected

AnotherInstance = False

End If

End Function

Sub Form_Load()

' Don't want two copies of the program running at the same time

If AnotherInstance() Then End

' Note: that this routine will not work if the application's title changes

' (showing file names in the title bar for example).

End Sub

السلا م عليكم

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

بس اين اضع الكود ........علما بان البرنامج جاهز عننا .