متقاعد

اعتقد ان هناك سوء فهم

وعبارة

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

الأن فهمت انت عاوز السمكة مش عاوز تتعلم الصيد

مجرد سؤال تمت صياغته باسلوب المثل

منذ ساعه, Ezril said:

ما عليك من قليل ذوق

يا اخي اتق الله تصف رجل ربما يكون في سن والدك بانه قليل الذوق !!

لا حول ولاقوة الا بالله

14 ساعات مضت, ازهر عبد العزيز said:

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

مع اني ربما لم افهم المطلوب

ولكني ساحاول

ممكن نعمل اجراء

Sub k()
Dim a As Byte
Dim n, m  As String
For a = 1 To Len(ActiveControl.Name)
n = Mid(ActiveControl.Name, a, 1)
Select Case n
Case "0" To 9
m = m & n
End Select
Next a
Me.textbox1 = m
End Sub

ثم في كل زر امر نستدعي الاجراء بالشكل التالي

k

طبعا هذا الاستداء لايؤثر على اي اوامر في الازار

هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل

الملف في المرفقات

New Microsoft Access قاعدة بيانات).accdb

9 دقائق مضت, albadr said:

اختيار الإجراءات Setvalue ومش موجودة عندي

ردي فقط على ☝️

تحتاج اظهارها شاهد الصورة

منذ ساعه, ازهر عبد العزيز said:

ممكن بوضيح او مثال

هذا الموضوع يا ازهر ⬇️

اقتباس

 

17 دقائق مضت, محمد احمد لطفى said:

أستأذنك ممكن نشوف الطريقة الثانية ممكن تكون افضل

لم اتحدث عن طريقة ثانية

قلت

45 دقائق مضت, متقاعد said:

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

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

rs!serial = Forms![TEST1]![serial]

تكون

rs!serial = meserial

وايضا ممكن الاستعانه بمتغيرات وهكذا من حيث الترتيب

تحياتي

4 ساعات مضت, ابوخليل said:

ولكن فكرة التنفيذ عندي ليست بواسطة استعلام او علاقة وانما بعمل دالة تظهر عدد المعلمين المطلوب بدلالة عدد الفصول

ليتك تضع الطريقة لتعم الفائدة

5 ساعات مضت, متقاعد said:

توضيفها

الصحيح توظيفها

قالت العامة يا من شرى له من حلاله علة

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

3 ساعات مضت, محمد احمد لطفى said:

العمل على زرار الطريقة الجديدة 

في زر الامر ضع التالي

Dim x As Date
Dim a As Integer
Dim rs As DAO.Recordset
x = Forms![TEST1]![Date_M]
Set rs = CurrentDb.OpenRecordset("subx")
For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1
rs.AddNew
rs!date1 = x
rs!id = Forms![TEST1]![id1]
rs!serial = Forms![TEST1]![serial]
rs!NumberX = a + 1
x = DateAdd("d", Forms![TEST1]![ChooseDayes], x)
rs.Update
Next a
rs.Close
Set rs = Nothing
Me.Requery

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

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

تحياتي

اخيرا للانتهاء من هذا الموضوع

اود ان اشير الى دالة Choose وهي تقوم بارجاع قيمة من عدة قيم بناء الفهرس

ويمكن توضيفها في هذه المثال عن طريق نمطية بسيطة يتم استخدامها في الاستعلام

k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52)

ويمكن كتابتها على النحو التالي

Public Function std(id As Integer)
Dim rst As DAO.Recordset
Dim x As Integer
Dim k As Integer
Set rst = CurrentDb.OpenRecordset("Select * From [q_1] Where [id]= " & id)
x = rst.Fields("عدد الفصول الفعلي")
k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52)
std = k
rst.Close
End Function

ولكن لابد من التأكد من امرين

• صحة ترتيب البيانات في الفهرس للحصول على القيمة الصحيحة
• اذا كان الفهرس اقل من 1 او اكبر من عدد الاحتمالات المدرجة سوف تعود الدالة بنتيجة فارغ وفي هذا المثال لدينا 40 احتمال وفقا لصورة الجدول في اول مشاركة وبالتالي لايمكن ان يكون الفهرس اكبر من 40

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

الملف مرفق و اكتفي بهذا القدر

تحياتي

‏‏برنامج الاحتياج1.accdb

52 دقائق مضت, ابوالسيل said:

وجاري ان شاء الله تعلم هذه الطرق 

بالتوفيق اخي

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

على سبيل المثال جدول رواتب الموظفين المدنيين يتكون من 260 درجة للمراتب من 1 الى 15

ولكننا لسنا بحاجة لكتابة هذه الدرجات الـ 260 وانما نكتفي فقط بكتابة ال 15 الاولى منها و 15 اخرى للعلاوة السنوية ويتم توليد البقية بشكل آالي

تحياتي

منذ ساعه, ابوالسيل said:

 هل فيه طرق اخرى اقدر اكتب كود بدالة اف او سواتش 

اعمل وحدة نمطية واستخدم Select Case

واحرص دائما على وجود مفتاح اساسي في الجدول

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

