If, else problems

[CharlieAM]

Hello.
I have problems with the following:


Public Sub Afslut(SagsID As Integer)
DoCmd.RunCommand acCmdSaveRecord

Dim MeRset As New ADODB.Recordset
Dim MeCon As ADODB.Connection
Dim SQL As String, strAdv As String, iconAdv As Integer

SQL = "SELECT afsluttetaf, afsluttet,PåbegyndtAf, SagsTid, sagstypeid, tlfkontaktvlg FROM tblSagsregistrering WHERE sagsid=" & SagsID
Set MeCon = CurrentProject.Connection

MeRset.Open SQL, MeCon, adOpenKeyset, adLockOptimistic

If IsDate(MeRset("Afsluttet")) Then
If DateValue(MeRset("Afsluttet")) = Date And MeRset("Afsluttetaf") = VBA.Environ("UserName") Then
MeRset("Afsluttet") = Null
MeRset("AfsluttetAf") = Null
MeRset("SagsTid") = Null
MeRset.Update
Screen.ActiveForm.Requery
MsgBox "Sagen er genåbnet"
Else
MsgBox "Sagen er allerede afsluttet af " & MeRset("afsluttetaf") & " og kan ikke genåbnes!"
End If
Else
iconAdv = 32
If MeRset("PåbegyndtAf") <> VBA.Environ("UserName") Then
strAdv = "Sagen er påbegyndt af " & MeRset("Påbegyndtaf") & "! " & vbNewLine & vbNewLine
iconAdv = 48
End If
' MsgBox ("Du kan ikke afslutte sagen da den er påbegyndt af " & MeRset("påbegyndtaf") & "!")
If MsgBox(strAdv & "Ønsker du at afslutte sag " & Format(SagsID, "00000") & "?", vbYesNo + iconAdv) = vbYes Then
If MeRset("sagstypeID") <> 3 Then
If MsgBox("Har du haft telefonisk kontakt?", vbYesNo + 32 + vbDefaultButton2, "Kontakt") = vbYes Then
MeRset("tlfkontaktvlg") = 1
Else
If MsgBox("Har du forsøgt?", vbYesNo + 32 + vbDefaultButton2, "Kontakt") = vbYes Then
MeRset("tlfkontaktVlg") = 2
Else
MeRset("tlfkontaktVlg") = 3
End If
End If
End If
End If
MeRset("afsluttetaf") = VBA.Environ("UserName")
MeRset("afsluttet") = Now()
MeRset("SagsTid") = BeregnSagsTid(SagsID)
MeRset.Update
DoCmd.Close acForm, Screen.ActiveForm.Name, acSaveNo
Screen.ActiveForm.Requery
End If

MeRset.Close
Set MeCon = Nothing
End Sub
- i cannot figure out why!
Any suggestions?
Best regards

 

[Catalina]

What are the problems?

And if you indent the code properly it will be easier to read.

 

[CharlieAM]

Hello
Thank you for the prompt reply.
I have solved the issue.

Best regards