جناب بهرامی شما چقدر به من ایده میدین به تبعیت از کد شما یه فانکشن نوشتم
Public Function detectSpace(strname As String) As Boolean
Dim i As Integer
If Len(strname) = 0 Then
detectSpace = False
Else
For i = 1 To Len(strname)
If Asc(Mid(strname, i, i + 1)) = 32 Then
Else
detectSpace = False
Exit Function
End If
Next i
detectSpace = True
End If
End Function
پاسخ با نقل قول