From Chester_Kaup at kindermorgan.com  Tue Apr  2 08:24:33 2019
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Tue, 2 Apr 2019 13:24:33 +0000
Subject: [AccessD] Query will not run function
Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>

I am probably missing something simple but when I try to run this query I get no results for field Old_Property_ID.

Here is the SQL
SELECT [tbl Property Codes].New_Property_ID, ExtractNumber([New_Property_ID]) AS Old_Property_ID,
[tbl Property Codes].Description,
[tbl Property Codes].Class,
[tbl Property Codes].Process_Id,
[tbl Property Codes].Asset_Id,
[tbl Property Codes].[Accounting Unit]
FROM [tbl Property Codes];

And here is the function

Option Compare Database
Option Explicit

Public Function ExtractNumber(strInput) As String
    ' Returns the numeric characters within a string in sequence in which they are found within the string
    Dim strResult As String, strCh As String, fExtractNumeric As String
    Dim intI As Integer
     If Not IsNull(strInput) Then
        For intI = 1 To Len(strInput)
            strCh = Mid(strInput, intI, 1)
            Select Case strCh
                 Case "0" To "9"
                    strResult = strResult & strCh
                 Case Else
             End Select
        Next intI
     End If
     fExtractNumeric = strResult
End Function

Thanks for your help.

From Chester_Kaup at kindermorgan.com  Tue Apr  2 08:35:51 2019
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Tue, 2 Apr 2019 13:35:51 +0000
Subject: [AccessD] FW: Query will not run function
In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
References: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C18@HOUEX11.kindermorgan.com>

Got the function to run but it returns a value only for the first record in the table.

From: Kaup, Chester
Sent: Tuesday, April 02, 2019 8:25 AM
To: Access Developers discussion and problem solving
Subject: Query will not run function

I am probably missing something simple but when I try to run this query I get no results for field Old_Property_ID.

Here is the SQL
SELECT [tbl Property Codes].New_Property_ID, ExtractNumber([New_Property_ID]) AS Old_Property_ID,
[tbl Property Codes].Description,
[tbl Property Codes].Class,
[tbl Property Codes].Process_Id,
[tbl Property Codes].Asset_Id,
[tbl Property Codes].[Accounting Unit]
FROM [tbl Property Codes];

And here is the function

Option Compare Database
Option Explicit

Public Function ExtractNumber(strInput) As String
    ' Returns the numeric characters within a string in sequence in which they are found within the string
    Dim strResult As String, strCh As String, fExtractNumeric As String
    Dim intI As Integer
     If Not IsNull(strInput) Then
        For intI = 1 To Len(strInput)
            strCh = Mid(strInput, intI, 1)
            Select Case strCh
                 Case "0" To "9"
                    strResult = strResult & strCh
                 Case Else
             End Select
        Next intI
     End If
     fExtractNumeric = strResult
End Function

Thanks for your help.

From jbodin at sbor.com  Tue Apr  2 08:36:13 2019
From: jbodin at sbor.com (John Bodin)
Date: Tue, 2 Apr 2019 13:36:13 +0000
Subject: [AccessD] Query will not run function
In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
References: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
Message-ID: <BN6PR04MB12209E98F14856C8985368B1BD560@BN6PR04MB1220.namprd04.prod.outlook.com>

Change fExtractNumeric = strResult to your  function name, ExtractNumber = strResult






John Bodin

sBOR Office Systems

jbodin at sbor.com<mailto:jbodin at sbor.com>



________________________________
From: AccessD <accessd-bounces at databaseadvisors.com> on behalf of Kaup, Chester <Chester_Kaup at kindermorgan.com>
Sent: Tuesday, April 2, 2019 9:24 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Query will not run function

I am probably missing something simple but when I try to run this query I get no results for field Old_Property_ID.

Here is the SQL
SELECT [tbl Property Codes].New_Property_ID, ExtractNumber([New_Property_ID]) AS Old_Property_ID,
[tbl Property Codes].Description,
[tbl Property Codes].Class,
[tbl Property Codes].Process_Id,
[tbl Property Codes].Asset_Id,
[tbl Property Codes].[Accounting Unit]
FROM [tbl Property Codes];

And here is the function

Option Compare Database
Option Explicit

Public Function ExtractNumber(strInput) As String
    ' Returns the numeric characters within a string in sequence in which they are found within the string
    Dim strResult As String, strCh As String, fExtractNumeric As String
    Dim intI As Integer
     If Not IsNull(strInput) Then
        For intI = 1 To Len(strInput)
            strCh = Mid(strInput, intI, 1)
            Select Case strCh
                 Case "0" To "9"
                    strResult = strResult & strCh
                 Case Else
             End Select
        Next intI
     End If
     fExtractNumeric = strResult
End Function

Thanks for your help.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

From paul.hartland at googlemail.com  Tue Apr  2 09:21:06 2019
From: paul.hartland at googlemail.com (Paul Hartland)
Date: Tue, 2 Apr 2019 15:21:06 +0100
Subject: [AccessD] Query will not run function
In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
References: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
Message-ID: <CALGJE94ngSFsjp0FCfdNO+CqT7bOm2+EoQWyUquj5txUR+gP+w@mail.gmail.com>

Do you not need to change fExtractNumeric in your function to ExtractNumber
?

On Tue, 2 Apr 2019, 14:25 Kaup, Chester, <Chester_Kaup at kindermorgan.com>
wrote:

> I am probably missing something simple but when I try to run this query I
> get no results for field Old_Property_ID.
>
> Here is the SQL
> SELECT [tbl Property Codes].New_Property_ID,
> ExtractNumber([New_Property_ID]) AS Old_Property_ID,
> [tbl Property Codes].Description,
> [tbl Property Codes].Class,
> [tbl Property Codes].Process_Id,
> [tbl Property Codes].Asset_Id,
> [tbl Property Codes].[Accounting Unit]
> FROM [tbl Property Codes];
>
> And here is the function
>
> Option Compare Database
> Option Explicit
>
> Public Function ExtractNumber(strInput) As String
>     ' Returns the numeric characters within a string in sequence in which
> they are found within the string
>     Dim strResult As String, strCh As String, fExtractNumeric As String
>     Dim intI As Integer
>      If Not IsNull(strInput) Then
>         For intI = 1 To Len(strInput)
>             strCh = Mid(strInput, intI, 1)
>             Select Case strCh
>                  Case "0" To "9"
>                     strResult = strResult & strCh
>                  Case Else
>              End Select
>         Next intI
>      End If
>      fExtractNumeric = strResult
> End Function
>
> Thanks for your help.
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

From jbodin at sbor.com  Tue Apr  2 09:23:49 2019
From: jbodin at sbor.com (John Bodin)
Date: Tue, 2 Apr 2019 14:23:49 +0000
Subject: [AccessD] Query will not run function
In-Reply-To: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C18@HOUEX11.kindermorgan.com>
References: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>,
	<8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C18@HOUEX11.kindermorgan.com>
Message-ID: <BN6PR04MB12200C39025CB4306AA7FFE0BD560@BN6PR04MB1220.namprd04.prod.outlook.com>

Not sure.  I did similar to you: SELECT EMPLOYEE.ADDRESS, extractnumber([Address]) AS Expr1 FROM EMPLOYEE

and got

Name                Expr1
39 Maple St         39
Maintenance
30-50 Oak St     3050











John Bodin

sBOR Office Systems

jbodin at sbor.com<mailto:jbodin at sbor.com>



________________________________
From: AccessD <accessd-bounces at databaseadvisors.com> on behalf of Kaup, Chester <Chester_Kaup at kindermorgan.com>
Sent: Tuesday, April 2, 2019 9:35 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] FW: Query will not run function

Got the function to run but it returns a value only for the first record in the table.

From: Kaup, Chester
Sent: Tuesday, April 02, 2019 8:25 AM
To: Access Developers discussion and problem solving
Subject: Query will not run function

I am probably missing something simple but when I try to run this query I get no results for field Old_Property_ID.

Here is the SQL
SELECT [tbl Property Codes].New_Property_ID, ExtractNumber([New_Property_ID]) AS Old_Property_ID,
[tbl Property Codes].Description,
[tbl Property Codes].Class,
[tbl Property Codes].Process_Id,
[tbl Property Codes].Asset_Id,
[tbl Property Codes].[Accounting Unit]
FROM [tbl Property Codes];

And here is the function

Option Compare Database
Option Explicit

Public Function ExtractNumber(strInput) As String
    ' Returns the numeric characters within a string in sequence in which they are found within the string
    Dim strResult As String, strCh As String, fExtractNumeric As String
    Dim intI As Integer
     If Not IsNull(strInput) Then
        For intI = 1 To Len(strInput)
            strCh = Mid(strInput, intI, 1)
            Select Case strCh
                 Case "0" To "9"
                    strResult = strResult & strCh
                 Case Else
             End Select
        Next intI
     End If
     fExtractNumeric = strResult
End Function

Thanks for your help.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

From Chester_Kaup at kindermorgan.com  Tue Apr  2 09:23:53 2019
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Tue, 2 Apr 2019 14:23:53 +0000
Subject: [AccessD] Query will not run function
In-Reply-To: <CALGJE94ngSFsjp0FCfdNO+CqT7bOm2+EoQWyUquj5txUR+gP+w@mail.gmail.com>
References: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C0C@HOUEX11.kindermorgan.com>
	<CALGJE94ngSFsjp0FCfdNO+CqT7bOm2+EoQWyUquj5txUR+gP+w@mail.gmail.com>
Message-ID: <8E16E03987F1FD4FB0A9BEBF7CC160CB9F741C6F@HOUEX11.kindermorgan.com>

Yes that was the fix. Thanks everone.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland via AccessD
Sent: Tuesday, April 02, 2019 9:21 AM
To: Access List
Cc: Paul Hartland
Subject: Re: [AccessD] Query will not run function

[This email message was received from the Internet and came from outside of Kinder Morgan]


Do you not need to change fExtractNumeric in your function to ExtractNumber
?

On Tue, 2 Apr 2019, 14:25 Kaup, Chester, <Chester_Kaup at kindermorgan.com>
wrote:

> I am probably missing something simple but when I try to run this query I
> get no results for field Old_Property_ID.
>
> Here is the SQL
> SELECT [tbl Property Codes].New_Property_ID,
> ExtractNumber([New_Property_ID]) AS Old_Property_ID,
> [tbl Property Codes].Description,
> [tbl Property Codes].Class,
> [tbl Property Codes].Process_Id,
> [tbl Property Codes].Asset_Id,
> [tbl Property Codes].[Accounting Unit]
> FROM [tbl Property Codes];
>
> And here is the function
>
> Option Compare Database
> Option Explicit
>
> Public Function ExtractNumber(strInput) As String
>     ' Returns the numeric characters within a string in sequence in which
> they are found within the string
>     Dim strResult As String, strCh As String, fExtractNumeric As String
>     Dim intI As Integer
>      If Not IsNull(strInput) Then
>         For intI = 1 To Len(strInput)
>             strCh = Mid(strInput, intI, 1)
>             Select Case strCh
>                  Case "0" To "9"
>                     strResult = strResult & strCh
>                  Case Else
>              End Select
>         Next intI
>      End If
>      fExtractNumeric = strResult
> End Function
>
> Thanks for your help.
> --
> 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 df.waters at outlook.com  Sat Apr 27 11:50:05 2019
From: df.waters at outlook.com (Daniel Waters)
Date: Sat, 27 Apr 2019 16:50:05 +0000
Subject: [AccessD] Finding a Windows Forms Developer in Minneapolis / St.
 Paul Area
Message-ID: <BYAPR05MB5928DA1C2268DE00E0A6592CF63F0@BYAPR05MB5928.namprd05.prod.outlook.com>

Hello Everyone!

I'd like to get your thoughts on the business side of licensing a Windows Forms application.

