通过vba access中的表记录集循环显示4个按钮标题

Sub ShowButtonTitles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim btn As CommandButton
    Dim i As Integer
    
    ' 打开当前数据库
    Set db = CurrentDb
    
    ' 打开需要循环的表记录集
    Set rs = db.OpenRecordset("YourTableName")
    
    ' 循环遍历记录集
    i = 1
    Do Until rs.EOF
        ' 创建按钮对象
        Set btn = Forms("YourFormName").Controls("Button" & i)
        
        ' 设置按钮标题为当前记录的字段值
        btn.Caption = rs("ButtonTitleFieldName")
        
        ' 移动到下一条记录
        rs.MoveNext
        
        ' 增加按钮索引
        i = i + 1
    Loop
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set db = Nothing
End Sub