Skip to main content

AccessTr.neT


kaydet butonu kayıttan sonra yeni kayıt açsın

kaydet butonu kayıttan sonra yeni kayıt açsın

Çözüldü #1
merhaba. forumda ve nette bulamadım bir örneğini;

kaydet butonu tıklandıktan sonra, formdaki tüm alanlar boş olmadığında veriyi kaydetsin kaydedildi uyarısı versin ve
aynı form tekrar yeni kayıt açsın. bu mümkün mü?

mümkünse eklemem gerekenler nelerdir. teşekkürler.

kaydet butonu tıklandığındaki kodlar;


If IsNull(Me.alistarihi) Then
MsgBox ("Alış Tarihi alanı boş bırakılamaz")
Me.alistarihi.SetFocus
ElseIf IsNull(imeino) Then
MsgBox ("imei no alanı boş bırakılamaz")
Me.imeino.SetFocus
ElseIf IsNull(markaadi) Then
MsgBox ("marka adı alanı boş bırakılamaz")
Me.markaadi.SetFocus
ElseIf IsNull(modeladi) Then
MsgBox ("model adı alanı boş bırakılamaz")
Me.modeladi.SetFocus
ElseIf IsNull(tedarikturu) Then
MsgBox ("Tedarik Türü alanı boş bırakılamaz")
Me.tedarikturu.SetFocus
ElseIf IsNull(alisfiyati) Then
MsgBox ("Alış Fiyatı alanı boş bırakılamaz")
Me.alisfiyati.SetFocus
ElseIf IsNull(satisilkfiyati) Then
MsgBox ("Satış Fiyatı alanı boş bırakılamaz")
Me.satisilkfiyati.SetFocus
Else
Me.Gmarka = ""
Me.GModel = ""
MarkaModelGuncelle
DoCmd.RunCommand acCmdSaveRecord
End If
.rar telefon.rar (Dosya Boyutu: 55,75 KB | İndirme Sayısı: 20)
Son Düzenleme: 15/01/2014, 01:37, Düzenleyen: miCRoBe`.
Cevapla
Çözüldü #2
 DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec

yazınız...
Please return your positive or negative ...
Cevapla
Çözüldü #3
sayın power teşekkür ederim.
bu kodu mevcut olan kodlardan sonra ekledim -end if- den sonra.. ve çalıştı..
kod konusunda bir bilgim yok, doğru şekilde mi ekledim? bu eklediğim şekilde çalışması normal midir?


MsgBox "Kaydedildi..", vbInformation
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Cevapla
Çözüldü #4
kodun tamamı aşağıdaki gibi olmalı

If IsNull(Me.alistarihi) Then
MsgBox ("Alış Tarihi alanı boş bırakılamaz!")
Me.alistarihi.SetFocus
ElseIf IsNull(imeino) Then
MsgBox ("Imei No alanı boş bırakılamaz!")
Me.imeino.SetFocus
ElseIf IsNull(markaadi) Then
MsgBox ("Marka Adı alanı boş bırakılamaz!")
Me.markaadi.SetFocus
ElseIf IsNull(modeladi) Then
MsgBox ("Model Adı alanı boş bırakılamaz!")
Me.modeladi.SetFocus
ElseIf IsNull(tedarikturu) Then
MsgBox ("Tedarik Türü alanı boş bırakılamaz!")
Me.tedarikturu.SetFocus
ElseIf IsNull(alisfiyati) Then
MsgBox ("Alış Fiyatı alanı boş bırakılamaz!")
Me.alisfiyati.SetFocus
ElseIf IsNull(satisilkfiyati) Then
MsgBox ("Satış Fiyatı alanı boş bırakılamaz!")
Me.satisilkfiyati.SetFocus
Else
Me.Gmarka = ""
Me.GModel = ""
MarkaModelGuncelle
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Kaydedildi..", vbInformation, "Kaydedildi"
DoCmd.GoToRecord , , acNewRec
End If
Cevapla
Çözüldü #5
teşekkür ederim. sağolun.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da