kaydet butonu kayıttan sonra yeni kayıt açsın
Tarih
15/01/2014 01:34
Konu Sahibi
miCRoBe`
Yorumlar
4
Okunma
2207
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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




Ek Dosyalar
.rar   telefon.rar (Dosya Boyutu: 55,75 KB / İndirme Sayısı: 19)
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Dün,11:34
Çözüldü 

Visual Basic Code
 DoCmd.RunCommand acCmdSaveRecord
 DoCmd.GoToRecord , , acNewRec


yazınız...

Please return your positive or negative ...
Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,12:15
Çözüldü 
kodun tamamı aşağıdaki gibi olmalı

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
teşekkür ederim. sağolun.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Zorunlu alan ve kaydet uyarıları ertans 10 283 31/12/2016, 11:06 atoz112
  mükerrer Kayıt taha1234 7 230 25/12/2016, 03:17 taha1234
  Tabloya eklerken aynı kayıt varsa eklenmemesi. nightashes 4 137 18/12/2016, 18:09 nightashes
  Formda yeni veri eklendikde alt formun güncellenmesi Tale Talibov 3 138 18/12/2016, 12:23 Tale Talibov
  Harita da Seçilen Checkbox ile Tabloya Kayıt sadikkavakli 2 140 10/12/2016, 15:42 sadikkavakli


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya