www.MsAccess.gr

Ανανέωση Σύνθετων Πλαισίων.

Γνωρίζουμε ότι όταν ένα σύνθετο πλαίσιο μίας φόρμας που βασίζεται σε ερώτημα όταν γίνουν αλλαγές στους πίνακες που βασίζεται το ερώτημα του σύνθετου πλαισίου, θα πρέπει να γίνει ανανέωση για να εμφανίσει τις αλλαγές και στο σύνθετο πλαίσιο.

Με το παρακάτω κώδικα έχουμε ανανέωση όλων των σύνθετων πλαισίων που βρίσκονται σε ανοικτές φόρμες, υποφόρμες. Επίσης καλό είναι να καλείται ο κώδικας στην απενεργοποίηση της φόρμας που έχει τα δεδομένα του σύνθετου πλαισίου.

Public Sub RequeryComboBoxes()
Dim id As Form, Obj, SubObj As Object
    For Each id In Forms
        For Each Obj In id.Controls
            Select Case Obj.ControlType
                Case acComboBox
                    Obj.Requery
                Case acSubform
                    For Each SubObj In Forms(id.Name).Controls(Obj.Name).Form.Controls
                        If SubObj.ControlType = acComboBox Then
                            SubObj.Requery
                        End If
                    Next
            End Select
        Next
    Next
End Sub