vba to write a record

[ccordner]

Hi

I'm quite new to programming vba in access, but I have two fields (txtDateFrom and txtDateTo) on a form. If the txtDateTo is empty, I just want to save the record to the table.



If there is a value in it, I want to save it and then create extra records for each day between the two dates (inclusive).

I have got as far as the code below, but don't really know where to go form here!

Thanks
Chris

Private Sub cmdAddLeave_Click()
DoCmd.RunCommand acCmdSaveRecord
If Not Len(Me.Me.txtDateTo & vbNullString) = 0 Then
    
    For LeaveDate = Me.txtDateFrom.Value + 1 To Me.txtDateTo.Value
        
    Next
Else
End Sub

[pbaldy]

This is doing something a little different, but the recordset portion of it is a way of doing what you want.

http://www.baldyweb.com/MultiselectAppend.htm