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;

Visual Basic Code
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

Visual Basic Code
 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?

Visual Basic Code
MsgBox "Kaydedildi..", vbInformation
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec

Cevapla
Çözüldü #4
kodun tamamı aşağıdaki gibi olmalı

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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