Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: tragger am August 02, 2010, 20:37:27

Titel: 2 Probleme mit Ufo in Ufo
Beitrag von: tragger am August 02, 2010, 20:37:27
Hallo Leute, habe zwei Probleme mit meinem Ufo.

DEr AUfbau ist das Hauptformular (frmMitglieder) mit dem Ufo (frmPferde), welches wieder ein Ufo (frmVersicherung) enthällt.

Nun möchte ich 1. nur das frmVersicherung aktualisieren. Wie mache ich das mit Requiry?? Oder anders??

2. soll der Focus bei falschem Feldinhalt wieder auf ein Feld im Ufo frmVersicherung gelenkt werden. WIe geht das?

Mein Ansatz:

Private Sub TarifID_LostFocus()
    If IsNull(Me!TarifID) Then
        MsgBox ("Leerer Tarif")
        Forms![frmMitglieder]![frmPferde]![frmVersicherung]![TarifID].SetFocus
    End If
End Sub
Titel: Re: 2 Probleme mit Ufo in Ufo
Beitrag von: database am August 02, 2010, 21:01:36
Hallo,

um dein Problem zu lösen benötigst du in erster Linie Kenntnis darüber, wie die Steuerelemente eines Formulars / Unterformulars anzusprechen sind.
Unterformulare sind im weitesten Sinne ja auch nur Steuerelemente des Hauptformulars ...

Sehr informativ dazu ....  www.donkarl.com?FAQ4.2 (http://www.donkarl.com?FAQ4.2)
sowie der darin enthaltene Link zu Dev Ashish http://www.mvps.org/access/forms/frm0031.htm (http://www.mvps.org/access/forms/frm0031.htm)

HTH
Peter
Titel: Re: 2 Probleme mit Ufo in Ufo
Beitrag von: tragger am August 03, 2010, 01:05:06
Habe das Problem teils geklärt. Vielen Dank für die Hinweise!

Private Sub TarifID_LostFocus()
    If IsNull(Me!TarifID) Then
        MsgBox ("Leerer Tarif")
        Me!Versicherungsdauer.SetFocus
        Me!TarifID.SetFocus
    End If
End Sub


Kann man die Protzedur LostFocus auch verhindern, ohne den Focus erst auf ein anderes Feld und dann zurück zu setzen??
Titel: Re: 2 Probleme mit Ufo in Ufo
Beitrag von: MzKlMu am August 03, 2010, 08:10:43
Hallo,
nimm das Ereignis "Beim Verlassen" das kann mit Cancel=True abgebrochen werden. Dann kannst Du Dir das Focus setzen sparen. Das Feld wird erst gar nicht verlassen.
Private Sub TarifID_Exit(Cancel As Integer)
   If IsNull(Me!TarifID) Then
       MsgBox ("Leerer Tarif")
       Cancel = True
   End If
End Sub


PS:
Als Neuer noch folgende Anmerkung: Grossposting (gleichzeitig in anderen Foren fragen) ist unerwünscht. Steht auch in den Regeln.
Titel: Re: 2 Probleme mit Ufo in Ufo
Beitrag von: tragger am August 03, 2010, 11:29:35
Vielen Dank für die Hilfe! Klappt!

Werde deinen Hinweis befolgen, Danke für die Info!!