ادراج الصور في النماذج و التقارير

كل الشكر لكم

و من زمان بدور على هيك عملية ادراج الصور

شكراً ع الشرح والمثال

اسم مخالف 51 كتب:

شكراً ع الشرح والمثال

طيب لو عايز اعرض الصور فى نموذج جدولى ما الحل

لانه بيكرر اول صور للكل

الاخت الفاضلة زهرة واجهت مشكلة حين قمت باستخدام ما تم ذكره

The code in this project must be updated for use on 64-bit system. Please review and update Declare statements and then mark them with the PtrSafe attribute

فما الحل بارك الله فيك

الاخت الفاضلة زهرة واجهت مشكلة حين قمت باستخدام ما تم ذكره

The code in this project must be updated for use on 64-bit system. Please review and update Declare statements and then mark them with the PtrSafe attribute

فما الحل بارك الله فيك

abo issa كتب:

الاخت الفاضلة زهرة واجهت مشكلة حين قمت باستخدام ما تم ذكره

The code in this project must be updated for use on 64-bit system. Please review and update Declare statements and then mark them with the PtrSafe attribute

فما الحل بارك الله فيك

اخي الفاضل : ابو عيسى

انت تستخدم نظام 64 بت لذا استبدل الأسطر الثلاثة الأولى بهذه الأسطر

Private Declare PtrSafe Function ts_apiGetOpenFileName Lib "comdlg32.dll"  Alias "GetOpenFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function ts_apiGetSaveFileName Lib "comdlg32.dll"  Alias "GetSaveFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

zahrah كتب:

 

اخي الفاضل : ابو عيسى

 

انت تستخدم نظام 64 بت لذا استبدل الأسطر الثلاثة الأولى بهذه الأسطر

 

Private Declare PtrSafe Function ts_apiGetOpenFileName Lib "comdlg32.dll"  Alias "GetOpenFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function ts_apiGetSaveFileName Lib "comdlg32.dll"  Alias "GetSaveFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

 

الفرق بين الأسطر السابقة 32 بت  و  64 بت  هو اضافة كلمة PtrSafe  بعد كلمة  Declare  بمعنى اصبحت الأسطر بعد التعديل بهذه الطريقة  Private Declare PtrSafe Function

 

 

بالتوفيق

 

الاخت الفاضلة و الاستاذة الكريمة زهرة بارك الله فيكِ و حفظكِ

في موضوع سابق طلبت امكانية جعل الوحدات النمطية تعمل على الـ 32 بت و الـ 64 بت في نفس الوقت و قد قمتِ مشكورة بطلب وضع برنامج ليتم فحص الوحدات و قد تأخرت في وضعه حينها و أنتِ مع كثرة المهام و الطلبات ربما لم تنتبهي لطلبي و اضع لكِ الرابط هنا من جديد 

و لكِ جزيل الشكر سلفا  +1 تقديرا لكِ و لجهودكِ 

الرابط هنا

Kamali_82 كتب:

الاخت الفاضلة و الاستاذة الكريمة زهرة بارك الله فيكِ و حفظكِ

في موضوع سابق طلبت امكانية جعل الوحدات النمطية تعمل على الـ 32 بت و الـ 64 بت في نفس الوقت و قد قمتِ مشكورة بطلب وضع برنامج ليتم فحص الوحدات و قد تأخرت في وضعه حينها و أنتِ مع كثرة المهام و الطلبات ربما لم تنتبهي لطلبي و اضع لكِ الرابط هنا من جديد 

و لكِ جزيل الشكر سلفا  +1 تقديرا لكِ و لجهودكِ 

الرابط هنا

راجع المشاركة الخاصة بك فقط وضعنا لك الحل بها

