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):
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