if instr(str," ")>0 then
...
endif
یا اگه اصرار دارین یه تابع جداگانه داشته باشین (پست شماره 16):
Public Function detectSpace(strname As String) As Boolean
detectSpace = (instr(strname," ")>0)
End Function
================
آپدیت:
منظور شما رو اشتباه گرفته بودم - ولی پست رو میذارم همینجور بمونه.
حتی اگر هم نخواین از روش پست 5 استفاده کنین (که قابلیت انعطاف بیشتری هم داره)
باز هم نیازی به لوپ نیست:
Public Function detectSpace(strname As String) As Boolean
detectSpace=(strname<>"" AND strname=STRING(LEN(strname)," "))
End Function
نوشته شده توسط mazoolagh
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول