collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 76
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13909
  • stats Beiträge insgesamt: 65765
  • stats Themen insgesamt: 8870
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: 2 Probleme mit Ufo in Ufo  (Gelesen 3084 mal)

Offline tragger

  • Access-User
  • *
  • Beiträge: 95
2 Probleme mit Ufo in Ufo
« 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
 

Offline database

  • Moderator
  • Access Guru
  • *****
  • Beiträge: 4178
Re: 2 Probleme mit Ufo in Ufo
« Antwort #1 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
sowie der darin enthaltene Link zu Dev Ashish http://www.mvps.org/access/forms/frm0031.htm

HTH
Peter
Viele Grüße
Peter

Tipps und Links:
---------------------------------------------------------
1. http://www.donkarl.com
2. http://www.access-entwicklerbuch.de/2007/index.php?page=buch
3. http://www.xlam.ch/pos/rules.htm
3.a Reservierte Worte
4. http://www.functionx.com/vbaccess/index.htm
5. http://www.dbwiki.net

Nicht vergessen: Jede(r) hat mal klein angefangen!
Bitte keine Fragen per PN senden - Fragen gehören ins Forum!
 

Offline tragger

  • Access-User
  • *
  • Beiträge: 95
Re: 2 Probleme mit Ufo in Ufo
« Antwort #2 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??
 

Offline MzKlMu

  • Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 7200
Re: 2 Probleme mit Ufo in Ufo
« Antwort #3 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.
Gruß
Klaus
 

Offline tragger

  • Access-User
  • *
  • Beiträge: 95
Re: 2 Probleme mit Ufo in Ufo
« Antwort #4 am: August 03, 2010, 11:29:35 »
Vielen Dank für die Hilfe! Klappt!

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