[ تمت الإجابة ]طريقة اظهار Checkbox في مربع القائمة

up

ارفق ملف

أخي الفاضل hema212006

مزيد من التوضيح كان سيسهل الامور شوية

لكن ولا يهمك

عملت لك مثال علي السريع ربما يلبي رغباتك

check_box.rar

الاخ المحاسب الجديد شكرا لمرورك

اخي الغالي محمد فؤاد تركي

يبدو انني لم استطع توصيل ما يجوول بخاطري

وقمت بتوضيح المطلوب من خلال المرفق

check_box.rar

أخي الغالي hema212006

أعتقد أن مربع القائمة أو Listbox ليس من ضمن خصائصة التحرير بداخلة او اظهار عناصر مثل checkbox بداخلة

والله أعلم

اقتباس

أعتقد أن مربع القائمة أو Listbox ليس من ضمن خصائصة التحرير بداخلة او اظهار عناصر مثل checkbox بداخلة

والله أعلم

اعلم انه ليس من ضمن خصائصه التحرير

ولكن كنت اريد التأكد من موضوع الاظهار

وهدا ما كنت اصبو اليه للتأكد منه

على كل حال شكرا جزيلا اخي المشرف محمد وما قصرت

وبارك الله فيك

اخواني الكرام

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

بارك الله بكم جميعا على هذا الموضوع

مربع القائمة من خصائصه وجود خانة اختيار وإلا لماذا زهره موجوده معكم

بالطبع هذه الخاصية موجوده ولكنها مختفيه ويجب اظهارها بالعافيه :angry:

دعونا نرى هل هي موجوده أم لا

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

بعد الإدارج نتأكد هل خانة الإختيار موجوده ام لا

لهذا نضغط بزر الماوس الأيمن على مربع القائمة ونختار خصائص الكائن

اذا نضع عليه علامة صح حتى تظهر لنا في القائمة

ننتقل الآن الى محرر الفيجول بيسك لكي نتأكد من المراجع انها بهذه الطريقة

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

Private Sub Form_Load()
	On Error GoTo ErrorHandler

	Dim rs As DAO.Recordset
	Dim db As Database
	Dim lstItem As ListItem
	Dim strSQL As String

	Set db = CurrentDb()
	strSQL = "SELECT  * FROM Employees"
	Set rs = db.OpenRecordset(strSQL)

	With Me.ListView1
		.View = lvwReport
		.GridLines = True
		.FullRowSelect = True
		.ListItems.Clear
		.ColumnHeaders.Clear
	End With
	With Me.ListView1.ColumnHeaders
		.Add , , "الرقم", 800, lvwColumnLeft
		.Add , , "اسم الموظف", 2100, lvwColumnLeft
		.Add , , "الوظيفة", 1500, lvwColumnLeft
		.Add , , "المدينة", 2000, lvwColumnLeft
		.Add , , "تاريخ الميلاد", 2500, lvwColumnRight
	End With

	rs.MoveFirst
	Do Until rs.EOF
		Set lstItem = Me.ListView1.ListItems.Add()
		lstItem.Text = rs!EmpNumber
		lstItem.SubItems(1) = rs!EmpName
		lstItem.SubItems(2) = rs!Job
		lstItem.SubItems(3) = rs!City
		lstItem.SubItems(4) = Format(rs!BODate, "Short Date")
		rs.MoveNext
	Loop
	rs.Close
	DoCmd.Echo True
ErrorHandlerExit:
	Exit Sub
ErrorHandler:
	If Err = 3021 Then
		Resume Next
	Else
		MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
		Resume ErrorHandlerExit
	End If

End Sub

اخيرا سيكون مربع القائمة بهذه الطريقة مع خانة الإختيار التي نبحث عنها

ما رأيكم في هذه الخطوات سهله أم صعبه :D

المثال المرفق

za_ListboxWithCheckbox.rar

ماشاء الله تبارك الله

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

لم اشك للحظة بقدراتك المذهلة

كفيتي ووفيتي

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

ويبارك لك في ابنائك

نعم تم المطلوب وهذا الذي اريده

اقتباس

ما رأيكم في هذه الخطوات سهله أم صعبه

بالنسبة لك سهلة

اما إلي انا والله صعبة

اينما وجد الابداع البرمجي ؛؛؛ فهناك زهرة

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

الاخت زهرة ارجو ان لا اكون اثقل عليك

اريد توضيح طريقة تحويل عمود في نفس القائمة لخانة اختيار

كما بالصورة المرفقة

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

za_ListboxWithCheckbox.rar