Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/01/2014 17:40
Konu Sahibi
miCRoBe`
Yorumlar
4
Okunma
1138
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ü 
merhaba.

alışlar formu aracılığı ile bir telefon tekrar tekrar alınabilmeli. alışlar formunda bu konuda bir sorun yok. fakat telefon satışı yapılmadığı takdirde de tekrar alınabiliyor.

telefon stokta var ise satılmamış ise tekrar alışı gerçekleşmemesi için formda bunu engellemek için ne yapabilirim? (telefon tekrar tekrar alınabilmeli fakat, satılmamış ise alınamamalı, stokta uyarısı vermeli gibi)

teşekkürler.


Ek Dosyalar
.rar   telefonson.rar (Dosya Boyutu: 59,29 KB / İndirme Sayısı: 7)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Çözüldü 
imeino açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyebilir misin?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub imeino_AfterUpdate()
Dim VarMi, StoktaMi As Integer
Metin34 = Me.imeino.Column(1)
VarMi = DLookup([imeino], "imeiler")
StoktaMi = Nz(DLookup("[imeiid]", "Stok", "[imeiid]=" & [imeino]), 0)

    If StoktaMi <> 0 Then
       MsgBox "" & Me.imeino.Column(1) & " imei numaralı " & DLookup("[markaadi]", "markalar", "[markaid]=" & DLookup("[telefonid]", "imeiler", "[imeino]='" & Metin34 & "'")) & " marka telefon stokta olduğundan tekrar satın alınamaz", vbCritical, "Satın Alma Uyarısı"
        Exit Sub
    End If
    If VarMi <> 0 And DLookup("[telefonid]", "imeiler", "[imeino]='" & Metin34 & "'") <> 0 Then
        MsgBox ("Bu imei numarası daha önce kaydedilmiş, veriler aktarılacak")
        Me.markaadi = Me.imeino.Column(3)
        Me.modeladi = Me.imeino.Column(4)
    Else
        Me.markaadi.Value = ""
        Me.modeladi.Value = ""
    End If
End Sub


Cevapla

miCRoBe`

Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
denedim ozan bey, şöyle uyarı verdi..

resim

ve ardından sekme marka adına geçti ve diğer alanları da doldurunca aynı imei noyu kayıt etti.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Çözüldü 
o zaman

Visual Basic Code
exit sub

kodunun hemen üstüne

Visual Basic Code
imeino=""

kodu ekle.


Visual Basic Code
  MsgBox "" & Me.imeino.Column(1) & " imei numaralı " & DLookup("[markaadi]", "markalar", "[markaid]=" & DLookup("[telefonid]", "imeiler", "[imeino]='" & Metin34 & "'")) & " marka telefon stokta olduğundan tekrar satın alınamaz", vbCritical, "Satın Alma Uyarısı"
        imeino = ""
        Exit Sub


Cevapla

miCRoBe`

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


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
form tekrar var olan kaydı ekliyor


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Geçerli Kaydı Mail Atma Hk. serkan1985 6 209 25/08/2017, 09:02 serkan1985
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 335 21/08/2017, 12:04 direnist
Çözüldü Açılan Kutu Menüsünden Yapılan Seçimlerin Tabloya Kaydı ertans 2 279 07/08/2017, 17:37 ozguryasin
Çözüldü Belirli Sayıda Kaydı Getirme ufukcem 4 285 21/06/2017, 12:28 ufukcem
Çözüldü Alt Alta Olan Verileri İd Bazında Yan Yana Getirmek ufukcem 6 470 29/05/2017, 18:06 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.