In a few months, I'm going to begin looking for new customers for the Windows Forms + SQL Server-based Business Process Management (BPM) system that I've upgraded from an Access platform.  It's named TrueBPM(r).  The business model will be that this is a Starter System - I'll get it deployed over 6 - 12 months and then turn it over to the customer company for them to add in all the remaining business processes they want to.  A typical customer might be a manufacturing company of medium to large size and they will probably have 10 - 20 business process that they should automate within TrueBPM.

The website for TrueBPM is at www.promationsystems.com<http://www.promationsystems.com>

Of course, TrueBPM is a client-server application, not a SaaS application, and I will be at the company site frequently.  Also, this won't work well as a far remote job because the TrueBPM developer will be repeatedly working the business users as part of many different Process Design Teams (PDT). They will collaboratively design an application from scratch which is better-done face-to-face.  Perhaps working from home but being available on-site might be OK. I think that this will be a 2 - 4 year position, depending on several things.

A key part of this is that they hire a qualified WF developer who I can train to learn the specific BPM features of TrueBPM.  So - where to find such a person?  I have three thoughts on this:


1)      From a recruiter - I've talked to one recruiter who said that he always has people he can find with WF developer skills.

2)      An experienced Access developer who I can train to use WF.  This might be the best choice if that Access developer is already in the company.

3)      An experienced developer of any language, again who I can teach to use WF.  This developer would be taking this position with the specific goal of eventually moving into a position which requires significant experience both as a developer and in knowing how the business side of a company really works.  This might be a fairly well-paid position.

So - any thoughts you folks have on finding a developer for this position would be really helpful!

Thanks!
Dan



From gustav at cactus.dk  Mon Apr 29 12:03:15 2019
From: gustav at cactus.dk (Gustav Brock)
Date: Mon, 29 Apr 2019 17:03:15 +0000
Subject: [AccessD] [dba-Tech] MsgBox2
In-Reply-To: <CAEPJO1jE8_aJKQ5LUjGmbefOM90jdzXFuC9FZgVVPWGu7AmVhA@mail.gmail.com>
References: <CAEPJO1jE8_aJKQ5LUjGmbefOM90jdzXFuC9FZgVVPWGu7AmVhA@mail.gmail.com>
Message-ID: <HE1PR1001MB1337C9E118A1F7CE0C0CDC92CA390@HE1PR1001MB1337.EURPRD10.PROD.OUTLOOK.COM>

Hi Arthur

If this is for fun: Spoiler alert.

It takes a little, but I did get it sorted out here:

"Modern/Metro style message box and input box for Microsoft Access 2013+"
https://www.experts-exchange.com/articles/17684/Modern-Metro-style-message-box-and-input-box-for-Microsoft-Access-2013.html

Full code is also on GitHub: https://github.com/GustavBrock/VBA.ModernBox.git

Browse to paragraph "Button sequence and form resizing".
If you think you can't log in, locate the link "Click here to access the full article".

/gustav


________________________________
Fra: dba-Tech <dba-tech-bounces at databaseadvisors.com> p? vegne af Arthur Fuller <fuller.artful at gmail.com>
Sendt: 29. april 2019 17:59
Til: Discussion of Hardware and Software issues
Emne: [dba-Tech] MsgBox2

I am writing a second version of MsgBox which I'm calling MsgBox2. It takes
all the same parameters as the original MsgBox, and then some. Thus far, I
have speculated several button-assemblies, the most frequent that I've
experienced. I have also speculated that passing an array of button-texts
might be a better option; I'm still guessing about that. But either way, I
need to populate the window footer with buttons, and align them from right
to left, and also size them according to the length of their prompts.
The main question here is, How to create the buttons on the form footer,
spacing them correctly from right to left?
I confess that almost all the time, I have created forms using the Form
Designer, rather than raw code. I need some help with this: create buttons
on the fly, sizing and spacing them to suit the generally accepted design
principles, and returning a value dependent upon the selected button. (That
last part is easy; ir's the creation and placing parts that have me
guessing and wildly experimenting, mostly with no success.)
Arthur