Dim k As Long
Dim a As Long
Dim varenr As Long




Private Sub cmbVareNavn_AfterUpdate()
cmbVareNr = ""
End Sub

Private Sub cmbVareNr_AfterUpdate()
cmbVareNavn = ""
End Sub

Private Sub comAvslutt_Click()
DoCmd.Close
End Sub

Private Sub comBestill_Click()
    Dim strsql As String
    Dim n As Long


    If txtAntall = 0 Then
        Call MsgBox("Oppgi antall", vbInformation)
        txtAntall.SetFocus
        Exit Sub
    End If
    If varenr = 0 Then
        Call MsgBox(" Velg en vare", vbInformation)
        cmbVareNr.SetFocus
        Exit Sub
    End If

    k = k + 1
    Me.txtordrelinjer = k

    a = a + Me.txtAntall
    Me.txttotalvare = a



    txtSum = txtSum + txtAntall * txtPris
    Call MsgBox("Ordrelinje lagret")
    strsql = "INSERT INTO tempordre (vare, varenr, antall, pris, linjenr) VALUES ( '" & cmbVareNavn.Column(0) & "'," & varenr & "," & Me.txtAntall & "," & txtPris & "," & txtordrelinjer & ");"
    CurrentDb.Execute (strsql)

    strsql = "INSERT INTO bestillingstabell (varenr, antall, linjenr, ordrenr) VALUES (" & varenr & "," & Me.txtAntall & "," & Me.txtordrelinjer & "," & Me.txtOrdrenummer & ");"
    CurrentDb.Execute (strsql)

    Me.listoversikt.Requery
    txtAntall = 0
    txtPris = 0
    cmbVareNr = ""
    cmbVareNavn = ""

End Sub

Private Sub comFinnPris_Click()
    Dim strsql As String
    Dim stdset As DAO.Recordset
    Dim p As Double

    If IsNull(cmbVareNr) And IsNull(cmbVareNavn) Then
        Call MsgBox("Oppgi et varenummer eller varenavn", vbInformation)
        cmbVareNr.SetFocus
        Exit Sub
    End If
    If IsNull(cmbVareNr) Then
        varenr = cmbVareNavn
    Else
        varenr = cmbVareNr
    End If
    strsql = "SELECT Pris FROM Pristabell WHERE varenr=" & varenr
    Set stdset = CurrentDb.OpenRecordset(strsql)
    With stdset
        If .EOF Then
            Call MsgBox("Ukjent varenummer i pristabell - " & varenr, vbInformation)
            Exit Sub
        End If
        p = !pris
        .Close
    End With
    txtPris = p
End Sub

Private Sub comLagre_Click()
    Dim strsql As String
    Dim stdset As DAO.Database
    Dim a As Long



If IsNull(cmbKundenavn) Then
            Call MsgBox("Velg ein kunde")
            End If
        strsql = "INSERT INTO Ordreregister (ordrenummer, kundenummer) VALUES (" & txtOrdrenummer & "," & Me.cmbKundenavn & ")"
        CurrentDb.Execute (strsql)
        Call MsgBox("Ordre for kundenummer" & Me.cmbKundenavn & " oprettet", vbInformation)

End Sub

Private Sub comNy_Click()
    Dim ny As Long
    Dim strsql As String
    Dim stdset As DAO.Recordset

    strsql = "SELECT ordrenummer FROM Ordreregister"
    Set stdset = CurrentDb.OpenRecordset(strsql)
    stdset.MoveLast

        ny = stdset!ordrenummer
        ny = ny + 1
        Me.txtOrdrenummer = ny
        k = 0



      strsql = "DELETE * FROM tempordre"
      CurrentDb.Execute (strsql)
    End Sub


Private Sub comPrint_Click()
DoCmd.OpenReport "Utskrift", acViewPreview
End Sub

Private Sub comPakkseddel_Click()
DoCmd.OpenReport "Pakkseddel", acViewPreview
End Sub

Private Sub Form_Load()

        txtSum = 0
        Me.txtAntall = ""

End Sub