افزودن آيتم به كمبو باكس

[abas1388]

سلام
آيا ميتوان آيتم يا آيتم هائي را در حالت اجراي فرم و در حالتيكه row source type كمبو باكس مساوي valuelist باشد به آن اضافه نمود ؟
با تشكر

[amirzazadeh]

سلام
آيا ميتوان آيتم يا آيتم هائي را در حالت اجراي فرم و در حالتيكه row source type كمبو باكس مساوي valuelist باشد به آن اضافه نمود ؟
با تشكر
سلام
لطفا نمونه رو ببينيد:

Private Sub Combo0_NotInList(NewData As String, Response As Integer)

'Update value list with user input.

On Error GoTo ErrHandler

Dim bytUpdate As Byte

bytUpdate = MsgBox("Do you want to add " & Combo0.Value & " to the list?", vbYesNo, "Non-list item!")

'Add user input

If bytUpdate = vbYes Then

Response = acDataErrAdded
Combo0.RowSource = Combo0.RowSource & ";" & NewData
Combo0.additem NewData


ElseIf bytUpdate = vbNo Then

Response = acDataErrContinue

Combo0.Undo

End If

Exit Sub

ErrHandler:

MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"


End Sub
.............................
موفق باشيد

[abas1388]

سلام جناب اميرزاده عزيز!
در نمونه فوق ، آيتم اضافه شده ذخيره نميشود .
با تشكر

[amirzazadeh]

سلام جناب اميرزاده عزيز!
در نمونه فوق ، آيتم اضافه شده ذخيره نميشود .
با تشكر
سلام دوست من
نمونه اصلاح شد لطفا مجددا دانلود كنيد.
.............................
موفق باشيد

[abas1388]

سلام دوست من
نمونه اصلاح شد لطفا مجددا دانلود كنيد.
.............................
موفق باشيد
شرمنده جناب ميرزازاده ، در نمونه اصلاح شده هم آيتمي اضافه نميشود !
با تشكر

[amirzazadeh]

شرمنده جناب ميرزازاده ، در نمونه اصلاح شده هم آيتمي اضافه نميشود !
با تشكر
سلام دوست من
حق با شماست تا زمانيكه ذخيره سازي در حالت design view صورت نگيره ايتم فقط به صورت موقت به ليست اضافه ميشه ولي من با استفاده از يك فرم مخفي مشكل رو كنار زدم.
اميدوارم تا حدودي منظور شما رو براورده كرده باشه.
...............................
موفق باشيد