كتابة في الكومب بوكس بشرط

[Akram Galal]

السادة الأفاضل/ أعضاؤ المنتدي

أرجو منكم ظهور كلمة "تم" في الـ ComboBox2 إكان

الـ ComboBox1 غير فارغ

ولكم منا كل الإحترام والتقدير .

وإليكم المرفقات.

كارنية.rar

[الـعيدروس]

السلام عليكم

Private Sub ComboBox1_Change()

If Me.ComboBox1.Value <> Empty Then Me.ComboBox2.Value = "OK"

End Sub

[Akram Galal]

جزاك الله خيراً يا أستاذ عياد

[Akram Galal]

أستاذ عياد

الكلمة لا تظهر إلا بعد الكتابة في

الـ ComboBox2

فما الحل ؟

[الـعيدروس]

وفي اي حدث تريد تنفيذ جواب الشرط ؟

[Akram Galal]

أريد بمجرد الكتابة في

الـ ComboBox1 والضغط علي enter تظهر النتيجة في

الـ ComboBox2

وشكرا

[أبو حنــــين]

ضع هذا الكود في combobox1

Private Sub ComboBox1_Click()

If Me.ComboBox1.Value <> Empty Then Me.ComboBox2.Value = "OK"

III = 4

Do Until ورقة1.Cells(III, "a").Text = ""

    If Me.ComboBox1.Text = ورقة1.Cells(III, "a").Text Then

	    Cells(III, "a").Activate

	   Me.TextBox2 = ActiveCell.Offset(0, 1).Text

	   Me.TextBox3 = ActiveCell.Offset(0, 2).Text

	   Me.TextBox4 = ActiveCell.Offset(0, 3).Text

	   Me.TextBox5 = ActiveCell.Offset(0, 4).Text

	    Exit Sub

    End If

    III = III + 1

Loop

MsgBox ("!!! عفوا .. اختر اسما الذى تبحث عنه")

Me.ComboBox1.SetFocus

ComboBox2.Value = Empty

End Sub