Wegschrijven van gegevens loopt niet helemaal goed

[Tamara27]

Ik heb in bijlage een documentje met de volledige uitleg van de opbouw van het formulier, de code en een tekening ter verduidelijking.



Probleemstelling:

Ik denk dat er iets fout zit in de code voor het opslaan van de nevenwerkingen (zie rood gedeelte van de code)

Ingegeven
Behandeling 1 – pancreatitis – lokale reactie
Behandeling 2 – pancreatitis – allergie
Behandeling 3 – gastro-intestinale klachten – allergie

Wat hij dan opslaat is het volgende
Behandeling 1 – pancreatitis
Behandeling 1 – lokale reactie
Behandeling 1 – pancreatitis
Behandeling 1 – allergie
Behandeling 1 – gastro-intestinale klachten
Behandeling 1 – allergie

Terwijl hij moet opslaan
Behandeling 1 – pancreatitis
Behandeling 1 – lokale reactie
Behandeling 2 – pancreatitis
Behandeling 2 – allergie
Behandeling 3 – gastro-intestinale klachten
Behandeling 3 – allergie

 

[OctaFish]

Hoi Tamara,

Als ik je plaatje goed heb begrepen, heb je geen checkboxen meer op je formulier staan. Maar in de ctl Loop

[COLOR=red]                For Each ctl In Controls
                      With ctl
                      Select Case .ControlType
                          Case acCheckBox
                                If .Value = -1 Then [/COLOR]

wordt nog steeds gecheckt op checkboxen. Het lijkt mij dat je nu wilt controleren of de keuzelijsten leeg zijn of niet. Klopt deze aanname?
Zo ja, dan moet je de code zo aanpassen:

For Each ctl In Controls
     With ctl
          Select Case .ControlType
               Case [COLOR=blue][B]acComboBox[/B][/COLOR]
[COLOR=black]                    If [B][COLOR=blue]Nz(.Value,"") <> ""[/COLOR][/B] Then [/COLOR]

Om e.e.a. wat beter te kunnen bekijken, zou ik toch de db weer eens moeten zien, want ik heb nu een wel heel verouderde versie...

 

[Tamara27]

Er zijn nog een paar dingetjes die ik moet aanpassen, en dan stuur ik de db nog eens via mail

alvast bedankt weer!

 

[OctaFish]

OK! Ben benieuwd... Klopt het van die checkboxen?

 

[Tamara27]

Nee, niet helemaal
De commandbuttons openen namelijk een tabblad met, jawel, checkboxen

 

[OctaFish]

Ik wacht wel op je db

 

[Tamara27]

Hij komt eraan!