Lege records toevoegen

[Blackzylon]

Hallo acces goeroes,

Ik zit met een probleem, hopelijk hebben jullie raad.

Ik heb 2 tabellen Orders en Produktie. Beide tabellen zijn gerelateerd aan elkaar met het veld ProduktID (1 op veel)

Nu wil ik graag als er een bestelling van 10 exemplaren wordt ingevoerd van een bepaald produkt (in orders) dat er in de tabel produktie 10 lege records worden aangemaakt.

Enig idee hoe dit te doen is. ?

 

[makaai]

Hallo,

Dat kan je met de volgende code doen:

• 
  Dim i As Integer
  Dim db As Database
  Dim rst As Recordset
  
  Set db = CurrentDb
  Set rst = db.OpenRecordset("Produktie")
  
  For i = 1 to 6
  rst.AddNew
  rst.Update
  next i
  
  rst.Close
  db.Close
  
  Set rst = Nothing
  Set db = Nothing
  

Waar ik wel benieuwd naar ben, is waarom je deze lege regels in je tabel wil hebben.

Makaai

 

[Blackzylon]

De reden is...

De reden is dat de mensen in de produktie kunnen zien wat er geproduceerd moet worden.
Maar wat eigenlijk belangrijker is dat ze per geproduceerd exemplaar de produktie datum, produktie-uren en serienummer kunnen invoeren. En welke produktie medewerker het gemaakt heeft.

In geval van garantie kan later teruggezocht worden wie en wanneer het gemaakt heeft.
En het managment vindt het belangrijk om inzicht te krijgen hoeveel uren er op een produkt geboekt worden.
Dit kan zo op een simpele manier uit de tabel produktie gehaald worden.