Refreshing values on main form after closing pop-up form

[JeroenMioch]

Guys,

If i use a pop-up form to create a file and i return back to the main form, the main form
will not show that there is an extra file created. Even though the code that calculates the number of
files is in the Form_Current event.

When Form_Current fails, the next logical thing would be the Form_GotFocus event.
But...that fails too.
Basicly i have tried almost everything but to no avail.

I have considered Form_timer but it would be rediculous to have to do it that way.



Any ideas would be great !

[ItsMe]

You could change Private to Public on the Form_Current event and call it from the Pop-Up form. You would call it like this ...

Forms!FormName.Form_Current

I usually use the .Dirty property to save the record when using PopUps. But if there is special code that needs to run, you can copy the code and place it in additional modules or you can place the code somewhere accessible from multiple locations.

[June7]

Do you mean 'create a record'?

Another approach is to open the popup with acDialog parameter. This suspends code execution from the calling form until the popup closes.

DoCmd.OpenForm "form name", , , , , acDialog
Me.Requery

[JeroenMioch]

Hey guys,

ive tried your comments but i still cant get it to work.
Ive made my form_current event on the main form a public sub and also tried to open the pop-up form in acDialog mode.
The control (actually a button's caption) on the main form only refreshes when i use my filter again (look up that specific record).

Ill explain more about what the feature on my form is :

I have a button called "Agenda" and when clicked opens up a pop-up form. User enters some values (date, time, topic, remarks) and upon clicking a button the code sets an Outlook reminder in its agenda.
When the Outlook reminder was set, the pop-up form closes.
The button's caption that was clicked to open the pop-up form should now be "Agenda (1)" to notify users that for the record on the main form an Outlook reminder was made.



And then when the reminder was set this code in my Form_Current's event should fire (but it doesnt)

    Dim lngRed As Long
    Dim lngBlack As Long
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    
    If DLookup("DatumHerinnering", "tblObjecten3", "ObjectID = fldObjectID") >= Date Then
    Me.knpHerinnering.Caption = "Agenda   (1)"
    Me.knpHerinnering.ForeColor = lngRed
    Else
    Me.knpHerinnering.Caption = "Agenda   (0)"
    Me.knpHerinnering.ForeColor = lngBlack
    End If

When closing the pop-up form the "Agenda (0)" should be replaced by "Agenda (1)"

[June7]

Changing the button caption is a design change. The form would have to be saved with this modification if you want it to show this revised caption next time form opens. Otherwise, save value to a table and populate a textbox by binding it to the field or doing a DLookup.

Current event only fires when first moving to a record.

[JeroenMioch]

Thanks for the reply June,

The problem is that if i would bind the "0" or "1" on the button to a textbox (transparent background), the button would not be clickable where the 0 or 1 would be displayed.
I could of course double code the click event on the textbox, but i dont like that approach.

[June7]

Could use the value in table to set the button Caption property in Open or Current event. Save the value and set the caption property in the procedure that creates the Outlook reminder.

[JeroenMioch]

Hey June,

Ive tried making a textbox to look like a button and that does work but the button looks different then the other buttons on my form.
Also tried making the textbox transparent but that has its issues as well.

I decided to leave it as is, i blame Access for not making the buttons caption editable as you stated

Thanks for the help mate, i appreciate it as always !

[June7]

The caption is programmatically editable. The issue is having the 0 or 1 value available to set the caption. This value must be stored somewhere. A table record is the best place.

[JeroenMioch]

Right, im gonna give it one more go. Ill keep you posted !

[JeroenMioch]

We did it !

Setting form_current to Public sub was a great idea. Now i can refer to the main form from a pop-up form.
Made a textbox that holds the complete value i want in the caption of the button, stored it in my main table.
Looks great too, because as soon as i hit the "delete" button from the pop-up form i see the value on the main form changing. I use the code below to change the caption (changed some names to English for future visitors of this thread).

Forms![frmObjects]![btnAgenda].Caption = Forms![frmObjects]!fldAgendaYesNo.Value

Thanks for this June !