Access (一般機能)

Accessの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2013)
単位のみを抽出する方法を教えてください
投稿日時: 18/08/23 18:04:28
投稿者: Y.K.
メールを送信

お知恵をお貸しください。お願いいたします。
   
クエリの作成について質問です。
規格単位が入っているフィールドがあるのですが、その横に数字を除いた単位のみのフィールドを作りたいのですが、単位のみのフィールドを作る方法はないでしょうか?
数字は全角です。
よろしくお願いします。
   
     <規格単位>      <単位> ←←←作りたいフィールド
   100mL       mL
      5g        g
   1000P        P
      1個        個
   24セット      セット
  525ケース      ケース
  
何卒よろしくお願いします。

回答
投稿日時: 18/08/23 23:32:30
投稿者: よろずや

Public Function Get単位(arg As Variant) As Variant
Dim pos As Long
    Get単位 = Null
    If Not IsNull(arg) Then
        For pos = Len(arg) To 1 Step -1
            Select Case Mid(arg, pos, 1)
                Case "0" To "9", "."
                    Exit For
                Case Else
                    Get単位 = Mid(arg, pos)
            End Select
        Next pos
    End If
End Function

なんてのを作って、クエリから呼び出せばよろしいかと。

投稿日時: 18/08/24 00:11:16
投稿者: Y.K.
メールを送信

よろずや 様
   
早々に回答をいただき、ありがとうございました。
このような方法は想像つきませんでした。
この方法でやって見ます。
本当にありがとうございました。

投稿日時: 18/08/27 16:03:37
投稿者: Y.K.
メールを送信

皆様、ありがとうございました。