Zooro1 قام بنشر يونيو 17 الكاتب مشاركة قام بنشر يونيو 17 منذ ساعه, hanan_ms said: 3D_IMG_BooK_V1.rar 506.51 kB · 3 downloads شنو الاكواد الي بتخليهم في موديول؟ انا عندي شاشة رئيسية وبداخلها الازرار، وأريد عرض صور فيها في الخلفية(خلف الازرار). بمعني اليوم الشاشة الرئيسية يكون فيها مجموعة صور تفضل تتكرر وغدا مجموعة صور أخري تشتغل. وهكذا. طبعا كل الصور بناء علي جدول وكل صورة لها تاريخ بداية عرض ونهاية عرض. أريد بدل ما أضع الاكواد داخل الشاشة الرئيسية أضعها في موديول واستدعيه من داخل النموذج الرئيسي رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر يونيو 19 مشاركة قام بنشر يونيو 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 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 19 الكاتب مشاركة قام بنشر يونيو 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 شكرا ليكي وليكم ، واسف على تعبكم معايا، وجعله الله في ميزان حسناتكم. ونعم فيكم كلكم. رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر يونيو 19 مشاركة قام بنشر يونيو 19 @Zooro1 بوضح لك شغله .Fields() الصف او السجل غير مطلوب جدول الفولدر -1 جدول الصور 2- جدول اليوم حسب التواريخ -3 جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين للعرض وكان المفترض وقت الساعة منظم فستبدلة ب Sleep للسهولة والاختصار ============================== اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك جرب تضبط 3 1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف 2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز 3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب وعرض تقارير حسب طلبك 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 20 الكاتب مشاركة قام بنشر يونيو 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- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب وعرض تقارير حسب طلبك شكرا لحضرتك ا، حنان وشكرا ليكم جميعا رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 27 الكاتب مشاركة قام بنشر يونيو 27 في 13/6/2024 at 09:59, Moosak said: شغل عالي الجودة منك حبيب الشعب @ابو جودي وشيييييييييييييييل على المكتبة دغري ****************************************************** قبل ما أشوف مشاركتك أنا كنت عامل الفكرة دي من زمان بس بدون تواريخ بداية ونهاية ... وبعد ما شفت مشاركتك سرقت منك فكرة التواريخ 🙈 وهذي مشاركتي بس مع بهاراتي الخاصة 😎 عملت نموذجين واحد مع موئثرات حركية جميلة ، والثاني تقليب الصور بدون حركات 🙂 وعلى فكرة بعد ما يوصل لنهاية الصور يعيد يعرض الصورة الأولى من جديد ، يعني يلف ويدور بشكل لا نهائي والملف اللي يشرح نفسه 🙂 : مستعرض صور متحرك.rar 1.36 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 44 downloads ( ملاحظة : ضروري لما تفك الضغط تبقى مجلد الصور بجانب قاعدة البيانات ) طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. انا لما الحقت النموذج الخاص بالصور في النموذج بتاع الشاشة الرئيسية بتتغير كل ثانية... فهل يوجد حل بحيث يفضل الوقت شغال و الصور شغالة وكله شغال رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 27 الكاتب مشاركة قام بنشر يونيو 27 (معدل) سلام عليكم سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وعندي تايمر يقفل النموذج الرئيسي بعد فترة من عدم الاستخدام. انا لما الحقت النموذج الخاص بالصور في النموذج بتاع الشاشة الرئيسية. بتتغير كل ثانية... فهل يوجد حل بحيث يفضل الوقت شغال و الصور شغالة وكله شغال. اتمني الرد تم تعديل يونيو 27 بواسطه Zooro1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 28 الكاتب مشاركة قام بنشر يونيو 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 ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة. انا لما الحقت النموذج الخاص بالصور في النموذج بتاع الشاشة الرئيسية بتتغير كل ثانية... فهل يوجد حل بحيث يفضل الوقت شغال و الصور شغالة وكله شغال رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 28 مشاركة قام بنشر يونيو 28 5 ساعات مضت, Zooro1 said: طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة. انا لما الحقت النموذج الخاص بالصور في النموذج بتاع الشاشة الرئيسية بتتغير كل ثانية... فهل يوجد حل بحيث يفضل الوقت شغال و الصور شغالة وكله شغال أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂 وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !! لذلك لم تجد من يجيبك على سؤالك 🙂 2 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 29 الكاتب مشاركة قام بنشر يونيو 29 (معدل) 19 ساعات مضت, Moosak said: أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂 وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !! لذلك لم تجد من يجيبك على سؤالك 🙂 سامحني استاذنا، سوف ارفق ملف لحضرتك ، لاني خارج العمل الان تم تعديل يونيو 29 بواسطه Zooro1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 29 الكاتب مشاركة قام بنشر يونيو 29 (معدل) 18 ساعات مضت, Moosak said: أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂 وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !! لذلك لم تجد من يجيبك على سؤالك 🙂 11 دقائق مضت, Zooro1 said: سامحني استاذنا ، ولكن سؤالي ان ينفع يكون في النموذج الرئيسي مثلا اللي عندي اسمه main يكون أن الصور تتغير كل مثلا دقيقة، وفيه ساعة تايمر الوقت ، وفيه تيكست بوكس يعد ثواني بعد ١٥ دقيقة يعمل خروج اذا المستخدم لم يحرك الماوس. هوا دا سؤالي لاني لما جيت اخد فكرتك ووضعته عندي حصل لخبطة ان الصور تتحرك كل ثانية ، في النموذج الخاص بي وقت يعمل خروج بعد ١٥ دقيقة من عدم تحريك الماوس، وموجود ساعة عادية تم تعديل يونيو 29 بواسطه Zooro1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 30 الكاتب مشاركة قام بنشر يونيو 30 في 28/6/2024 at 21:38, Moosak said: أخي @Zooro1 أنت لم توجه سؤالك لشخص معين ولا ندري أي نموذج اعتمدت في برنامجك !! 🙂 وكذلك لم تضع ملف مرفق لنعرف ماذا فعلت بالضبط !! لذلك لم تجد من يجيبك على سؤالك 🙂 مرفق لحضرتك استاذنا admin.zip رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يونيو 30 الكاتب مشاركة قام بنشر يونيو 30 في اجابة من الأخوة الافاضل رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 1 مشاركة قام بنشر يوليو 1 (معدل) 17 ساعات مضت, Zooro1 said: في اجابة من الأخوة الافاضل هل هذا طلبك أخي الكريم @Zooro1 ؟؟ admin.accdb تم تعديل يوليو 1 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 1 الكاتب مشاركة قام بنشر يوليو 1 ان شاءالله هشوفها بكرة وابلغك... لكن سواء دا طلبي او لاء استاذنا foksh يكفي انك رديت وتساعدني وتساعد الكل. ربنا يجعله في ميزان حسناتك وحسناتكم ويزيدكم علم. وشكرا مرة تانية 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 1 مشاركة قام بنشر يوليو 1 44 دقائق مضت, Zooro1 said: ربنا يجعله في ميزان حسناتك وحسناتكم أسعد الله قلبك ، أخي @Zooro1 شرف لي تقديم معلومة لهذا المنتدى 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 1 مشاركة قام بنشر يوليو 1 في 28/6/2024 at 15:39, Zooro1 said: طب سوال تاني، عندي في الشاشة الرئيسية الوقت وبيكون ساعات دقايق ثواني وفي timer ١٠٠٠. وفيه كمان توقيت قفل لقاعدة اذا المستخدم لم يعمل علي الشاشة الرئيسية لمدة نصف ساعة. استخدم نموذج فرعي للساعة بحيث يكون منفصل ، وفي النموذج الرئيسي اجعل التايمر مخصص فقط للهدف الثاني . ويوجد حل آخر لكن هذا افضل وأضمن لك 1 رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر يوليو 1 مشاركة قام بنشر يوليو 1 تعديل مرفق استاذ @Foksh 😇 1- ان شاء كود لكافة عناصر الفورم فقط اختيار النموذج 2- يفتح حدث الفورم فقط لصق ctrl +V ملاحظة فقط اضافة حدث عند الفتح حتى لو كان فارغ admin.rar 2 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 2 الكاتب مشاركة قام بنشر يوليو 2 21 ساعات مضت, Foksh said: استخدم نموذج فرعي للساعة بحيث يكون منفصل ، وفي النموذج الرئيسي اجعل التايمر مخصص فقط للهدف الثاني . ويوجد حل آخر لكن هذا افضل وأضمن لك معلش استاذنا ، ازاي اعمل نموذج فرعي للساعة وياريت لو عندك نموذج أتمني ترفقه وتاني حاجة، الصور تبع اللي في النموذج مش بتشتغل رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 3 الكاتب مشاركة قام بنشر يوليو 3 في 1/7/2024 at 13:49, Foksh said: هل هذا طلبك أخي الكريم @Zooro1 ؟؟ admin.accdb اضافة اخيرة استاذنا، الجدول الخاص بالصور لو فاضي الشاشة الرئيسية كل حاجة فيها تختفي لان مصدرها الجدول تبع الصور ممكن تعديل عليها بحيث ان الشاشة الرئيسية اللي فيها الازرار لا تتاثر بها رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 3 مشاركة قام بنشر يوليو 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 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 3 الكاتب مشاركة قام بنشر يوليو 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 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 3 الكاتب مشاركة قام بنشر يوليو 3 14 دقائق مضت, Zooro1 said: الف شكر ليك استاذنا foksh بصراحة محرج منك ، انا عملت الكود الوقتي لكن منفعش بصراحة هوا ينفع نعملها من غير مصدر للجدول رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 3 مشاركة قام بنشر يوليو 3 (معدل) 17 دقائق مضت, Zooro1 said: بصراحة محرج منك ، انا عملت الكود الوقتي لكن منفعش بصراحة ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,, في الواقع انا شاركت من عند الموضوع اللي بيتكلم عن وقت محدد اذا لم يتم تحريك الماوس فيه يتم اغلاق النموذج أو اظهار رسالة وانت تعدل حسب حاجتك للحدث عند انقضاء الوقت ، أما موضوع الصور ده فهو لم يظهر عندي من الأساس ولا اقم بمتابعته للأسف .. أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول . admin.accdb جرب احذف سجلات الجدول وارجع افتح النموذج وشوف تم تعديل يوليو 3 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Zooro1 قام بنشر يوليو 3 الكاتب مشاركة قام بنشر يوليو 3 28 دقائق مضت, Foksh said: ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,, في الواقع انا شاركت من عند الموضوع اللي بيتكلم عن وقت محدد اذا لم يتم تحريك الماوس فيه يتم اغلاق النموذج أو اظهار رسالة وانت تعدل حسب حاجتك للحدث عند انقضاء الوقت ، أما موضوع الصور ده فهو لم يظهر عندي من الأساس ولا اقم بمتابعته للأسف .. أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول . admin.accdb 816 kB · 0 downloads جرب احذف سجلات الجدول وارجع افتح النموذج وشوف تمام يا استاذنا الغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.