मेरे मुख्य मेनू फॉर्म में मैंने रिमाइंडर के रूप में कार्यों की जांच करने के लिए एक बटन प्रदान किया है। इसमें असाइन किया गया फ़ील्ड नंबर के रूप में आ रहा है, क्योंकि मेरी तालिका में यह संख्या प्रकार का है और यह डेटा पुनर्प्राप्त करने के लिए संपर्क तालिका से जुड़ा हुआ है। तो मेरे संदेश बॉक्स में मुझे इस नंबर को परिवर्तित करने की आवश्यकता है क्योंकि डेटा मेरी संपर्क तालिका को संग्रहीत करता है। और मैं संदेश बॉक्स का आकार नहीं बढ़ा सकता, इसलिए यह गन्दा दिख रहा है। कृपया संलग्न छवियों और कोड के माध्यम से जाएं और मेरी मदद करें। [तालिका] [संदेशबॉक्स []] [डेटाटाइप प्रतिबंध`

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
RAVI KUMAR 13 मार्च 2020, 11:01

1 उत्तर

सबसे बढ़िया उत्तर

कार्य विवरण प्रदर्शित करने के लिए, आपको रिकॉर्डसेट के डेटा स्रोत को Tasks से SQL क्वेरी में बदलना होगा जहां आप कार्य आईडी का उपयोग करके संपर्क तालिका के साथ कार्य तालिका में शामिल होते हैं।

जाहिर है मैं आपके टेबल फ़ील्ड के नाम नहीं जानता, लेकिन यह कुछ ऐसा होना चाहिए:

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

MessageBox को स्टाइल करने के लिए, आपके विकल्प सीमित हैं। मैं आपको अपना खुद का फॉर्म बनाने का सुझाव दूंगा जो मैसेजबॉक्स की तरह काम करता है।

इसे कैसे करें इस पर बहुत सारे उदाहरण हैं।

0
Kostas K. 13 मार्च 2020, 09:20