هل يمكن اخفاء كائن بناءا على اسم قاعدة البيانات

[Ahmed Aljaberi]

السلام عليكم

اخواني هل يمكن اخفاء كائن بناءا على اسم قاعدة البيانات

مثأل

لو كان اسم قاعدة البيانات Date1

عند فتحها يتم اخفاء زر الحفظ الموجود في النموذج

واذا قمت بتغيير اسمها الى اي اسم اخر يظهر الكائن المحدد

اتمنى المساعدة والتعديل على الملف في المرفقات

تحياتي

 

 

Date1.mdb

[kanory]

If Not Len(Dir("C:\Users\ACER\Desktop\Date1.mdb")) > 0 Then
Me.Com1.Visible = True
Else
Me.Com1.Visible = False
End If

 

Date1.mdb

[Ahmed Aljaberi]

59 دقائق مضت, kanory said:

If Not Len(Dir("C:\Users\ACER\Desktop\Date1.mdb")) > 0 Then
Me.Com1.Visible = True
Else
Me.Com1.Visible = False
End If

 

 

شكرا جزيلا اخي  kanory على الرد وعلى المساعده

ولكن الايشترط الكود بوجود قاعدة بيانات في سطح المكتب حسب المسار المكتوب

كيف اذا كانت ليست في هذا المسار واريد نقلها

تحياتي

 

[jjafferr]

السلام عليكم 🙂

اسم قاعدة البيانات
application.CurrentProject.Name

مسار قاعدة البيانات
application.CurrentProject.Path

اسم ومسار قاعدة البيانات
application.CurrentDb.Name

 

جعفر

[Ahmed Aljaberi]

اخي جعفر ممكن تعدلي على الكود 

الملف موجود بمشاركة الاخ kanory

واكون شاكر لك

 

[jjafferr]

وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂

 

If application.CurrentProject.Name = "Date1.mdb" Then
	Me.Com1.Visible = false
Else
	Me.Com1.Visible = true
End If

جعفر

[Ahmed Aljaberi]

الف الف شكر اخواني  الاعزاء على المساعده

تم الحل

ربي يوفقكم لا عدمناكم

[kanory]

6 ساعات مضت, jjafferr said:

وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂

 

If application.CurrentProject.Name = "Date1.mdb" Then
	Me.Com1.Visible = false
Else
	Me.Com1.Visible = true
End If

جعفر

بس قلب جميل استاذي الفاضل