Kod:
Private Sub Komut14_Click()
If MsgBox("Bildirimi Servis Formuna aktarmak istiyor musunuz?", vbYesNo, "Aktarım Onay") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ServisGiris ( BildirimID, [Servis Tarihi], Şantiye, Perosnel, MakinaID ) SELECT ArızaBildirimAnaTablo.[Bildirim ID], ArızaBildirimAnaTablo.[Bildirim Tarihi], ArızaBildirimAnaTablo.Şantiye, ArızaBildirimAnaTablo.Personel, ArızaBildirimAnaTablo.[Makina ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
DoCmd.RunSQL "INSERT INTO ServisGirisAltForm ( [Bildirim ID], [Servis ID], [Parça Adı], [Bildirim Açıklaması], [Durumu] ) SELECT ArızaBildirimAltForm2.[Bildirim ID], DLookUp('[ServisID]','ServisGiris','[BildirimID]=' & [Bildirim ID]) AS X, DLookUp('[Makina Tam Adı]','YedekMakina','[Parça ID]=' & [Parça Adı]) AS Y, ArızaBildirimAltForm2.Açıklama, ArızaBildirimAltForm2.Durumu FROM ArızaBildirimAltForm2 WHERE (((ArızaBildirimAltForm2.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
DoCmd.SetWarnings True
If MsgBox("Bildirim Servis Formuna aktarıldı, Bildirim silinsin mi?", vbYesNo, "Silme Onayı") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete ArızaBildirimAnaTablo.[Bildirim ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
DoCmd.SetWarnings True
End If
If MsgBox("Aktarım ve silme işlemi yapıldı Form açılsın mı?", vbYesNo, "Form Aç") = vbYes Then
DoCmd.OpenForm "ServisGirisFormu", , , "[BildirimID]=" & [Liste0]
End If
Me.Liste0.Requery
End If