Question

我有以下代码。从技术上讲，我正在做的是获取一个名单。所以我想把它们显示为：

Maria，John和Michael，

但是，下面的代码产生了这个：

Maria，John，Michael，

我需要在最后一条记录之前插入＆＃34;和＆＃34; 这个词。请帮忙。我被困了。

SQL = "Select firstname from Distributionlist where program1 = " & Me.Program & " order by firstname"
Set RS = CurrentDb.OpenRecordset(SQL)
Do While Not RS.EOF
f1 = f1 & RS("firstname") & ","
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
msgbox(f1)

Answer 1

有很多方法可以做到这一点。一种简单的方法是使用第一个和最后一个记录进行检查。

类似的东西：

Sub test()
    Debug.Print sheet1.Range("A1").Value = "8:30" 'returns false
    Debug.Print Format(sheet1.Range("A1").Value, "h:mm") = "8:30" 'returns true
    Debug.Print Sheet1.Range("A1").Text = "8:30" 'return true
End Sub

如何在最后一条记录之前添加字符串

1 个答案: