أرجومساعدتي عاجلافضلا لا امرا

للرفــــــــــــــــــــــــــــــــــــــــــــــــــع

لحاجتي الى المساعده باسرع وقت

السلام عليكم هذا مثال

sqls = "select * from table where item = '" & Me.Combo1 & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open sqls, db, adOpenKeyset, adLockPessimistic

If rs.EOF = True Then GoTo add:

Exit Sub

add:

rs.AddNew

rs!Item = Me.Combo1

rs.Update

End Sub

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

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

 
Dim txt As String
Dim lst As Boolean
lst = False
txt = Combo1.Text
If txt = "" Then Exit Sub

Dim i As Integer

For i = 0 To Combo1.ListCount - 1
	 Combo1.ListIndex = i
	 If Combo1.Text = txt Then
	   lst = True
	   Exit For
	 End If
Next i

If lst = False Then
	Combo1.AddItem txt
	Combo1.ListIndex = i
End If

تحياتي

شكراً لك اخي الكريم

عماني على تفاعلك معي وردك على موضوعي

للاسف البرنامج ماتنفذ عندي وكان عنديERROR

والسبب

Error 1 'ListCount' is not a member of 'System.Windows.Forms.ComboBox'.

Error 2 'ListIndex' is not a member of 'System.Windows.Forms.ComboBox'.

Error 3 'AddItem' is not a member of 'System.Windows.Forms.ComboBox'.

حاولت حل المشكله ولكن لم استطع

نظرا لبساطة خبرتي في الفيجول بيسك

برايك مالحل؟؟؟

جزيت خيرا :wub:

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

سأحاول ان اضع كودا مناسبا للدوت نت وان كان حري بك ان ترسل الموضوع الى قسم الدوت نت

تحياتي

هذا الكود للدوت نت

 Dim txt As String
		Dim lst As Boolean
		lst = False
		txt = Combo1.Text
		If txt = "" Then Exit Sub
		Dim i As Integer

		For i = 0 To Combo1.Items.Count() - 1
			If Combo1.Items.Item(i) = txt Then
				lst = True
				Exit For
			End If
		Next i

		If lst = False Then
			Combo1.Items.Add(txt)
		End If

تحياتي

مرحبا أخي الكريم..

بحمدمن الله ثم بفضل خبراتك الرائعه تم تنفيذ البرنامج على أكمل وجه..

لم أعلم ان الفيجول الموجود عندي هو .netلكي أعرف الخطا واحاول اصلاحه..

فانا في بدايه طريقي للحاسب..فأناطالب حاسوب مبتدء

ازال الله همك وفرج غمك وجعل الجنة مثواك ونفع الله بعلمك..