مشكل در افزودن نام جديد به كمبو باكس

[mah3150]

دمتون گرم ببینید می تونید فایل بالا رو اصلاح کنید
اگه بشه هر تو هر کدوم نام جدید هم اضافه کرد که دیگه محشره

[Abbas Amiri]

لطفا دقیقتر بگویید تا بهتر راهنمایی شوید.

[mah3150]

سلام دوست عزیز
میخوام تو هر کمبو قادر به ساخت آیتم جدیدی باشم
مثلا استان 5 تا بود من بتونم ششمین رو هم اضافه کنم و برای بقیه هم همینطور
برنامه پویا بشه

[Abbas Amiri]

برای دو کمبوی اول کدهای زیر را کپی کن و جهت دوکمبوی دیگر به همین سیاق خودت بنویس


Private Sub Combo0_NotInList(NewData As String, Response As Integer)
Dim s As String
If MsgBox("مقدار مندرج جزو ليست نمي باشد.اضافه شود؟", vbQuestion + vbYesNo) = vbNo Then
Response = acDataErrContinue
Else
DoCmd.SetWarnings False

s = "INSERT INTO Tabl1(Ostan) VALUES('" & NewData & "')"
DoCmd.RunSQL s
DoCmd.SetWarnings True
Response = acDataErrAdded
End If
End Sub

Private Sub Combo2_NotInList(NewData As String, Response As Integer)
Dim s As String
If IsNull(Combo0) Then
MsgBox "مرکز ديسپاچينگ مشخص نشده است"
Combo2 = Null
Response = acDataErrContinue
End If
If MsgBox("مقدار مندرج جزو ليست نمي باشد.اضافه شود؟", vbQuestion + vbYesNo) = vbNo Then
Response = acDataErrContinue
Else
DoCmd.SetWarnings False

s = "INSERT INTO Tabl2([ID Ostan], Shahr) VALUES(" & Combo0.Column(1) & ",'" & NewData & "')"
DoCmd.RunSQL s
DoCmd.SetWarnings True
Response = acDataErrAdded
End If
End Sub

[mah3150]

اگه کسی میتونه 4 کمبو رو کاکل کنه و ضمیمه رو اصلاح کنه چون فقط 3 کمبو رو من تهیه کردم تو چهارمی گیر کردم تا بعدش گفته هتی اقای امیری رو اصلاح کنم

[Abbas Amiri]

اصلاح شد ولی اشتباه شما در RowSource مربوط به کمبو 4 بود

[mah3150]

اصلاح شد ولی اشتباه شما در RowSource مربوط به کمبو 4 بود
سلام
دلسل عمل نکردن ریپورت را لطف کنید اصلاح بفرمایید

[Abbas Amiri]

کمبوها در فضای ریپرت باز نمی شوند . اگر خیلی اصرار دارید می توانید ازلیست باکس استفاده کنید

[mah3150]

متوجه منظورتان شدم که کمبو ها در ریپورت باز نمیشوند اما در فایل شماره 3 تاپیک 7 کوئری ساخته شده عمل نمیکند.تک تک کار میکنه اما "دیسپاچینگ شرق" "لاهیجان" "لاهیجان" عملکرد ندارد
با تشکر

[Abbas Amiri]

استفاده از حالتی که در فرم 2 استفاده شده بهتر است (بجای اسم از ID استفاده شده است)

[mah3150]

عالی بود دست شما درد نکنه

[mah3150]

فقط در بستن فرم 2 پس از انتخاب دکمه نمایش مشکل دارم چطور ببندمش که بعد از نمایش ریپورت باز نمونه

[mah3150]

زحمت بستن فرمو هم می کشید.بعد از انتخاب کمبوها فرم بسته شود در حال حاضر باز میمونند.
با تشکر

[mehdi_fiz]

سلام دوست عزیز
نمونه فایل شما اصلاح شد
پس از بسنه شدن گزارش فرم 2 نیز بسته می شود
موفق باشید

[mah3150]

با سلام خدمت دوستان
میشه فرم رو طوری اصلاح کرد که حتی با انتخاب یک فیلد(کمبو اولی) هم اطلاعات موجود را نمایش ندهد و نیاز به انتخاب اجباری کمبو بعدی نباشد؟