Record control on multiple forms

[NightWalker]

I have multiple forms that I want to have an identical set of record controls like next, new, and previous records, submit record, and exit form. Is there a way to have something like a subform that has all the controls on it instead of making the same buttons on every individual form? If this is possible would the majority of the code go in a module? If there is a better or easier way to do this please point me in the right direction. This is just a wild thought I had. Thank you for your help in advance. --Walker

[Bob Fitz]

The following link may be of interest: https://www.alvechurchdata.co.uk/hin...ccnavform.html

[NightWalker]

Bob,
That is exactly what i was looking for. I googled to find it and didn't get any results that were even close to that. Thank you very much for the link.
--Walker

[Bob Fitz]

Glad we could help

[moke123]

I saw your post yesterday which prompted me to tinker with building a custom class and form similiar to the one Bob gave you the link to.
It sounded like a good candidate for a custom class, to make an easily portable form.
This was a learning exercise for me me but since I have it working I figured I post it.

1. Just import the form sfrmNavBar and the class module.
2. Drop the subform into your main form.
3. Add 2 lines of code to your main form - 1 line to instantiate the class and 1 line to initiate it. ( see the code in Form1)

You can change the button colors, size and captions, etc. Just dont change the button names.
There is no code in the form sfrmNavBar. Its all in the class.
There are optional arguements to cycle through the form recordset instead of stopping at .EOF or .BOF and to use autorepeat key presses.

[NightWalker]

Moke,

Thank you very much for playing with this. I am going to try to understand your code today. I think some of what you have is a little over my head but I will see what i can figure out.

[Bob Fitz]

NightWalker

The attached db has a form which could be imported to your db and then used as a sub form on any of your forms.

[NightWalker]

@ Moke,

I looked at your code. Could you explain the flow of the code a little. I understand the on click events. I am not understanding all the get and set property code at the bottom of the code and I dont understand the withevents at the top. I really like it and am trying to completely understand it completely.

@Bob

Thank you for your DB. I hope you dont mind but i took some of the code from it and used it in mine.

[moke123]

@ Moke,

I looked at your code. Could you explain the flow of the code a little. I understand the on click events. I am not understanding all the get and set property code at the bottom of the code and I dont understand the withevents at the top. I really like it and am trying to completely understand it completely.

Not sure I can explain it as I'm still learning alot about them. Its a custom class. The idea is to be able to just drop it into a project and have it work with very little code. Do all the coding up front and then re-use it with very little coding. Its probably a little overkill in this example but it's fun putting it together. As you can see theres no code in the subform. The objects that have withevents are the subform and all its buttons. The withevents just tells the code to listen for events from those objects and passes them to the code to handle them.

I did find one logic error after I posted. Needed to add "Or Me.TheParentForm.NewRecord Then" as shown below.

Sub m_ctlBNext_Click()


    If Me.TheParentForm.Recordset.RecordCount = Me.TheParentForm.CurrentRecord _
                    Or Me.TheParentForm.NewRecord Then


        If Me.CycleFrn = True Then


            DoCmd.GoToRecord , Me.TheParentForm.Name, acFirst


            Exit Sub


        Else


            MsgBox "Your at the last record"


            Exit Sub


        End If


    End If


    DoCmd.GoToRecord , Me.TheParentForm.Name, acNext


End Sub

If IRC Chip Pearson had a pretty good write up on custom classes. If you google it you should find it.
Same with Withevents.

[Bob Fitz]

@ Moke,
@Bob

Thank you for your DB. I hope you dont mind but i took some of the code from it and used it in mine.

Not at all. Use as much as you like. Glad it was of use