Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

formda sadece kaydet butonunun kaydetmesi

miCRoBe`
miCRoBe`
Access Cevaplanmış Soruları
23
9987

formda sadece kaydet butonunun kaydetmesi

Çözüldü #23
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/07/2025,21:49
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur 
 DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"

bu kodun üstüne 
 DoCmd.SetWarnings False
altına da 
 DoCmd.SetWarnings True
kodu ekleyiniz.


Formun kayıt kaynağını aşağıdaki ile değiştirirsen daha iyi olacak gibi.

SELECT satislar.*, alislar.Satildi FROM satislar INNER JOIN alislar ON satislar.alisid = alislar.alisid WHERE (((alislar.Satildi) Is Null));


Birde, kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştir.

DoCmd.SetWarnings False
Dim strSQL, stfyt, msblg As String
If IsNull(Me.satisfiyati) Then stfyt = MsgBox("Satış Fiyatını Girmeden Kaydedemezsiniz!!!", 64, "Satış Fiyatını Girmeden Kayıt yapamazsınız"): Me.satisfiyati.SetFocus: Exit Sub
If IsNull(Me.musteribilgi) Then msblg = MsgBox("Müşteri Bilgilerini Girmeden Kaydedemezsiniz!!!", 64, "Müşteri Bilgilerini Girmeden Kayıt yapamazsınız"): Me.musteribilgi.SetFocus: Exit Sub
DoCmd.RunSQL "UPDATE alislar SET [Satildi] = -1 WHERE [imeiid]=" & Me.imeiid.Value & ";"
DoCmd.SetWarnings True
Me.satisfiyati.Enabled = False
Me.satistarihi.Enabled = False
Me.musteribilgi.Enabled = False
MsgBox "Satış Gerçekleşti..."
Me.SatilacakTelefonlar.Requery
Requery
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: formda sadece kaydet butonunun kaydetmesi - Yazar: ozanakkaya - 25/01/2014, 22:35
Task