Office: filmdatenbank - unterschiedlichste fragen...

Hi,

Sorry - das habe ich fast vergessen....

Also hier mal erstmal den Aufbau für den Code. Du hast eine Tabelle, die einen Schlüssel für den Regisseur udn den Film enthält. Diese Tabelle heißt bei mit tbl_Film_Regie. Dazu erstelel ich eine Abfrage "Abfr_Film_Regie, die eine Verknüpfung zu den beiden Tabellen "Regie" und "Film" hat.

Dann brauchst Du nur noch diese Funktion:

Code:

Function Film_Regie(Filmnr As Long) As String

Dim db      As DAO.Database
Dim rs      As DAO.Recordset
Dim strSQL  As String
Dim strWert As String

Set db = CurrentDb
strSQL = "SELECT * FROM [Abfr_Film_Regie] WHERE [Film]=" & Filmnr
Set rs = db.OpenRecordset(strSQL)

If Not rs.EOF And Not rs.BOF Then
    rs.MoveFirst
    While Not rs.EOF
        strWert = strWert & rs("Regisseur").Value & "; "
        rs.MoveNext
    Wend
    Film_Regie = Left(strWert, (Len(strWert) - 2))
End If

Set rs = Nothing
Set db = Nothing

End Function

Der Feldname für den Naqmen des Regisseurs in der Tabelle "Regie" ist hier "Regisseur". Dass musst Du alles ggf. anpassen.

Der Aufruf geschieht eigentlich jetzt nur noch denkbar einfach:

Me.DeinTextfeld.Value = Film_Regie(Filmnummer)

In der Variablen "Filmnummer" steht die Filmnummer, zu dem Du die Regisseure suchst.
Das Ergebnis ist ein String, der dann etwas so aussieht:

Jean-Pierre Jeunet, Marc Caro

Du kannst die Funktion in ein extra Wodul packen - aber auch in den Code des Formulares...

 

wow, danke. das sieht kompliziert aus, muß ich mir erstmal in ruhe ansehen, sobald ich zeit habe. melde mich dann später mit ergebnissen oder fragen wieder... ;)

 

hi.
lang ist's her. ich war mit dem ganzen komplex etwas überfordert und hab letztendlich meine datenbank monatelang nicht mehr angerührt. jetzt würd ich's gern wieder versuchen - aber ich muß gestehen, daß ich absolut überhaupt nicht weiß, wie ich mit dem code umgehen muß...