Emailing a hyperlink to a specific record in a form

[ryanmce92]

Hi There,

I have set up a database which allows users to send an email to the CEO to approve a costing theres one final feature that my end users would like and I don't know if it is possible or not with an offline database. I would like a hyperlink or a link or some sort which the CEO can just click and it will take him to the specific record in the form.

The database is on a shared drive on our server and only certain people will have access to it, it will be be mapped to drive A on their own individual machines so if there's some kind of link it would be to A://Costings Database/ followed by the specific record in the form.

If it is not possible to go the specific record in the form would it be possible to simply open the form for him to view?. and then he filters using the filter feature at the bottom.

[ranman256]

Its possible to provide a command line switch and submit the key index to the record
msaccess.exe "c:\MyFolder\MyDatabase.accdb /cmd 3251"

this would open your db and the command line would capture 3251
this would open the form AT the given index.

Public Sub CheckCommandLine()
      ' Check the value returned by Command function and display
      ' the appropriate form.
    If Command <> "" Then
        DoCmd.OpenForm "frmData", ,,"[ID] = " & command
    Else
        DoCmd.OpenForm "frmData"
    End If
End Sub

see: https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

[ryanmce92]

Its possible to provide a command line switch and submit the key index to the record
msaccess.exe "c:\MyFolder\MyDatabase.accdb /cmd 3251"

this would open your db and the command line would capture 3251
this would open the form AT the given index.

Public Sub CheckCommandLine()
      ' Check the value returned by Command function and display
      ' the appropriate form.
    If Command <> "" Then
        DoCmd.OpenForm "frmData", ,,"[ID] = " & command
    Else
        DoCmd.OpenForm "frmData"
    End If
End Sub

see: https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

Would the number after cmd be the autonumber ID for the costing?. How would I make it go automatically to the record which has been sent could I use "me.ID" rather than [ID]? and this would allow him to view that specific record and approve or decline as necessary.

[ryanmce92]

Private Sub Command561_Click()strMsg = "Hi Costing Team, " & vbCrLf & vbCrLf & "Costing Number " & Me.ID & " has been raised " & vbCrLf & "It was raised on: " & Me.Date & vbCrLf & _
"By: " & Me.Staff & vbCrLf & "For the following customer: " & Me.Customer.Column(1) & vbCrLf & "With this Contract Code: " & Me.Contract & vbCrLf & vbCrLf & _
"The Yr 1 Qty is: " & Me.Qty1 & vbCrLf & "HA Code: " & Me.HA & vbCrLf & "Product Description: " & Me.ProdDesc & vbCrLf & "Description Notes: " & Me.DescNote & vbCrLf & _
"Class: " & Me.Class & vbCrLf & "Category: " & Me.Cat & vbCrLf & "Size Range: " & Me.SizeRan & vbCrLf & "Size Range Length: " & Me.SizeLen & vbCrLf & _
"Supplier Name: " & Me.Supplier & vbCrLf & "Catalogue Code: " & Me.CatCode & vbCrLf & "Costing: " & Me.CMT & vbCrLf & "Fabric Status: " & Me.Status & vbCrLf & _
"Fabric (£/$/€): " & Me.FabricCost & vbCrLf & "Exchange Rate: " & Me.ExchRate1.Column(1) & vbCrLf & "Cost Per Metre: " & Format(Me.CPM, "Currency") & vbCrLf & _
"CMT Price per Item: " & Me.CMTTotPrice & vbCrLf & "Fully Factored Cost: " & Me.FFCost & vbCrLf & "Delivery Per M: " & Me.DPM & vbCrLf & _
"Total Delivery Cost: " & Format(Me.TotDel, "Currency") & vbCrLf & "Delivery Cost per Item: " & Format(Me.DelCostItem, "Currency") & vbCrLf & _
"Duty (%) : " & Format(Me.DutyP, "Percent") & vbCrLf & "Duty (£) : " & Format(Me.Duty, "Currency") & vbCrLf & "Agent (%) : " & Format(Me.AgentP, "Percent") & vbCrLf & _
"Agent (£) : " & Format(Me.Agent, "Currency") & vbCrLf & "NI Embroidery per 000's: " & Me.NIEmbPer & vbCrLf & "Stitches per 000's : " & Format(Me.StitchesP, "Currency") & vbCrLf & _
"NI Embroidery : " & Me.NIEmbPer & vbCrLf & "Other Embroidery : " & Me.OtherEmb & vbCrLf & "HunterPac : " & Me.Hunterpac & vbCrLf & _
"Bought In Cost : " & Format(Me.BICost, "Currency") & vbCrLf & "Fully Landed Cost Per Item : " & Format(Me.FLCost, "Currency") & vbCrLf & _
"Mark-up (%) : " & Format(Me.Mark_UpP, "Percent") & vbCrLf & "Mark-Up (£) : " & Format(Me.Mark_Up, "Currency") & vbCrLf & _
"Prior Selling Price : " & Format(Me.PreSP, "Currency") & vbCrLf & "Total Selling Price (£) : " & Format(Me.TotSP, "Currency") & vbCrLf & _
"Exchange Rate : " & Format(Me.ExchRate3, "Currency") & vbCrLf & "Total Selling Price (£/€/$): " & Me.TotalSP & vbCrLf & _
"Total Revenue : " & Format(Me.Revenue, "Currency") & vbCrLf & "Total Cost : " & Format(Me.Cost, "Currency") & vbCrLf & _
"Total Mark-Up : " & Format(Me.TotMark_Up, "Currency")


DoCmd.SendObject , , , "Email Address Here", , , "A New Costing Has Been Raised", strMsg
End Sub

That is my code for creating the email, how would I manage to create a hyperlink in this?.