アクセスの分割フィールド2016

Question

おはようございます、

私はAccessデータベースから情報を取り出そうとしており、いくつかの問題が発生しています。私はそれらの中にデータが結合された2つのフィールドを持っており、データの一部を抽出する必要があります。最初のフィールドprm1_benlimitcdは{P、S、 ""、 ""、 ""、 ""、 ""}と表示され、Pを抽出する必要があります。 2番目のフィールドprm1_benlimitamtは{55.22,16.92,0.00,0.00,0.00,0.00,0.00,0.00}と表示され、最初の数字を抽出する必要があります。この場合は55.22です。利用可能なPTOを計算するために使用され、各従業員は異なります。

ご迷惑をおかけして申し訳ございませんが、必要な情報を提供いたします。

おかげで、 ブレント

Answer 1

これは、あなたがやりたいだろう。

Option Compare Database 

Public Function GetValueFromDelimString(sPackedValue As String, nPos As Long, Optional sDelim As String = ",") 

Dim sElements() As String 

sElements() = Split(sPackedValue, sDelim) 
If UBound(sElements) < nPos Then 
    GetValueFromDelimString = "" 
Else 
    GetValueFromDelimString = Replace(sElements(nPos), "{", "") 
End If 

End Function