الوان مساعدة فى تعديل كود لتخزين قيمة لون فى جدول

[king5star]

السلام عليكم  اخوانى

اريد اضافة زر امر يظهر لى Color Piker  ولكن لم اجد اى دليل على امكانية وضعه للاكسس

فقمت بالبحث ووجدت كود وضعه احد المبرمجين على موقع اجنبي ولكنه معقد جداً

فاريد منك المساعدة وهي تعديله لحفظ قيمة اللون المتولد لجدول او لو يوجد امكانية له فى الاكسس فكيف ؟

 

ولكم جزيل الشكر

ColorPicker.zip

 

[jjafferr]

وعليكم السلام

 

تفضل امثله جاهزة:

http://www.lebans.com/fontcolordialog.htm

https://www.microsoftaccessexpert.com/Microsoft-Access-Color-Picker.aspx

http://access.mvps.org/access/api/api0060.htm

 

جعفر

[king5star]

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

' If you want this Function to simply Return
' the Value of the Color the user selected
' from the Dialog just change the Function
' Declaration in modColorPicker to something like:
'Public Function DialogColor(ctl As Control) As Long
' Remember to add the line of code at the
' end of the Function
'DialogColor = CS.rgbResult
' Then call it from your Form with code like:

'***Code Start
'Private Sub CmdChooseBackColor_Click()
' Pass the TextBox Control to the function
'Me.textCtl.BackColor = DialogColor(Me.textCtl)
'End Sub

Color.zip

[ابوخليل]

وتفضل مثال  :

يحفظ رقم اللون الذي يتم اختياره في الجدول

تسجيل اللون في الجدول.rar

[king5star]

11 دقائق مضت, ابوخليل said:

وتفضل مثال  :

يحفظ رقم اللون الذي يتم اختياره في الجدول

تسجيل اللون في الجدول.rar

بارك الله فيك اخي @ابو خليل وجزاك خيرا ساجربه واخبرك بالنتائج

[أمير2008]

ممتاز

وهذه اضافتي على الكود حيث يسجل لون الخط ولون الخلفية حسب اسم الكائن بالنموذج

 

01.rar

[king5star]

8 دقائق مضت, أمير2008 said:

ممتاز

وهذه اضافتي على الكود حيث يسجل لون الخط ولون الخلفية حسب اسم الكائن بالنموذج

 

01.rar

شكراً لكم جميعاً فقد اتم العمل

وهذه هديه لكم ولكل الاعضاء