From carbonnb at gmail.com Thu Jun 1 15:47:55 2017 From: carbonnb at gmail.com (Bryan Carbonnell) Date: Thu, 1 Jun 2017 16:47:55 -0400 Subject: [AccessD] Fwd: [WordPress Security] PSA: OneLogin Breached. Here's What You Need to Do. In-Reply-To: <0F.F0.11179.98970395@momentum1-mta1> References: <0F.F0.11179.98970395@momentum1-mta1> Message-ID: FYI.... ---------- Forwarded message ---------- From: "Wordfence" Date: Jun 1, 2017 4:35 PM Subject: [WordPress Security] PSA: OneLogin Breached. Here's What You Need to Do. To: Cc: This is a public service announcement from the Wordfence team due to the potential wide impact this breach may have. Single sign-on provider OneLogin has experienced a major data breach . If you use their services and are affected by this breach, head over to our blog now where we explain what has happened and what you need to do to protect yourself and your data. We also provide additional coverage on this story from other news sources. Read the post on our blog. Regards, Mark Maunder Wordfence Founder & CEO To perform a quick malware and vulnerability scan on your website without installing anything, simply visit www.gravityscan.com, enter your website and hit "Launch Scan" . Gravityscan works with any website, not just WordPress. If you would like to stop receiving WordPress security alerts and product updates from Wordfence, please use the "unsubscribe" link at the bottom of this email. You subscribed to this list via the Wordfence security plugin for WordPress . If you aren't already a member you can subscribe to our WordPress Security and Product Updates mailing list here . You're welcome to republish this email in part or in full provided you mention that the source is www.wordfence.com. If you would like to get Wordfence for your WordPress website, simply go to your "Plugin" menu, click "add new" and search for "wordfence". Feedjit Inc., 800 Fifth Ave, Suite 4100, Seattle, WA 98104, USA Unsubscribe | Change Subscriber Options From marksimms at verizon.net Thu Jun 1 22:35:35 2017 From: marksimms at verizon.net (Mark Simms) Date: Thu, 1 Jun 2017 23:35:35 -0400 Subject: [AccessD] Fwd: [WordPress Security] PSA: OneLogin Breached. Here's What You Need to Do. In-Reply-To: References: <0F.F0.11179.98970395@momentum1-mta1> Message-ID: <008901d2db51$4c239540$e46abfc0$@net> WordPress has been a favorite target of hackers. From gustav at cactus.dk Wed Jun 7 01:51:47 2017 From: gustav at cactus.dk (Gustav Brock) Date: Wed, 7 Jun 2017 06:51:47 +0000 Subject: [AccessD] Official Access Blog Message-ID: Hi all Microsoft has finally established a blog for Access at the Microsoft Tech Community driven by the Access Team itself: https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog Only one entry yet, but more should follow. /gustav From accessd at shaw.ca Wed Jun 7 09:26:25 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 7 Jun 2017 08:26:25 -0600 (MDT) Subject: [AccessD] Official Access Blog In-Reply-To: References: Message-ID: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> Hi Gustav: It is a little late, to start officially asking for input but if Microsoft is serious, there is potential. Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Wednesday, June 7, 2017 2:51:47 AM Subject: [AccessD] Official Access Blog Hi all Microsoft has finally established a blog for Access at the Microsoft Tech Community driven by the Access Team itself: https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog Only one entry yet, but more should follow. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From jimdettman at verizon.net Wed Jun 7 09:53:20 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Wed, 7 Jun 2017 10:53:20 -0400 Subject: [AccessD] Official Access Blog In-Reply-To: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> References: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> Message-ID: <013501d2df9d$ce6aa200$6b3fe600$@verizon.net> This is not really for input, but for disseminating official information direct from the Access team. For input, the "Access User Voice" site has been up for a couple of years now: https://access.uservoice.com/ Some of the features your seeing now have come directly from that. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Wednesday, June 07, 2017 10:26 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Official Access Blog Hi Gustav: It is a little late, to start officially asking for input but if Microsoft is serious, there is potential. Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Wednesday, June 7, 2017 2:51:47 AM Subject: [AccessD] Official Access Blog Hi all Microsoft has finally established a blog for Access at the Microsoft Tech Community driven by the Access Team itself: https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog Only one entry yet, but more should follow. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From accessd at shaw.ca Wed Jun 7 10:02:53 2017 From: accessd at shaw.ca (Jim Lawrence) Date: Wed, 7 Jun 2017 09:02:53 -0600 (MDT) Subject: [AccessD] Official Access Blog In-Reply-To: <013501d2df9d$ce6aa200$6b3fe600$@verizon.net> References: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> <013501d2df9d$ce6aa200$6b3fe600$@verizon.net> Message-ID: <916964423.228763002.1496847773030.JavaMail.zimbra@shaw.ca> Hmmm, and what is your opinion? Aside: Why is there such a push to move all MS internet application traffic through Azure? Jim ----- Original Message ----- From: "Jim Dettman" To: "Access Developers discussion and problem solving" Sent: Wednesday, June 7, 2017 10:53:20 AM Subject: Re: [AccessD] Official Access Blog This is not really for input, but for disseminating official information direct from the Access team. For input, the "Access User Voice" site has been up for a couple of years now: https://access.uservoice.com/ Some of the features your seeing now have come directly from that. Jim. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence Sent: Wednesday, June 07, 2017 10:26 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Official Access Blog Hi Gustav: It is a little late, to start officially asking for input but if Microsoft is serious, there is potential. Jim ----- Original Message ----- From: "Gustav Brock" To: "Access Developers discussion and problem solving" Sent: Wednesday, June 7, 2017 2:51:47 AM Subject: [AccessD] Official Access Blog Hi all Microsoft has finally established a blog for Access at the Microsoft Tech Community driven by the Access Team itself: https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog Only one entry yet, but more should follow. /gustav -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From newsgrps at dalyn.co.nz Wed Jun 7 17:50:40 2017 From: newsgrps at dalyn.co.nz (David Emerson) Date: Thu, 8 Jun 2017 10:50:40 +1200 Subject: [AccessD] Extract data from Single field Message-ID: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz> Hi Listers, I have some data that is currently stored in a single field in the following format: [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]:[ Merchant2]:[Amount2]:[ARN2]:[Note2];etc The ";" separates records and the ":" separates the data within a record. Before I start reinventing the wheel, does anyone have a code snippet that will extract the fields? Regards David Emerson Dalyn Software Ltd Wellington, New Zealand From bensonforums at gmail.com Wed Jun 7 17:59:11 2017 From: bensonforums at gmail.com (Bill Benson) Date: Wed, 7 Jun 2017 18:59:11 -0400 Subject: [AccessD] Extract data from Single field In-Reply-To: References: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz> Message-ID: What will you do if the Notes contain character like [ or ] or ; or : ? What mind of delimiter can be counted on with data like that? [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]:[ Merchant2]:[Amount2]:[ARN2]:[Note2];etc The ";" separates records and the ":" separates the data within a record. Before I start reinventing the wheel, does anyone have a code snippet that will extract the fields? Regards David Emerson Dalyn Software Ltd Wellington, New Zealand -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From newsgrps at dalyn.co.nz Wed Jun 7 18:31:41 2017 From: newsgrps at dalyn.co.nz (David Emerson) Date: Thu, 8 Jun 2017 11:31:41 +1200 Subject: [AccessD] Extract data from Single field In-Reply-To: References: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz> Message-ID: <004001d2dfe6$3799bca0$a6cd35e0$@dalyn.co.nz> Hi Bill, I think the data will not actually include the open and close brackets so that shouldn't be a problem. Since the notes are the last field I just need to deal with ; Here is what I came up with so far (since there are so few fields and some are numbers, some are text, I didn't try to loop individual fields) strTransactions = rstDispute!MergedTransactions Do While Len(strTransactions) > 1 strSQL = "INSERT INTO dbo.DisputeTransaction (TransactionDate, TransactionMerchant, TransactionAmount, TransactionARN, TransactionNotes ) " strSQL = strSQL & "VALUES ("'" strSQL = strSQL & basConvertDate(Left$(strTransactions, InStr(strTransactions, ":") - 1)) & "','" 'TransactionDate strTransactions = Right$(strTransactions, Len(strTransactions) - InStr(strTransactions, ":")) strSQL = strSQL & Left$(strTransactions, InStr(strTransactions, ":") - 1) & "'," 'TransactionMerchant strTransactions = Right$(strTransactions, Len(strTransactions) - InStr(strTransactions, ":")) strSQL = strSQL & Left$(strTransactions, InStr(strTransactions, ":") - 1) & ",'" 'TransactionAmount strTransactions = Right$(strTransactions, Len(strTransactions) - InStr(strTransactions, ":")) strSQL = strSQL & Left$(strTransactions, InStr(strTransactions, ":") - 1) & "','" 'TransactionARN strTransactions = Right$(strTransactions, Len(strTransactions) - InStr(strTransactions, ":")) strSQL = strSQL & Left$(strTransactions, InStr(strTransactions, ";") - 1) & "'," 'TransactionNotes strTransactions = Right$(strTransactions, Len(strTransactions) - InStr(strTransactions, ";")) Set cmd = basGetCommand(strSQL, adCmdText) cmd.Execute Set cmd = Nothing Loop Regards David -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Benson Sent: Thursday, 8 June 2017 10:59 a.m. To: Access Developers discussion and problem solving Subject: Re: [AccessD] Extract data from Single field What will you do if the Notes contain character like [ or ] or ; or : ? What mind of delimiter can be counted on with data like that? Hi Listers, I have some data that is currently stored in a single field in the following format: [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]:[ Merchant2]:[Amount2]:[ARN2]:[Note2];etc The ";" separates records and the ":" separates the data within a record. Before I start reinventing the wheel, does anyone have a code snippet that will extract the fields? Regards David Emerson Dalyn Software Ltd Wellington, New Zealand From jackandpat.d at gmail.com Wed Jun 7 19:14:25 2017 From: jackandpat.d at gmail.com (jack drawbridge) Date: Wed, 7 Jun 2017 20:14:25 -0400 Subject: [AccessD] Extract data from Single field In-Reply-To: <004001d2dfe6$3799bca0$a6cd35e0$@dalyn.co.nz> References: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz> <004001d2dfe6$3799bca0$a6cd35e0$@dalyn.co.nz> Message-ID: David, Not sure what you need, but here is an approach (if I understand the requirement) that may be useful. Sub david() Dim x As String Dim i As Integer, j As Integer Dim rec As Variant 'terminated with ; Dim fld As Variant 'terminated with : 'put the data template into a string x = "[TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]:[Merchant2]:[Amount2]:[ARN2]:[Note2];" rec = Split(x, ";") ' act on the rec array For i = LBound(rec) To UBound(rec) fld = Split(rec(i), ":") For j = LBound(fld) To UBound(fld) Debug.Print "record (" & i & " , field " & j; ") is " & fld(j) Next j Next i End Sub result is record (0 , field 0) is [TransactionDate1] record (0 , field 1) is [Merchant1] record (0 , field 2) is [Amount1] record (0 , field 3) is [ARN1] record (0 , field 4) is [Note1] record (1 , field 0) is [TransactionDate2] record (1 , field 1) is [Merchant2] record (1 , field 2) is [Amount2] record (1 , field 3) is [ARN2] record (1 , field 4) is [Note2] Good luck. On Wed, Jun 7, 2017 at 7:31 PM, David Emerson wrote: > Hi Bill, > > I think the data will not actually include the open and close brackets so > that shouldn't be a problem. > > Since the notes are the last field I just need to deal with ; > > Here is what I came up with so far (since there are so few fields and some > are numbers, some are text, I didn't try to loop individual fields) > > strTransactions = rstDispute!MergedTransactions > Do While Len(strTransactions) > 1 > strSQL = "INSERT INTO dbo.DisputeTransaction > (TransactionDate, TransactionMerchant, TransactionAmount, TransactionARN, > TransactionNotes ) " > strSQL = strSQL & "VALUES ("'" > strSQL = strSQL & basConvertDate(Left$(strTransactions, > InStr(strTransactions, ":") - 1)) & "','" 'TransactionDate > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & "'," 'TransactionMerchant > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & ",'" 'TransactionAmount > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & "','" 'TransactionARN > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ";") - 1) & "'," 'TransactionNotes > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ";")) > Set cmd = basGetCommand(strSQL, adCmdText) > cmd.Execute > Set cmd = Nothing > Loop > > Regards > > David > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Bill Benson > Sent: Thursday, 8 June 2017 10:59 a.m. > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Extract data from Single field > > What will you do if the Notes contain character like [ or ] or ; or : > > ? > > What mind of delimiter can be counted on with data like that? > > Hi Listers, > > I have some data that is currently stored in a single field in the > following > format: > > [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[ > TransactionDate2]:[ > Merchant2]:[Amount2]:[ARN2]:[Note2];etc > > The ";" separates records and the ":" separates the data within a record. > > Before I start reinventing the wheel, does anyone have a code snippet that > will extract the fields? > > Regards > David Emerson > Dalyn Software Ltd > Wellington, New Zealand > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From newsgrps at dalyn.co.nz Wed Jun 7 20:00:33 2017 From: newsgrps at dalyn.co.nz (David Emerson) Date: Thu, 8 Jun 2017 13:00:33 +1200 Subject: [AccessD] Extract data from Single field In-Reply-To: References: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz> <004001d2dfe6$3799bca0$a6cd35e0$@dalyn.co.nz> Message-ID: <007301d2dff2$a1fdcc10$e5f96430$@dalyn.co.nz> Thanks Jack, worth considering. -----Original Message----- From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jack drawbridge Sent: Thursday, 8 June 2017 12:14 p.m. To: Access Developers discussion and problem solving Subject: Re: [AccessD] Extract data from Single field David, Not sure what you need, but here is an approach (if I understand the requirement) that may be useful. Sub david() Dim x As String Dim i As Integer, j As Integer Dim rec As Variant 'terminated with ; Dim fld As Variant 'terminated with : 'put the data template into a string x = "[TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]: [Merchant2]:[Amount2]:[ARN2]:[Note2];" rec = Split(x, ";") ' act on the rec array For i = LBound(rec) To UBound(rec) fld = Split(rec(i), ":") For j = LBound(fld) To UBound(fld) Debug.Print "record (" & i & " , field " & j; ") is " & fld(j) Next j Next i End Sub result is record (0 , field 0) is [TransactionDate1] record (0 , field 1) is [Merchant1] record (0 , field 2) is [Amount1] record (0 , field 3) is [ARN1] record (0 , field 4) is [Note1] record (1 , field 0) is [TransactionDate2] record (1 , field 1) is [Merchant2] record (1 , field 2) is [Amount2] record (1 , field 3) is [ARN2] record (1 , field 4) is [Note2] Good luck. On Wed, Jun 7, 2017 at 7:31 PM, David Emerson wrote: > Hi Bill, > > I think the data will not actually include the open and close brackets > so that shouldn't be a problem. > > Since the notes are the last field I just need to deal with ; > > Here is what I came up with so far (since there are so few fields and > some are numbers, some are text, I didn't try to loop individual > fields) > > strTransactions = rstDispute!MergedTransactions > Do While Len(strTransactions) > 1 > strSQL = "INSERT INTO dbo.DisputeTransaction > (TransactionDate, TransactionMerchant, TransactionAmount, > TransactionARN, TransactionNotes ) " > strSQL = strSQL & "VALUES ("'" > strSQL = strSQL & > basConvertDate(Left$(strTransactions, > InStr(strTransactions, ":") - 1)) & "','" 'TransactionDate > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & "'," 'TransactionMerchant > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & ",'" 'TransactionAmount > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ":") - 1) & "','" 'TransactionARN > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ":")) > strSQL = strSQL & Left$(strTransactions, > InStr(strTransactions, ";") - 1) & "'," 'TransactionNotes > strTransactions = Right$(strTransactions, > Len(strTransactions) - InStr(strTransactions, ";")) > Set cmd = basGetCommand(strSQL, adCmdText) > cmd.Execute > Set cmd = Nothing > Loop > > Regards > > David > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of Bill Benson > Sent: Thursday, 8 June 2017 10:59 a.m. > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Extract data from Single field > > What will you do if the Notes contain character like [ or ] or ; or : > > ? > > What mind of delimiter can be counted on with data like that? > > Hi Listers, > > I have some data that is currently stored in a single field in the > following > format: > > [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[ > TransactionDate2]:[ > Merchant2]:[Amount2]:[ARN2]:[Note2];etc > > The ";" separates records and the ":" separates the data within a record. > > Before I start reinventing the wheel, does anyone have a code snippet > that will extract the fields? > > Regards > David Emerson > Dalyn Software Ltd > Wellington, New Zealand > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Wed Jun 7 23:04:26 2017 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Thu, 08 Jun 2017 14:04:26 +1000 Subject: [AccessD] Extract data from Single field In-Reply-To: <007301d2dff2$a1fdcc10$e5f96430$@dalyn.co.nz> References: <003801d2dfe0$7d176800$77463800$@dalyn.co.nz>, , <007301d2dff2$a1fdcc10$e5f96430$@dalyn.co.nz> Message-ID: <5938CCCA.30748.33301669@stuart.lexacorp.com.pg> I'd go with a slight variation to that (I have variants :-) ) Complete code including a test sub: Option Compare Database Option Explicit Dim AllData() As String Sub ParseData(strData As String) Dim recs() As String Dim ARecord() As String Dim x As Long Dim y As Long 'Get records into local Array recs() = Split(strData, ";") 'Get fields into Global Array ReDim AllData(UBound(recs()), 4) For x = 0 To UBound(recs()) ARecord() = Split(recs(x), ":") If UBound(ARecord()) > -1 Then 'Deal with possible trailing ";" in string For y = 0 To 4 AllData(x, y) = ARecord(y) Next End If Next End Sub Sub Test() Dim x, y As Long ParseData "[TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionDate2]:[ Merchant2]:[Amount2]:[ARN2]:[Note2];" For x = 0 To UBound(AllData()) For y = 0 To 4 Debug.Print AllData(x, y), Next Debug.Print Next End Sub On 8 Jun 2017 at 13:00, David Emerson wrote: > Thanks Jack, worth considering. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf > Of jack drawbridge Sent: Thursday, 8 June 2017 12:14 p.m. To: Access > Developers discussion and problem solving Subject: Re: [AccessD] > Extract data from Single field > > David, > > Not sure what you need, but here is an approach (if I understand the > requirement) that may be useful. > > Sub david() > Dim x As String > Dim i As Integer, j As Integer > Dim rec As Variant 'terminated with ; > Dim fld As Variant 'terminated with : > > 'put the data template into a string > x = > "[TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[TransactionD > ate2]: [Merchant2]:[Amount2]:[ARN2]:[Note2];" > rec = Split(x, ";") > ' act on the rec array > For i = LBound(rec) To UBound(rec) > fld = Split(rec(i), ":") > For j = LBound(fld) To UBound(fld) > Debug.Print "record (" & i & " , field " & j; ") is " & > fld(j) > Next j > Next i > End Sub > > result is > > record (0 , field 0) is [TransactionDate1] record (0 , field 1) is > [Merchant1] record (0 , field 2) is [Amount1] record (0 , field 3) is > [ARN1] record (0 , field 4) is [Note1] record (1 , field 0) is > [TransactionDate2] record (1 , field 1) is [Merchant2] record (1 , > field 2) is [Amount2] record (1 , field 3) is [ARN2] record (1 , field > 4) is [Note2] > > Good luck. > > On Wed, Jun 7, 2017 at 7:31 PM, David Emerson > wrote: > > > Hi Bill, > > > > I think the data will not actually include the open and close > > brackets so that shouldn't be a problem. > > > > Since the notes are the last field I just need to deal with ; > > > > Here is what I came up with so far (since there are so few fields > > and some are numbers, some are text, I didn't try to loop individual > > fields) > > > > strTransactions = rstDispute!MergedTransactions > > Do While Len(strTransactions) > 1 > > strSQL = "INSERT INTO dbo.DisputeTransaction > > (TransactionDate, TransactionMerchant, TransactionAmount, > > TransactionARN, TransactionNotes ) " > > strSQL = strSQL & "VALUES ("'" > > strSQL = strSQL & > > basConvertDate(Left$(strTransactions, > > InStr(strTransactions, ":") - 1)) & "','" 'TransactionDate > > strTransactions = Right$(strTransactions, > > Len(strTransactions) - InStr(strTransactions, ":")) > > strSQL = strSQL & Left$(strTransactions, > > InStr(strTransactions, ":") - 1) & "'," 'TransactionMerchant > > strTransactions = Right$(strTransactions, > > Len(strTransactions) - InStr(strTransactions, ":")) > > strSQL = strSQL & Left$(strTransactions, > > InStr(strTransactions, ":") - 1) & ",'" 'TransactionAmount > > strTransactions = Right$(strTransactions, > > Len(strTransactions) - InStr(strTransactions, ":")) > > strSQL = strSQL & Left$(strTransactions, > > InStr(strTransactions, ":") - 1) & "','" 'TransactionARN > > strTransactions = Right$(strTransactions, > > Len(strTransactions) - InStr(strTransactions, ":")) > > strSQL = strSQL & Left$(strTransactions, > > InStr(strTransactions, ";") - 1) & "'," 'TransactionNotes > > strTransactions = Right$(strTransactions, > > Len(strTransactions) - InStr(strTransactions, ";")) > > Set cmd = basGetCommand(strSQL, adCmdText) > > cmd.Execute > > Set cmd = Nothing > > Loop > > > > Regards > > > > David > > > > -----Original Message----- > > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On > > Behalf Of Bill Benson Sent: Thursday, 8 June 2017 10:59 a.m. To: > > Access Developers discussion and problem solving Subject: Re: > > [AccessD] Extract data from Single field > > > > What will you do if the Notes contain character like [ or ] or ; or > > : > > > > ? > > > > What mind of delimiter can be counted on with data like that? > > > > Hi Listers, > > > > I have some data that is currently stored in a single field in the > > following format: > > > > [TransactionDate1]:[Merchant1]:[Amount1]:[ARN1]:[Note1];[ > > TransactionDate2]:[ > > Merchant2]:[Amount2]:[ARN2]:[Note2];etc > > > > The ";" separates records and the ":" separates the data within a > > record. > > > > Before I start reinventing the wheel, does anyone have a code > > snippet that will extract the fields? > > > > Regards > > David Emerson > > Dalyn Software Ltd > > Wellington, New Zealand > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From charlotte.foust at gmail.com Sun Jun 18 16:11:15 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Sun, 18 Jun 2017 14:11:15 -0700 Subject: [AccessD] Official Access Blog In-Reply-To: <916964423.228763002.1496847773030.JavaMail.zimbra@shaw.ca> References: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> <013501d2df9d$ce6aa200$6b3fe600$@verizon.net> <916964423.228763002.1496847773030.JavaMail.zimbra@shaw.ca> Message-ID: User Voice is definitely monitored and they are listening. They still don't have their heads on straight with regard to Access, but I think they're trying. Charlotte Foust (916) 206-4336 On Wed, Jun 7, 2017 at 8:02 AM, Jim Lawrence wrote: > Hmmm, and what is your opinion? > > Aside: Why is there such a push to move all MS internet application > traffic through Azure? > > Jim > > ----- Original Message ----- > From: "Jim Dettman" > To: "Access Developers discussion and problem solving" < > accessd at databaseadvisors.com> > Sent: Wednesday, June 7, 2017 10:53:20 AM > Subject: Re: [AccessD] Official Access Blog > > This is not really for input, but for disseminating official information > direct from the Access team. > > For input, the "Access User Voice" site has been up for a couple of years > now: > > https://access.uservoice.com/ > > Some of the features your seeing now have come directly from that. > > Jim. > > -----Original Message----- > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > Jim > Lawrence > Sent: Wednesday, June 07, 2017 10:26 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Official Access Blog > > Hi Gustav: > > It is a little late, to start officially asking for input but if Microsoft > is serious, there is potential. > > Jim > > ----- Original Message ----- > From: "Gustav Brock" > To: "Access Developers discussion and problem solving" > > Sent: Wednesday, June 7, 2017 2:51:47 AM > Subject: [AccessD] Official Access Blog > > Hi all > > Microsoft has finally established a blog for Access at the Microsoft Tech > Community driven by the Access Team itself: > > https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog > > Only one entry yet, but more should follow. > > /gustav > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From jimdettman at verizon.net Sun Jun 18 18:20:27 2017 From: jimdettman at verizon.net (Jim Dettman) Date: Sun, 18 Jun 2017 19:20:27 -0400 Subject: [AccessD] Official Access Blog In-Reply-To: References: <1000770025.228673794.1496845585913.JavaMail.zimbra@shaw.ca> <013501d2df9d$ce6aa200$6b3fe600$@verizon.net> <916964423.228763002.1496847773030.JavaMail.zimbra@shaw.ca> Message-ID: Unfortunately, the Access team is not able to call all the shots and resources are limited. Don't forget, Microsoft laid off a ton of people a while back. Jim Sent from my iPhone > On Jun 18, 2017, at 5:11 PM, Charlotte Foust wrote: > > User Voice is definitely monitored and they are listening. They still > don't have their heads on straight with regard to Access, but I think > they're trying. > > Charlotte Foust > (916) 206-4336 > >> On Wed, Jun 7, 2017 at 8:02 AM, Jim Lawrence wrote: >> >> Hmmm, and what is your opinion? >> >> Aside: Why is there such a push to move all MS internet application >> traffic through Azure? >> >> Jim >> >> ----- Original Message ----- >> From: "Jim Dettman" >> To: "Access Developers discussion and problem solving" < >> accessd at databaseadvisors.com> >> Sent: Wednesday, June 7, 2017 10:53:20 AM >> Subject: Re: [AccessD] Official Access Blog >> >> This is not really for input, but for disseminating official information >> direct from the Access team. >> >> For input, the "Access User Voice" site has been up for a couple of years >> now: >> >> https://access.uservoice.com/ >> >> Some of the features your seeing now have come directly from that. >> >> Jim. >> >> -----Original Message----- >> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of >> Jim >> Lawrence >> Sent: Wednesday, June 07, 2017 10:26 AM >> To: Access Developers discussion and problem solving >> Subject: Re: [AccessD] Official Access Blog >> >> Hi Gustav: >> >> It is a little late, to start officially asking for input but if Microsoft >> is serious, there is potential. >> >> Jim >> >> ----- Original Message ----- >> From: "Gustav Brock" >> To: "Access Developers discussion and problem solving" >> >> Sent: Wednesday, June 7, 2017 2:51:47 AM >> Subject: [AccessD] Official Access Blog >> >> Hi all >> >> Microsoft has finally established a blog for Access at the Microsoft Tech >> Community driven by the Access Team itself: >> >> https://techcommunity.microsoft.com/t5/Access-Blog/bg-p/AccessBlog >> >> Only one entry yet, but more should follow. >> >> /gustav >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com From charlotte.foust at gmail.com Sun Jun 18 23:18:23 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Sun, 18 Jun 2017 21:18:23 -0700 Subject: [AccessD] Migrating date fields to SQL Server Message-ID: Nearly a decade ago when I was working in .Net and SQL, I knew how to migrate Access tables into SQL Server and handle the date field issues that arose. I've forgotten it all, and I need to find a resource to refresh my memory and help me do what needs doing. I know it has to do with the differences between the dates in Access and SQL Server but I can't remember why it should be a problem moving the tables from Access with a shorter date/time to SQL with a longer one. And I haven't a clue as to the mechanics of getting around the issue, aside from writing scripts, which I really would like to avoid. Can anyone shed some light on this for me? Charlotte Foust (916) 206-4336 From gustav at cactus.dk Mon Jun 19 01:19:21 2017 From: gustav at cactus.dk (Gustav Brock) Date: Mon, 19 Jun 2017 06:19:21 +0000 Subject: [AccessD] Migrating date fields to SQL Server Message-ID: Hi Charlotte You must be thinking of the numeric zero value which for VBA equals 1899-12-30 while it for T-SQL is 1900-01-01. However, you should only in rare cases deal with the numeric value of a date/time. Date and time should always be handled like dates, not strings, not numbers, no exceptions really. The ODBC drivers know all about this. The current issue you may experience is, that the old ODBC drivers don't convert DateTime2 of T-SQL to DateTime but to Text. So, either use DateTime in your SQL tables or use the newer SQL Native drivers of version 11 or later. And never use Date, Time, or SmallDateTime as data type in your SQL Server fields. /gustav -----Oprindelig meddelelse----- Fra: AccessD [mailto:accessd-bounces at databaseadvisors.com] P? vegne af Charlotte Foust Sendt: 19. juni 2017 06:18 Til: Access Developers discussion and problem Emne: [AccessD] Migrating date fields to SQL Server Nearly a decade ago when I was working in .Net and SQL, I knew how to migrate Access tables into SQL Server and handle the date field issues that arose. I've forgotten it all, and I need to find a resource to refresh my memory and help me do what needs doing. I know it has to do with the differences between the dates in Access and SQL Server but I can't remember why it should be a problem moving the tables from Access with a shorter date/time to SQL with a longer one. And I haven't a clue as to the mechanics of getting around the issue, aside from writing scripts, which I really would like to avoid. Can anyone shed some light on this for me? Charlotte Foust (916) 206-4336 From fuller.artful at gmail.com Mon Jun 19 04:33:49 2017 From: fuller.artful at gmail.com (Arthur Fuller) Date: Mon, 19 Jun 2017 05:33:49 -0400 Subject: [AccessD] Migrating date fields to SQL Server In-Reply-To: References: Message-ID: The Australian software firm SSW provides a tool designed for this type of migration, and takes care of the various issues involving dates. It's free. Arthur On Mon, Jun 19, 2017 at 2:19 AM, Gustav Brock wrote: > Hi Charlotte > > You must be thinking of the numeric zero value which for VBA equals > 1899-12-30 while it for T-SQL is 1900-01-01. > > However, you should only in rare cases deal with the numeric value of a > date/time. Date and time should always be handled like dates, not strings, > not numbers, no exceptions really. > > The ODBC drivers know all about this. The current issue you may experience > is, that the old ODBC drivers don't convert DateTime2 of T-SQL to DateTime > but to Text. So, either use DateTime in your SQL tables or use the newer > SQL Native drivers of version 11 or later. And never use Date, Time, or > SmallDateTime as data type in your SQL Server fields. > > /gustav > > -----Oprindelig meddelelse----- > Fra: AccessD [mailto:accessd-bounces at databaseadvisors.com] P? vegne af > Charlotte Foust > Sendt: 19. juni 2017 06:18 > Til: Access Developers discussion and problem < > accessd at databaseadvisors.com> > Emne: [AccessD] Migrating date fields to SQL Server > > Nearly a decade ago when I was working in .Net and SQL, I knew how to > migrate Access tables into SQL Server and handle the date field issues that > arose. I've forgotten it all, and I need to find a resource to refresh my > memory and help me do what needs doing. I know it has to do with the > differences between the dates in Access and SQL Server but I can't remember > why it should be a problem moving the tables from Access with a shorter > date/time to SQL with a longer one. And I haven't a clue as to the > mechanics of getting around the issue, aside from writing scripts, which I > really would like to avoid. > > Can anyone shed some light on this for me? > > > Charlotte Foust > (916) 206-4336 > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Arthur From charlotte.foust at gmail.com Mon Jun 19 10:08:07 2017 From: charlotte.foust at gmail.com (Charlotte Foust) Date: Mon, 19 Jun 2017 08:08:07 -0700 Subject: [AccessD] Migrating date fields to SQL Server In-Reply-To: References: Message-ID: Thanks Arthur. Unfortunately, this is a State computer and I'm not allowed to install tools like that on it. Charlotte Foust 916-206-4336 On Jun 19, 2017 2:35 AM, "Arthur Fuller" wrote: > The Australian software firm SSW provides a tool designed for this type of > migration, and takes care of the various issues involving dates. It's free. > > Arthur > > On Mon, Jun 19, 2017 at 2:19 AM, Gustav Brock wrote: > > > Hi Charlotte > > > > You must be thinking of the numeric zero value which for VBA equals > > 1899-12-30 while it for T-SQL is 1900-01-01. > > > > However, you should only in rare cases deal with the numeric value of a > > date/time. Date and time should always be handled like dates, not > strings, > > not numbers, no exceptions really. > > > > The ODBC drivers know all about this. The current issue you may > experience > > is, that the old ODBC drivers don't convert DateTime2 of T-SQL to > DateTime > > but to Text. So, either use DateTime in your SQL tables or use the newer > > SQL Native drivers of version 11 or later. And never use Date, Time, or > > SmallDateTime as data type in your SQL Server fields. > > > > /gustav > > > > -----Oprindelig meddelelse----- > > Fra: AccessD [mailto:accessd-bounces at databaseadvisors.com] P? vegne af > > Charlotte Foust > > Sendt: 19. juni 2017 06:18 > > Til: Access Developers discussion and problem < > > accessd at databaseadvisors.com> > > Emne: [AccessD] Migrating date fields to SQL Server > > > > Nearly a decade ago when I was working in .Net and SQL, I knew how to > > migrate Access tables into SQL Server and handle the date field issues > that > > arose. I've forgotten it all, and I need to find a resource to refresh > my > > memory and help me do what needs doing. I know it has to do with the > > differences between the dates in Access and SQL Server but I can't > remember > > why it should be a problem moving the tables from Access with a shorter > > date/time to SQL with a longer one. And I haven't a clue as to the > > mechanics of getting around the issue, aside from writing scripts, which > I > > really would like to avoid. > > > > Can anyone shed some light on this for me? > > > > > > Charlotte Foust > > (916) 206-4336 > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > > -- > Arthur > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > From fuller.artful at gmail.com Mon Jun 19 10:14:23 2017 From: fuller.artful at gmail.com (Arthur Fuller) Date: Mon, 19 Jun 2017 11:14:23 -0400 Subject: [AccessD] Migrating date fields to SQL Server In-Reply-To: References: Message-ID: Nevertheless, it's worth a visit to the SSW site, because there's a product description there that describes the problems you may encounter. Think of it as a checklist and implement the steps yourself, since you can't use their utility. A. On Mon, Jun 19, 2017 at 11:08 AM, Charlotte Foust wrote: > Thanks Arthur. Unfortunately, this is a State computer and I'm not allowed > to install tools like that on it. > > Charlotte Foust