| Startseite > Add-Ins > TM-DatenKlassenGenerator > Datenbindung 5 |
|
|
|
Datenbindung 5Datenbindung (Teil 5)
Es gibt eine weitere Aufgabe, für die es bisher noch keine Lösung gibt. Dabei geht es darum, vor dem Speichern eines Datensatzes zu prüfen, ob alle Felder gültige Werte enthalten. Auch die Prüfung auf Abhängigkeiten zwischen den einzelnen Feldern ist hier zu nennen. Normalerweise würde diese Prüfung beim Klick auf den Speichern-Button ausgelöst. Dieser Button enthält aber keinen Code. Statt dessen wird in der Klasse "cls_DataBinder" auf das Klick-Ereinis dieses Buttons reagiert. Die Lösung für dieses Problem liegt darin, im VBA-Code des Formulars eine Property bereitzustellen, die die Validierung vornimmt. Aus der Klasse "cls_DataBinder" wird dann diese Property vor dem Speichern abgefragt. Der Code für den Speichern-Button wird wie folgt ergänzt: Private Sub m_OKButton_Click()
If IsFormDataValid = False Then Exit Sub GetFormData m_DataObject.Save DoCmd.Close acForm, m_Form.Name End Sub Die Methode "IsFormDataValid" wird wie folgt implementiert: Private Function IsFormDataValid() As Boolean
IsFormDataValid = True On Error Resume Next IsFormDataValid = Forms(m_Form.Name).IsFormDataValid End Function
Public Property Get IsFormDataValid() As Boolean
If Len(Trim$(Nz(Me.txtStrasse, vbNullString))) < 3 Then MsgBox "Straße muss mindestens 3 Zeichen lang sein." Exit Property End If IsFormDataValid = True End Property Eine Beispieldatenbank steht hier zum Download bereit:
|
02.10.2020: 06.11.2019: 06.05.2017: 27.03.2016: 23.05.2014: |
|
|
|
