اضافة ايقونه خاص لكل شقه في الشاشة الرئيسيه

[سلمان الشهراني]

اخواني واخواتي الاعزاء
اسعدالله اوقاتكم بكل خير

 

انا الان اعمل في تصميم برنامج شقق ووحدات سكنيه
المطلوب شاشه عند فتحها تظهر جميع الشقق على شكل ايقونات ومكتوب عليها بعض البيانات مثل رقم الشقه (مرفق مثال)
وتكون لون الايقونه الخاص بالشقه على حسب حالتها

وكل ما اضييف شقه تنزل ايقونه جديده وهكذا ولمى احذف تختفي الايقونه

Database3.1.rar

[ABUTALAL2015]

صباح الخير ...

 

والله الفكرة جميله .. وحاولت قبل فترة اطبقها .. بإنشاء (عنصر امر) في نموذج يعتمد على سجلات في جدول محدد ... وبحثت عن كود انشاء (عنصر امر) في المواقع الاجنبية والعربية .. لاكن مالقيت .. 

ولعل هالموضوع يفيدنا بافادات الشباب المتخصصين ..

 

بالتوفيق ان شاء الله

 

متابع

[سلمان الشهراني]

3 ساعات مضت, ABUTALAL2015 said:

صباح الخير ...

 

والله الفكرة جميله .. وحاولت قبل فترة اطبقها .. بإنشاء (عنصر امر) في نموذج يعتمد على سجلات في جدول محدد ... وبحثت عن كود انشاء (عنصر امر) في المواقع الاجنبية والعربية .. لاكن مالقيت .. 

ولعل هالموضوع يفيدنا بافادات الشباب المتخصصين ..

 

بالتوفيق ان شاء الله

 

متابع

الله يعطيك الف عافيه وتسلم وباذن الله الاساتذه يلاقون الحل

[Ahmed.IQ]

تفضل كود لانشاء زر جديد بشرط ان يكون النموذج في وضع التصميم ويمكن ان ينشاء الزر من نموذج اخر 

On Error GoTo Err:
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

'For i = 0 To 1
For j = 1 To 1
    Set newBt = CreateControl("أسم النموذج", acCommandButton, Left:=100 + 3000, Top:=500)
    Set newBt = Nothing
Next j
'Next i
Err:
MsgBox Err.Number

الكود كان يعمل الضافة زرين بنفس المستوى الان يضيف زر  واحد

[سلمان الشهراني]

الله يعطيك الف عافيه 

ولكن هل تقصد الكود مايضيف الزر للنموذج ‏المطلوب الا بشرط أن يكون النموذج المراد وضعه الزر فيه في وضع التصميم

[Ahmed.IQ]

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

On Error GoTo Err:
DoCmd.OpenForm "t", acDesign, , , , acHidden
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

'For i = 0 To 1
For j = 1 To 1
    Set newBt = CreateControl("T", acCommandButton, Left:=100 + 3000, Top:=500)
    Set newBt = Nothing
Next j
'Next i
DoCmd.Close acForm, "T", acSaveYes
Err:
MsgBox Err.Number

 

[يحي عبد الله]

الاخ احمد ياربت ارفاق مثال بالاجابة لاني لم افهم وانا محتاج لهذا الموضوع جدا

 

[سلمان الشهراني]

اعتذر لعدم التجربه الى الان

لاني مسافر ولم استطع التجربه حتى الان

[سلمان الشهراني]

في ١٩‏/٨‏/٢٠١٨ at 13:48, Ahmed.IQ said:

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

On Error GoTo Err:
DoCmd.OpenForm "t", acDesign, , , , acHidden
Dim db As DAO.Database
Dim frm As Form
Dim newBt As Control
Dim i As Long, j As Long

Set frm = Application.Forms(1)

'For i = 0 To 1
For j = 1 To 1
    Set newBt = CreateControl("T", acCommandButton, Left:=100 + 3000, Top:=500)
    Set newBt = Nothing
Next j
'Next i
DoCmd.Close acForm, "T", acSaveYes
Err:
MsgBox Err.Number

  

الله يعطيك العافيه
ماقصرت ويعطيك الف عافيه
ولكن فيه بعض الملاحظات
1- يضيف الازرار على بعضها
2- لايظهر على الزر بعض البيانات مثل رقم الشقه

[ABUTALAL2015]

اضفت بعض التعديل على انشاء الزر في نموذج t

ارجو الاطلاع علية 

Microsoft Access قاعدة بيانات جديد.rar

[qathi]

2 ساعات مضت, ABUTALAL2015 said:

اضفت بعض التعديل على انشاء الزر في نموذج t

ارجو الاطلاع علية 

Microsoft Access قاعدة بيانات جديد.rar

أستاذ @ِABUTALAL2015 شكرا على جهدك شفت الملف الاخير هل ممكن تطوير الكود بحيث يكون الاضافة في نفس النموذج ويكون في الزر اسم وصورة الشقة

[ABUTALAL2015]

7 ساعات مضت, qathi said:

