الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في عرض شاشة نموذج

بدأه kafi في 8 فبراير 2012 · 2 رد · 467 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لدي برنامج عند فتح الشاشة الاولى فيه ( شاشة ادخال كلمة السر)

يجب ان يتم التأكد من وجود ملف معين اسمه Rockey4Nd.dll ضمن المسار C:\widows\system

تم كتابة الكود الذي يتأكد من وجود الملف المذكور ضمن المسار المذكور، و عمل بنجاح مع ال Msgbox التي تظهر في حال عدم وجود الملف .

Open "c:\windows\system\Rockey4ND.dll" For Input As #1
Close #1
Exit Sub


x:
MsgBox "الملف غير موجود في مكانه", vbExclamation
 'DoCmd.OpenForm "Caution_File_Rockey", acNormal
Qui

المشكلة تتلخص بمايلي :

1- ان استخدام ال Msgbox لا تنسجم مع شاشات البرنامج

2- تم تصميم نموذج باسم Caution_File_Rockey منسجم في شكله مع شاشات البرنامج

المطلوب

كيف نجعل النموذج Caution_File_Rockey يتم عرضه بدلا من ال Msgbox في حال عدم وجود الملف Rockey4Nd.dll في مكانه

ارجو تعديل المثال المرفق

المثال معمول على اكسس 2007

وشكرا جزيلا

Ex_40.rar

#2

تفضل اخي الملف بعد التعديل

في نموذج PassWord Control نضع هذا الكود عند الفتح

Private Sub Form_Open(Cancel As Integer)
Dim fileData As String
On Error GoTo Err_x

    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Application.SetOption "Confirm Action Queries", False

   Hide_Objects Me

Open "c:\windows\system\Rockey4ND.dll" For Input As #1
Close #1

Exit_Err_x:
Exit Sub
Err_x:
 DoCmd.OpenForm "Caution_File_Rockey", acNormal
End Sub

في نموذج Caution_File_Rockey عند الفتح نضع هذا الكود

Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "PassWord Control"
End Sub

za-Ex_40.rar

بالتوفيق

1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

الف الف شكر على دقة وسرعة الاجابة يا اخت زهرة

بارك الله فيك

والسلام عليكم

مواضيع مشابهة