عرض صور في الشاشة الرئيسية

[Zooro1]

الأخوة الافاضل،  هل لدي احد فكرة عن ازاي اعمل عرض لاكثر من صورة في النموذج الرئيسي بعد صفحة الدخول.

مثلا عرض ٤ صور خلف بعض وبين كل صورة والثانية دقيقة مثلا، وياخد مسار الصور من جدول خاص بالصور والجدول يحتوي علي الصور وكل صورة لها صلاحية بداية من تاريخ ١٥/٦ الي  انتهاء تاريخ مثلا ٣٠/٦ ويعرض الصور دي وبعد التاريخ تنتهي صلاحيتها 

وبعد ما تنتهي يعرض الصور اللي بالتاريخ الجديد.

لو في احد عنده مثال كده يزودني به واكون شاكر.

اتمني اكون وصلت الفكرة لكم.

[ابو جودي]

بسيطة اعمل الاتى 
اولا جدول باسم tblImages
اضف الى الجدول الحقول الاتية 

ImagePath (مسار الصورة، نص)
StartDate (تاريخ بداية صلاحية الصورة، تاريخ/وقت)
EndDate (تاريخ انتهاء صلاحية الصورة، تاريخ/وقت)
 

انشئ نموذج بالاسم الذى تريد
اضف عنصر تحكم صورة غير منضم على ان يكون اسمه مثلا objImg

وضع الاكواد الاتية
 

Option Compare Database
Option Explicit

Const DelayInSeconds As Integer = 5 ' Passing time in seconds

Private Sub Form_Open(Cancel As Integer)
    ' Assigning the image control to an empty image when the form opens
    Me.objImg.Picture = ""
    ' Running the form's timer
    Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
    Static rs As DAO.Recordset
    Static ImageCounter As Integer
    Dim ImagePath As String
    
    ' Checking for the existence of the selected records set
    If rs Is Nothing Then
        Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblImages WHERE EndDate >= Date()")
        ImageCounter = 0 ' Resetting the image counter
    End If
    
    ' Checking for the existence of images to display
    If Not rs.EOF Then
        ' Displaying the images sequentially with a time delay
        ImagePath = rs!ImagePath
        Me.objImg.Picture = ImagePath ' Replace YourImageControl with the correct name of the image control in the form
        Me.Refresh
        ' Waiting for the time delay before displaying the next image
        Delay DelayInSeconds
        rs.MoveNext
        ImageCounter = ImageCounter + 1
        ' Checking if we have reached the last record
        If rs.EOF Then
            ' Closing the form when reaching the last record
            DoCmd.Close acForm, Me.Name
        End If
    Else
        ' No images to display
        MsgBox "No images to display.", vbInformation, "Image Display"
        ' Closing the form if there are no images to display
        DoCmd.Close acForm, Me.Name
    End If
End Sub

Private Sub Delay(seconds As Integer)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now)
    Do Until Now >= endTime
        DoEvents
    Loop
End Sub

تم تعريف ثابت لتحديد فاصل الزمن بالثواني في رأس الاكواد في النموذج

في حدث فتح النموذج يتم تعيين الصورة لتكون فارغة وتشغيل المؤقت

في حدث المؤقت يتم فتح مجموعة السجلات وفحص وجود الصور للعرض

إذا كان هناك صور يتم عرض الصورة الحالية وانتظار الفاصل الزمني

بعد ذلك يتم التحقق مما إذا كان السجل الحالي هو الأخير وإذا كان كذلك يتم إغلاق النموذج

والكود يعتمد على جدول يحتوي على مسارات الصور مع تواريخ بداية ونهاية لكل صورة

[ابو جودي]

مرفق للتجربة 

فقط للتجربة وليس للإضافة الى المكتبة العامرة 

 

img.zip

[Zooro1]

2 ساعات مضت, ابو جودي said:

مرفق للتجربة 

فقط للتجربة وليس للإضافة الى المكتبة العامرة 

 

img.zip 1.1 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

الف شكر اخي ابو جودي علي دعمك ، اشوفه واقولك يا غالي 

[ابو جودي]

خير يا استاذ @kanory انت تستخدم الايموجى مشوش ليه

فى مشكلة فى الكود او التطبيق المرفق 

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

 

[kanory]

7 دقائق مضت, ابو جودي said:

فى مشكلة فى الكود او التطبيق المرفق 

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

 

لم اقصد هذا ولكن ....

5 ساعات مضت, ابو جودي said:

فقط للتجربة وليس للإضافة الى المكتبة العامرة 

 

اردت اضافتها لدي ... وعندما قرأت هذه العبارة حذفتها ظنا مني انها غير قابلة للنشر والاستخدام الشخصي ههههههه بارك الله فيك مهندسنا ومروض الاكسس @ابو جودي

وانا اعرف انك لم تقصد عدم الاضافة للمكتبة ( اي عدم استخدام تلك الاكواد ) ولكني حبيت امازحك قليلا .... 🌹

[ابو جودي]

14 دقائق مضت, kanory said:

اعرف انك لم تقصد عدم الاضافة للمكتبة

لا انا قصدتها تماما ولكن امازح بها اخى صاحب المكتبة العامرة الاستاذ @Moosak 

[hanan_ms]

only Cod 

if me.EndDate > date then !!

===========================

اضافة برق مع الرعد 😂

 انار ما حولهم اذا مشو فيه 😂

======================

اختيار اعلانات بتاريخ الصلاحية

او عرض صور بطريقة البوم

 فقط للتجربة وليس للإضافة الى المكتبة العامرة 

====================================

استاذي @ابو جودي صدمتني بصور المرفقة 

❤️🌹

 

img.part1.rar

img.part2.rar

[Moosak]

14 ساعات مضت, ابو جودي said:

مرفق للتجربة 

فقط للتجربة وليس للإضافة الى المكتبة العامرة 

 

img.zip 1.1 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 8 downloads

شغل عالي الجودة منك حبيب الشعب @ابو جودي 

وشيييييييييييييييل على المكتبة دغري 

******************************************************

قبل ما أشوف مشاركتك أنا كنت عامل الفكرة دي من زمان بس بدون تواريخ بداية ونهاية ...
وبعد ما شفت مشاركتك سرقت منك فكرة التواريخ 🙈

 

وهذي مشاركتي بس مع بهاراتي الخاصة 😎
عملت نموذجين واحد مع موئثرات حركية جميلة ، والثاني تقليب الصور بدون حركات 🙂 

وعلى فكرة بعد ما يوصل لنهاية الصور يعيد يعرض الصورة الأولى من جديد ، يعني يلف ويدور بشكل لا نهائي 

والملف اللي يشرح نفسه 🙂 :

مستعرض صور متحرك.rar

( ملاحظة : ضروري لما تفك الضغط تبقى مجلد الصور بجانب قاعدة البيانات )

 

[AlwaZeeR]

من باب الاثراء لهذا المثال الجميل

اضافة بسيطة لجلب اسماء الصور دون الحاجة لتعديل المسار
يتم جلب المسارات للصور تلقائي مجرد فتح النموذج الخاص بالاستعراض

img-links.zip

تم تعديل يونيو 13 بواسطه AlwaZeeR

[hanan_ms]

 مشاركتي معكم ومع استاذي @ابو جودي 

@Moosak وهذي مشاركتي بس مع بهاراتي الخاصة 😎

حبيت 😂

1-يمكن نقل البرنامج لاي جهاز ثاني عند السحب يأخذ اسم الملف مع تجزئة المسار ويتعرف من البداية اذا كان جهاز آخر وتحديث Aouto

2-اضافة كتابة عناوين للصور بقائمة البوم 

3-عدلة وصلحة تحريك وعرض الصور

5-امكانية جعل الصور ممتده او محجمة بضغطة زر

6-عرض تقديمي موضيئ 😂

وبرق يطلع من الشاشة

=========================

 

Aouto_Give_And_Swho_And_Allbom_img.part1.rar

Aouto_Give_And_Swho_And_Allbom_img.part2.rar

Aouto_Give_And_Swho_And_Allbom_img.part3.rar

Aouto_Give_And_Swho_And_Allbom_img.part4.rar

 😂 اذا كان جودة الصورة معقولة تجد البرنامج سلس اما اذا كان ذا جودة واطار عالي تشوف اضواء

يحتاج الى بعض التعديل 😇

وشكرا لكم ولاستاذي @ابو جودي

❤️🌹🌹

[hanan_ms]

 وتم اضافة دالة من استاذي @ابو جودي ❤️🌹🌹

100% لأعادة الترقيم

احذف الصور واضافة صور جديده يكون مسار الصور المضافه جنب قاعدة

وانتظروا التحديث 😇

[kanory]

إذن حان الوقت لاضافة هذه الامثلة للمكتبة .....

شكرا لكم 

@ابو جودي

@Moosak

@AlwaZeeR

وتقبلوا تحياتي لكم ....

[ابو جودي]

سوف اقوم ببعض التعديلات

[hanan_ms]

تحديث سريع للاضافات فقط

1-اضافة (3D) _مع خيار تفعيل والغاء بزر

2-اضافة مكتبة كافة الصور المضافة ميزه حلوه من غير حمل 

بكود اسهل Me ( "r" & rng_Book) * me.scrollbar

===================================

سوف اقوم ببعض التعديلات❤️

مع استاذي @ابو جودي

🌹🌹

 

Book_img_Aouto.part1.rar

Book_img_Aouto.part2.rar

Book_img_Aouto.part3.rar

Book_img_Aouto.part4.rar

[ابو جودي]

في 13‏/6‏/2024 at 01:59, hanan_ms said:

استاذي @ابو جودي صدمتني بصور المرفقة 

 

ليه الصدمة يا باش مهندسة مش فاهم حضرتك تقصدى ايه  

وبعد اذنك عجبتنى الفكرة

واستأذن فى عمل بعض التعديلات 

 

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

ولكن يا استاذى القدير و معلمى الجليل استاذ @AlwaZeeR  

بما انك اقترحت

16 ساعات مضت, AlwaZeeR said:

جلب اسماء الصور دون الحاجة لتعديل المسار

 

ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة 

كله عمال يحط بهارت جت على انا يعنى 

لن اشرح شئ ولكن انتظر منكم الرد بعد التجربة 

الكود ذكى وشاطر لما بيقتح بدون مسارات بيطلب منك تحدد مجلد الصور ومن تلقاء نفسه وبذكائه يروح جايب مسارت الصور ونركز فى كلمة الصور دى

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

 

Images V2.accdb

[Zooro1]

2 ساعات مضت, ابو جودي said:

ليه الصدمة يا باش مهندسة مش فاهم حضرتك تقصدى ايه  

وبعد اذنك عجبتنى الفكرة

واستأذن فى عمل بعض التعديلات 

 

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

ولكن يا استاذى القدير و معلمى الجليل استاذ @AlwaZeeR  

بما انك اقترحت

 

ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة 

كله عمال يحط بهارت جت على انا يعنى 

لن اشرح شئ ولكن انتظر منكم الرد بعد التجربة 

الكود ذكى وشاطر لما بيقتح بدون مسارات بيطلب منك تحدد مجلد الصور ومن تلقاء نفسه وبذكائه يروح جايب مسارت الصور ونركز فى كلمة الصور دى

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

 

Images V2.accdb 704 kB · 0 downloads

استاذنا الغالي ، اتعبكم معايا ، هو ينفع  نعمله داخل موديول ونستدعيه من النموذج الرئيسي. 

وممكن اقدر استدعيه من اي نموذج اخر 

وشكرا ليكم كلكم 

[Zooro1]

الأخوة الافاضل هل من الممكن عمل هذه الصور داخل موديول واستدعيه من النموذج اللي اختاره 

[hanan_ms]

On 6/14/2024 at 6:50 AM, ابو جودي said:

ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة 

كله عمال يحط بهارت جت على انا يعنى 

😂😇

استاذي @ابو جودي ❤️🌹🌹

الرعد قبل يوم العيد 😂

 !تم انتهاء من بعض التعديلات يعني كامل 

❤️🌹

 

1- اضافة مكتبة مع التحديث

2- اضافة تحديد الوسائط الصور او الكل

3- عرض مكتبة من غير حمل مع التصحيح والمكتبة صور 

4-تحرير والحذف الصور من المكتبة المحدد 

5-اضافة تحريك اكشن ما يوقف الا بعد ضغط على زر العرض والايقاف

[hanan_ms]

=======================================

تحميل 

App_IMG_BooK V1.part1.rar

App_IMG_BooK V1.part2.rar

App_IMG_BooK V1.part3.rar

[ابو جودي]

مش عارف ليه عندى احساس عميق @hanan_ms  هو نفس العضو باسم Ezril

نفس اسلوب العرض وتقريبا نفس اسلوب تقديم قواعد البيبانات بالتنسيق والافكار

 

[hanan_ms]

لا مو Ezril  ؟!!!

هذا من تأثير البرق 😂

انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️

واكثر

و @Moosak

و Ezril

و عبدالغفار

و @Ahmos

واجنبي 😇

الكل لهم الشكر والامتنان

  وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات 

شكله مرفقي شحنته مضروبة 😂

استاذي @ابو جودي ❤️🌹

هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم 

😇 وكل سنة جديده من غير تنشيط 

 

  + وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور 

واضافة دالة @Ahmos 

جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة

❤️🌹🌹

[Zooro1]

في 16‏/6‏/2024 at 14:17, hanan_ms said:

لا مو Ezril  ؟!!!

هذا من تأثير البرق 😂

انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️

واكثر

و @Moosak

و Ezril

و عبدالغفار

و @Ahmos

واجنبي 😇

الكل لهم الشكر والامتنان

  وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات 

شكله مرفقي شحنته مضروبة 😂

استاذي @ابو جودي ❤️🌹

هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم 

😇 وكل سنة جديده من غير تنشيط 

 

  + وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور 

واضافة دالة @Ahmos 

جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة

❤️🌹🌹

 

في 15‏/6‏/2024 at 19:32, hanan_ms said:

=======================================

تحميل 

App_IMG_BooK V1.part1.rar 800 kB · 13 downloads

App_IMG_BooK V1.part2.rar 800 kB · 20 downloads

App_IMG_BooK V1.part3.rar 300.13 kB · 17 downloads

سؤال بس ، ممكن عمل هذه الاكواد داخل موديول واستدعيه من داخل النموذج 

[hanan_ms]

استاذي @ابو جودي ليش متضايق ❤️🌹

شوف اشلون عرض برنامج نفس @Moosak فقط

Gif يشرح

==========================

يمكن احاول اقلدكم على طريقتكم

استاذي @ابو جودي عط زفير وكمداة بارده 😂

الرعود اثرة فيني

==========================

ثري دي للصور مع التعديل

صححة مكتبة الصور 

زودة لكم تأثيرات الفيديو 

😇تغير العرض وستخدام كود التايمر

 

هل المره انتم تضيفون الصور

ما يزعل صاحب المكتبة العامرة @Moosak

🌹😇

شرح طيرقة الاستخدام Gif

من العروض تقديمية للصور المضاف الى مكتبة

عرض مكتبة الصور 

100%

 

تم تعديل يونيو 17 بواسطه hanan_ms

[hanan_ms]

3D_IMG_BooK_V1.rar

2 hours ago, Zooro1 said:

سؤال بس ، ممكن عمل هذه الاكواد داخل موديول واستدعيه من داخل النموذج 

شنو الاكواد الي بتخليهم في موديول؟