silenttalk
Technical User
We use a custom for in Outlook to store info on Clients that come to our exercise classes, the various user fields hold the venue, time, term payments etc.
I want to be able to hit a button and transfer the values of these fields to the notes object on the contact for (this I have renamed to clientnotes) I would like the text entered at the end of any existing text in the clientnotes field.
I seem to be stuck with the method / Property for this field I have used .text .value but it says it is not allowed.
This is my simple code
Dim paidammount, paymentmethod, ccno, ccstart, cexpire
Dim ccsecurity, issueno, ccname, venue, starttime
Dim term, coursestart, bookedon, clientnotes
Dim pastterminfo
Function Item_Open()
Dim objControls
Set objControls = Item.GetInspector.ModifiedFormPages("General".Controls
Set paidammount = objControls("paidammount"
Set paymentmethod = objControls("paymentmethod"
Set ccno = objControls("ccno"
Set ccstart = objControls("ccstart"
Set ccexpire = objControls("ccexpire"
Set ccsecurity = objControls("ccsecurity"
Set issueno = objControls("issueno"
Set ccname = objControls("ccname"
Set venue = objControls("venue"
Set starttime = objControls("starttime"
Set term = objControls("term"
Set coursestart = objControls("coursestart"
Set bookedon = objControls("bookedon"
Set clientnotes = objControls("clientnotes"
End Function
Sub cmdTransferTerm_Click
pastterminfo = venue.value & " " & term.value & " " & paymentmethod.text & " " & ccno.text & " " & paidammount.text
clientnotes.text = pastterminfo
End Sub
Has any one any ideas on this ?
Here's hoping
I want to be able to hit a button and transfer the values of these fields to the notes object on the contact for (this I have renamed to clientnotes) I would like the text entered at the end of any existing text in the clientnotes field.
I seem to be stuck with the method / Property for this field I have used .text .value but it says it is not allowed.
This is my simple code
Dim paidammount, paymentmethod, ccno, ccstart, cexpire
Dim ccsecurity, issueno, ccname, venue, starttime
Dim term, coursestart, bookedon, clientnotes
Dim pastterminfo
Function Item_Open()
Dim objControls
Set objControls = Item.GetInspector.ModifiedFormPages("General".Controls
Set paidammount = objControls("paidammount"
Set paymentmethod = objControls("paymentmethod"
Set ccno = objControls("ccno"
Set ccstart = objControls("ccstart"
Set ccexpire = objControls("ccexpire"
Set ccsecurity = objControls("ccsecurity"
Set issueno = objControls("issueno"
Set ccname = objControls("ccname"
Set venue = objControls("venue"
Set starttime = objControls("starttime"
Set term = objControls("term"
Set coursestart = objControls("coursestart"
Set bookedon = objControls("bookedon"
Set clientnotes = objControls("clientnotes"
End Function
Sub cmdTransferTerm_Click
pastterminfo = venue.value & " " & term.value & " " & paymentmethod.text & " " & ccno.text & " " & paidammount.text
clientnotes.text = pastterminfo
End Sub
Has any one any ideas on this ?
Here's hoping