Oppgave8

Option Compare Database
Option Explicit




Private Sub Form_Load()
    Me.txtDiagnose = ""
    Me.txtJournal = ""
    Me.txtResept = ""
End Sub




Private Sub txtJournal_AfterUpdate()

    Dim i As Integer
    Dim j As Integer
    Dim reseptDel As String
    Dim diagnoseDel As String
    Dim missing_rTag As Module


    For i = 1 To Len(Me.txtJournal)


    If Mid(Me.txtJournal, i, 8) = "<resept>" Then

    For j = i To Len(Me.txtJournal)

        If Mid(Me.txtJournal, j, 9) = "</resept>" Then
            reseptDel = Mid(Me.txtJournal, i + 8, j - (i + 8))
            Me.txtResept = Me.txtResept & " " & reseptDel
            i = j
            Exit For

        ElseIf Mid(Me.txtJournal, j, 10) = "<diagnose>" Then
            GoTo rTag
        ElseIf Mid(Me.txtJournal, j, 11) = "</diagnose>" Then
            GoTo rTag
        ElseIf Mid(Me.txtJournal, j, 8) = "<resept>" And j > 8 Then
            GoTo rTag
        ElseIf (j + 8) = Len(Me.txtJournal) Then
            GoTo rTag
        End If





            Next j
        End If


    If Mid(Me.txtJournal, i, 10) = "<diagnose>" Then

        For j = i To Len(Me.txtJournal)
            If Mid(Me.txtJournal, j, 11) = "</diagnose>" Then
                diagnoseDel = Mid(Me.txtJournal, i + 10, j - (i + 10))
                Me.txtDiagnose = Me.txtDiagnose & " " & diagnoseDel
                i = j
                Exit For
            ElseIf Mid(Me.txtJournal, j, 8) = "<resept>" Then
                GoTo dTag
            ElseIf Mid(Me.txtJournal, j, 9) = "</resept>" Then
                GoTo dTag
            ElseIf Mid(Me.txtJournal, j, 10) = "<diagnose>" And j > 10 Then
                GoTo dTag
            ElseIf (j + 11) = Len(Me.txtJournal) Then
               GoTo dTag
            End If







            Next j
         End If

    Next i

    Exit Sub

rTag:

    Call MsgBox("Sjekk at rett antall tags for resept er brukt", vbInformation)
    Me.txtJournal.SetFocus
    Exit Sub

dTag:
    Call MsgBox("Sjekk at rett antall tags for diagnose er brukt", vbInformation)
    Me.txtJournal.SetFocus
    Exit Sub




End Sub