我在表單中創建了一個按鈕，該按鈕將使用某些檔案填充電子郵件。其中一些欄位是從另一個表中獲取資訊的下拉框。在此示例中，我有一個標題欄位（先生、夫人等），表單顯示先生，但是當將其寫入電子郵件時，主鍵代替了實際標題。“1”而不是“先生”。
我嘗試使用看起來合乎邏輯的方法從“TitleTBL”（表名）中獲取資訊，但我似乎沒有做對。請參閱下面的 VBA 代碼，讓我知道如何參考實際標題而不是該選項的主鍵。
謝謝
Private Sub TransferDanR_Click()
Dim ID As Variant
Dim Title As Variant
Dim First As Variant
Dim Last As Variant
Dim Addr1 As Variant
Dim Addr2 As Variant
Dim Postcode As Variant
Dim HomePhone As Variant
Dim MobilePhone As Variant
Dim Insurer As Variant
Dim RenewalDate As Variant
Dim PolicyNotes As Variant
Dim ContactNotes As Variant
Dim LGAgent As Variant
Dim objOutlook As Object
Dim objEmail As Object
ID = Forms("DataToDialFRM").ID
Title = Forms("DataToDialFRM").Title
First = Forms("DataToDialFRM").First
Last = Forms("DataToDialFRM").Last
Addr1 = Forms("DataToDialFRM").Addr1
Addr2 = Forms("DataToDialFRM").Addr2
Postcode = Forms("DataToDialFRM").Postcode
HomePhone = Forms("DataToDialFRM").HomePhone
MobilePhone = Forms("DataToDialFRM").MobilePhone
Insurer = Forms("DataToDialFRM").Insurer
RenewalDate = Forms("DataToDialFRM").RenewalDate
PolicyNotes = Forms("DataToDialFRM").PolicyNotes
ContactNotes = Forms("DataToDialFRM").ContactNotes
LGAgent = Forms("DataToDialFRM").LGAgent
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)
With objEmail
.To = "emailaddress; emailaddress; emailaddress"
.Subject = ID & " " & Last & " from " & LGAgent & " (Automated Transfer Email)"
.HTMLBody = "<p>" & "Name: " & Title & ", " & First & ", " & Last & "<p>" & "Address: " & Addr1 & ", " & Addr2 & ", " & Postcode & "<p>" & "HomePhone: " & HomePhone & "<p>" & "MobilePhone: " & MobilePhone & "<p>" & "Insurer " & Insurer & "<p>" & "Renewal Date: " & RenewalDate & "<p>" & "Policy Notes: " & "<p>" & PolicyNotes & "<p>" & "Contact Notes: " & "<p>" & ContactNotes
.Display
End With
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub
uj5u.com熱心網友回復：
要檢索組合框的顯示值，請使用該.Column屬性。
例如，如果您的Title組合框有 2 列 TitleID ("1") 和 Title ("Mr.")，您需要.Column(1)因為列索引是零限制的。
您可以使用以下With陳述句使代碼更具可讀性：
With Forms("DataToDialFRM")
ID = !ID
Title = !Title.Column(1)
First = !First
' ...
End With
使用 bang!來參考表單控制元件，而不是表單記錄源值。
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/417420.html
標籤：