Solved Filtered Meetings Query By Members

[Eugene-LS]

plz help me

I'm not sure if I understood your wishes correctly, but some result is below.

Spoiler: Code

Private Sub CommandOpenMainForm_Click()
Dim sVal$

    If Me.MeetingByMember = True Then
        sVal = "MeetingsByMemberQ"
    Else
        sVal = "AllMeetingsQ"
    End If
    
    DoCmd.OpenForm "MainForm"
    Forms("MainForm").RecordSource = sVal
    
    'DoCmd.Close acForm, Me.Name
    Me.Visible = False
End Sub

 

[Sarah.M]

I'm not sure if I understood your wishes correctly, but some result is below.

Spoiler: Code

Private Sub CommandOpenMainForm_Click()
Dim sVal$

    If Me.MeetingByMember = True Then
        sVal = "MeetingsByMemberQ"
    Else
        sVal = "AllMeetingsQ"
    End If
 
    DoCmd.OpenForm "MainForm"
    Forms("MainForm").RecordSource = sVal
 
    'DoCmd.Close acForm, Me.Name
    Me.Visible = False
End Sub

I'm not sure if I understood your wishes correctly, but some result is below.

Spoiler: Code

Private Sub CommandOpenMainForm_Click()
Dim sVal$

    If Me.MeetingByMember = True Then
        sVal = "MeetingsByMemberQ"
    Else
        sVal = "AllMeetingsQ"
    End If
  
    DoCmd.OpenForm "MainForm"
    Forms("MainForm").RecordSource = sVal
  
    'DoCmd.Close acForm, Me.Name
    Me.Visible = False
End Sub

Thanks, I am trying hard to convert your code to Macro, but I could not
Kindly, can you help me convert your code to Macro please

 

[Sarah.M]

I tried this but it doesn't work
plz help me!!!

Sample attached

 

[Eugene-LS]

Kindly, can you help me convert your code to Macro please

I'm sorry, but my last macro I wrote back in 1998, now I can no longer.
VBA is faster and has much more features.

 

[Sarah.M]

kindly, can you help me please! @theDBguy @arnelgp

 

[arnelgp]

i also got confused.
i modify the db on post#21.
plz comment if this is what you need.

 

[Sarah.M]

i also got confused.
i modify the db on post#21.
plz comment if this is what you need.

Yes what you did is Perfect! it is works good!, but can you convert Eugene-LS VBA code to Macro?
becuse I want to know how to deal with Form Record Source
plz

Private Sub CommandOpenMainForm_Click()
Dim sVal$

If Me.MeetingByMember = True Then
sVal = "MeetingsByMemberQ"
Else
sVal = "AllMeetingsQ"
End If

DoCmd.OpenForm "MainForm"
Forms("MainForm").RecordSource = sVal

'DoCmd.Close acForm, Me.Name
Me.Visible = False
End Sub

 

[Sarah.M]

i also got confused.
i modify the db on post#21.
plz comment if this is what you need.

I tried this but it is not working with me
Sample attached

 

[Eugene-LS]

I tried this but it is now working with me

Try that please:

 

[SHANEMAC51]

Try that please:

'converting an embedded macro into code shows that the macro is incorrect
'------------------------------------------------------------
Function macro1()
On Error GoTo macro1_Err

    With CodeContextObject
        DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal
        If (.MeetingByMember = True) Then
            Forms ("MainForm" )[].RecordSource = "MeetingsByMemberQ"
        Else
            Forms ("MainForm" )[].RecordSource = "AllMeetingsQ"
        End If
    End With


macro1_Exit:
    Exit Function

macro1_Err:
    MsgBox Error$
    Resume macro1_Exit

End Function

 

[Eugene-LS]

converting an embedded macro into code shows that the macro is incorrect

... but it works, some how ...

Galina, please make your version - make us happy with your wisdom and knowledge.
@Sarah.M wants an exact macro - may the gods prolong his years.
... Well you remember what the great Alvik wrote about it ...

 

[SHANEMAC51]

Function MACRO21()

    With CodeContextObject
        DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal
        If (.MeetingByMember = True) Then
            Forms!MainForm.RecordSource = "MeetingsByMemberQ"
        Else
            Forms!MainForm.RecordSource = "AllMeetingsQ"
        End If
        DoCmd.RepaintObject acForm, "MainForm"
    End With

End Function

 

[Eugene-LS]

Функция Макрос21

RU:
- Так у меня (в макросе) вроде так и написано!

EN:
It seems to be the same in my macro
Please explain - where is the error?
Although - no need, thanks - macros are not my domain.

 

[SHANEMAC51]

It seems to be the same in my macro

en:
I always debug in a regular macro, which is easily translated into code for verification

the difference
with you is the name in quotation
marks with me - through an exclamation mark !

ru:
я всегда отлаживаю в обычном макросе, который легко переводится в код для проверки

отличие
у вас - имя в кавычках
у меня - через восклицательный знак !

 

[Eugene-LS]

marks with me - through an exclamation mark !

Got it !
Thanks!

 

[Eugene-LS]

@SHANEMAC51, Dear Galina, in my humble opinion we should follow the proverb:
"When in Rome do as the Romans do".
Or:
"You've got to play the game according to the local rules."
Or:
"V chuzoi monastir' so svoim ystavom ne hod'at!" (rus proverb)

Let's stop talking in Russian on the general forum!

 

[Sarah.M]

Try that please:

Thanks it works!

I have a question out of curiosity, learning and knowledge
Item: why it is not looks like forms path? Forms![MainForm].[RecordSource]
Why Expression query name not in parentheses?

 

[Sarah.M]

en:
I always debug in a regular macro, which is easily translated into code for verification

Got it thanks

 

[Sarah.M]

i also got confused.
i modify the db on post#21.
plz comment if this is what you need.

I like it! All solutions in one query

 

[arnelgp]

I like it! All solutions in one query

i thought you wouldn't noticed the query.