/index.php/topic/288430-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%AC%D8%B9%D9%84-%D8%A7%D9%84%D9%88%D8%AD%D8%AF%D8%A7%D8%AA-%D8%A7%D9%84%D9%86%D9%85%D8%B7%D9%8A%D8%A9-%D8%A7%D9%88-%D8%A7%D9%84%D9%83%D9%88%D8%AF%D8%A7%D8%AA-%D8%AA%D8%B9%D9%85%D9%84-%D8%B9%D9%84%D9%89-%D8%A7/

بالتوفيق

zahrah كتب:

راجع المشاركة الخاصة بك فقط وضعنا لك الحل بها

 

/index.php/topic/288430-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%AC%D8%B9%D9%84-%D8%A7%D9%84%D9%88%D8%AD%D8%AF%D8%A7%D8%AA-%D8%A7%D9%84%D9%86%D9%85%D8%B7%D9%8A%D8%A9-%D8%A7%D9%88-%D8%A7%D9%84%D9%83%D9%88%D8%AF%D8%A7%D8%AA-%D8%AA%D8%B9%D9%85%D9%84-%D8%B9%D9%84%D9%89-%D8%A7/

 

بالتوفيق

بارك الله فيكِ و حفظكِ أختي الفاضلة و جزاكِ خيراً و وفقكِ لما يُحبهُ و يرضاه

zahrah كتب:

 

اخي الفاضل : ابو عيسى

 

انت تستخدم نظام 64 بت لذا استبدل الأسطر الثلاثة الأولى بهذه الأسطر

 

Private Declare PtrSafe Function ts_apiGetOpenFileName Lib "comdlg32.dll"  Alias "GetOpenFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function ts_apiGetSaveFileName Lib "comdlg32.dll"  Alias "GetSaveFileNameA" (tsFN As tsFileName) As Boolean
 
Private Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

 

الفرق بين الأسطر السابقة 32 بت  و  64 بت  هو اضافة كلمة PtrSafe  بعد كلمة  Declare  بمعنى اصبحت الأسطر بعد التعديل بهذه الطريقة  Private Declare PtrSafe Function

 

 

بالتوفيق

 

اختي الفاضلة زهرة بارك الله بكي و شكرا لكي كنت بحث هنا فوجدت في هذا الموضوع رد لكي عليه

/index.php/topic/285546-declare-statements-on-64-bit/

و قلتي ان يجب تغيير مؤشرات اخرى مثل

اخي الفاضل : ابو عيسى

استخدم الأسطر الثلاثه التي عدلتها لك فقط ولا تغير اي شيء

بالتوفيق

zahrah كتب:

اخي الفاضل : ابو عيسى

 

استخدم الأسطر الثلاثه التي عدلتها لك فقط ولا تغير اي شيء

 

بالتوفيق

شكرا اختي الفاضلة

ما شاء الله روووووعه

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

f11 كتب:

لا اعتبر هذا عيباً ، والحل الذي اطرحة هو :

1 - حفظ اسم الصورة فقط بدون المسار (PATH)

2 - تعريف دالة بهذا الشكل في وحدة نمطية Module

 

Function ImgPath() As String
'الصور على نفس مسار قاعدة البيانات
ImgPath = Application.CurrentProject.Path + "\"

'الصور داخل مجلد img الموجود في نفس مسار قاعدة البيانات
'ImgPath = Application.CurrentProject.Path + "\img\"

End Function

3 - عند الاشارة الى اسم الصورة تستخدم الدالة السابقة بمثال شبيه :

Me![ImageFrame].Picture = ImgPath()  &  Me![ImageP

ارجو التفصيل في طريقة عدم فقدان الارتباط بالصور بمثال يمكننا من تحزيم القاعدة مع مجلد تخزين الصور و يحبذ أن يعمم ذلك ليكون على ارتباط بملفات و ليس صور فحسب أعتقد أن ذلك سيكون مفيداً جداً في حالة بعض البرامج التحتوي اصلاً على كم كبير من المعلومات بشكل ملفات و صورو لكم فائق الشكر و الاحترام و التقدير  

رحم الله والديك