Formulare synchronisieren

28/03/2008 - 11:16 von Frank Pullar | Report spam
Hallo NG,

A97.

Hfo und Ufo sind nicht miteinander verknüpft. Sie haben jedoch gleiche
Datengrundlage.

Im Hfo befindet ein Kombinationsfeld. Wenn man nun im Kombinationsfeld eine
Auswahl trifft, soll im Ufo der entsprechende Datensatz angezeigt werden.

Hier mein Versuch mit Hilfe von FAQ 4.3:

Dim rs As DAO.Recordset
Set rs = Forms!Spediteur_Firma_sfrm.RecordsetClone

'im RecordsetClone von Spediteur_Firma_sfrm die Id aus dem aktuellen
Formular finden
rs.FindFirst "[Sped_Id] = " & Me![Sped_cbo].Column(0)
If Not rs.NoMatch Then
'Anzeige im Spediteur_Firma_sfrm mit dessen RecordsetClone
synchronisieren
Forms!Spediteur_Firma_sfrm.Bookmark = rs.Bookmark
End If

Set rs = Nothing

'Kombinationsfeld aktualisieren
Me!Sped_cbo.Requery

End Sub

Was mache ich falsch?

Gruß

Frank
 

Lesen sie die antworten

#1 Karl Donaubauer
28/03/2008 - 12:15 | Warnen spam
Frank Pullar wrote:
A97.

Hfo und Ufo sind nicht miteinander verknüpft. Sie haben jedoch gleiche
Datengrundlage.

Im Hfo befindet ein Kombinationsfeld. Wenn man nun im
Kombinationsfeld eine Auswahl trifft, soll im Ufo der entsprechende
Datensatz angezeigt werden.

Hier mein Versuch mit Hilfe von FAQ 4.3:

Dim rs As DAO.Recordset
Set rs = Forms!Spediteur_Firma_sfrm.RecordsetClone

'im RecordsetClone von Spediteur_Firma_sfrm die Id aus dem aktuellen
Formular finden
rs.FindFirst "[Sped_Id] = " & Me![Sped_cbo].Column(0)
If Not rs.NoMatch Then
'Anzeige im Spediteur_Firma_sfrm mit dessen RecordsetClone
synchronisieren
Forms!Spediteur_Firma_sfrm.Bookmark = rs.Bookmark
End If

Set rs = Nothing

'Kombinationsfeld aktualisieren
Me!Sped_cbo.Requery

End Sub

Was mache ich falsch?



Du schreibst nicht, was und wo das Problem ist. ;-)
Wahrscheinlich bekommst du bereits bei der Zuweisung an das
rs eine aussagekràftige Fehlermeldung, weil der Bezug nicht
stimmen kann. Falls "Spediteur_Firma_sfrm" der Name des
UFo-Steuerelementes im HFo ist, dann:

Set rs = Me!Spediteur_Firma_sfrm.Form.RecordsetClone

unten dann wieder die Form-Eigenschaft des UFos ansprechen:

Me!Spediteur_Firma_sfrm.Form.Bookmark = rs.Bookmark

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK
Nürnberg 12./13.4. + 19./20.4.2008

Ähnliche fragen