[AccessD] Selecting Entire Field

Dan Waters dwaters at usinternet.com
Fri Apr 3 11:03:24 CDT 2009


C'mon Charlotte!  After all AGE just stands for Additional Great Experience!

Dan
:-)

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Friday, April 03, 2009 10:47 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Selecting Entire Field

Oh, dear, is my age showing??  You used to be able to create a template
object in forms and reports (I believe you named it "Normal") and then
set its properties like font, etc. the way you wanted all newly created
objects of that type formatted.  It didn't work for code, of course,
only for property settings.

Charlotte Foust

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Friday, April 03, 2009 8:36 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Selecting Entire Field

Template?

R 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Friday, April 03, 2009 8:24 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Selecting Entire Field

Have you tried adding it to your template form?

Charlotte Foust 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Friday, April 03, 2009 8:18 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Selecting Entire Field

That would be icing on the cake.  It works for the one form I need now.


Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jack and Pat
Sent: Friday, April 03, 2009 8:53 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Selecting Entire Field

Rocky,
Are you saying that you want a solution to work for all forms?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Friday, April 03, 2009 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Selecting Entire Field

Max:

That looks like a very 'robust' solution.  I ended up using Charlotte's
snip for the click event and Application.SetOptions to set the enter
behavior to select the whole field.  But that Application.SetOptions
does not carry from one form to another.  You have to issue it in each
form where you want that behavior.  Setting it through the menus worked
but only until you exited. 

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Friday, April 03, 2009 2:38 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Selecting Entire Field

Rocky,
Dont know if you solved this last night but if not the code below will
select the entire field whether tabbed in or clicked in, regardless of
hte global setting in Tools/Options.
Max
ps. Haven't got access to previous correspondece/postings so the title
may be out of sync.  Sorry.


' Test the ability to select the entire contents of a bound field
regardless of the setting in Tools/Options/Keyboard ' tests only a
Currencyfield,Datefield,Numberfield,Stringfield
' does not work for boolean fields
' for each field we need to call the sub for both the OnClick event AND
the GotFocus event ' Max Sherman Apr 2009 Option Compare Database Option
Explicit Private ActiveCtl As Control

Private Sub BooleanField_Click()
' do not call sSelLength for boolean
End Sub

Private Sub BooleanField_GotFocus()
' do not call sSelLength for boolean
End Sub

Private Sub CurrencyField_Click()
  Call sSelLength
End Sub

Private Sub CurrencyField_GotFocus()
  Call sSelLength
End Sub

Private Sub DateField_Click()
  Call sSelLength
End Sub

Private Sub DateField_GotFocus()
  Call sSelLength
End Sub

Private Sub NumberField_Click()
  Call sSelLength
End Sub

Private Sub NumberField_GotFocus()
  Call sSelLength
End Sub

Private Sub StringField_Click()
  Call sSelLength
End Sub

Private Sub StringField_GotFocus()
  Call sSelLength
End Sub
Private Sub sSelLength()
  On Error GoTo errhandler
  Set ActiveCtl = Application.Screen.ActiveControl
  Debug.Print Application.Screen.ActiveControl.Name
  With ActiveCtl
    .SetFocus
    .SelStart = 0
    .SelLength = Len(Nz(ActiveCtl, "")) + 1
  End With
exithere:
  Exit Sub
errhandler:
  Select Case Err.Number
  Case 2474  ' not active control
    Debug.Print Application.Screen.ActiveControl.Name
    MsgBox Application.Screen.ActiveControl.Name
  Case Else
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
  End Select
  Resume exithere
End Sub
--
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