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

Zooro1 · يونيو 17, 2024

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

3D_IMG_BooK_V1.rar 506.51 kB · 3 downloads

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

Expand

انا عندي شاشة رئيسية وبداخلها الازرار، وأريد عرض صور فيها في الخلفية(خلف الازرار).

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

طبعا كل الصور بناء علي جدول وكل صورة لها تاريخ بداية عرض ونهاية عرض.

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

hanan_ms · يونيو 19, 2024

دالة الترقيم من

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

( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية

طلب @Zooro1

1-اضافة جدول جديد على سبيل المثال اسم :nn
2-اضافة حقل : ID نوع ترقيم تلقائي بشرط لا يكون مفتاح رئيسي
3-❤️🌹من خلال دالة اعادة الترقيم بالتواريخ من الى للعرض الصور خلفية دالة ابو جودي
4-طريقة الاستدعاء حدث عند التحميل والفتح
5-تغير الزمني للصور من دالة Sleep على سبيل المثال :Sleep 500 خمس ثواني

Form Zooro1

Option Compare Database
Option Explicit
#If VBA7 Then
  Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#Else
  Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#End If


Public Function movie_wallpaper()
Dim day_w As String
Dim Month_w As String
Dim yaers_w As String
'=========================(Aouto Change Photo )
Dim Aouto_photo As Integer
Dim photoPath As String
'Dim name_folder As String
'=============================================(ÇÐÇ ßÇäÊ ÇáÊÍÏíÏ íæãí Çæ ÔåÑí Çæ Óäæí
'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "dd")
'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "mm")
'yaers_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "yyyy")
'=============================================(snad form start day )
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "Chack_date_Foe_wallpaper", acViewNormal, acEdit
'DoCmd.SetWarnings True
'Mohammed_Essam_AutoNumFix3
'===============================( IF form one tablet star)
'If DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") = 0 Then
'For Aouto_photo = 1 To DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'")
'photoPath = DLookup("[str_date]", "[Chack_date_Foe_wallpaper]", "[end_date] <'deta()' And [IDX] =" & Aouto_photo & " ")

If DCount("[ID]", "[nn]") = 0 Then
Else
For Aouto_photo = 1 To DCount("[ID]", "[nn]")
Dim name_folderA As String
name_folderA = DLookup("[IDD]", "[nn]", "[ID] =" & Aouto_photo & "")
photoPath = DLookup("[path_PC]", "[PC_path]") & "\" & DLookup("[IMG_Pacge]", "[lablory_IMG]", "[ID] =" & name_folderA & "") & "\" & DLookup("[path_X]", "[nn]", "[ID] =" & Aouto_photo & "")
Form_Zooro1.Picture = photoPath
Sleep 500
Next
End If
End Function

3D_IMG_BooK_V1 Time_Wallpaper.rarFetching info...

تم تعديل يونيو 19, 2024 بواسطه hanan_ms

Zooro1 · يونيو 19, 2024

في 18‏/6‏/2024 at 19:28, jjafferr said:

وعليكم السلام 🙂

تحصل على النتيجة التالية (لأني الوحيد اللي فاتح البرنامج، فلا ترى الا اسم كمبيوتري) :

COMPUTER_NAME               LOGIN_NAME                  CONNECTED     SUSPECT_STATE
myPC                        Admin                       True          Null

من الكود التالي:

Function ShowUserRosterMultipleUsers_Jet_4()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    Set cn = CurrentProject.Connection

    ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4.0 OLE DB provider. You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    'Output the list of all users in the current database.

    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
    "", rs.Fields(2).Name, rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend

    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
    
End Function

.

طريقة العمل:

اعمل جدول فيه حقل Computer_Name ، واسم المستخدم ،

والكود اعلاه يعطيك Computer_Name المتصل بقاعدة البيانات الان ،

فمن ذي وذاك ، تتوصل الى معرفة اسم المستخدم اللي فاتح قاعدة البيانات الان 🙂

جعفر

Expand

في 19‏/6‏/2024 at 15:56, hanan_ms said:
دالة الترقيم من

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

( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية

طلب @Zooro1

1-اضافة جدول جديد على سبيل المثال اسم :nn
2-اضافة حقل : ID نوع ترقيم تلقائي بشرط لا يكون مفتاح رئيسي
3-❤️🌹من خلال دالة اعادة الترقيم بالتواريخ من الى للعرض الصور خلفية دالة ابو جودي
4-طريقة الاستدعاء حدث عند التحميل والفتح
5-تغير الزمني للصور من دالة Sleep على سبيل المثال :Sleep 500 خمس ثواني

Form Zooro1
Option Compare Database
Option Explicit
#If VBA7 Then
  Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#Else
  Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
#End If


Public Function movie_wallpaper()
Dim day_w As String
Dim Month_w As String
Dim yaers_w As String
'=========================(Aouto Change Photo )
Dim Aouto_photo As Integer
Dim photoPath As String
'Dim name_folder As String
'=============================================(ÇÐÇ ßÇäÊ ÇáÊÍÏíÏ íæãí Çæ ÔåÑí Çæ Óäæí
'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "dd")
'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "mm")
'yaers_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "yyyy")
'=============================================(snad form start day )
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "Chack_date_Foe_wallpaper", acViewNormal, acEdit
'DoCmd.SetWarnings True
'Mohammed_Essam_AutoNumFix3
'===============================( IF form one tablet star)
'If DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") = 0 Then
'For Aouto_photo = 1 To DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'")
'photoPath = DLookup("[str_date]", "[Chack_date_Foe_wallpaper]", "[end_date] <'deta()' And [IDX] =" & Aouto_photo & " ")

If DCount("[ID]", "[nn]") = 0 Then
Else
For Aouto_photo = 1 To DCount("[ID]", "[nn]")
Dim name_folderA As String
name_folderA = DLookup("[IDD]", "[nn]", "[ID] =" & Aouto_photo & "")
photoPath = DLookup("[path_PC]", "[PC_path]") & "\" & DLookup("[IMG_Pacge]", "[lablory_IMG]", "[ID] =" & name_folderA & "") & "\" & DLookup("[path_X]", "[nn]", "[ID] =" & Aouto_photo & "")
Form_Zooro1.Picture = photoPath
Sleep 500
Next
End If
End Function
3D_IMG_BooK_V1 Time_Wallpaper.rar 519.72 kB · 0 downloads
Expand

شكرا ليكي وليكم ، واسف على تعبكم معايا، وجعله الله في ميزان حسناتكم. ونعم فيكم كلكم.

hanan_ms · يونيو 19, 2024

@Zooro1 بوضح لك شغله

.Fields()

الصف او السجل غير مطلوب

جدول الفولدر -1

جدول الصور 2-

جدول اليوم حسب التواريخ -3

جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين

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

Sleep

للسهولة والاختصار

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

اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك

جرب تضبط 3

1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف

2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز

3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب

وعرض تقارير حسب طلبك

Zooro1 · يونيو 20, 2024

في 19‏/6‏/2024 at 22:43, kkhalifa1960 said:

"اللهم لا تجعل في قلوبنا غلاً للذين أمنوا" . "خيركم من تعلم العلم وعلمه" . طبعاً أنت فاهم قصدي !!!!!!!!!!!!!!!

تفضل استاذ @Zooro1 طلبك ويارب مايكون فيه كود خطأ . تفضل المرفق بطلبك . ووافني بالرد.

Combo-1.rar 51.77 kB · 10 downloads

Expand

في 19‏/6‏/2024 at 19:26, hanan_ms said:
@Zooro1 بوضح لك شغله
.Fields()
الصف او السجل غير مطلوب

جدول الفولدر -1

جدول الصور 2-

جدول اليوم حسب التواريخ -3

جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين

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

Sleep

للسهولة والاختصار

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

اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك

جرب تضبط 3

1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف

2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز

3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب

وعرض تقارير حسب طلبك
Expand

شكرا لحضرتك ا، حنان وشكرا ليكم جميعا

Zooro1 · يونيو 27, 2024

في 13‏/6‏/2024 at 06:59, Moosak said:

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

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

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

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

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

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

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

مستعرض صور متحرك.rar 1.36 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 44 downloads

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

Expand

طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠.

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

بتتغير كل ثانية... فهل يوجد حل

بحيث يفضل الوقت شغال و الصور شغالة وكله شغال

Zooro1 · يونيو 27, 2024

سلام عليكم

سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠.

وعندي تايمر يقفل النموذج الرئيسي بعد فترة من عدم الاستخدام.

انا لما الحقت النموذج الخاص بالصور في النموذج بتاع الشاشة الرئيسية.

بتتغير كل ثانية... فهل يوجد حل

بحيث يفضل الوقت شغال و الصور شغالة وكله شغال.

اتمني الرد

تم تعديل يونيو 27, 2024 بواسطه Zooro1

Zooro1 · يونيو 28, 2024

في 13‏/6‏/2024 at 06:59, Moosak said:

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

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

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

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

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

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

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

مستعرض صور متحرك.rar 1.36 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 47 downloads

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

Expand

طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة.

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

بتتغير كل ثانية... فهل يوجد حل

بحيث يفضل الوقت شغال و الصور شغالة وكله شغال

في 13‏/6‏/2024 at 06:59, Moosak said:

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

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

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

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

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

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

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

مستعرض صور متحرك.rar 1.36 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 47 downloads

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

Expand

طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة.

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

بتتغير كل ثانية... فهل يوجد حل

بحيث يفضل الوقت شغال و الصور شغالة وكله شغال

**Moosak** · يونيو 28, 2024

في 28‏/6‏/2024 at 12:39, Zooro1 said:

طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة.

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

بتتغير كل ثانية... فهل يوجد حل

بحيث يفضل الوقت شغال و الصور شغالة وكله شغال

Expand

أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂

وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !!

لذلك لم تجد من يجيبك على سؤالك 🙂

Zooro1 · يونيو 29, 2024

في 28‏/6‏/2024 at 18:38, Moosak said:

أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂

وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !!

لذلك لم تجد من يجيبك على سؤالك 🙂

Expand

سامحني استاذنا، سوف ارفق ملف لحضرتك ، لاني خارج العمل الان

تم تعديل يونيو 29, 2024 بواسطه Zooro1

Zooro1 · يونيو 29, 2024

في 28‏/6‏/2024 at 18:38, Moosak said:

أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂

وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !!

لذلك لم تجد من يجيبك على سؤالك 🙂

Expand

في 29‏/6‏/2024 at 13:11, Zooro1 said:

سامحني استاذنا ، ولكن سؤالي ان ينفع يكون في النموذج الرئيسي مثلا اللي عندي اسمه main يكون أن الصور تتغير كل مثلا دقيقة، وفيه ساعة تايمر الوقت ، وفيه تيكست بوكس يعد ثواني بعد ١٥ دقيقة يعمل خروج اذا المستخدم لم يحرك الماوس.

هوا دا سؤالي

لاني لما جيت اخد فكرتك ووضعته عندي حصل لخبطة ان الصور تتحرك كل ثانية ، في النموذج الخاص بي وقت يعمل خروج بعد ١٥ دقيقة من عدم تحريك الماوس، وموجود ساعة عادية

Expand

تم تعديل يونيو 29, 2024 بواسطه Zooro1

Zooro1 · يونيو 30, 2024

في 28‏/6‏/2024 at 18:38, Moosak said:

أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂

وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !!

لذلك لم تجد من يجيبك على سؤالك 🙂

Expand

مرفق لحضرتك استاذنا

admin.zipFetching info...

Zooro1 · يونيو 30, 2024

في اجابة من الأخوة الافاضل

**Foksh** · يوليو 1, 2024

في 30‏/6‏/2024 at 17:26, Zooro1 said:

في اجابة من الأخوة الافاضل

Expand

هل هذا طلبك أخي الكريم @Zooro1 ؟؟

admin.accdb

تم تعديل يوليو 1, 2024 بواسطه Foksh

Zooro1 · يوليو 1, 2024

ان شاءالله هشوفها بكرة وابلغك... لكن سواء دا طلبي او لاء استاذنا foksh يكفي انك رديت وتساعدني وتساعد الكل.

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

ويزيدكم علم.

وشكرا مرة تانية

**Foksh** · يوليو 1, 2024

في 1‏/7‏/2024 at 16:33, Zooro1 said:

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

Expand

أسعد الله قلبك ، أخي @Zooro1

شرف لي تقديم معلومة لهذا المنتدى :fff:

**Foksh** · يوليو 1, 2024

في 28‏/6‏/2024 at 12:39, Zooro1 said:

طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة.

Expand

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

ويوجد حل آخر لكن هذا افضل وأضمن لك

hanan_ms · يوليو 1, 2024

تعديل مرفق استاذ @Foksh 😇

1- ان شاء كود لكافة عناصر الفورم فقط اختيار النموذج

2- يفتح حدث الفورم فقط لصق

ctrl +V

ملاحظة فقط اضافة حدث عند الفتح حتى لو كان فارغ

admin.rarFetching info...

Zooro1 · يوليو 2, 2024

في 1‏/7‏/2024 at 18:36, Foksh said:

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

ويوجد حل آخر لكن هذا افضل وأضمن لك

Expand

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

وتاني حاجة، الصور تبع اللي في النموذج مش بتشتغل

Zooro1 · يوليو 3, 2024

في 1‏/7‏/2024 at 10:49, Foksh said:

هل هذا طلبك أخي الكريم @Zooro1 ؟؟

admin.accdb

Expand

اضافة اخيرة استاذنا، الجدول الخاص بالصور لو فاضي الشاشة الرئيسية كل حاجة فيها تختفي لان مصدرها الجدول تبع الصور

ممكن تعديل عليها بحيث ان الشاشة الرئيسية اللي فيها الازرار لا تتاثر بها

**Foksh** · يوليو 3, 2024

في 3‏/7‏/2024 at 09:56, Zooro1 said:

اضافة اخيرة استاذنا، الجدول الخاص بالصور لو فاضي الشاشة الرئيسية كل حاجة فيها تختفي لان مصدرها الجدول تبع الصور

Expand

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

Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim ctrl As Control
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Images_T")
If rs.RecordCount = 0 Then
    For Each ctrl In Me.Controls
    ctrl.Visible = False
    Next ctrl
End If
rs.Close
Set rs = Nothing
End Sub

في 2‏/7‏/2024 at 15:59, Zooro1 said:

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

Expand

مثال بسيط

Clock Sub Form.accdbFetching info...

Zooro1 · يوليو 3, 2024

في 3‏/7‏/2024 at 11:33, Foksh said:
استخدم هذا الكود في حدث عند التحميل للنموذج ، بحيث اذا كان الجدول فارغ يتم اخفاء جميع العناصر والمكونات في النموذج الحالي ..
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim ctrl As Control
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Images_T")
If rs.RecordCount = 0 Then
    For Each ctrl In Me.Controls
    ctrl.Visible = False
    Next ctrl
End If
rs.Close
Set rs = Nothing
End Sub
مثال بسيط

Clock Sub Form.accdb 768 kB · 0 downloads
Expand

الف شكر ليك استاذنا foksh

Zooro1 · يوليو 3, 2024

في 3‏/7‏/2024 at 11:41, Zooro1 said:

الف شكر ليك استاذنا foksh

Expand

بصراحة محرج منك ، انا عملت الكود الوقتي لكن منفعش بصراحة

هوا ينفع نعملها من غير مصدر للجدول

**Foksh** · يوليو 3, 2024

في 3‏/7‏/2024 at 11:55, Zooro1 said:

بصراحة محرج منك ، انا عملت الكود الوقتي لكن منفعش بصراحة

Expand

ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,,

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

أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول .

admin.accdbFetching info...

جرب احذف سجلات الجدول وارجع افتح النموذج وشوف

تم تعديل يوليو 3, 2024 بواسطه Foksh

Zooro1 · يوليو 3, 2024

في 3‏/7‏/2024 at 12:12, Foksh said:

ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,,

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

أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول .

admin.accdb 816 kB · 0 downloads

جرب احذف سجلات الجدول وارجع افتح النموذج وشوف

Expand

تمام يا استاذنا الغالي

تسجيل الدخول

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

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

Zooro1

hanan_ms

Zooro1

hanan_ms

Zooro1

Zooro1

Zooro1

Zooro1

Moosak

Zooro1

Zooro1

Zooro1

Zooro1

Foksh

Zooro1

Foksh

Foksh

hanan_ms

Zooro1

Zooro1

Foksh

Zooro1

Zooro1

Foksh

Zooro1

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information