Hatanın sebebi, aynı kodun birden fazla kullanılmasından kaynaklanıyor. Bir denetim için herhangi bir olay yordamını sadece 1 defa yazabilirsiniz.
Private Sub Son_Kayıt_Click() olayı iki defa yazılmış. Aynı şekilde birden fazla yazılan olay yordamları mevcut.

Daha önce bağlantısını eklediğim örnek uygulamadır. İstediğiniz değişiklikleri yapabilirsiniz.

    Dim outobj As Outlook.Application

    Dim outappt As Outlook.AppointmentItem

    



    

    Sql = "SELECT *, randevueklendi From tbl_randevu WHERE (((randevueklendi)=False));"

    Set rsg = CurrentDb.OpenRecordset(SQL)





    rsg.MoveFirst



    Do Until rsg.EOF = True



    Set outobj = CreateObject("outlook.application")

    Set outappt = outobj.CreateItem(olAppointmentItem)



            

            With outappt

                .Start = CDate(rsg!randevutarihi) & " " & CDate(rsg!randevusaati)

                .Duration = rsg!sure * rsg!sureperiyodu

                .Subject = rsg!konu

                .Body = rsg!randevumetni

                .Location = rsg!konum



                If Len(rsg!hatirlatici) > 0 Then

                    .ReminderMinutesBeforeStart = rsg!hatirlatici * rsg!hatirlaticiperiyodu

                    .ReminderSet = True

                Else

                    .ReminderMinutesBeforeStart = 0

                    .ReminderSet = False

                End If

                    .Save

        End With

 

Set outobj = Nothing



rsg.MoveNext

Loop

Üstteki kod, randevu tablosundaki randevueklendi onay kutusu işaretsiz olan tüm kayıtları kaydeder.