将数字转换为消息框中的文本

Question

在我的主菜单表单中，我提供了一个按钮来检查到期任务作为提醒。在这个分配给字段中作为数字出现，因为在我的 table 中它是数字类型并且它链接到联系人 table 以检索数据。因此，在我的消息框中，我需要将此号码转换为存储我的联系人 table 的数据。而且我无法增加消息框的大小，所以它看起来很乱。请查看附件中的图片和代码并帮助我。[table][messagebox[]][数据类型限制`

Option Compare Database

Private Sub cmdreminder_Click()
Dim RS As DAO.Recordset
Dim strMsg As String
Set RS = CurrentDb.OpenRecordset("Tasks", dbOpenSnapshot, dbReadOnly)

With RS
    If Not (.BOF And .EOF) Then
        .MoveFirst
        While Not .EOF
            If ![Due Date] >= Date - 7 Then
              strMsg = strMsg & ![Title] & vbTab & vbTab & vbTab & ![Assigned to] & vbTab & vbTab & vbTab & ![Due Date] & vbCrLf
            End If
            .MoveNext
        Wend
    End If
    .Close
End With
Set RS = Nothing
If strMsg <> "" Then
   strMsg = "The following Tasks are due!!!:" & vbTab & vbTab & vbCrLf & vbCrLf &"-----------" & vbCrLf &"Equipment Name" & vbTab & vTab & "Agency Name" & vTab & vbTab & "Due Date" & vbCrLf &"----" & vbCrLf & strMsg Else strMsg = "No Tasks is pending" End If MsgBox strMsg, vbInformation + vbOKOnly End Sub ``]

Answer 1

要显示任务描述，您需要将记录集的数据源从 Tasks 更改为 SQL 查询，您在其中加入任务 table 和联系人 [=21] =] 使用任务 ID。

显然我不知道你的 table 字段的名称，但它应该是这样的：

SELECT Tasks.*, Contacts.TaskDescription
FROM Tasks INNER JOIN Contacts ON Tasks.Id = Contacts.TaskId

至于 MessageBox 的样式，您的选择是有限的。我建议创建您自己的表单，其行为类似于 MessageBox。

有很多关于如何执行此操作的示例。

将数字转换为消息框中的文本

Converting number to text in messagebox

forms

vba

msgbox