أستاذ @ِABUTALAL2015 شكرا على جهدك شفت الملف الاخير هل ممكن تطوير الكود بحيث يكون الاضافة في نفس النموذج ويكون في الزر اسم وصورة الشقة

 

اخي الكريم ... من وجهة نظري .. هذه الطريقة معقدة نوع ما .. والسبب هو بعد انشاء الامر في نموذج T .. ستجد صعوبة في زرع الكود على الامر وارتباطه ..

ولاكن من الافضل ان يتم انشاء الامر مسبقا .. بعدد الشقق او الغرف او ... الخ ❗

 

قد يكون هناك طريقه لعمل ذلك ... ولاكني للاسف لا ادركها .. وكما ذكرت سلفاً .. بحثت في المواقع الاجنبية والعربية ولم اجد الحل على انظمة الاكسس (للأسف)

على العموم .. انا اضفت ايضا اضافات جديدة وهي :

امكانية اضافة الامر في نفس النموذج مع اضافة السجل في جدول asd

بحيث يتم انشاء الامر في نموذج T بناء على اضافة سجل جديد في الجدول asd..

 

كما اتمنى من الاخوة الكرام في هذا المنتدى العظيم ... ان يشاركو في هذا الموضوع لانه في غاية الاهمية ..

 

وتقبلوا تحياتي

ابو طلال

Microsoft Access قاعدة بيانات جديد.rar

[qathi]

14 ساعات مضت, ABUTALAL2015 said:

على العموم .. انا اضفت ايضا اضافات جديدة وهي :

امكانية اضافة الامر في نفس النموذج مع اضافة السجل في جدول asd

بحيث يتم انشاء الامر في نموذج T بناء على اضافة سجل جديد في الجدول asd..

شكرا أستاذ @ِABUTALAL2015  تم الاقتراب من حل طلب الاخ @سلمان الشهراني متبقي بعض الاضافات 

بالنسبة لك بارك الله فيك عملت مجهود رائع

14 ساعات مضت, ABUTALAL2015 said:

كما اتمنى من الاخوة الكرام في هذا المنتدى العظيم ... ان يشاركو في هذا الموضوع لانه في غاية الاهمية ..

وانا معاك في ذلك ..

[سلمان الشهراني]

في ٥‏/٩‏/٢٠١٨ at 15:54, ABUTALAL2015 said:

اضفت بعض التعديل على انشاء الزر في نموذج t

ارجو الاطلاع علية 

Microsoft Access قاعدة بيانات جديد.rar

الله يعطيك الف الف عافيه
اعتذر عن التاخير في الرد ولكن لانشغالي
تحيه طيبه لك ولجميع الاخوان وبصراحه انجاز عظيم

ولكن يبقى بعض الاشياء مثل انزال اسم الزر مباشره عليه وبعض الامور التي باذن الله نصل الى حل

 

في ٦‏/٩‏/٢٠١٨ at 16:03, qathi said:

شكرا أستاذ @ِABUTALAL2015  تم الاقتراب من حل طلب الاخ @سلمان الشهراني متبقي بعض الاضافات 

بالنسبة لك بارك الله فيك عملت مجهود رائع

وانا معاك في ذلك ..

الف شكر للجميع وعلى المجهود العظيم
ونسال الله التوفيق للجميع وان نصل الى حل راح يفيد الكثير

 

تحياتي للجميع

تم تعديل سبتمبر 21, 2018 بواسطه سلمان الشهراني

[أبو إبراهيم الغامدي]

أهلا سلمان..

هناك حل باستخدام صفحة html، وكنت أود أن أضع لك تجربتي لكني لم أتمكن من فتح قاعدة البيانات المرفقة على الأوفس 2007 للأسف...

 

[سلمان الشهراني]

4 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا سلمان..

هناك حل باستخدام صفحة html، وكنت أود أن أضع لك تجربتي لكني لم أتمكن من فتح قاعدة البيانات المرفقة على الأوفس 2007 للأسف...

 

يعطيك العافيه 

وباذن الله راحول احول لك القاعده بصيغة 2003

[أبو إبراهيم الغامدي]

أهلا بكم..

إليكم هذه التجربة البسيطة لتوظيف صفحات HTML في عرض البيانات بشكل جذاب ومميز .. 

للعلم.. كان العمل على قدر السؤال فقط.

Dashboard.zip

[qathi]

1 ساعه مضت, أبو إبراهيم الغامدي said:

إليكم هذه التجربة البسيطة لتوظيف صفحات HTML في عرض البيانات بشكل جذاب ومميز .. 

للعلم.. كان العمل على قدر السؤال فقط.

Dashboard.zip

جاري تجربة الملف مشكور أستاذ أبو إبراهيم الغامدي 

 

[سلمان الشهراني]

8 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بكم..

إليكم هذه التجربة البسيطة لتوظيف صفحات HTML في عرض البيانات بشكل جذاب ومميز .. 

للعلم.. كان العمل على قدر السؤال فقط.

Dashboard.zip

ماشالله تبارك الله
الله يعطيطك العافيه وسلمت يداك وبيض الله وجهك
حل رائع وممتاز جداً

ان امكن
شرح الطريقه الطريقه