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

Zooro1 · يونيو 17

منذ ساعه, hanan_ms said:

3D_IMG_BooK_V1.rar 506.51 kB · 3 downloads

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

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

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

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

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

hanan_ms · يونيو 19

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

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

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

طلب @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

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

Zooro1 · يونيو 19

21 ساعات مضت, 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 المتصل بقاعدة البيانات الان ،

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

جعفر

منذ ساعه, 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

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

hanan_ms · يونيو 19

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

.Fields()

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

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

جدول الصور 2-

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

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

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

Sleep

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

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

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

جرب تضبط 3

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

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

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

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

Zooro1 · يونيو 20

9 ساعات مضت, kkhalifa1960 said:

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

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

Combo-1.rar 51.77 kB · 10 downloads

12 ساعات مضت, hanan_ms said:
@Zooro1 بوضح لك شغله
.Fields()
الصف او السجل غير مطلوب

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

جدول الصور 2-

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

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

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

Sleep

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

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

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

جرب تضبط 3

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

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

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

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

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

Zooro1 · يونيو 27

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Zooro1 · يونيو 27

سلام عليكم

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

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

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

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

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

اتمني الرد

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

Zooro1 · يونيو 28

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

**Moosak** · يونيو 28

5 ساعات مضت, Zooro1 said:

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

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

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

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

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

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

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

Zooro1 · يونيو 29

19 ساعات مضت, Moosak said:

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

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

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

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

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

Zooro1 · يونيو 29

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

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

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

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

11 دقائق مضت, Zooro1 said:

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

هوا دا سؤالي

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

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

Zooro1 · يونيو 30

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

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

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

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

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

admin.zip

Zooro1 · يونيو 30

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

**Foksh** · يوليو 1

17 ساعات مضت, Zooro1 said:

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

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

admin.accdb

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

Zooro1 · يوليو 1

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

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

ويزيدكم علم.

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

**Foksh** · يوليو 1

44 دقائق مضت, Zooro1 said:

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

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

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

**Foksh** · يوليو 1

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

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

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

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

hanan_ms · يوليو 1

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

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

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

ctrl +V

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

admin.rar

Zooro1 · يوليو 2

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

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

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

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

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

Zooro1 · يوليو 3

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

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

admin.accdb

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

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

**Foksh** · يوليو 3

1 ساعه مضت, Zooro1 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

19 ساعات مضت, Zooro1 said:

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

مثال بسيط

Clock Sub Form.accdb

Zooro1 · يوليو 3

7 دقائق مضت, 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

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

Zooro1 · يوليو 3

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

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

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

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

**Foksh** · يوليو 3

17 دقائق مضت, Zooro1 said:

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

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

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

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

admin.accdb

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

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

Zooro1 · يوليو 3

28 دقائق مضت, Foksh said:

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

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

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

admin.accdb 816 kB · 0 downloads

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

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

تسجيل الدخول

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

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

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