hallo,
ich habe eine access datenbank und möchte im formular nach bestimmten datensätzen suchen... und zwar nach den kriterien monat und konzern... nachdem der monat ausgewählt wurde, soll nur noch eine gefilterte auswahl an konzernen möglich sein, nämlich die, zu denen auch wirklich datensätze vorhanden sind. danach klickt man auf eine schlatfläche und ein bericht mit nur den gesuchten daten wird angezeigt.
funktionier ja auch soweit ganz gut... nur bekomme ich keine nach monaten gefilterte auswahl, sondern nach konzern gefiltert und alle monate
Private Sub monat_AfterUpdate()
' Gleicht Konzern nach Aktualisierung von monat an
If Not IsNull(Me!MONAT) Then
Me!KONZERN.RowSource = _
"SELECT DISTINCTROW KonzernID, Konzern FROM qryKonzern" & _
IIf(Me!MONAT = 0, "", " WHERE monatID = 0 OR monatID = " & Me!MONAT) & " ORDER BY Konzern"
Me!FILIALE.RowSource = ""
Else
Me!KONZERN.RowSource = ""
Me!KONZERN.RowSource = ""
End If
Me!KONZERN.Requery
Me!FILIALE.Requery
Me!KonzernID = Null
Me!Bezeichnung = Null
End Sub
Private Sub Konzern_AfterUpdate()
' Für Datensatzsuche, nachdem Konzern aktualisiert wurde
If Not IsNull(Me!KONZERN) Then
Me!KonzernID = Me!KONZERN.Column(0)
Me!Bezeichnung = Me!KONZERN.Column(1)
End If
End Sub
Private Sub Berichtsvorschau_Datensatz_Click()
On Error GoTo Err_Berichtsvorschau_Datensatz_Click
' Öffnet Bericht mit gefiltertem Datensatz
Dim stDocName As String
stDocName = "02_Bericht_Konzern"
If Me.FilterOn Then
DoCmd.OpenReport stDocName, acPreview, WhereCondition:=Me.Filter
Else
DoCmd.OpenReport stDocName, acPreview, WhereCondition:="KonzernID=" & [KonzernID]
End If
Exit_Berichtsvorschau_Datensatz_Click:
Exit Sub
Err_Berichtsvorschau_Datensatz_Click:
MsgBox Err.Description
Resume Exit_Berichtsvorschau_Datensatz_Click
End Sub
ich denke es liegt irgendwie an dem feld filiale, das gibt es in dieser db nicht mehr... aber wie muss ich es jetzt schreiben?
