خطا در کمبو بکس

[amirgolshan]

با سلام،

سوال1))) در فایل پیوست ، اگر اسمی خارج از لیست "کمبو بکس"  وارد کنیم ، پیغام خطا میبینیم.
آیا امکان دارد ک اپراتور را ملزم کنیم فقط از لیست استفاده کند و قادر به اضافه کردن نفر نباشد؟ و در صورتی ک بخواهد نفر جدید اضافه کند ، یک پیغام دریافت کند ک اضافه کردن نفر جدید امکان پذیر نیست .
مشکلی ک من دارم این هست ک در صورت مشاهده خطا ، به "VB  " مراجعه میکند و این برای یک اپراتور که آشنا به  " VB " نیست . ایجاد مشکل میکند.


سوال2))) آیا امکان دارد ک اپراتور یک نفر جدید اضافه کند و در قسمت " مارک" مثلا تایپ شود " ناا مشخص" ؟


آدرس دريافت فايل :
http://persiandrive.com/430903

با سپاس از همه اساتید 

[~M*E*H*D*I~]

RE: خطا در کمبو بکس

من چند تا آیتم اضافه کردم خب اتفاقی نیفتاد و نباید هم میفتاد با توجه به کدی که نوشتی حالا منظورت رو یکم شفاف تر بگو ایراد کار کجاست؟

[amirgolshan]

RE: خطا در کمبو بکس

سلام
پس از بازشدن فرم , فرض كنيد ك در كمبوباكس نام ( احمد ) را اضافه كنيد.مشاهده ميكنيد ك خطا وجود دارد و به صفه vba ما را منتقل ميكند.( چون احمد در ليست ستونO ما نيست.)

[m.estreji]

RE: خطا در کمبو بکس

سلام
پس از بازشدن فرم , فرض كنيد ك در كمبوباكس نام ( احمد ) را اضافه كنيد.مشاهده ميكنيد ك خطا وجود دارد و به صفه vba ما را منتقل ميكند.( چون احمد در ليست ستونO ما نيست.)

با سلام خدمت شما
از کد زیر استفاده کنید
Private Sub ComboBox1_Change()
If ComboBox1.MatchFound = False Then
ComboBox1.Text = ""
Else
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub

[MEYTI]

RE: خطا در کمبو بکس

با سلام دوست عزيز مقدار MATCH REQUIRED كمبوباكس مورد نظر را را برابر TRUE قرار بده و كد زير را در رويداد كليك كمبوباكس وارد كن

Private Sub ComboBox1_Click()
If ComboBox1.Text <> "" Then

TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub 

[m.estreji]

RE: خطا در کمبو بکس

با سلام دوست عزيز مقدار MATCH REQUIRED كمبوباكس مورد نظر را را برابر TRUE قرار بده و كد زير را در رويداد كليك كمبوباكس وارد كن

Private Sub ComboBox1_Click()
If ComboBox1.Text <> "" Then

TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub 

دوست عزیز کد شما هم درسته اما وقتی رو کمبو کلیک کردی دیگه آدمو بیچاره میکنه
حتما" باید یکی از آیتم های کمبو رو انتخاب کنی و دیگه نمیتونی کمبو رو خالی بزاری