Append Query problem

See more:

MS-Access

VBA

Hello
I Write my self This Code it's not perfect but it do what I need to get

In result I getting a data place to two tables one tblLeave and second tblLeaveDate
First just recording a Leave by Employee Second its just a dates of the leave separated on separate day to make sure I can Track and also show in what they the leave appear ect

The problem is most of the time I need to update the dates of the Leave as ppl not coming back in the date added to the data base most of the time they just coming back later

I was thinking to use something like appended Query that's mean I will just create a Form from tblLeave and add a Sub Form from tblLeaveDate and I add a VBA Code what will append new dates to tblLeaveDates using ID of the Leave from tblLeave

But I don't relay know how to create Append Query by VBA any one can help and show me correct way to do that ??

I know I can create Query buy wizard then just assign it do the button but I want t learn VBA and ADO

Private Sub addRecord_Click()
  
    Dim db As Database
    Dim rs As Recordset
    Dim rs2 As Recordset
    Dim i As Integer
    Dim X As Integer
  
    'Connections
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblLeave")
    Set rs2 = db.OpenRecordset("tblLeaveDate")
    
    
    'Recognizing the ID
    
    X = db.OpenRecordset("SELECT @@Identity")(0)
    
      
     rs.AddNew
            
   'Checking if The Required fields was Full in
   
    If Shift = "" Then
    
        MsgBox "Employee Is Required"
        
    ElseIf txtEmployeeNr = "" Then
     
        MsgBox "Employee Is Required"
        
    ElseIf txtReasonType = "" Then
     
        MsgBox "Reason Type Is Required"
        
     Else
     'Checking for 0 As sometime @@Identity can place 0
        
    If X = 0 Then
    
       X = LastID + 1
    
    End If
   
        rs!LID = X
        rs!EmployeeNr = txtEmployeeNr
        rs!ReasonType = txtReasonType
        rs!Details = txtDetails
        rs!RTWCompleted = cheRTW
        rs!StartDate = txtStartDate
        rs!EndDate = DateofRTW
        rs!AddedBy = [Forms]![frmEmployeeList]![cboUser].Column(1)
        
        rs.Update
        
    For i = 0 To txtDays
        
    
        rs2.AddNew
        
        rs2!LID = X
        rs2!CalendarDate = txtStartDate + i
        
        
        rs2.Update
        
    Next i
        
                
    ' Clean Up and Close
    rs.Close
    rs2.Close
    
    Set rs = Nothing
    Set rs2 = Nothing
    Set db = Nothing
    
    MsgBox "The Adding Process was Successful"