Positionsnummern in Unterformular

[trebuh]

Hallo Marco,

Das klingt gut. Wie lege ich die an?

Um auf Deine Frage zurückzukommen...

Nun... Wenn Du die Anzahl der Bestellungen eingibst, müsstest Du eine Anfügeabfrage in Deine Tabelle von vom Unterformular Deines Wareneingangs per VBA starten und die entprechenden Parameter übergeben.
Und die Schleife durchläuft entsprechend der Anzahl Bestellungen durch.

Einziger Haken... Wenn Du Dich z.B. Vertippt hast, und die Anzahl im Nachhinein änderst, dann muss Deine Tabelle entsprechend korrigiert werden, weil ja sonst weiterhin angefügt wird.

Im Netz kannst Hinweise zu "Anfügeabfrage mit Parameter" finden.

Gruß
Hubert

[bigbill]

Hallo Hubert,

Nun... Wenn Du die Anzahl der Bestellungen eingibst, müsstest Du eine Anfügeabfrage in Deine Tabelle von vom Unterformular Deines Wareneingangs per VBA starten und die entprechenden Parameter übergeben.
Und die Schleife durchläuft entsprechend der Anzahl Bestellungen durch.


Im Netz kannst Hinweise zu "Anfügeabfrage mit Parameter" finden.

Ich hab mir das mal angeschaut... 
Kannst du mir da irgendwie helfen?

[bigbill]

Anfügeabfrage hab ich erstellt.
So weit so gut.
Wie mach ich das jetzt mit VBA?

[Beaker s.a.]

Hallo Marco,

Wie mach ich das jetzt mit VBA?

Code [Auswählen] Erweitern

CurrentDb.Execute "DeineAbfrage", dbFailOnError
gruss ekkehard

[bigbill]

Hallo Marco,

Wie mach ich das jetzt mit VBA?

Code [Auswählen] Erweitern

CurrentDb.Execute "DeineAbfrage", dbFailOnError
gruss ekkehard

Ich bräuchte das etwas ausführlicher bitte. Wie schon gesagt bin ich Anfänger.

[Beaker s.a.]

Hallo Marco,
Hilft dies? http://www.donkarl.com?FAQ6.16
gruss ekkehard

[jagger]

Hallo Bigbill,

Du musst das

Code [Auswählen] Erweitern

CurrentDb.Execute "DeineAbfrage", dbFailOnError

durch ein Ereignis auslösen.
Vielleicht "nach Aktualisierung" in (D)einem Textfeld
oder durch Klick auf einen Button "Beim Klicken" auf die (...) klicken.

Wenn dann Parameter verlangt werden: siehe Beaker s.a.
einen Post höher. http://www.donkarl.com?FAQ6.16

LG
jagger

[tismo]

Versuch mal:

Code [Auswählen] Erweitern

On Error GoTo ErsterDatensatz
  If IsNull(Me!Position) Then
     Me.RecordsetClone.MoveLast
     Me!Position = Me.RecordsetClone![Position] + 1
  End If

  Exit Sub
ErsterDatensatz:
  Me!Position = 1
 

Code einfügen in 'vor Eingabe'

[bigbill]

Hallo Leute,

Ich habe jetzt im Formular Bestellungen im Textfeld "Anzahl Positionen" den Code von Beaker s.a eingefügt.
Ausserdem im UfO den Code von tismo, leicht abgeändert.
Das hat keine Auswirkungen auf das UfO im Formular Wareneingang
Die Frage ist, wie die Zahl, die ich ins Textfeld eingebe hier verknüpft wird.
Denn die soll ja Anzahl an Positionen übergeben.

Jemand eine Idee?