تحياتي

‏‏برنامج الاحتياج.accdb

20 دقائق مضت, Moosak said:

وطريقتها سهلة .. أنا عملت لك نموذج منها .. وأنت كمل الباقي .. 🙂 

توجد طريقة اسهل يا استاذ موسى

نعمل جدول جديد نضع فيه النسب التي اشار اليها ثم نعمل علاقة في الاستعلام

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

الملف مرفق

‏‏برنامج الاحتياج.accdb

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

وسامحني لأني عندي مشكلة بالنظر خصوصاً عند التركيز (مياه بيضاء في وضع متأخر ). تحياتي لك .

ماتشوف شر استاذ خليفة نسأل الله ان يشفيك ويشفي كل مريض

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

حيث يتطلب الاصدار 2016 النسخة 16.0.7812 أو الإصدار الأحدث

45 دقائق مضت, أبو امين said:

هل يمكن اضافة : 

نوع الخط 

حجم الخط 

نعم ممكن

بعد السطر الخامس او السادس نضع الامر التالي المهم انه يكود داخل الحلقة التكرارية

ctl.FontName = "tahoma"
ctl.FontSize = 10

ويمكن تغيير نوع الخط والحجم وفقا لما تريد

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

وسوف احاول ان اضع مثال لذلك

انظر للصورة المرفقة ربما تتضح فكرة نموذج القيمة التي اشرت اليها

مرفق مثال بسيط لمن يرغب في الاطلاع

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

ولكن هذا موضوع اخر

تخياتي واكتفي بهذا القدر

Database20.accdb

منذ ساعه, أبو امين said:

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

تقصد العنوان الخاص بمربعات النص

نعم ممكن

ونحتاج الى وضع حلقة تمر على هذه العناوين

Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel Then
ctl.BackStyle = 1
ctl.BackColor = RGB(227, 227, 227)
End If
Next ctl

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

ctl.ForeColor = vbRed

ليصبح الكود النهائي

Public Function kha(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel Then
ctl.BackStyle = 1
ctl.BackColor = RGB(47, 85, 227)
ctl.ForeColor = vbRed
End If
Next ctl
frm.Section(acDetail).BackColor = RGB(215, 255, 7)
End Function

تحياتي

25 دقائق مضت, أبو امين said:

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

اذا تقصد عنوان النموذج لكل النماذج ممكن

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

frm.Caption = "اكتب هنا ما تريد"

منذ ساعه, أبو امين said:

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

امين اخي ولك بالمثل واكثر وعيدكم مبارك

32 دقائق مضت, أبو امين said:

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

جرب

Public Function kha(frm As Form)
frm.Section(acDetail).BackColor = RGB(215, 255, 7)
End Function

وفي حدث عند التحميل للنموذج ضع ⬇️

kha me

10 دقائق مضت, Ezril said:

لم اقصد تحريفها

احسنت اخي

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

فيا ليتكم تأتون بالمعجزات

😄

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

ذرني ومن خلقة وحيدى

الآية الكريمة " ذَرْنِي وَمَنْ خَلَقْتُ وَحِيدًا "

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

ومن : الواو يجوز اعرابها حرف عطف "عطف نسق" من اسم موصول بمعني الذي للعاقل وهنا تكون "من" معطوفة على الياء في محل نصب مفعول به وكذلك ممكن  اعراب الواو للمعينة ويكون الاسم الموصول مفعول معه في محل نصب

خلقت : فعل ماض مبني على الفتح والتاء تاء الفاعل

وحيدا : حال منصوبة

والجملة صلة الموصول لا محل لها من الاعراب

رحم الله حافظ ابراهيم

 أَرى لِرِجالِ الغَربِ عِزّاً وَمَنعَةً .. َوكَم عَزَّ أَقوامٌ بِعِزِّ لُغاتِ
أَتَوا أَهلَهُم بِالمُعجِزاتِ تَفَنُّناً .. َفيا لَيتَكُم تَأتونَ بِالكَلِماتِ

4 ساعات مضت, Ezril said:

اهداء الى طالبه عز-سوريه للعامه وخاصه

واضح من الفيديو الاهتمام بكافة التفاصيل اضافة الى جمال التصميم ماشاء الله

4 ساعات مضت, Ezril said:

حاليا يعمل على دقه شاشه 1920x

حملت الملف ولكن واجهتني مشكلة دقة الشاشة ☝️

حيث ان الشاشة لدي 4096 * 2160

مما يتطلب مني اجراء تعديل لاتمكن من تشغيله بشكل صحيح ولكن حاليا ليس لدي الوقت

تحياتي

4 ساعات مضت, adnan gharbi said:

المطلوب عمل استعلام لإظهار اسماء الموظفين وأسماء المواقع التي تم انتقالهم اليها (اسماء المواقع وليس أرقام المواقع)

EmpsDB.accdb

هديه جميلة من انسان جميل

تقبل الله منا ومنكم صالح الاعمال وعيدكم مبارك 🌹

8 ساعات مضت, jo_2010 said:

خالص الشكر معلمى الفاضل    

الشكر لله استاذ يوسف