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

[safaa salem5]

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

openlogo_cmd

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

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

Logophoto

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

LOGO

 

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

dellogo_cmd

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

LOGO.accdbFetching info...

[kkhalifa1960]

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

Logo.rarFetching info...

[safaa salem5]

  في 8‏/2‏/2024 at 08:00, kkhalifa1960 said:

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

Logo.rar 699.92 kB · 5 downloads

Expand  

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

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

🌷مع الشكر

  في 8‏/2‏/2024 at 10:01, safaa salem5 said:

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

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

🌷مع الشكر

Expand  

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

[kkhalifa1960]

ابشري 🌹

[kkhalifa1960]

  في 8‏/2‏/2024 at 10:01, safaa salem5 said:

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

Expand  

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

Logo-1.rarFetching info...

[safaa salem5]

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

[kkhalifa1960]

نعم تفضلي .

Logo-2.rarFetching info...

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

[safaa salem5]

  في 8‏/2‏/2024 at 22:16, kkhalifa1960 said:

نعم تفضلي .

Logo-2.rar 78.04 kB · 5 downloads

Expand  

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

[safaa salem5]

  في 9‏/2‏/2024 at 16:16, safaa salem5 said:

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

Expand  

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

error زى الصوره

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

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

 

[safaa salem5]

kkhalifa1960

[Foksh]

  في 9‏/2‏/2024 at 16:16, safaa salem5 said:

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

Expand  

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

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

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

  في 9‏/2‏/2024 at 16:30, safaa salem5 said:

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

error زى الصوره

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

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

 

Expand  

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

Microsoft Office 14.0 Object Library
Or
Microsoft Office 16.0 Object Library

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

[safaa salem5]

  في 10‏/2‏/2024 at 11:25, 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

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

Expand  

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

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

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

 

[safaa salem5]

  في 10‏/2‏/2024 at 11:25, 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

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

Expand  

 

 

  في 10‏/2‏/2024 at 19:28, safaa salem5 said:

 

Expand  

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

[safaa salem5]

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

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

[safaa salem5]

  في 10‏/2‏/2024 at 19:28, 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

Expand  

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

[Foksh]

  في 10‏/2‏/2024 at 20:29, safaa salem5 said:

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

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

Expand  

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

 

من وجهة نظري 😊

  في 10‏/2‏/2024 at 21:26, safaa salem5 said:

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

Expand  

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

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

[safaa salem5]

  في 10‏/2‏/2024 at 21:30, Foksh said:

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

 

من وجهة نظري 😊

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

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

Expand  

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

[Foksh]

  في 10‏/2‏/2024 at 21:33, safaa salem5 said:

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

Expand  

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

[safaa salem5]

  في 10‏/2‏/2024 at 21:36, Foksh said:

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

Expand  

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

[Foksh]

  في 10‏/2‏/2024 at 21:36, Foksh said:

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

Expand  

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

 

Logo.zipFetching info...

[safaa salem5]

  في 11‏/2‏/2024 at 16:20, Foksh said:

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

 

Logo.zip 170.18 kB · 0 downloads

Expand  

بيقرأ jpg فقط

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

[Foksh]

  في 11‏/2‏/2024 at 18:41, safaa salem5 said:

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

Expand  

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‏/2‏/2024 at 18:47, 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"

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

Expand  

اه تمام