Hallo Schlauköpfe,
ich hab von einem Freund die folgende Funktion bekommen, mit der ich in einem Formular drei Unterformulare mit Daten aus drei verschiedenen Tabellen füllen möchte.
Zwei Unterformulare funktionieren, das Dritte nicht.
Liegt das an der Verwendung von Me!.. ? - oder hat jemand noch einen Tipp für mich?
Private Sub Befehl5_Click()
Dim Girokontonummer As String
Dim Krit As String, SQL1 As String, SQL2 As String, SQL3 As String
Krit = „“
If Not IsNull(Me!Girokontonummer) Then Krit = Nz(Krit & " AND Girokontonummer LIKE ‚" & Me!Girokontonummer & "*‘")
SQL1 = "SELECT * FROM Kunden "
SQL2 = "SELECT * FROM Finanzierungen "
SQL3 = "SELECT * FROM Kontakte "
If Krit „“ Then SQL1 = SQL1 & "WHERE " & Nz(Mid(Krit, 5))
If Krit „“ Then SQL2 = SQL2 & "WHERE " & Mid(Krit, 5)
If Krit „“ Then SQL3 = SQL3 & "WHERE " & Nz(Mid(Krit, 5))
Me!UF1.Form.RecordSource = SQL1
Girokontonummer = Nz(UF1.Form.Girokontonummer.Value)
Me!UF2.Form.RecordSource = SQL2
Girokontonummer = Nz(UF2.Form.Girokontonummer.Value)
Me!UF3.Form.RecordSource = SQL3
Girokontonummer = Nz(UF3.Form.Girokontonummer.Value)
End Sub
Gruß Christian