Kod:
Private Sub Komut32_Click()
Dim GTarih As Date
Dim GSayi As Integer
DoCmd.SetWarnings False
If Me.Onay82 = False Then
For GSayi = 0 To CLng(Me.Metin44) - CLng(Metin43) - 0
GTarih = CDate(Format(DateAdd("d", GSayi, Me.Metin43), "dd/mm/yyyy"))
DoCmd.RunSQL "INSERT INTO Tablo1 (kisi_id, Tarih) VALUES (" & id & ",#" & Format(GTarih, "yyyy-mm-dd") & "#)"
Next
Else
Tyil = CLng(Format(Me.Metin44, "yyyy")) - CLng(Format(Metin43, "yyyy"))
Tay = CLng(Format(Me.Metin44, "mm")) - CLng(Format(Metin43, "mm"))
ToplmAy = Tyil * 12 + Tay
For GSayi = 0 To ToplmAy - 1
GTarih = CDate(Format(DateAdd("m", GSayi, Me.Metin43), "dd/mm/yyyy"))
DoCmd.RunSQL "INSERT INTO Tablo1 (kisi_id, Tarih) VALUES (" & id & ",#" & Format(GTarih, "yyyy-mm-dd") & "#)"
Next
End If
DoCmd.SetWarnings True
Me.Tablo1_Alt_Form.Requery
End Sub