H Henro Dec 24, 2003 #2 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...
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...
H Henro Jan 5, 2004 #3 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
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