كود لفتح المسار واختيار صوره وحفظ مسارها داخل حقل

[safaa salem5]

عايزه عند الضغط على زرار

openlogo_cmd

يتم فتح المسار لاختيار صوره بجميع امتدادات الصور

وعند اختيار احدها تظهر فى 

Logophoto

ويحفظ امتدادها فى حقل 

LOGO

 

وعند الضغط على زرار

dellogo_cmd

يتم حذف الصوره وامتدادها من حقل LOGO

LOGO.accdb

[kkhalifa1960]

تفضلي استاذة @safaa salem5 محاولتي .

Logo.rar

[safaa salem5]

1 hour ago, kkhalifa1960 said:

تفضلي استاذة @safaa salem5 محاولتي .

Logo.rar 699.92 kB · 5 downloads

لو سمحت ممكن تطبق على نفس الجدول

وعايزه لما احذف يحذف الفيلد فقط اللى اسمه  لوجو اللى بيحتوى على مسار الصوره ويترك باقى السجل لانه هيكون بيحتوى اعدادات اخرى للبرنامج

🌷مع الشكر

3 minutes ago, safaa salem5 said:

لو سمحت ممكن تطبق على نفس الجدول

وعايزه لما احذف يحذف الفيلد فقط اللى اسمه  لوجو اللى بيحتوى على مسار الصوره ويترك باقى السجل لانه هيكون بيحتوى اعدادات اخرى للبرنامج

🌷مع الشكر

واسم اللوجو مش محتاجاه

[kkhalifa1960]

ابشري 🌹

[kkhalifa1960]

6 ساعات مضت, safaa salem5 said:

واسم اللوجو مش محتاجاه

حقلان لابد من وجودهم اسم اللوجو (LogoName) الذي سيحفظ بها بمجلد الصور (MyLogo)  ومسار اللوجو (LogoPath) الذي نستدعي منه اللوجو . تفضلي المرفق بعد التعديل حسب طلبك .

Logo-1.rar

[safaa salem5]

هل ممكن الاستغناء عن حقل اسم اللوجو

[kkhalifa1960]

نعم تفضلي .

Logo-2.rar

تم تعديل فبراير 9 بواسطه kkhalifa1960

[safaa salem5]

17 hours ago, kkhalifa1960 said:

نعم تفضلي .

Logo-2.rar 78.04 kB · 5 downloads

 اسفه لو هتعبك ممكن نحول الاستعلام الحذف لكود 

[safaa salem5]

11 minutes ago, safaa salem5 said:

 اسفه لو هتعبك ممكن نحول الاستعلام الحذف لكود 

لما نقلت الكود عندى عمل

error زى الصوره

لو محتاج تعريف مكتبه refrances

قولى اوصل ليها  ازاى

 

[safaa salem5]

kkhalifa1960

[Foksh]

19 ساعات مضت, safaa salem5 said:

 اسفه لو هتعبك ممكن نحول الاستعلام الحذف لكود 

مشاركة مع الأستاذ خليفة ، تفضلي باستبدال الجزء التالي 

DoCmd.OpenQuery "Dlt_Logo"

بالجزء التالي

Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE settings_Report_tbl SET settings_Report_tbl.LogoPath = Null " & _
         "WHERE (((settings_Report_tbl.LogoPath)=[forms]![settings_report_frm]![LogoPath]));"
db.Execute strSQL
Set db = Nothing

عوضاً عن الاستعلام .

18 ساعات مضت, safaa salem5 said:

لما نقلت الكود عندى عمل

error زى الصوره

لو محتاج تعريف مكتبه refrances

قولى اوصل ليها  ازاى

 

زي ما هو واضح من الكود ، تأكدي من المكتبة اذا موجودة عندك في الملف الأساسي اللي بتنقلي الكود له

Microsoft Office 14.0 Object Library
Or
Microsoft Office 16.0 Object Library

جسب اصدار الأوفيس عندك

[safaa salem5]

2 hours ago, Foksh said:

مشاركة مع الأستاذ خليفة ، تفضلي باستبدال الجزء التالي 

DoCmd.OpenQuery "Dlt_Logo"

بالجزء التالي

Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE settings_Report_tbl SET settings_Report_tbl.LogoPath = Null " & _
         "WHERE (((settings_Report_tbl.LogoPath)=[forms]![settings_report_frm]![LogoPath]));"
db.Execute strSQL
Set db = Nothing

عوضاً عن الاستعلام .

زي ما هو واضح من الكود ، تأكدي من المكتبة اذا موجودة عندك في الملف الأساسي اللي بتنقلي الكود له

Microsoft Office 14.0 Object Library
Or
Microsoft Office 16.0 Object Library

جسب اصدار الأوفيس عندك

