If Form.Dirty = True Then
If MsgBox("Yapılan Seçimler Kaydedilsin mi?", vbInformation + vbYesNo, "Kaydediliyor...") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO isleyis ( kazanimlar, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys ) SELECT alanlar, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys FROM tbl_gecici WHERE (((tbl_gecici.id)=[Formlar]![frm_degerlendirmeyap]![Kimlik]) AND (([performans] & [amaclar]) Like '*' & '-1' & '*'));"
DoCmd.RunSQL "INSERT INTO tbl_degerlendirmeler ( id, beceriid, alanlar, PERFORMANS, amaclar, altbaslikid, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys, hazrn ) SELECT id, beceriid, alanlar, performans, amaclar, altbaslikid, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys, hazrn FROM tbl_gecici WHERE (((tbl_gecici.id)=[Formlar]![frm_degerlendirmeyap]![Kimlik]) AND (([performans] & [amaclar]) Like '*' & '-1' & '*'));"
Forms!frm_degerlendirmeyap!frm_degerlendirmealtform.Form.Requery
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecici;"
DoCmd.SetWarnings True
DoCmd.Close
Else
DoCmd.Close
End If
Else
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecici;"
DoCmd.Close
End If
Ek olarak, son defa Site Kurallarını hatırlatayım. Sonrakilerde ("Sürekli İhlal") uyarı puanı alacaksınız. Önceki mesajlarınız birleştirildi, eski örnek silindi.
Site Kuralları:
1d) Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız.
Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi Resimli Anlatım
14b) Açmış olduğunuz konuya cevap yazılmamış ise konuyu hatırlatmak ve/veya konunuzu üst sıraya taşımak için konunuza tekrar mesaj yazabilirsiniz. Daha önceden eklenmiş dosyayı tekrar eklemeyiniz. Konunuzda bulunan “Düzenle” butonunu kullanarak eski dosyanızı değiştirebilirsiniz.