[kapetang]

Καλησπέρα Χριστόφορε!

Είναι δύσκολο για μένα και δεν έχω και το χρόνο να μπω στη λογική της ΒΔ σου.
Mου παρουσίασε αρκετά προβλήματα που πιθανόν να οφείλονται στα κενά που υπάρχουν στα ονόματα των αντικειμένων.
Για να δοκιμάσω τις λύσεις που σου προτείνω, αφαίρεσα ένα από τα κριτήρια του ερωτήματος.
Στη φόρμα «εισαγωγή πελατών» πρόσθεσα ένα πλαίσιο λίστας που δείχνει τα κενά διαμερίσματα. Είναι καλή λύση και δε χρειάζεται κώδικα.
Πρόσθεσα και ένα πλαίσιο κειμένου, αλλά η λύση αυτή απαιτεί την προσθήκη στη φόρμα του ακόλουθου κώδικα:

Public Function CloseHouse() As Variant
    Dim rs As dao.Recordset, strS As String
    Set rs = CurrentDb.OpenRecordset("Select [ΚΩΔΙΚΟΣ] From [ΚΛΕΙΣΤΑ ΔΙΑΜΕΡΙΣΜΑΤΑ ΣΕ ΠΟΛΥΚΑΤΟΙΚΙΑ]")
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            strS = strS & ", " & rs![ΚΩΔΙΚΟΣ]
            rs.MoveNext
        Loop
        CloseHouse = Mid(strS, 2)
    End If
    rs.Close
End Function

Φιλικά/Γιώργος