Ahmed Aljaberi قام بنشر فبراير 8, 2019 مشاركة قام بنشر فبراير 8, 2019 السلام عليكم اخواني هل يمكن اخفاء كائن بناءا على اسم قاعدة البيانات مثأل لو كان اسم قاعدة البيانات Date1 عند فتحها يتم اخفاء زر الحفظ الموجود في النموذج واذا قمت بتغيير اسمها الى اي اسم اخر يظهر الكائن المحدد اتمنى المساعدة والتعديل على الملف في المرفقات تحياتي Date1.mdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 8, 2019 مشاركة قام بنشر فبراير 8, 2019 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 1 1 رابط هذا التعليق شارك More sharing options...
Ahmed Aljaberi قام بنشر فبراير 8, 2019 الكاتب مشاركة قام بنشر فبراير 8, 2019 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 على الرد وعلى المساعده ولكن الايشترط الكود بوجود قاعدة بيانات في سطح المكتب حسب المسار المكتوب كيف اذا كانت ليست في هذا المسار واريد نقلها تحياتي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 8, 2019 مشاركة قام بنشر فبراير 8, 2019 السلام عليكم 🙂 اسم قاعدة البيانات application.CurrentProject.Name مسار قاعدة البيانات application.CurrentProject.Path اسم ومسار قاعدة البيانات application.CurrentDb.Name جعفر 1 رابط هذا التعليق شارك More sharing options...
Ahmed Aljaberi قام بنشر فبراير 8, 2019 الكاتب مشاركة قام بنشر فبراير 8, 2019 اخي جعفر ممكن تعدلي على الكود الملف موجود بمشاركة الاخ kanory واكون شاكر لك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 8, 2019 مشاركة قام بنشر فبراير 8, 2019 وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂 If application.CurrentProject.Name = "Date1.mdb" Then Me.Com1.Visible = false Else Me.Com1.Visible = true End If جعفر 1 رابط هذا التعليق شارك More sharing options...
Ahmed Aljaberi قام بنشر فبراير 8, 2019 الكاتب مشاركة قام بنشر فبراير 8, 2019 الف الف شكر اخواني الاعزاء على المساعده تم الحل ربي يوفقكم لا عدمناكم رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 8, 2019 مشاركة قام بنشر فبراير 8, 2019 6 ساعات مضت, jjafferr said: وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂 If application.CurrentProject.Name = "Date1.mdb" Then Me.Com1.Visible = false Else Me.Com1.Visible = true End If جعفر بس قلب جميل استاذي الفاضل 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان