keuzerondjes zonder groepsvak

[achipong]

ik heb op een formulier een wisselknop gemaakt en keuzevakjes geplaats voor
tekstvakken (prijs1, prijs2, prijs3). in de tekstvakken Prijs1,2 en 3 staan
de prijzen die berekend worden aan de hand van andere velden op het formulier.

Als ik de wisselknop indruk moet er een van de drie prijzen gekozen worden.
Als de wisselknop niet staat ingedrukt mag er geen keuze gemaakt worden
tussen die drie prijzen.

ik heb zelf deze code uit het blote hoofd geschreven:

Private Sub Wisselknop405_Click()
On Error GoTo Err_Wisselknop405_Click

If Wisselknop405 = True Then
If Keuzerondjes409 = True Then
Keuzerondjes411 = False And Keuzerondjes412 = False
Else
If Keuzerondjes411 = True Then
Keuzerondjes409 = False And Keuzerondjes412 = False
Else
If Keuzerondjes412 = True Then
Keuzerondjes409 = False And Keuzerondjes411 = False
End If

Else
If Wisselknop405 = False Then
Keuzerondjes409 = False And Keuzerondjes411 = False And Keuzerondjes412 =
False

End If

Exit_Wisselknop405_Click:
Exit Sub

Err_Wisselknop405_Click:
MsgBox Err.Description
Resume Exit_Wisselknop405_Click

End Sub

Zijn er nog andere suggesties, hoe kan ik het het best doen om de
bovengenoemde resultaat te krijgen.

 

[Guus2005]

Ik snap niet veel van je code:

Private Sub Wisselknop405_Click()
On Error GoTo Err_Wisselknop405_Click

    If Wisselknop405 = True Then
        If Keuzerondjes409 = True Then
            Keuzerondjes411 = False And Keuzerondjes412 = False
        Else
            If Keuzerondjes411 = True Then
                Keuzerondjes409 = False And Keuzerondjes412 = False
            Else
                If Keuzerondjes412 = True Then
                    Keuzerondjes409 = False And Keuzerondjes411 = False
                End If
Else ??
        If Wisselknop405 = False Then
            Keuzerondjes409 = False And Keuzerondjes411 = False And Keuzerondjes412 = False
    End If

Exit_Wisselknop405_Click:
Exit Sub

Err_Wisselknop405_Click:
    MsgBox Err.Description
    Resume Exit_Wisselknop405_Click

End Sub

Je mist het een en ander dit is geen programmeertaal. Als het pseudocode was zou ik het beter snappen.
De computer snapt dit wel maar doet andere dingen dan jij verwacht:

Keuzerondjes411 = False And Keuzerondjes412 = False

Keuzerondjes411 wordt altijd false en Keuzerondjes412 wordt vergeleken met de waarde False en zal niet veranderen.
Dus als je de AND overal tussenuit haalt en meerdere regels gebruikt voor je statements zal het al een stuk schelen.

Ik heb het maximum aantal woorden hiermee ruimschoots overschreden.

HTH
Weest gegroet,
Guus

 

[achipong]

ben een beginnertje in VBA. code geeft eigenlijk alleen wat duidelijker weer wat ik wil.

Ben op zoek naar een code die dat resultaat kan leveren.

 

[Bartuls]

Ik snap er ook niet veel van.
Kun je eens duidelijk (zonder gebruik te maken van pseudo code of VBA) uitleggen wat je nu precies wilt doen.
Waarschijnlijk is er een heel simpele oplossing die je, doordat je een verkeerde oplossingsrichting gekozen hebt, over het hoofd ziet.

 

[achipong]

ik heb op een formulier viertal kolommen (A,B,C,D). Bij elke kolom horen drie prijzen (1,2,3)
De prijzen (resultaat van een berekening) worden weergegeven in een gwn tekstvak.

Nou moet ik een kolom kunnen kiezen en daarna 1 van de 3 bijbehorende prijzen. Dus ik heb gekozen om voor de kolommen wisselknoppen te maken en voor de prijzen een keuzerondje te plaatsen.(kezuerondje gwn voor de tekstvak geplaatst)

Ik hoop dat het wat duidelijker is.

 

[Bartuls]

Ik snap er nog steeds niets van.
Je beschrijft nog steeds de (niet werkende) oplossing van een probleem en niet het probleem zelf.

Wat is een kolom? Een artikel? Een lolly? Een koe?
Als je één prijs per kolom moet kiezen dan gebruik je een combobox, geen keuzerondjes.

Het zou helpen als je je mdb even post. Dan kunnen we zien waar je het nu eigenlijk over hebt.

 

[achipong]

ik heb even een screenshot gemaakt van het formulier.

ik wil een kolom kiezen en een prijs die bij die kolom hoort.

 

[Bartuls]

Weg met die keuzerondjes!
Om dat aan de praat te krijgen moet je de hele boel zelf gaan programmeren!
Dat is lastig, moeilijk te onderhouden en absoluut niet nodig!

Omdat je nog steeds niet hebt uitgelegd wat je nu precies functioneel wilt doen moet ik gaan gissen.

Het lijkt erop dat je een keuze moet maken tussen NLD, DLD en OOS.
Op basis van die keuze krijg je verschillende vrachtbedragen en dat resulteerd in verschillende verkoopprijzen.
Wat je dus zou moeten doen is een comoboxje met de keuzen NLD, DLD en OOS maken op basis van de inhoud van het comboboxje de rest presenteren.

 

[achipong]

sorry,
ik wil dus kiezen voor een afmeting en dan voor een verkoopprijs. de gekozen verkoopprijs moet dan meegenomen worden naar een andere berekening.

maar kua layout moet het formulier zo blijven. dus alles moet worden weergegeven(alle prijzen voor alle afmetingen0

 

[Bartuls]

Met je huidige keuze van schermobjecten kan dat dus niet.
Als je keuzes moet maken van dit soort dingen zul je met comboboxen en/of listboxen moeten gaan werken. Eventueel kun je gebruik maken van aanvinkvakjes, maar radio buttons zoals jij ze wilt toepassen, gaat niet werken.

In jou geval zou ik eerst eens een paar stappen terug gaan.
Kijk naar wat je functioneel wilt doen en stippel dan een pad uit om dat technisch te realiseren.

Je scherm bevat ontzettend veel informatie. Is dat echt nodig of kun je het misschien met een paar slimme keuzes vooraf beperken?
Is al die informatie op één scherm wel nodig? Kun je daar niet beter een rapport van maken?
Dat zijn vragen die je zou moeten stellen.

 

[achipong]

bedankt voor de reactie

er zijn door de opdrachtgever een paar eisen gesteld en hij wou zelf meer gegevens erop. Dus dat kan ik niet veranderen. Ik heb database niet zelf gemaakt ben het aan het uitbreiden en verbeteren.

maar ik ga je advies opvolgen en kijken wat er uit komt