12/12/2010, 16:19
Arkadaslar Merhaba,
Bir form uzerinde, kaydet, kapat, gibi komutlar mevcut.
Burada ki kodlar;
kaydet kodu:
*****************
If MsgBox("Deðiþiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Me.Undo
End If
*****************
Bu kod form da ki dongu tamamlandigi zaman, kaydet butonunu tiklayinca NO desek de yapilan degisikligi kaydediyor. Halbuki o form uzerinde yapilan degisiklikler dongu tamamlansa dahi kaydedilmemeli, ancak kaydet butonuna basilinca kaydet e EVET denirse kaydedilmeli. Ayni sekilde KAPAT butonunda da ayni sey soz konusu;
soyle ki
*******************************8
If MsgBox("Deðiþiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYesNo Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer36
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Me.Undo
DoCmd.Close
End If
End Sub
****************
Burada da kapat butonunu tiklayinca sordugu soruya evet dersek yapilan degisiklikleri kayetmesi, hayir dersek kaydetmemesi gerekiyor. Ama burada da yukarida oldugu gibi dongu tamamlanmissa bu evet ve hayirin bir anlami olmuyor. Ben bu iki komutun kodlarinda; dongu nerde olursa olsun kayit kacinci kayitda olursa olsun o firm acildiginda yapilan yapilan degisiklikleri, form kapanirken sordugu soruya evet dersem yapilan degisiklikler kaydedilsin, hayir dersem yapilan tum degisiklikler kaydedilmesin. ayni sekilde kapat komutu icin de bu gececerli bu konuda lutfen yazdimci olabilirmisiniz.
Saygilar
Subco
Bir form uzerinde, kaydet, kapat, gibi komutlar mevcut.
Burada ki kodlar;
kaydet kodu:
*****************
If MsgBox("Deðiþiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Me.Undo
End If
*****************
Bu kod form da ki dongu tamamlandigi zaman, kaydet butonunu tiklayinca NO desek de yapilan degisikligi kaydediyor. Halbuki o form uzerinde yapilan degisiklikler dongu tamamlansa dahi kaydedilmemeli, ancak kaydet butonuna basilinca kaydet e EVET denirse kaydedilmeli. Ayni sekilde KAPAT butonunda da ayni sey soz konusu;
soyle ki
*******************************8
If MsgBox("Deðiþiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYesNo Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer36
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Me.Undo
DoCmd.Close
End If
End Sub
****************
Burada da kapat butonunu tiklayinca sordugu soruya evet dersek yapilan degisiklikleri kayetmesi, hayir dersek kaydetmemesi gerekiyor. Ama burada da yukarida oldugu gibi dongu tamamlanmissa bu evet ve hayirin bir anlami olmuyor. Ben bu iki komutun kodlarinda; dongu nerde olursa olsun kayit kacinci kayitda olursa olsun o firm acildiginda yapilan yapilan degisiklikleri, form kapanirken sordugu soruya evet dersem yapilan degisiklikler kaydedilsin, hayir dersem yapilan tum degisiklikler kaydedilmesin. ayni sekilde kapat komutu icin de bu gececerli bu konuda lutfen yazdimci olabilirmisiniz.
Saygilar
Subco