Form VBA w/A2013

[Dick7Access]

I have a Menu form that has 5 cmdbuttons that opens the same main forms but with 5 different filters. I want a label or text box to change to the name of the filter. I am using VBA to open the form. I can’t code a form that’s not open yet. Is there any way to accomplished the above?

 

[Uncle Gizmo]

This is the command button on the sending form:-
where "XXXX" is the filter name

Private Sub Command0_Click()
Dim strFrmName As String
strFrmName = "frmPopUp"

    DoCmd.OpenForm strFrmName
    
    With Forms(strFrmName)
    .fX ("XXXX")
    End With

End Sub

This is a Public function in the receiving form:-

Public Function fX(strPassed As String)

    Me.lblFilter.Caption = strPassed

End Function

Where lblFilter is a label that displays the Filter name

 

[vbaInet]

Or you could:
1. Set it after opening the form:

docmd.openform ...
Forms!FormName.LabelName.Caption = "filter"

Or
2. Pass it via OpenArgs

 

[Uncle Gizmo]

I tried that VB,

With Forms(strFrmName)
    lblFilter.Caption = "filter"
    End With

but it didn't work...

Then I see your answer and realised why:-

With Forms(strFrmName)
    .lblFilter.Caption = "filter"
    End With

I left the damned period off... time for bed me thinks ....

 

[Dick7Access]

I tried that VB,

With Forms(strFrmName)
    lblFilter.Caption = "filter"
    End With

but it didn't work...

Then I see your answer and realised why:-

With Forms(strFrmName)
    .lblFilter.Caption = "filter"
    End With

I left the damned period off... time for bed me thinks ....

My aunt missed a period when i was a kid and the whole family went crazy, and we didn't even have a computer. <G>

 

[vbaInet]

Those pesky dots!

 

[Uncle Gizmo]

Yes... Periods can cause all sorts of problems. I prefer "Full Stop" myself, and really, that's a better description if you think about it.

 

[Dick7Access]

Yes... Periods can cause all sorts of problems. I prefer "Full Stop" myself, and really, that's a better description if you think about it.

I have a bigger problem right now. I am in MS and there are at least 5 buffets within 10 miles. Decisions, decisions, decisions.

 

[vbaInet]

So do I. I think Americans prefer period.

Dick7Access, what happened when you missed your period?

 

[Dick7Access]

So do I. I think Americans prefer period.

Dick7Access, what happened when you missed your period?

very funny <G>

 

[Dick7Access]

Or you could:
1. Set it after opening the form:

docmd.openform ...
Forms!FormName.LabelName.Caption = "filter"

Or
2. Pass it via OpenArgs

Forms!FormName.LabelName.Caption = "filter"

how would the form know what filter cmd I had selected?

Or
2. Pass it via OpenArgs

[/QUOTE]
I will have to look up my notes on "OpnArgus" It has been years since I used it.

 

[vbaInet]

I thought that you're opening another form, is that not the case?

If you want to apply a filter on the same form where the command buttons are located, you don't need to close and reopen the form.

OpenArgs is one of the parameters in OpenForm.

 

[Dick7Access]

I thought that you're opening another form, is that not the case?

If you want to apply a filter on the same form where the command buttons are located, you don't need to close and reopen the form.

OpenArgs is one of the parameters in OpenForm.

Right, but my menu form has 5 cmd, and nothing else, no data. Each cmd opens the same main form which has the data, but filters it according to the cmd. I have an older version of this db where I did put all the cmd's on the main form and was able to change the lbl without any problem. I am changing it around because I didn't like all the clutter on the main form, plus practicing VBA. I haven't been able to try anything since you guys posted, as I am having to break down the db by states to send it via email to a person in AZ.

 

[vbaInet]

Ok, you have a menu form and a main form... that was my original thinking. So yes, for you, it's easier to re-open the form.

In order to grab the filter it all depends on how the filter is being passed?

 

[Dick7Access]

UG
This is what is on cmd button on the menu form that opens main data form called “frmChurchesAllDick” filtered by only supporting churches

  Private Sub cmdSupportingCh_Click()                                   
  Dim strFrmName As String
  strFrmName = "frmChurchesAllDick"
      DoCmd.OpenForm strFrmName    
      With Forms(strFrmName)
      .fX ("Support")
      End With
  End Sub

This is what is on the vba of form “frmChurchesAllDick”

  Public Function fX(strPassed As String)
      Me.lblFilter.Caption = strPassed
  End Function

This is Where it hangs up

  With Forms(strFrmName)
      .fX ("Support")
      End With

What do I have wrong?

 

[Uncle Gizmo]

What happens if you comment out the line:-

'fX("Support")

 

[Uncle Gizmo]

Is lblFilter a label? It could be a textbox, which don't have a caption property.

 

[Dick7Access]

What happens if you comment out the line:-

'fX("Support")

crashes here

Private Sub Form_Load()
Public Function fX(strPassed As String)

Me.lblSupportingCH.Caption = strPassed

End Function

 

[Dick7Access]

Is lblFilter a label? It could be a textbox, which don't have a caption property.

It's a Label

 

[Uncle Gizmo]

Ah, you have put the public function inside a private function, therefore it is not visible to the calling procedure. Make it a separate procedure within your forms module and I suspect it will work.