Recent content by rjusa

MyArray = Split(Mystring, Chr(10), -1, 1) works just fine! Thanks. But what happens is the routine only runs on the first record when the Form is closed or on the current record when the Form is open. How do I get it to loop(?) through all the records in the form?

Background: This beast of a problem came about when an Outlook Contacts folder was exported to a Table in Access. Since Outlook allows for muliple lines in the "Address" field, the information doesn't make sense in Access, which only allows single line input. So, I've written the following code...

Thanks to Pat, I've come up with the following code: Sub Macro69() Dim Mystring As String, MyArray, Msg DoCmd.OpenForm "String" Mystring = Forms!String!Address MyArray = Split(Mystring, "*", -1, 1) Msg = MyArray(0) MsgBox Msg Msg = MyArray(1) MsgBox Msg End Sub Returned excatly what I needed...

Thanks to Pat, I've come up with the following code: Sub Macro69() Dim Mystring As String, MyArray, Msg DoCmd.OpenForm "String" Mystring = Forms!String!Address MyArray = Split(Mystring, "*", -1, 1) Msg = MyArray(0) MsgBox Msg Msg = MyArray(1) MsgBox Msg End Sub Returned excatly what I needed...

Pat- You're a genius! I coded the following: Sub Macro69() Dim Mystring As String, MyArray, Msg DoCmd.OpenForm "String" Mystring = Forms!String!Address MyArray = Split(Mystring, "*", -1, 1) Msg = MyArray(0) MsgBox Msg Msg = MyArray(1) MsgBox Msg End Sub Returned excatly what I needed. Thank...

The following routine will take a string _expression and break it into parts as set by the delimeter: Sub StringTestMacro() Dim MyString, MyArray, Msg MyString = "VBScriptXisXfun!" MyArray = Split(MyString, "X", -1, 1) Msg = MyArray(0) MsgBox Msg Msg = MyArray(1) MsgBox Msg Msg = MyArray(2)...

The following routine will take a string _expression and break it into parts as set by the delimeter: Sub StringTestMacro() Dim MyString, MyArray, Msg MyString = "VBScriptXisXfun!" MyArray = Split(MyString, "X", -1, 1) Msg = MyArray(0) MsgBox Msg Msg = MyArray(1) MsgBox Msg Msg = MyArray(2)...