می خواهم در یک combo box آیتمی اضافه کنم

[sabaie]

:گریه: آیتمی را به عنوان کلمه جدید اضافه نمایم تا در صورتی که اگر کد کالایی وجود نداشت به تواند فرم دیگر را باز نماید و بتوانم کد مربوطه را وارد نمایم و پس از بست فرم کد مربوط به همان فرم اول اضافه گردد.

[Heydari865]

ابتدا یک Command Button رو فرمت بساز
تو ایونت On Mouse clik کد زیر رو بنویس
Docmd.openform Formname
Formname نام فرمی است که اطلاعات کالا رو تو اون ثبت میکنی
پس از بستن فرم دوم در ایونت On Enter مربوط به COmbo Box کد زیر رو بنویس
ME.Comboname.requery
کالای جدید تو لیستت نشون داده میشه و میتونی انتخابش کنی

[Lord_Voldemort]

کار دستور Requery چیه ؟

[mohammadgij]

نه نیازی به این کار نیست . تو میتونی در Procedure مربوط به Not in List کوبو باکس چند تا دستور ساده بنویسی




Private Sub comboBoxExample_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
On Error Resume Next
Set ctl = Me.ActiveControl
If MsgBox("Hdh ", vbYesNo + vbQuestion) = vbYes Then
docmd.openFrom "Example"
forms("Example").exampleControl.value=newDate
Else
MsgBox Response
Response = acDataErrContinue
ctl.Undo
End If
End Sub