کاربرد select case

[صبا9841]

باسلام؛
توی تالار یه نمونه کاربرد select case پیدا نکردم. مشکلم در مقایسه دو متغیر در شرایط زیاد هست. نمونه زیر برای استفاده از راهنمایی دوستان گذاشتم.متشکرم

[صبا9841]

باسلام
توی این نمونه من بدنبال چند شرط متداول هستم بطوریکه اگه شرط1 و شرط2 محقق شد در فیلد جاری متن وارد بشه.
دوستان اگه روش دیگه ای غیر از این برای حل مشکل هست لطفا راهنمایی کنید.

[hamid-nice]

با سلام
از آنجایی که دیدم با نحوه عملکرد select case آشنا نیستی برای آشنایی شما با نحوه عملکرد select case یک مثال ساده می زنم
1- یک فرم بساز با یک تکست باکس به نام Text2
2- در رویداد on click این تکست باکس کد زیر را بنویس

Dim lresponse As Integer
lresponse = MsgBox("", vbYesNo)
Select Case lresponse
Case "6"
Me.Text2 = "ok"
Case "7"
Me.Text2 = "Not ok"
End Select

حالا وقتی بر روی این تکست باکس کلیک می کنی اگه yes را انتخاب کنی عبارت Ok و اگه No را انتخاب کنی عبارت Not OK در این تکس باکس درج می گردد
توضیح اینکه خروجی msgbox در این حالت Yes/No مقادیر 6 و 7 هست که در کد ها از آنها استفاده شده است
موفق باشید

[صبا9841]

باسلام؛
ازتوجه وراهنماییت سپاسگزارم
مشکل شبیه مدل زیر هست:
میخوام با سنجش یک فیلد یا تکس (مثلا fi) به شرطی(گزینه1) که A=10 بود و B>=5 نتیجه در C (یا فیلد نتیجه) عبارت "a" درج بشه و در غیراینصورت اگر B<5 بود نتیجه (C) عبارت "b" باشه ....
شرایط ارزیابی در 2 با شرایط مثال تصویر ادامه داشته باشه..
این ارزیابی با if انجام میشه ولی بدلیل افزایش شرطها (بیش از 15) نتیجه نمیدهد. به همین دلیل به نظرم با select case امکان پذیرباشه. متشکرم

[hamid-nice]

با سلام
برای دیدن کاربرد های بیشتری و حالتهای بیشتر از این دستور از این سایت ماژول مربوط به تاریخ شمسی را دانلود و بررسی کنید کاربردهای وسیعتری را خواهید دید
بنابراین شما با این دستور آشنایی پبدا کرده اید سعی کنید نمونه خود را بر اساس این رستور به جای If اصلاح کنید و در صورت بروز مشکل نمونه خود را ضمیمه کنید تا دوستان راهنمایی لازم را انجام دهند.
موفق باشید