[AccessD] Is there a simpler way?
Arthur Fuller
fuller.artful at gmail.com
Tue Jul 12 20:04:19 CDT 2022
John,
I accept that I am anal regarding language. Perhaps "pedantic" might be
more accurate. Either way, I plead guilty.
On Tue, Jul 12, 2022 at 8:59 PM John Colby <jwcolby at gmail.com> wrote:
> LOL, yep. It possessive is not a thing.
>
> On the upside it does trigger the anal amongst us.😁😝
>
> On Tue, Jul 12, 2022 at 8:50 PM Arthur Fuller <fuller.artful at gmail.com>
> wrote:
>
> > >> Clarity is it's own reward.
> > Reverting to another thread, this is an example of the incorrect use of
> > "it's". In this context, it ought to have been "its". The rule is simple:
> > expand any occurrence of "it's" to "it is" and see if the sentence still
> > makes sense. If not, you're using the wrong one.
> >
> > On Tue, Jul 12, 2022 at 8:36 PM Rocky Smolin <rockysmolin2 at gmail.com>
> > wrote:
> >
> > > Yes. Ugly. But in compensation it is perfectly understandable,
> > readable,
> > > maintainable. By any programmer. And five years from now you won't be
> > > trying to figure out what this code does as opposed to 'clever' code.
> > > Clarity is it's own reward.
> > >
> > > r
> > >
> > > On Tue, Jul 12, 2022 at 3:46 PM John Colby <jwcolby at gmail.com> wrote:
> > >
> > > > I need a text enum (colors to be specific). Enums are longs. Sigh
> > > >
> > > > Public Enum enumVBColors
> > > > Black = vbBlack
> > > > Red = vbRed
> > > > Green = vbGreen
> > > > Yellow = vbYellow
> > > > Blue = vbBlue
> > > > Magenta = vbMagenta
> > > > Cyan = vbCyan
> > > > White = vbWhite
> > > > End Enum
> > > >
> > > > Function fColor(intColor As enumVBColors) As String
> > > > Select Case intColor
> > > > Case enumVBColors.Black
> > > > fColor = "Black"
> > > > Case enumVBColors.Blue
> > > > fColor = "Blue"
> > > > Case enumVBColors.Cyan
> > > > fColor = "Cyan"
> > > > Case enumVBColors.Green
> > > > fColor = "Green"
> > > > Case enumVBColors.Magenta
> > > > fColor = "Magenta"
> > > > Case enumVBColors.Red
> > > > fColor = "Red"
> > > > Case enumVBColors.White
> > > > fColor = "White"
> > > > Case enumVBColors.Yellow
> > > > fColor = "Yellow"
> > > > End Select
> > > > End Function
> > > >
> > > > Does the trick but DAMN! I can use these text strings as colors in
> the
> > > > HTML tags. But DAMN! I hate ugly and this is just ugly.
> > > >
> > > > Let the slappin' commence.
> > > >
> > > > --
> > > > John W. Colby
> > > > Colby Consulting
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> >
> > --
> > Arthur
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
> --
> John W. Colby
> Colby Consulting
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
Arthur
More information about the AccessD
mailing list