Umsatzstatistiken mit Access erstellen

Listing 1 - Code für das Formular frmVerkaeufe

Private Sub Bildagentur_Change()
Me.txtBA.Value = Me.Bildagentur.Text
End Sub

Private Sub Bildagentur_Exit(Cancel As Integer)
Me.txtBA.Value = Me.Bildagentur.Text
End Sub

Private Sub Bildnr_Change()
Dim varErg As Variant

If Me.Bildnr.Text = "" Then
Me.Titel.Value = ""
Else
varErg = DLookup("Titel", "tabVerkaeufe", "Bildnr=" & Me.Bildnr.Text)
If Not (IsNull(varErg)) Then
Me.Titel.Value = varErg
Else
Me.Titel.Value = ""
End If
varErg = DLookup("Bildagentur", "tabVerkaeufe", "Bildnr=" & Me.Bildnr.Text)
If Not (IsNull(varErg)) Then
Me.Bildagentur.Value = varErg
Me.txtBA.Value = DLookup("Kuerzel", "tabBildagenturen", "ID=" & varErg)
Else
Me.Bildagentur.Value = ""
End If
varErg = DLookup("Bereich", "tabVerkaeufe", "Bildnr=" & Me.Bildnr.Text)
If Not (IsNull(varErg)) Then
Me.Bereich.Value = varErg
Else
Me.Bereich.Value = ""
End If
End If
End Sub

Private Sub Form_GotFocus()
Me.Bildagentur.Requery
Me.Bereich.Requery
End Sub

Private Sub Verkaufspreis_Exit(Cancel As Integer)
If Me.txtBA.Value = "FOT" Then
Me.Einnahmen.Value = Me.Verkaufspreis.Value * 0.83
ElseIf Me.txtBA.Value = "IP" Then
Me.Einnahmen.Value = (((Me.Verkaufspreis.Value * 0.6) * 2) * 0.4)
Else
Me.Einnahmen.Value = Me.Verkaufspreis.Value
End If
End Sub

Hinweis: Die weiteren Ereignisprozeduren für die Schaltflächen des Formulars, die zum Speichern der Daten sowie zum Duplizieren und Erzeugen eines neuen Datensatzes dienen, können Sie über den Steuerelementassistenten von Access erzeugen, sodass hier der Code nicht aufgeführt wird.