access用vba写一个把窗体标题颜色变成红色

以下是在Microsoft Access中使用VBA将窗体标题颜色更改为红色的代码：

Private Sub Form_Load()
    Me.Caption = "My Form"
    Me.CaptionForeColor = RGB(255, 0, 0) '红色
End Sub

在窗体加载时，将窗体标题设置为“My Form”，并将标题颜色设置为红色。您可以根据需要更改窗体标题和颜色值。

相关问题

使用VBA代码在access窗体中创建一个新的按钮

您可以使用以下VBA代码在Access窗体中创建一个新的按钮：

Private Sub Form_Load()
    Dim cmdButton As CommandButton
    Set cmdButton = Me.Controls.Add("Forms.CommandButton.1", "cmdNewButton", True)
    With cmdButton
        .Caption = "New Button"
        .Left = 100
        .Top = 100
    End With
End Sub

这将在窗体加载时创建一个名为“cmdNewButton”的新按钮，并将其放置在左上角（100, 100）的位置上。您可以根据需要更改按钮的名称、标题和位置。

Access VBA 窗体的一列加选项

您可以在Access VBA中使用ListBox控件来创建一个带有多个选项的列。以下是一个简单的示例：

1. 在您的Access表单中添加一个ListBox控件。
2. 在VBA编辑器中打开该表单的代码视图。
3. 在表单的代码视图中，选择“ListBox”控件并添加以下代码：

Private Sub Form_Load()
    ListBox1.AddItem "Option 1"
    ListBox1.AddItem "Option 2"
    ListBox1.AddItem "Option 3"
End Sub

在这个示例中，我们向ListBox添加了三个选项：Option 1、Option 2和Option 3。您可以根据需要添加或删除选项。

4. 保存并运行表单，您应该可以看到ListBox中的选项。用户可以选择一个或多个选项。

如果您想要在代码中访问用户所选的选项，可以使用以下代码：

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            MsgBox ListBox1.List(i)
        End If
    Next i
End Sub

在这个示例中，我们使用了一个命令按钮（CommandButton），当用户单击该按钮时，我们遍历了ListBox中的所有选项，并检查哪些选项被选中。如果选中了一个选项，我们就会弹出一个消息框来显示用户所选的选项。您可以根据需要修改这个代码来执行您希望的操作。