[AccessD] VBA Editor Font Size used to be Concat Again

Darryl Collins darryl at whittleconsulting.com.au
Sat Feb 3 20:55:30 CST 2018


Agreed.  That is the way to do it for Access.  Again it is sticky and once set, doesn't change.

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Sunday, 4 February 2018 10:57 AM
To: 'Access Developers discussion and problem solving' <accessd at databaseadvisors.com>
Subject: Re: [AccessD] VBA Editor Font Size used to be Concat Again

In VBA Editor select Tools-->Options-->Editor Format. Select your font size.


In my system it stays that way.

R


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood
Sent: Saturday, February 03, 2018 2:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] VBA Editor Font Size used to be Concat Again

A 2010
So has anyone figured out how to increase the size of the fonts in the vba editor ?
My setup will allow me to set the size and click OK. But upon return, no effect.
Searched on web and either no solution or blamed on unusual video resolutions.

Tia
Bob


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Saturday, February 3, 2018 8:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Concat Again

Me, too.  But since I adopted using apostrophe as a rule, I get less trouble.  The code usually works so I don't have to get out my readers to figure out what I've done.  :) but chr(34) works but, of course, has its own syntactical risks. 

You can use a double quote - it's interpreted as a single quote. EquipID =""" & Me.txtEquipID & """"


R

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood
Sent: Friday, February 02, 2018 10:31 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Concat Again

Yes EquipID is a key w no dupes text.

Since I can't seem to enlarge the text in the VBA editor this quote/apostrophe jive is maddening for my old eyes.
I think I once adopted the chr(34) method. Probably should stick to it.

Thanks again to you and Jim for the responses.

Bob



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Friday, February 2, 2018 4:28 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Concat Again

Non numeric?  Then EquipID is a text PK?

In which case it should read

Set rstEquip = dbs.OpenRecordset("SELECT * FROM tblEquipment WHERE EquipID ='" & Me.txtEquipID & "'")

Where '" is apostrophe + quote and "'" is quote + apostrophe + quote.

R

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood
Sent: Friday, February 02, 2018 3:57 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Concat Again

Should have been clear, txtEqupID is a string value.

Thanks Jim




-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Friday, February 2, 2018 12:58 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Concat Again

I don't think you need & Me.txtEquipID &

Just 

Set rstEquip = dbs.OpenRecordset("SELECT * FROM tblEquipment WHERE EquipID =" & Me.txtEquipID)

You *might* need Val(Me.txtEquipID) But I don't think so.  

If Me.txtEquipID might be null then you'd either want to trap that condition before opening the recordset or use Nz(Me.txtEquipID,0)

HTH

Rocky Smolin
Beach Access Software
760-683-5777
www.bchacc.com
www.e-z-mrp.com
Skype: rocky.smolin
 


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bob Heygood
Sent: Friday, February 02, 2018 11:37 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Concat Again

Hello to the list.

Brain lock here. Just can't make this work:

     Set rstEquip = dbs.OpenRecordset("SELECT * FROM tblEquipment WHERE EquipID =" & " & Me.txtEquipID & ")


 DAO A 2010
Very sure this is obvious. But not to me right now.

TIA

Bob



--
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

--
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



More information about the AccessD mailing list