Øving4

Option Compare Database
Option Explicit

Private Sub Form_Load()

Me.txtOverSnitt = ""
Me.txtTotal = ""
Me.txtSnitt = ""
Me.txtÅrstall = ""

End Sub

Private Sub Kommando4_Click()

    Dim strsql As String
    Dim År As Integer
    Dim stdset As DAO.Recordset
    Dim Salg As Long
    Dim n As Integer
    Dim inndata As Integer
    Dim Snitt As Long


    strsql = "SELECT * FROM tblSalgsoversikt"
    Set stdset = CurrentDb.OpenRecordset(strsql)





    If Not IsNumeric(Me.txtÅrstall) Then
        Call MsgBox("Vennligst tast inn gyldig årstall", vbInformation)
        Me.txtÅrstall = ""
        Me.txtÅrstall.SetFocus
    Exit Sub
    End If



        n = 1
        Salg = 0


    With stdset

        inndata = Me.txtÅrstall
        Me.txtSnitt.Format = "#,##0"

    Do While Not .EOF

     If !År = inndata Then
         Salg = Salg + !Salg
        .MoveNext
        n = n + 1



    Else

        .MoveNext
    End If

    Loop

         Me.txtTotal = Salg
         Me.txtSnitt = (Salg / n)

    If Salg = 0 Then
        Call MsgBox("Ingen Salgstall for valgt år", vbInformation)
    End If



    .MoveFirst
    Snitt = Me.txtSnitt
    Do While Not .EOF
        If !År = inndata Then
            If !Salg > Snitt Then
                Me.txtOverSnitt = Me.txtOverSnitt & !Måned & ", "
            End If
        .MoveNext

        Else

        .MoveNext

        End If
    Loop


Exit Sub
End With











End Sub

Private Sub txtÅrstall_AfterUpdate()

    Me.txtOverSnitt = ""
    Me.txtTotal = ""
    Me.txtSnitt = ""

End Sub