←←←/Access/空白削除

Public Function BK(空白削除 As String) As String
     Dim sOri As String
     Dim sTrm As String
     Dim Pos As Integer
     Dim i As Integer

     sOri = 空白削除
     Pos = Len(sOri)
     i = 1
     Do Until Pos = 0
         If strcomp( Mid ( sOri , i , 1 ) , " " , vbTextCompare ) <> 0 Then
           sTrm = sTrm & Mid ( sOri , i , 1 )
         End If
         Pos = Pos - 1
         i = i + 1
      Loop
      BK = sTrm
End Function