اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

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

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

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

قام بنشر

بسيطة اعمل الاتى 
اولا جدول باسم 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

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

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

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

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

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

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

  • Like 1
  • أفضل إجابة
قام بنشر

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

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

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

 

  • Haha 1
قام بنشر
7 دقائق مضت, ابو جودي said:

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

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

 

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

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

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

 

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

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

  • Haha 1
قام بنشر
14 دقائق مضت, kanory said:

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

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

  • Haha 2
قام بنشر

only Cod 

if me.EndDate > date then !!

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

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

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

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

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

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

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

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

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

❤️🌹

 

rm.gif

1~4.jpg

2~3.jpg

img.part1.rar

img.part2.rar

  • Like 2
قام بنشر
14 ساعات مضت, ابو جودي said:

مرفق للتجربة :wink2:

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

 

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

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

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

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

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

 

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

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

image.gif.99b7b8181e358c72612094f708f26674.gif

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

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

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

 

  • Like 3
  • Thanks 1
قام بنشر (معدل)

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

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

img-links.zip

تم تعديل بواسطه AlwaZeeR
  • Like 4
قام بنشر

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

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

حبيت 😂

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

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

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

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

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

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

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

 

x3~1.jpg

x4.jpg

Qx 1.gif

Qx 2.gif

Qx 3.gif

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

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

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

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

❤️🌹🌹

قام بنشر

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

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

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

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

قام بنشر

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

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

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

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

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

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

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

🌹🌹

 

nx.gif

x3~2.jpg

x2~2.jpg

x1~2.jpg

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:

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

 

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

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

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


1~4.jpg

 

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

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

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

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

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

 

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

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

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

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

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


 

Images V2.accdb

  • Like 1
قام بنشر
2 ساعات مضت, ابو جودي said:

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

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

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


1~4.jpg

 

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

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

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

 

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

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

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

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

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


 

Images V2.accdb 704 kB · 0 downloads

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

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

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

قام بنشر

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

قام بنشر
On 6/14/2024 at 6:50 AM, ابو جودي said:

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

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

😂😇

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

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

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

❤️🌹

 

1.jpg

2.jpg

3.jpg

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

b1.gif

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

b2.gif

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

b3.gif

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

b4.gif

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

b5.gif

قام بنشر

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

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

 

قام بنشر

لا مو Ezril  ؟!!!

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

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

واكثر

و @Moosak

و Ezril

و عبدالغفار

و @Ahmos

واجنبي 😇

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

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

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

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

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

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

 

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

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

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

❤️🌹🌹

  • Like 1
قام بنشر
في 16‏/6‏/2024 at 14:17, hanan_ms said:

لا مو Ezril  ؟!!!

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

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

واكثر

و @Moosak

و Ezril

و عبدالغفار

و @Ahmos

واجنبي 😇

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

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

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

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

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

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

 

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

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

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

❤️🌹🌹

 

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

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

قام بنشر (معدل)

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

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

Gif يشرح

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

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

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

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

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

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

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

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

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

 

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

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

🌹😇

1~1.jpg

2~1.jpg

4.jpg

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

طريقة الاستخدام.gif

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

عرض غاطس.gif

عرض الشفق.gif

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

100%

مكتبة الصور.gif

 

تم تعديل بواسطه hanan_ms
قام بنشر

3D_IMG_BooK_V1.rar

2 hours ago, Zooro1 said:

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information