How to disable option group button if certain record does not exist 1

[qwerty70]

Dear All,

I have a main form (frmGeneral) with an option group (optSelect). This option group have 4 radio buttons, these are:
OptAll, optER, optIR and optSMP. Purpose of this option group is to filter a record
in my main form based on the value of cboSectionID.

Assuming, "ER" is not available in the recordset, then I want the optER radio button to be disabled because there's nothing to filter.

By the way, I am using a single form view with a filtered recordset.

Your help on this matter is highly appreciated.

Regards,

qwerty70

 

[ZmrAbdulla]

Look for "DLookUp()" in the help.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[TheAceMan1]

qwerty70 . . .

Post the query/sql of the forms recordsource . . .

See Ya! . . . . . .

 

[qwerty70]

Here's my elementary code for optSMP radio button only.

Me.OptSMP.Enabled = (DLookup("[SectionID]", "tblGeneral", "[SectionID] = & Me.SectionID <> 'SMP'"))

When I tried to open my form, I got an error which says: "Run-time error '3075'; syntax error (missing operator) in query expression "[SectionID] = & Me.SectionID <> 'SMP'.

Please help the novice.

Thanks in advance,

qwerty70

 

[ZmrAbdulla]

DLookUp usage samples here..

http://www.mvps.org/access/general/gen0018.htm

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[ProgramError]

[SectionID] = '" & Me.SectionID & "' AND ????? <> 'SMP'"

I think you have two errors in the statement.
The first is a synax error
the second is - what is being compared with 'SMP' ??????
There should also be an and/or after the "me.sectionid" too.


Ian Mayor (UK)
Program Error
Programming is 1% coding, 50% error checking and 49% sweat as your application bombs out in front of the client.

 

[TheAceMan1]

qwerty70 . . .

Not sure if this will work as [blue]needed info is insufficient[/blue], but the following routine searches the forms recordset for ER, IR, SMP and [blue]disables accordingly[/blue] (I believe this is where you were going). Note: if any option button is disabled [blue]OptAll[/blue] has to be disabled as well. Put the code in the [blue]On Load[/blue] event of the form.

Special Note: [blue]you![/blue] substitute proper names in [purple]purple[/purple]:

[blue]   Dim rst As DAO.Recordset, idx As Integer
   Dim butName As String, datFind As String, flgFound As Boolean
   
   Set rst = Me.RecordsetClone
   
   For idx = 1 To 3
      datFind = Choose(idx, "ER", "IR", "SMP")
      [b]butName[/b] = Choose(idx, "[purple][b][i]ERButName[/i][/b][/purple]", "[purple][b][i]IRButName[/i][/b][/purple]", "[purple][b][i]SMPButName[/i][/b][/purple]")
      rst.FindFirst "[SectionID] = '" & datFind & "'"
      
      If rst.NoMatch Then
         Me([b]butName[/b]).Enabled = False
         If Not flgFound Then flgFound = True
      End If
   Next
   
   If flgFound Then Me("[purple][b][i]AllButName[/i][/b][/purple]").Enabled = False
   
   Set rst = Nothing[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

 

[qwerty70]

TheAceman1, thanks for your reply. Yes, you've read my mind, that's exactly where I am going. I followed your notes accordingly. I just add one option button which is "OptIP", so I changed the number of idx from 3 to 4.

When I opened my form, the "OptAll" button was also disabled although I purposely removed "SMP" from the recordset. The "OptAll" button should be enable because "ER", "IR" & "IP" are still existing in the recordset.

What seem to be the problem here?

Here's the code:

   Dim rst As DAO.Recordset, idx As Integer
   Dim butName As String, datFind As String, flgFound As Boolean
   
   Set rst = Me.RecordsetClone
   
   For idx = 1 To 4
      datFind = Choose(idx, "ER", "IR", "SMP", "IP")
      butName = Choose(idx, "OptER", "OptIR", "OptSMP", "OptIP")
      rst.FindFirst "[SectionID] = '" & datFind & "'"
      
      If rst.NoMatch Then
         Me(butName).Enabled = False
         If Not flgFound Then flgFound = True
      End If
   Next
   
   If flgFound Then Me("OptAll").Enabled = False
   
   Set rst = Nothing

Thank you,

qwerty70

 

[TheAceMan1]

qwerty70 . . .

Changes are in [purple]purple[/purple]:

[blue]   Dim butName As String, datFind As String, [purple][b]NotFound[/b][/purple] As Boolean
   
   Set rst = Me.RecordsetClone
   
   For idx = 1 To 4
      datFind = Choose(idx, "ER", "IR", "SMP", "IP")
      butName = Choose(idx, "OptER", "OptIR", "OptSMP", "OptIP")
      rst.FindFirst "[SectionID] = '" & datFind & "'"
      
      If rst.NoMatch Then
         Me(butName).Enabled = False
         [purple][b]NotFound = True[/b][/purple]
      End If
   Next
   
   If [purple][b]NotFound[/b][/purple] Then Me("OptAll").Enabled = False
   
   Set rst = Nothing[/blue]

See Ya! . . . . . .

 

[qwerty70]

TheAceman1, I have incorporated the changes in purple but same old story. However, when I tried to juggle the code a bit from:

NotFound = True

to

If NotFound Then NotFound = True

..it worked fine.

Here's another star for you for being helpful. I'm learning too much from you.

regards,

qwerty70