c 窗体 生日提醒110

前言

在日常工作和生活中，难免会遇到需要记录生日等重要日子，并在特殊日子到来时及时提醒的情况。使用 c 窗体功能，可以轻松创建生日提醒窗体，实现自动提醒功能。

创建窗体

1. 打开 Microsoft Access 并创建一个新数据库。
2. 在“对象”选项卡下，选择“窗体”。
3. 选择“创建一个空白窗体”。
4. 在窗体上添加以下控件：
- 文本框：名称为 txtName，用于输入姓名。
- 文本框：名称为 txtBirthday，用于输入生日，格式为“yyyy-mm-dd”。
- 按钮：名称为 btnAdd，用于添加生日记录。
- 按钮：名称为 btnRemind，用于查看生日提醒。

添加代码

1. 双击“btnAdd”按钮，在代码视图中添加以下代码：
```vba
Private Sub btnAdd_Click()
Dim strName As String, strBirthday As String
strName =
strBirthday =
'验证输入
If strName = "" Or strBirthday = "" Then
MsgBox "姓名和生日不能为空！", vbCritical
Else
'创建新记录
"INSERT INTO Birthdays (Name, Birthday) VALUES ('" & strName & "', '" & strBirthday & "')"
'清空输入框
= ""
= ""
End If
End Sub
```

2. 双击“btnRemind”按钮，在代码视图中添加以下代码：
```vba
Private Sub btnRemind_Click()
Dim rstBirthdays As , strMessage As String
'获取今天日期
Dim todayDate As Date
todayDate = Date
'从数据库中检索所有生日记录
Set rstBirthdays = ("SELECT * FROM Birthdays")
'循环遍历记录
While Not
'判断是否在今天过生日
If rstBirthdays("Birthday") = todayDate Then
strMessage = strMessage & rstBirthdays("Name") & " (" & Format(rstBirthdays("Birthday"), "yyyy-mm-dd") & ") 今天过生日！" & vbCrLf
End If

Wend
'如果有人过生日，则显示提醒消息框
If strMessage "" Then
MsgBox strMessage, vbInformation
Else
MsgBox "今天没有人过生日。", vbInformation
End If
End Sub
```

使用窗体

1. 输入姓名和生日，然后单击“添加”按钮以添加生日记录。
2. 单击“提醒”按钮以查看今天的生日提醒。如果有人过生日，将显示一个消息框，列出过生日人员的姓名和生日。

通过使用 c 窗体功能，可以轻松创建生日提醒窗体，实现自动提醒功能。该窗体可以帮助我们及时记住重要日子，避免错过向亲朋好友送上生日祝福。

2025-01-13

上一篇：手机生日提醒app：不再错过重要纪念日

下一篇：物业也发了警示提醒短信，千万别忽视