الإيقونه فى نفس مجلد القاعدة

ساجد لله · أكتوبر 4, 2004

السلام عليكم

الإيقونه موجوده فى نفس مجلد قاعدة البيانات

وعثرت على هذا الكود

intX = AddAppProperty("AppIcon", DB_Text, "C:\myicon.ICO")

الكود السابق لتحديد مكان الإيقونه

كيف اكتب الكود بحيث ان الايقونه فى نفس المجلد ؟

**أمجد جمالي** · أكتوبر 5, 2004

السلام عليكم

تفضل

Dim CurrAppPath As String

CurrAppPath = CurrentProject.path
intX = AddAppProperty("AppIcon", DB_Text, "" & CurrAppPath & "\myicon.ICO")

**سهل احمد العريشي** · أكتوبر 5, 2004

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

شكرا على مجهودك أخي أمجد

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

أخيك سهل احمد (ابو نعيم)

**أمجد جمالي** · أكتوبر 6, 2004

السلام عليكم

ياستاذ ابو نعيم انت غني عن التعريف والشباب بارك الله فيهم مااحد يكتب الى ابو نعيم

ساجد لله · أكتوبر 6, 2004

جزاكم الله خيراً اخى امجد

الكود تمام بارك الله فيك

ولكن هل يمكن اختيار " الإستخدام كرمز نموذج وتقرير" من بدء التشغيل بالكود ايضاً

هى توجد اسفل اختيار الايقونه فى بدء التشغيل

اقصد بالكود مثل الذى سبق ذكرة بارك الله فيك ؟

**أمجد جمالي** · أكتوبر 6, 2004

السلام عليكم

راجع هذا الموضوع للاستاذ محمد طاهر

مع تحياتي

تم تعديل أكتوبر 6, 2004 بواسطه أمجد جمالي

الردود الموصى بها