2016-12-06 79 views
0

早上好,Access 2016中的拆分字段

我的任务是尝试从Access数据库中提取一些信息,并遇到一些问题。我有两个领域的数据相结合,我需要提取部分数据。第一个字段prm1_benlimitcd显示如下{P,S,“”,“”,“”,“”,“”,“”},我需要提取出P。第二个字段prm1_benlimitamt显示如下{55.22,16.92,0.00,0.00,0.00,0.00,0.00,0.00},我需要提取出第一个数字,在本例中为55.22。这用于计算可用的PTO,每个员工都不同。

任何帮助非常感谢,我可以提供任何必要的信息。

感谢, 布伦特

回答

0

这将做你想做的。

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 

enter image description here

enter image description here