Jeg kan ikke forstå hvorfor det her ikke virker.

Jeg har fået god hjælp til at lave noget af en database, så det er ikke hele koden jeg forstår, men jeg har udvidet databasen siden jeg fik hjælpen, og problemet er at koden virker kun nogen gange. Jeg har en kode der ser sådan her ud:

Public Sub IndsaetAftaltTider()

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord

If Format(Me.Dato, "dddd") = "mandag" Then
DoCmd.OpenQuery "mandag"
Me.Ugedag = "mandag"
End If
If Format(Me.Dato, "dddd") = "tirsdag" Then
DoCmd.OpenQuery "tirsdag"
Me.Ugedag = "tirsdag"
End If
If Format(Me.Dato, "dddd") = "onsdag" Then
DoCmd.OpenQuery "onsdag"
Me.Ugedag = "onsdag"
End If
If Format(Me.Dato, "dddd") = "torsdag" Then
Me.Ugedag = "torsdag"
DoCmd.OpenQuery "torsdag"
End If
If Format(Me.Dato, "dddd") = "fredag" Then
Me.Ugedag = "fredag"
DoCmd.OpenQuery "fredag"
End If
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings True
Me.Refresh
End Sub

Private Sub Afkrydsningsfelt25_AfterUpdate() 'afkrydsningsfelt25 afgør om fraværstiden er aftalt eller ej.
IndsaetAftaltTider
If Me.Afkrydsningsfelt25 = False Then
  Me.Fravaer = (Me.AfGaaet - Me.AfModt) - (Me.GaaetHjem - Me.Modt)
  Me.Aftaltfravaer = Null
Else
  Me.Aftaltfravaer = (Me.AfGaaet - Me.AfModt) - (Me.GaaetHjem - Me.Modt)
  Me.Fravaer = Null
End If
Form_BrugerTabel.Refresh
End Sub

Private Sub GaaetHjem_AfterUpdate()
If IsNull(Me.Modt) Or IsNull(Me.GaaetHjem) Then
Exit Sub
Else
Afkrydsningsfelt25_AfterUpdate
End If
Me.Refresh
End Sub

Nogen gange regner koden fraværet ud, og ligger den i den respektive boks, andre gange får jeg en fejl der siger noget med at jeg forsøger at ændre en post samtidig med at en anden forsøger at ændre den, og flest gange sker der ikke en fløjtende dyt. Ingen udregning, ingen overførsel af resultat til Me.Fravaer eller Me.Aftaltfravaer. Jeg har på fornemmelsen af det er commandoen    DoCmd.RunCommand acCmdSaveRecord    der ikke helt gør som den skal da jeg har googlet den, og kan se andre har andre problemer med den, men jeg er simpelthen ikke stiv nok i vb til at gennemskue det. Det kan også være logikken der er noget i vejen med, men den har jeg bare checket og checket.

Mvh Kim Sandberg