Hi All,
I am trying to create a simple way that people can enter data into an email (in a perfect world some type of online form that I can send out a link to) then with this data import it into an access table.
I've managed to get as far as a text box with command button that puts the field names into an email, then once I get the reply wanted to copy and paste their reply back into the text box and click a button that then copies that data into the relevant fields. I have the below code to import the information from the textbox to the field but am getting an error "The expression On Click you entered as the event property setting produced the follow error: User-defined type not defined"
Does anyone have any ideas or alternative ways to do this?
I am trying to create a simple way that people can enter data into an email (in a perfect world some type of online form that I can send out a link to) then with this data import it into an access table.
I've managed to get as far as a text box with command button that puts the field names into an email, then once I get the reply wanted to copy and paste their reply back into the text box and click a button that then copies that data into the relevant fields. I have the below code to import the information from the textbox to the field but am getting an error "The expression On Click you entered as the event property setting produced the follow error: User-defined type not defined"
Does anyone have any ideas or alternative ways to do this?
Private Sub ParseLine(S As Sring)
If Left(S, 11) = "First Name:" Then FirstName = Trim(Right(S, Len(S) - 11))
If Left(S, 8) = "Surname:" Then Surname = Trim(Right(S, Len(S) - 8))
End Sub
Private Sub importbutton_Click()
Dim S As String
While InStr(custinfo, vbNewLine) <> 0
S = Left(custinfo, InStr(custinfo, vbNewLine) - 1)
ParseLine S
custinfo = Right(custinfo, Len(custinfo) - InStr(custinfo, vbNewLine) - 1)
Wend
If custinfo <> "" Then
ParseLine custinfo
custinfo = ""
End If
End Sub