kayıtta değişiklik olup olmadığını kontrol için
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim response As Integer

response = MsgBox("Değişiklikleri kaydetmek istermisiniz?", vbYesNo + vbCritical, "Kaydetme")

If response = vbNo Then
Me.Undo
Cancel = True

End If

Selamlar.

tblDENEME adlı bir tablomuz var olsun.


Bir form un komut düğmesinden tblDENEME adlı tabloda SHS_NKOILCEKODU adlı alan var mı yok mu kontrolü yapılabilir mi?
Eğer yok ise tblDENEME adlı tabloya yeni alan eklenip (metin, 6 karakter uzunluğunda) alan adı varsayılan yerinde SHS_NKOILCEKODU olarak değiştirlebilir mi?

Saygılarımla

http://www.egitimofis.com/Video/637966.flv

http://www.egitimofis.com/Video/532223.flv

http://www.egitimofis.com/Video/888134.flv

http://www.egitimofis.com/Video/681805.flv

http://www.egitimofis.com/Video/409817.flv

http://www.egitimofis.com/Video/807308(1).flv


Not:Bu videonun izlenemiyor.
bu videoyu indirin.

bu adresi : http://www.egitimofis.com/Video/807308(1).flv

i.e adres satırana yazıp enter tuşuna basın ve bilgisayarınıza indirin.

videonun izlenilmemesi sistemden kaynaklanıyor. 807308(1).flv parantez içindeki
1 den dolayı video izlenilmiyor.

kodum şu şekilde

Private Sub Komut12_Click()

DoCmd.SetWarnings False

DoCmd.OpenQuery "s_mkn_AylikDataTemizle"

DoCmd.OpenQuery "s_mkn_AylikDataYap"

End Sub

 s_mkn_AylikDataYap sorgum t_aylikgeciciDatalar diye bir tablo oluşturuyor.
[size=small][font=Monaco, Consolas, Courier, monospace]fakat [size=small][font=Monaco, Consolas, Courier, monospace]t_aylikgeciciDatalar tablosu daha önceden oluşturulmamışsa komut çalışmıyo

hemen Dirty ve BeforeUpdate i kastetmediğimi söyleyeyim
bir kaydı açtık bir şeyler değiştirdik ve telefon geldi muhabbet uzadı. kayıtta yaptığımız değişiklikler belki önemli belki değil 
son girilen veriden sonra zaman çalışmaya başlasa mesela bir dk içinde hiç veri girişi olmazsa 
(option buton tıklanması falan ne varsa hepsi dahil olmak üzere)
bilgisayar huylanıp bize sorsa 
"Abi devam etmeyeceksen istersen bu haliyle kaydedeyim veya sonra yaparsın değişikliğini bütün değişikliği geri alayım"