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

safaa salem5 · فبراير 7

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

openlogo_cmd

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

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

Logophoto

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

LOGO

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

dellogo_cmd

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

LOGO.accdb

**kkhalifa1960** · فبراير 8

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

Logo.rar

safaa salem5 · فبراير 8

1 hour ago, kkhalifa1960 said:

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

Logo.rar 699.92 kB · 5 downloads

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

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

🌷مع الشكر

3 minutes ago, safaa salem5 said:

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

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

🌷مع الشكر

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

**kkhalifa1960** · فبراير 8

ابشري 🌹

**kkhalifa1960** · فبراير 8

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

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

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

Logo-1.rar

safaa salem5 · فبراير 8

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

**kkhalifa1960** · فبراير 8

نعم تفضلي . :fff:

Logo-2.rar

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

safaa salem5 · فبراير 9

17 hours ago, kkhalifa1960 said:

نعم تفضلي .

Logo-2.rar 78.04 kB · 5 downloads

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

safaa salem5 · فبراير 9

11 minutes ago, safaa salem5 said:

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

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

error زى الصوره

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

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

safaa salem5 · فبراير 10

kkhalifa1960

**Foksh** · فبراير 10

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 · فبراير 10

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
جسب اصدار الأوفيس عندك

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

**محمد احمد لطفى** · فبراير 10

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

safaa salem5 · فبراير 10

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 · فبراير 10

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

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

safaa salem5 · فبراير 10

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** · فبراير 10

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

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

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

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

من وجهة نظري 😊

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

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

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

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

safaa salem5 · فبراير 10

2 minutes ago, Foksh said:

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

من وجهة نظري 😊

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

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

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

**Foksh** · فبراير 10

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

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

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

safaa salem5 · فبراير 10

1 minute ago, Foksh said:

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

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

**Foksh** · فبراير 11

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

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

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

Logo.zip

safaa salem5 · فبراير 11

2 hours ago, Foksh said:

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

Logo.zip 170.18 kB · 0 downloads

بيقرأ jpg فقط

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

**Foksh** · فبراير 11

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

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"

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

اه تمام

تسجيل الدخول

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

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

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information