Endlosformular aktualisieren - Versionsgeschichte

Josef Pötzl um 12:17, 15. Aug. 2016

Josef Pötzl — Mon, 15 Aug 2016 12:17:46 GMT

← Nächstältere Version		Version vom 12:17, 15. Aug. 2016
Zeile 20:		Zeile 20:
	Dim strCriteria As String		Dim strCriteria As String

-	If IsNumeric(BookmarkID_Value) Then ' Achtung: Datum-ID nicht berücksichtigt (eventuell eleganter: Datentyp als Parameter mitgeben)	+	If IsNumeric(BookmarkID_Value) Then ' Achtung: Datum als ID nicht berücksichtigt (eventuell eleganter: Datentyp als Parameter mitgeben)
	strCriteria = BookmarkID_Name & "=" & BookmarkID_Value		strCriteria = BookmarkID_Name & "=" & BookmarkID_Value
	Else		Else

Josef Pötzl — Mon, 15 Aug 2016 12:17:30 GMT

← Nächstältere Version		Version vom 12:17, 15. Aug. 2016
Zeile 20:		Zeile 20:
	Dim strCriteria As String		Dim strCriteria As String

-	If IsNumeric(BookmarkID_Value) Then	+	If IsNumeric(BookmarkID_Value) Then ' Achtung: Datum-ID nicht berücksichtigt (eventuell eleganter: Datentyp als Parameter mitgeben)
	strCriteria = BookmarkID_Name & "=" & BookmarkID_Value		strCriteria = BookmarkID_Name & "=" & BookmarkID_Value
	Else		Else
Zeile 48:		Zeile 48:

	Mit diesem Ablauf ist aber nicht sichergestellt, dass auch die Position des aktuellen Datensatzes erhalten bleibt.		Mit diesem Ablauf ist aber nicht sichergestellt, dass auch die Position des aktuellen Datensatzes erhalten bleibt.
-	Und das zu erreichen,kann die API-Funktion SendMessage mit WM_VSCROLL und SB_LINEUP/SB_LINEDOWN verwendet werden.	+	Und das zu erreichen, kann die API-Funktion SendMessage mit WM_VSCROLL und SB_LINEUP/SB_LINEDOWN verwendet werden.

	==== Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage ====		==== Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage ====

Josef Pötzl — Sat, 13 Nov 2010 13:48:02 GMT

← Nächstältere Version		Version vom 13:48, 13. Nov. 2010
Zeile 1:		Zeile 1:
-	~~[[Kategorie:Code-Schnipsel]]~~
	{{Hierarchy header}}		{{Hierarchy header}}
		+	[[Kategorie:Code-Schnipsel]]
	Wenn bei einem Endlosformular ein Requery ausgeführt wird, erhält der erste Datensatz im Formular-Recordset den Fokus.		Wenn bei einem Endlosformular ein Requery ausgeführt wird, erhält der erste Datensatz im Formular-Recordset den Fokus.

Josef Pötzl — Sat, 13 Nov 2010 13:47:42 GMT

← Nächstältere Version		Version vom 13:47, 13. Nov. 2010
Zeile 1:		Zeile 1:
		+	[[Kategorie:Code-Schnipsel]]
	{{Hierarchy header}}		{{Hierarchy header}}
	Wenn bei einem Endlosformular ein Requery ausgeführt wird, erhält der erste Datensatz im Formular-Recordset den Fokus.		Wenn bei einem Endlosformular ein Requery ausgeführt wird, erhält der erste Datensatz im Formular-Recordset den Fokus.

Josef Pötzl — Tue, 04 May 2010 15:33:55 GMT

← Nächstältere Version		Version vom 15:33, 4. Mai 2010
Zeile 71:		Zeile 71:
	Dim lngPos As Long, lngPosDiff As Long		Dim lngPos As Long, lngPosDiff As Long
	Dim lngDirection As Long		Dim lngDirection As Long
		+	Dim ctl As Control
	Dim i As Long		Dim i As Long

Josef Pötzl — Tue, 04 May 2010 09:55:33 GMT

← Nächstältere Version		Version vom 09:55, 4. Mai 2010
Zeile 131:		Zeile 131:
	</source>		</source>

-	Anwendung:	+	Anwendung aus Endlosformular:
	<source>		<source>
	RequeryFormData Me, "ID", Me.EinSteuerelementImDetailbereich		RequeryFormData Me, "ID", Me.EinSteuerelementImDetailbereich

Josef Pötzl — Tue, 04 May 2010 09:53:55 GMT

Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage

← Nächstältere Version		Version vom 09:53, 4. Mai 2010
Zeile 65:		Zeile 65:
	' DetailSectionControl ... Referenz auf Steuerelement im Detailbereich,		' DetailSectionControl ... Referenz auf Steuerelement im Detailbereich,
	' damit bei Bedarf der Fokus in den Detailbereich verlegt werden kann.		' damit bei Bedarf der Fokus in den Detailbereich verlegt werden kann.
-	' Wird keine Steuerelementreferenz übergeben, wird das "erstbeste" Steuerelement im Detailbereich ausgewählt	+	' Wird keine Steuerelementreferenz übergeben, wird das "erstbeste" Steuerelement
		+	' im Detailbereich ausgewählt

	Dim varIDValue As Variant		Dim varIDValue As Variant

Josef Pötzl — Tue, 04 May 2010 09:51:22 GMT

Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage

← Nächstältere Version		Version vom 09:51, 4. Mai 2010
Zeile 101:		Zeile 101:
	End If		End If

		+	'jetzt darf Requery ausgeführt werden
	frm.Requery		frm.Requery

-	If IsNull(varIDValue) ~~= False~~ Then	+	'DS und Position nur dann einstellen, wenn zuvor ein DS identifiziert werden konnte
		+	If Not IsNull(varIDValue) Then

	'zu Bookmark springen		'zu Bookmark springen

Josef Pötzl — Tue, 04 May 2010 09:49:53 GMT

Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage

← Nächstältere Version		Version vom 09:49, 4. Mai 2010
Zeile 91:		Zeile 91:
	lngPos = (frm.CurrentSectionTop - frm.Section(acHeader).Height) \ frm.Section(0).Height		lngPos = (frm.CurrentSectionTop - frm.Section(acHeader).Height) \ frm.Section(0).Height

		+	'Wert vom Datensatz-Identifizierer merken
	varIDValue = Null		varIDValue = Null
	If Len(DataSourceUniqueFieldName) > 0 Then		If Len(DataSourceUniqueFieldName) > 0 Then

Josef Pötzl — Tue, 04 May 2010 09:48:57 GMT

Hilfsfunktion RequeryFormData mit API-Aufruf von SendMessage

← Nächstältere Version		Version vom 09:48, 4. Mai 2010
Zeile 60:		Zeile 60:


-	Public Sub RequeryFormData(ByVal frm As Form, ByVal DataSourceUniqueFieldName As String, ByVal DetailSectionControl As Control)	+	Public Sub RequeryFormData(ByVal frm As Form, ByVal DataSourceUniqueFieldName As String, _
		+	Optional ByVal DetailSectionControl As Control = Nothing)
	' DataSourceUniqueFieldName ... Name eines eindeutigen Datenfeldes um den aktuellen Datensatz zu identifizieren		' DataSourceUniqueFieldName ... Name eines eindeutigen Datenfeldes um den aktuellen Datensatz zu identifizieren
	' DetailSectionControl ... Referenz auf Steuerelement im Detailbereich,		' DetailSectionControl ... Referenz auf Steuerelement im Detailbereich,
	' damit bei Bedarf der Fokus in den Detailbereich verlegt werden kann.		' damit bei Bedarf der Fokus in den Detailbereich verlegt werden kann.
		+	' Wird keine Steuerelementreferenz übergeben, wird das "erstbeste" Steuerelement im Detailbereich ausgewählt

	Dim varIDValue As Variant		Dim varIDValue As Variant