Why doesn;t it fill in all the items?

  • Thread starter Thread starter Van T. Dinh
  • Start date Start date
OOPS! Did it again! Very very sorry :-(
Henro

Van T. Dinh said:
We'll wait until the 6 Jan (my date/time) before we answer.

--
Van T. Dinh
MVP (Access)



Henro said:
Can anyone tell me why in the following code only the begindate (dtWhen) is
added?

Private Sub Form_AfterInsert()

With Me.RecordsetClone

For dtwhen = Me.Begindatum + 1 To Me.Einddatum
.AddNew
![Omschrijving] = Me.Omschrijving
![Relatie] = Me.Relatie
![Omschrijving] = Me.Omschrijving
![2e Engineer] = Me.Ctl2e_Engineer
![Engineer] = Me.Engineer
![AgendaItem] = Me.AgendaItem
![Einddatum] = Me.Einddatum
![Begindatum] = dtwhen
.Update
Next
End With
End Sub

TIA Henro
Click to expand...
Click to expand...
 
Can anyone tell me why in the following code only the begindate (dtWhen) is
added?

Private Sub Form_AfterInsert()

With Me.RecordsetClone

For dtwhen = Me.Begindatum + 1 To Me.Einddatum
.AddNew
![Omschrijving] = Me.Omschrijving
![Relatie] = Me.Relatie
![Omschrijving] = Me.Omschrijving
![2e Engineer] = Me.Ctl2e_Engineer
![Engineer] = Me.Engineer
![AgendaItem] = Me.AgendaItem
![Einddatum] = Me.Einddatum
![Begindatum] = dtwhen
.Update
Next
End With
End Sub

TIA Henro
 
Back
Top