title image


Smiley Re: A97:Ufo-Wechsel mit Datensatzpositionierung
Ich würde das mit einer Umschaltfläche machen und 2 jeweils sichtbare /unsichtbare UFO-Steuerelemente nehmen:



Private Sub Umschaltflaeche_Click()

Dim Tmp, Krit, UFrm1 As Form, UFrm2 As Form

Tmp = NZ(Me!Umschaltflaeche,False)

If Tmp Then

Set UFrm1 = Me!UFO2.Form

Set UFrm2 = Me!UFO1.Form

Me!UFO1.Requery

Else

Set UFrm1 = Me!UFO1.Form

Set UFrm2 = Me!UFO2.Form

Me!UFO2.Requery

End If

If Not IsNull(E_N(UFrm1.RecordSource)) Then

Krit = "ID = " & UFrm1!ID

Set RS = UFrm2.RecordsetClone

If RS.RecordCount > 0 Then

RS.FindFirst Krit

If Not RS.NoMatch Then UFrm2.Bookmark = RS.Bookmark

End If

RS.Close

End if

End If

Me!UFO2.Visible = Not Tmp

Me!UFO1.Visible = Tmp

end sub





Für "ID" musst du den Primärschlüssel der Datenherkunft der Unterformulare nehmen.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: