Results 1 to 11 of 11
  1. #1
    templeowls is offline Competent Performer
    Windows 10 Access 2016
    Join Date
    Feb 2019
    Posts
    305

    Is it possible to manually build navigation controls in a form?

    There's a user who cannot see small text well and so I'd like to build my own navigation pane in one of our forms for them. I'm talking about the first and last buttons along with showing what number record your on that is found in the bottom left corner of forms.

    I've completed nearly the whole thing, as I'm using large buttons to control first and last record controls. I'm using a "count" function to show how many records are present, including when they are filtered down. The issue I'm having is how to show which number record the user is on (i.e. 10 of 115).

    Any idea if this is possible to create? No biggie if not. The current count function I'm using is just "=Count([ID)]"

  2. #2
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    12,737
    Sounds like all you need is the .CurrentRecord property of the form. So maybe

    Me.myControlName = "Record " & Me.CurrentRecord & " of " & Count([ID])
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

  3. #3
    orange's Avatar
    orange is offline Moderator
    Windows 10 Office 365
    Join Date
    Sep 2009
    Location
    Ottawa, Ontario, Canada; West Palm Beach FL
    Posts
    16,716

  4. #4
    ssanfu is offline Master of Nothing
    Windows 10 Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    Something like this?

    Duplicate "Record x of y"

  5. #5
    templeowls is offline Competent Performer
    Windows 10 Access 2016
    Join Date
    Feb 2019
    Posts
    305
    Quote Originally Posted by Micron View Post
    Sounds like all you need is the .CurrentRecord property of the form. So maybe

    Me.myControlName = "Record " & Me.CurrentRecord & " of " & Count([ID])
    Where do I put that? In the Control Source? VBA?

  6. #6
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    12,737
    Did you try the suggestion in post 4? I did and thought it might be what you want. Whatever code you use, it goes into your form module with any other code. If you're going to be using custom buttons for navigation, either suggestion would be used in the click event of each button. This is a common topic with many posted examples in many places. Suggest you research it, try something, and post back if you're having issues. You also have to deal with clicking buttons to move one way or the other when you can't - such as moving previous when at the first record. So that's why the suggestion to find some code and try it as it's a wee bit involved. If I have code for this, I don't know where it is.
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

  7. #7
    templeowls is offline Competent Performer
    Windows 10 Access 2016
    Join Date
    Feb 2019
    Posts
    305
    Quote Originally Posted by Micron View Post
    Did you try the suggestion in post 4? I did and thought it might be what you want. Whatever code you use, it goes into your form module with any other code. If you're going to be using custom buttons for navigation, either suggestion would be used in the click event of each button. This is a common topic with many posted examples in many places. Suggest you research it, try something, and post back if you're having issues. You also have to deal with clicking buttons to move one way or the other when you can't - such as moving previous when at the first record. So that's why the suggestion to find some code and try it as it's a wee bit involved. If I have code for this, I don't know where it is.
    Yes I tried it. My text box field name is named "txtNavControls" and its unbounded. Then in the form's OnCurrent event, I have the following code:

    Code:
        If Me.NewRecord Then        Me!txtNavControls.Caption = "New Record"
        Else
            With Me.RecordsetClone
                .Bookmark = Me.Bookmark
                Me!txtNavControls.Caption = "Record " & _
                        .AbsolutePosition + 1 _
                        & " of " & .RecordCount
            End With
        End If
    When I open my form, I get a 438 error stating that the object doesn't support this property or method

  8. #8
    isladogs's Avatar
    isladogs is offline MVP / VIP
    Windows 10 Access 2010 32bit
    Join Date
    Jan 2014
    Location
    Somerset, UK
    Posts
    5,954
    If the issue is that the user needs to have forms enlarged due to eyesight issues then you could use the form zoom feature that is part of my automatic form resizing (AFR) code
    For more details see my three part article on AFR: Automatic Form Resizing 1 - Mendip Data Systems
    The zoom feature is included in the second part of the article.
    The screenshot shows a simple popup form normal size, zoomed up to 150% and zoomed down to 50%

    Click image for larger version. 

Name:	formzoom.jpg 
Views:	24 
Size:	52.3 KB 
ID:	46435

    A slider control or combo is used to vary the zoom value in increments of 5%.
    Individual users can save their preferred zoom value for future use if they wish.
    Colin, Access MVP, Website, email
    The more I learn, the more I know I don't know. When I don't know, I keep quiet!
    If I don't know that I don't know, I don't know whether to answer

  9. #9
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    12,737
    If your naming convention is txt for textbox, then they don't have a caption property. It would be Me.txtNavControls = "New Record" but do check out Isladog's suggestion.
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

  10. #10
    isladogs's Avatar
    isladogs is offline MVP / VIP
    Windows 10 Access 2010 32bit
    Join Date
    Jan 2014
    Location
    Somerset, UK
    Posts
    5,954
    Quote Originally Posted by Micron View Post
    If your naming convention is txt for textbox, then they don't have a caption property. It would be Me.txtNavControls = "New Record" but do check out Isladog's suggestion.
    Well spotted! I missed that.
    Colin, Access MVP, Website, email
    The more I learn, the more I know I don't know. When I don't know, I keep quiet!
    If I don't know that I don't know, I don't know whether to answer

  11. #11
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    12,737
    Well spotted! I missed that.
    Send money in lieu of brownie points?
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 11
    Last Post: 10-22-2020, 02:57 AM
  2. Accessing controls from navigation form
    By reynier09 in forum Access
    Replies: 2
    Last Post: 09-09-2017, 09:12 PM
  3. Replies: 5
    Last Post: 04-01-2016, 09:54 AM
  4. Replies: 2
    Last Post: 01-10-2016, 06:47 PM
  5. Replies: 6
    Last Post: 06-07-2014, 04:42 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums