Forums Neueste Beiträge
 

markierte Datensätze im Unterformular

21/05/2009 - 18:53 von Ahmed Martens | Report spam
Hallo Leute,

ich habe wieder einmal ein Problem.

Ich möchte in einem Unterformular Datensàtze über den Datensatzmakierer
auswàhlen. Diese markierten Datensàtze sollen jetzt über eine
Schaltflàche im Hauptformular dupliziert werden.

Ohne die SelTop, SelHeigh-Anweisung bekomme ich es zumindest schon
einmal hin, dass der aktive Datensatz kopiert wird. Das ist aber nervig.

Vielleicht hat ja jemand ein Idee.


SelTop scheint den richtigen Wert auszuwerfen.
Dritter Datensatz => SelTop = 3

SelHeight ist aber immer 0.
Kann es sein, dass das gar nicht geht, da sobald ich auf den Button
klicke, die Markierungen aufgehoben werden?

[Code]

Private Sub cmdAdd_Click()
Dim rec As Recordset
Dim i As Long
Dim F As Form

' Verweis auf das Unterformular
Set F = Me!frmBaustellendetail.Form

Set rec = Me!frmBaustellendetail.Form.RecordsetClone

rec.Move F.SelTop - 1

For i = 1 To F.SelHeight

With rec
.AddNew
!BaustellenNr = Me![frmBaustellendetail]!BaustellenNr
!KdNr = Me![frmBaustellendetail]!KdNr
!PosNr = Nz(DMax("[PosNr]", "[tblBaustellendetail]",
"[BaustellenNr] = " & Me![frmBaustellendetail]!BaustellenNr), 0) + 1
!Pos_Beschreibung Me![frmBaustellendetail]!Pos_Beschreibung
!Menge = Me![frmBaustellendetail]!Menge
!Einzelpreis = Me![frmBaustellendetail]!Einzelpreis
.Update
End With


Next i


Me.Refresh

Set rec = Nothing

F.SetFocus
Menge.SetFocus
DoCmd.GoToRecord acActiveDataObject, , acLast

End Sub


[/Code]

Danke schon einmal im voraus.

Gruß Ahmed

Antworten bitte nur in der Newsgroup
 

Lesen sie die antworten

#1 Ahmed Martens
21/05/2009 - 19:21 | Warnen spam
Hallo Leute,

hat sich erledigt. Ich habe es jetzt mit Hilfsfunktionen gelöst.
Für Leute mit gleichen Problemen, die finden hier die Lösung:

http://support.microsoft.com/kb/208502/de

Wichtig ist der Abschnitt mit den Unterformularen und den Mouse-Events.
Allerdings habe ich es nicht hinbekommen, dass er das Unterformular
erkennt. Aus diesem Grunde habe ich es einfach in die Funktion
verschoben.

Jetzt funktioniert alles absolut tadellos.
Das Leben kann so einfach sein.

Gruß Ahmed

Antworten bitte nur in der Newsgroup

Ähnliche fragen