访问 VBA 在文本框中显示唯一数据

Question

我使用的是 Access 2007-2010，并且我在一个表单上有 2 个文本框。我想要做的是当用户在textbox1（使用afterupdate）中输入一个名字时，比如“bob”，我希望能够在textbox2 中只显示唯一的年龄（没有双重年龄）。姓名和年龄在一个名为data 的表格中。

[布局]

textbox2 将显示12, 64 或一个在另一个下方。

对不起，如果这很简单，我正在学习Access和VBA

Answer 1

可能比您要寻找的要多一点，但请尝试：

Dim ages(), name As String
Dim y, x, i As Integer

Dim rs As Recordset

name = Me.textbox1.Value

Set rs = CurrentDb.OpenRecordset("Select * from data Where name = '" & name & "'")



With rs

.MoveLast
x = .RecordCount
.MoveFirst

ReDim ages(1 To (x + 1))

Do Until rs.EOF
y = y + 1
If y = 1 Then

ages(y) = ![age]

Else

For i = 1 To y

If ages(y) = ages(i) And y <> i Then

ages(y) = "skip"
GoTo exiter

Else

'fine
ages(y) = ![age]
End If

Next i
End If
exiter:
.MoveNext

Loop

.Close
End With

y = 0

For y = 1 To x


If ages(y) <> "skip" Then

ages(x + 1) = ages(x + 1) & ages(y) & ","
End If

Next y


'feel free to change form msgbox to whatever form object you want

MsgBox " Entries in this List with the name " & name _
            & vbNewLine & ages(x + 1)

如果需要，删除 vb 新行并用 "," 和 msgbox 替换为文本框