برابر قرار دادن یک کمبو باکس با یک تکست باکس

[صادق خدابخش]

باسلام خدمت مهندسین گل .
یه کمبو باکس و یک تکست باکس دارم که خاصیت تکست باکسم data است و کمبو باکس شامل سه ماهه اول ، دوم ، سوم و چهارم می باشد.
میخوام وقتی تاریخ وارد شده بین 94/01/01 تا 94/03/31 باشد به صورت اتوماتیک کمبو باکس برابر با سه ماهه اول سال قرار بگیرد.
لطفاً راهنمایی بفرمایید .

[saeed1234n]

سلام




Select Case test_expression

Case condition_1
result_1
Case condition_2
result_2
...
Case condition_n
result_n

Case Else
result_else

End Select


Let's look at a simple example:

Select Case [Region]
Case "N"
[RegionName] = "North"
Case "S"
[RegionName] = "South"
Case "E"
[RegionName] = "East"
Case "W"
[RegionName] = "West"
End Select

You can also use the To keyword to specify a range of values.

For example:

Select Case LNumber
Case 1 To 10
[RegionName] = "North"
Case 11 To 20
[RegionName] = "South"
Case 21 To 30
[RegionName] = "East"
Case Else
[RegionName] = "West"
End Select

You can also comma delimit values.

For example:

Select Case LNumber
Case 1, 2
[RegionName] = "North"
Case 3, 4, 5
[RegionName] = "South"
Case 6
[RegionName] = "East"
Case 7, 11
[RegionName] = "West"
End Select
And finally, you can also use the Is keyword to compare values.

For example:

Select Case LNumber
Case Is < 100
[RegionName] = "North"
Case Is < 200
[RegionName] = "South"
Case Is < 300
[RegionName] = "East"
Case Else
[RegionName] = "West"
End Select

[صادق خدابخش]

با سلام . دوست عزیزsaeed1234n میشه دقیقا توضیح بدید که باید چکار کنم . ممنون

[saeed1234n]

سلام




Select Case txt_date

Case #94/01/01# to #94/03/31#
Combo="سه ماهه اول سال"
Case #94/04/01# to #94/06/31#
Combo="سه ماهه دوم سال"
Case #94/07/01# to #94/09/30#
Combo="سه ماهه سوم سال"

Case Else
Combo="سه ماهه چهارم سال"

End Select