Private Sub KzlZorgcode_AfterUpdate()
On Error GoTo Err_KzlZorgcode_AfterUpdate
'Uitvoerende VBA code
Dim BNummer As Integer
Dim Zorgcode As String
Dim strsql As String
Dim Cancel As Integer
'wijzigingen in dit record eerst opslaan:
TempVars.add "PDZorgcode", Nz(Me.KzlZorgcode.OldValue, "")
If Me.Dirty Then
Me.Dirty = False
End If
'opzoeken of de gebruiker bij de instellingen in de Tbl_users de bevestigingen heeft uitgezet
If Nz(DLookup("Bevestiging_uit", "Tbl_users", "personeelsnummer=[TempVars]![PDPersoneelsnummer]"), "") = False Then
1 If MsgBox("Weet U zeker dat U de zorgcode van deze bewoner wilt wijzigen?" & vbCrLf & _
"Hierbij wordt deze ook aangepast in de bewonerslijst," & vbCrLf & _
"herstelverblijf en de kortverblijflijst!", vbQuestion + vbYesNo, "Bevestiging gevraagd!") = vbYes Then
'check of er wel een Zorgcode is ingevuld is:
2 If (IsNull(Me.KzlZorgcode.Value)) Then
MsgBox "Kies eerste een zorgcode uit de lijst", vbCritical + vbOKOnly, "Opgelet!"
Me.KzlZorgcode.SetFocus
Exit Sub
End If
' Zorgcode in tabel Bewonerslijst, kortverblijf en herstelverblijf aanpassen vanuit het bewonerformulier
strsql = "UPDATE Bewonerslijst SET [Zorgcode] =" & "'" & Me.KzlZorgcode.Value & "'" & " WHERE [Bewonersnummer] =" & Me.BNummer
DoCmd.RunSQL strsql
strsql = "UPDATE Kortverblijf SET [Zorgcode] =" & "'" & Me.KzlZorgcode.Value & "'" & " WHERE [BNummer] =" & Me.BNummer
DoCmd.RunSQL strsql
strsql = "UPDATE Tbl_herstelverblijf SET [Zorgcode] =" & "'" & Me.KzlZorgcode.Value & "'" & " WHERE [BNummer] =" & Me.BNummer
DoCmd.RunSQL strsql
'Katzhistoriek herberekenen
Call Katzhistoriek
Me.SLvRVT.SetFocus
If Nz(DLookup("Bevestiging_uit", "Tbl_users", "personeelsnummer=[TempVars]![PDPersoneelsnummer]"), "") = False Then
MsgBox "De zorgcode " & [TempVars]![PDZorgcode] & " is aangepast naar " & Me.KzlZorgcode.Value & "", vbInformation + vbOKOnly, "Bevestiging van aanpassing!"
Else
Exit Sub
End If
Else
Me.KzlZorgcode.Value = [TempVars]![PDZorgcode]
If Me.Dirty Then
Me.Dirty = False
End If
Me.KzlZorgcode.Requery
Me.SLvRVT.SetFocus
If Nz(DLookup("Bevestiging_uit", "Tbl_users", "personeelsnummer=[TempVars]![PDPersoneelsnummer]"), "") = False Then
MsgBox " Bewerking geannuleerd", vbInformation + vbOKOnly, "Bevestiging van annulatie!"
Else
Exit Sub
End If
End If
Else
GoTo 2
End If
Exit_KzlZorgcode_AfterUpdate:
Exit Sub
Err_KzlZorgcode_AfterUpdate:
Select Case Err.Number
Case 20 'Resume zonder Error
Resume Next
Case 94 'Ongeldig gebruik van Null
MsgBox " Geen criteria, herbegin of vul het nodige veld in", vbCritical + vbOKOnly, "Opgelet!"
Resume Next
Case 3021 ' Geen huidige record
Resume Next
Case 3077 'Geen criteria
MsgBox " Geen criteria, herbegin", vbCritical + vbOKOnly, "Opgelet!"
Resume Next
Case 3167 'Record is al verwijderd
Resume Next
Case 9999
Resume Next
Case 999
Resume Exit_KzlZorgcode_AfterUpdate
Case Else
Call LogError(Err.Number, Err.Description, "KzlZorgcode_AfterUpdate()")
Resume Exit_KzlZorgcode_AfterUpdate
End Select
End Sub