probleem met if

Status
Niet open voor verdere reacties.

rebirth

Gebruiker
Lid geworden
17 jun 2008
Berichten
170
Ik heb in access een code om afhankelijk van de ingevulde waarde, een nieuw record aan te maken, of een deel van een bestaande record aan te passen.

Er moet in de records gekeken worden of de combinatie van kind, week, jaar en maand al bestaat. Indien dat zo is, moet hij in die record iets aanpassen, en anders moet hij een nieuwe record aanmaken.
Alleen... werkt mijn if niet. hij geeft me nooit geen overeenkomstige record, hoewel die wel vaak bestaat. Kan iemand me misschien zeggen wat er mis is met mijn if?

Dit is het gedeelte van de code waar het probleem zit (en de if in het vet):

Code:
Do Until opvpres.EOF
   [B] If opvpres!Kind = Me!Kind And opvpres!week = Me!week And opvpres!jaar = Me!jaar And opvpres!maand = Me!maand Then[/B]
            Select Case Me.Dagnaam
                Case "maandag"
                    opvpres.Edit
                    opvpres("Ma_datum").Value = Me!Datum
                    opvpres.Update
                Case "dinsdag"
                    opvpres.Edit
                    opvpres("Di_datum").Value = Me!Datum
                    opvpres.Update
                Case "woensdag"
                    opvpres.Edit
                    opvpres("Wo_datum").Value = Me!Datum
                    opvpres.Update
                Case "donderdag"
                    opvpres.Edit
                    opvpres("Do_datum").Value = Me!Datum
                    opvpres.Update
                Case "vrijdag"
                    opvpres.Edit
                    opvpres("Vr_datum").Value = Me!Datum
                    opvpres.Update
                Case "zaterdag"
                    opvpres.Edit
                    opvpres("Za_datum").Value = Me!Datum
                    opvpres.Update
                Case "zondag"
                    opvpres.Edit
                    opvpres("Zo_datum").Value = Me!Datum
                    opvpres.Update
            End Select
    
  '  De subroutine hier al stopzetten
       GoTo Afgewerkt
    End If
    opvpres.MoveNext
Loop

    
 Select Case Me.Dagnaam
    Case "maandag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Ma_datum").Value = Me!Datum
        opvpres.Update
    Case "dinsdag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Di_datum").Value = Me!Datum
        opvpres.Update
    Case "woensdag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Wo_datum").Value = Me!Datum
        opvpres.Update
    Case "donderdag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Do_datum").Value = Me!Datum
        opvpres.Update
    Case "vrijdag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Vr_datum").Value = Me!Datum
        opvpres.Update
    Case "zaterdag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Za_datum").Value = Me!Datum
        opvpres.Update
    Case "zondag"
        opvpres.AddNew
        opvpres("Kind").Value = Me!Kind
        opvpres("Jaar").Value = Me!jaar
        opvpres("Maand").Value = Me!maand
        opvpres("Week").Value = Me!week
        opvpres("Zo_datum").Value = Me!Datum
        opvpres.Update
    End Select

Afgewerkt:
opvpres.Close
    MsgBox "De gegevens werden toegevoegd!", vbOKOnly, "Gegevens invoeren"
    End If
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan