Datenavigation im Unterformular

Computer: Software & Programmierung Microsoft Access
#1

Ich habe folgendes problem wenn ich in VB auf ein Unterformular schreiben wil ist das kein probem aber er schreibt mir immer nur in den ersten datensatz wenn ich einen Neuen Datensatz anlegen will sagt er mier nachher daß das Unterformular nicht geöfnet ist ob wohl er eine zeile forher in dieses Formular geschrieben hat

Private Sub Liste4_Click()
Dim intMesg As Integer
Dim curPreis As Currency
Dim varAbbruch As Variant, varBenM As Variant
Dim sinMenge As Single, sinPakungsGr As Single

If Not IsNull(Me.ListeVPE) Then
sinPakungsGr = Me.ListeVPE
varBenM = InputBox(„Bitte Geben sie die benötigte menge an“, „Mengeneingabe“, „1“)
If varBenM > „“ Then
If Me.Liste4.Column(2) > „“ Then
curPreis = Me.Liste4.Column(2)
End If
If Not IsNull(Me.ListeVPE.Column(3)) Then
sinPakungsGr = Me.ListeVPE.Column(3)
Else
sinPakungsGr = „1“
End If

Me.BestellungsdetailsSub!IDArtikelnummer = Me.ListeVPE
Me.BestellungsdetailsSub.SetFocus
Me.Form.Application.DoCmd.GoToRecord , „BestellungsdetailsSub“, acNewRec
Else
varAbbruch = MsgBox(„Treffen sie erneut ihre Auswahl“, vbOKOnly, „Abbruch“)
End If
Else
intMesg = MsgBox(„Wählen sie die Artikel neu aus“, vbOKOnly, „Fehler bei der Auswahl“)
End If
End Sub

#2

Habe es schon selber herausgefunden

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Habe es schon selber herausgefunden

Fein. Müssen wir anderen jetzt dumm sterben? Nicht, dass ich neugierig wäre, aber gewusst hätte ich es schon ganz gerne.

Gruß kw

#4

Ich hatte das problem das ich nicht auf ein geöfnetes unterformular zugreifen und im selben formular datensätze wechseln konte.

es liegd daran das man erst den focus setzen muß.

z.B. :
Me.BestellungsdetailsSub!IDArtikelnummer.setfocus

danach kann man im Untrformular Navigieren mit dem comandbefehl
On Error Resume Next
DoCmd.RunCommand acCmdRecordsGoToNew
der on eror befehl ist wichtig weil er beim ersten zugang schon in einem neuen Datensatz steht

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]