كيفية تغيير حقل عن طريق دالة

[AymenShaban]

السلام عليكم ورحمة الله وبركاتة

 

أخواني الاعزاء سؤال 

لدي برنامج صغير يحتوي على ثلاث Label عند الضغط على احد Label يقوم بتغيير لونة

فهل من طريقة لعمل هده الفكرة عن طريق الدالة

الملف مرفق للتوضيح

 

شاكر حسن تعاونكم وجزاكم الله كل خير

GAPP.rar

[Shivan Rekany]

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

السلام عليكم ورحمة الله وبركاتة

 

أخواني الاعزاء سؤال 

لدي برنامج صغير يحتوي على ثلاث Label عند الضغط على احد Label يقوم بتغيير لونة

فهل من طريقة لعمل هده الفكرة عن طريق الدالة

الملف مرفق للتوضيح

 

شاكر حسن تعاونكم وجزاكم الله كل خير

GAPP.rar

ما رأیک بهذا

Me.A1.BackColor = "9243047"
Me.A2.BackColor = RGB(0, 183, 239)
Me.A3.BackColor = RGB(0, 183, 239)

 

GAPP.rar

[AymenShaban]

الف شكر اخي الكريم على اهتمامك وردك 

واعتدر على كبير حجم قاعدة البيانات

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

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

مرفق المتال بحجم اقل

GAPP.rar

[يوسف أحمد]

السلام عليكم 

 

مشاركة مع الاستاذ العزيز شيفان 

 

الاجراء سيكون كالتالي :

 

Sub changeBtnColor(btn1 As Control, btn2 As Control, btn3 As Control)
btn1.BackColor = "9243047"
btn2.BackColor = RGB(0, 183, 239)
btn3.BackColor = RGB(0, 183, 239)
End Sub

استدعاؤه في الزر a1  سيكون كالتالي :

Call changeBtnColor(A1, A2, A3)

و في الزر الثاني  a2 سيكون كالتالي : 

Call changeBtnColor(A2, A1, A3)

و في الزر الثالث  a3 سيكون كالتالي :

Call changeBtnColor(A3, A1, A2)

 

تفضل المرفق بعد التعديل 

 

بالتوفيق للجميع

GAPP.rar

تم تعديل سبتمبر 21, 2017 بواسطه يوسف أحمد

[AymenShaban]

اخي العزيز يوسف أحمد جزاك الله كل خير

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

كل ما اريده التغير يحدث في الجدول

مثلا عند الضغط على الزر A1 التغيير يحدث في

الجدول GList_T  والحقل  A1

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

 

جزاكم الله كل خير واسف جدا على تعبكم معي

 

[يوسف أحمد]

بارك الله فيك اخي العزيز ايمن

السؤال غير واضح و غير مفصل و يفضل ان تشرح بالتفصيل ما تريده من الفكرة حتى يتمكن الجميع من المساهمة في الحل

 

مع الشكر

[AymenShaban]

السلام عليكم ورحمة الله وبركاته

اخي يوسف اعتدر على عدم قدرتي لتوصيل الفكرة

 

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

عذرا وجزاكم الله كل خير

[يوسف أحمد]

بارك الله فيك اخي العزيز ايمن

و شكراً لك على التوضيح

 

ارجو ان يكون هو المطلوب 

Function ColorFun(X As Variant) As Field
Dim Db As Database
Dim Rst As Recordset

Set Db = CurrentDb
Set Rst = Db.OpenRecordset("GList_T")
    
Rst.Index = "PrimaryKey"
Rst.Seek "=", Me.GName
With Rst
    If Not Rst.NoMatch Then
      .Edit
      .Fields(X) = "12"
      .Update
      .Close
     End If
End With
 Me(Trim(X)).BackColor = "123"
End Function

 

تفضل المرفق بعد التعديل

 

بالتوفيق

GAPP (1).rar

[AymenShaban]

السلام عليكم ورحمة الله وبركاته

 

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

 

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

 

تقبل تحياتي