اوصل للمكتبه ازاى بالصور ياريت

[محمد احمد لطفى]

تفضلى من صفحة كتابة الأكواد من الوحدة النمطية او النموذج

 

[safaa salem5]

9 hours ago, Foksh said:

مشاركة مع الأستاذ خليفة ، تفضلي باستبدال الجزء التالي 

DoCmd.OpenQuery "Dlt_Logo"

بالجزء التالي

Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE settings_Report_tbl SET settings_Report_tbl.LogoPath = Null " & _
         "WHERE (((settings_Report_tbl.LogoPath)=[forms]![settings_report_frm]![LogoPath]));"
db.Execute strSQL
Set db = Nothing

عوضاً عن الاستعلام .

زي ما هو واضح من الكود ، تأكدي من المكتبة اذا موجودة عندك في الملف الأساسي اللي بتنقلي الكود له

Microsoft Office 14.0 Object Library
Or
Microsoft Office 16.0 Object Library

جسب اصدار الأوفيس عندك

 

 

59 minutes ago, safaa salem5 said:

 

تم تعديل فبراير 10 بواسطه safaa salem5

[safaa salem5]

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

يعنى هل فى كود ممكن يقوم بالمهمة دى

[safaa salem5]

1 hour ago, safaa salem5 said:

im db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE settings_Report_tbl SET settings_Report_tbl.LogoPath = Null " & _
         "WHERE (((settings_Report_tbl.LogoPath)=[forms]![settings_report_frm]![LogoPath]));"
db.Execute strSQL
Set db = Nothing

الصوره بتتمسح من الفورم لكن المسار بتاعها بيفضل موجود فى الجدول  انا عايزه المسار كمان يتمسح

[Foksh]

منذ ساعه, safaa salem5 said:

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

يعنى هل فى كود ممكن يقوم بالمهمة دى

المكتبات وُجدت للتخفيف من الاكواد والاستدعاءات البرمجية ، وبالعكس هي أسهل ومختصرة للوقت والجهد البرمجي .

 

من وجهة نظري 😊

4 دقائق مضت, safaa salem5 said:

الصوره بتتمسح من الفورم لكن المسار بتاعها بيفضل موجود فى الجدول  انا عايزه المسار كمان يتمسح

هذا كان الاستعلام اللي موجود في مشروعك 🙄

لكن ممكن تطويره طبعاً حسب حاجتك

[safaa salem5]

2 minutes ago, Foksh said:

المكتبات وُجدت للتخفيف من الاكواد والاستدعاءات البرمجية ، وبالعكس هي أسهل ومختصرة للوقت والجهد البرمجي .

 

من وجهة نظري 😊

هذا كان الاستعلام اللي موجود في مشروعك 🙄

لكن ممكن تطويره طبعاً حسب حاجتك

طيب عايزاه يمسح مسار الصوره من الجدول لو سمحت

[Foksh]

2 دقائق مضت, safaa salem5 said:

طيب عايزاه يمسح مسار الصوره من الجدول لو سمحت

دي بسيطة ، حعدل على الاستعلام وارفقه في المشاركة التالية .

[safaa salem5]

1 minute ago, Foksh said:

دي بسيطة ، حعدل على الاستعلام وارفقه في المشاركة التالية .

يمسح حقل مش سجل كامل.. تمام

[Foksh]

18 ساعات مضت, Foksh said:

دي بسيطة ، حعدل على الاستعلام وارفقه في المشاركة التالية .

تم تعديل الكود بالكامل ، تفضلي

 

Logo.zip

[safaa salem5]

2 hours ago, Foksh said:

تم تعديل الكود بالكامل ، تفضلي

 

Logo.zip 170.18 kB · 0 downloads

بيقرأ jpg فقط

عايزه يقرأ كل امتدادات الصور

[Foksh]

5 دقائق مضت, safaa salem5 said:

عايزه يقرأ كل امتدادات الصور

FDialog.Filters.Add "Format Pic Is JPG", "*.Jpg"
FDialog.Filters.Add "Format Pic Is PNG", "*.Png"
FDialog.Filters.Add "Format Pic Is GIF", "*.Gif"
FDialog.Filters.Add "Format Pic Is BMP", "*.Bmp"

هل تكفي هذه الإمتدادات ؟

[safaa salem5]

11 minutes ago, Foksh said:

FDialog.Filters.Add "Format Pic Is JPG", "*.Jpg"
FDialog.Filters.Add "Format Pic Is PNG", "*.Png"
FDialog.Filters.Add "Format Pic Is GIF", "*.Gif"
FDialog.Filters.Add "Format Pic Is BMP", "*.Bmp"

هل تكفي هذه الإمتدادات ؟

اه تمام