[Tasos]

Καλησπέρα σε όλους!

Νίκη, καλωσόρισες στο φόρουμ!

Παρακάτω σου περιγράφω την πρόταση μου.

Αρχικά τροποποίησε τις ιδιότητες του σύνθετου πλαισίου cboNumCar ως εξής:

1) Προέλευση γραμμής:

SELECT client.lastname, car.ar_kikl, client.customer_id, car.car_id FROM client INNER JOIN car ON client.customer_id = car.customer_id ORDER BY client.lastname;

2) Πλήθος στηλών: 4

3) Πλάτη στηλών: 3εκ.;3εκ.;0εκ.;0εκ.

4) Δεσμευμένη στήλη: 1

5) Πλάτος λίστας: 6εκ.

6) Στο συμβάν "Μετά από ενημέρωση" πέρασε τον παρακάτω κώδικα:

Private Sub cboNumCar_AfterUpdate()
    Dim rs As Object
    If Not IsNull(Me.cboNumCar.Column(2)) Then
        Set rs = Me.Recordset.Clone
        rs.FindFirst "customer_id = " & Me.cboNumCar.Column(2)
        If Not rs.NoMatch Then
            Me.Bookmark = rs.Bookmark
            If Not IsNull(Me.cboNumCar.Column(3)) Then
                Set rs = Me.carcustomer.Form.Recordset.Clone
                rs.FindFirst "car_id = " & Me.cboNumCar.Column(3)
                If Not rs.NoMatch Then
                    Me.carcustomer.Form.Bookmark = rs.Bookmark
                End If
            End If
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub

Μπορείς αν θέλεις να μετακινήσεις το σύνθετο πλαίσιο στην κεφαλίδα της φόρμας.

Τρέξε τη φόρμα και πες μας αν είναι αυτό που ζητάς.

Καλή συνέχεια!

Τάσος