Преобразование числа в текст в окне сообщения - PullRequest
Новая
       50

Преобразование числа в текст в окне сообщения

0 голосов
/ 13 марта 2020

В форме основного меню я предоставил кнопку для проверки заданий, которые должны появиться в качестве напоминания. В этом поле присваивается как число, потому что в моей таблице оно имеет тип номера и связано с таблицей контактов для получения данных. Таким образом, в моем окне сообщения мне нужно, чтобы это число было преобразовано в данные, хранящиеся в моей таблице контактов. И также я не могу увеличить размер окна сообщения, поэтому оно выглядит грязным. go через прикрепленные изображения и код и помогите мне. [таблица] [ящик сообщений []] [ограничение типа данных` 

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 ``]

enter image description here

1 Ответ

0 голосов
/ 13 марта 2020

Чтобы отобразить описание задачи, вам нужно изменить источник данных набора записей с Tasks на запрос SQL, где вы соединяете таблицу задач с таблицей контактов, используя идентификатор задачи.

Очевидно, Я не знаю имен полей вашей таблицы, но это должно быть примерно так: 

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

Что касается стилизации MessageBox, ваши возможности ограничены. Я бы предложил создать свою собственную форму, которая действует как MessageBox.

Существует множество примеров, как это сделать.

...