Skip to main content

AccessTr.neT

Kayıt Ol

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

form var olan kaydı tekrar ekliyor

miCRoBe`
miCRoBe`
Access Cevaplanmış Soruları
4
2170

form var olan kaydı tekrar ekliyor

Çözüldü #1
miCRoBe`
Aktif Üye
miCRoBe`
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2010
Son Oturumu: 15/04/2015,03:20
Yorumları: 88
Konuları: 17
Kayıt Tarihi: 08/10/2011
Teşekkür Puanı: 0
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.
.rar telefonson.rar (Dosya Boyutu: 59,29 KB | İndirme Sayısı: 7)
Cevapla
Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 01/09/2025,23:17
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
imeino açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyebilir misin?

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
Çözüldü #3
miCRoBe`
Aktif Üye
miCRoBe`
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2010
Son Oturumu: 15/04/2015,03:20
Yorumları: 88
Konuları: 17
Kayıt Tarihi: 08/10/2011
Teşekkür Puanı: 0
denedim ozan bey, şöyle uyarı verdi..

[Resim: x9VoOO.jpg]

ve ardından sekme marka adına geçti ve diğer alanları da doldurunca aynı imei noyu kayıt etti.
Cevapla
Çözüldü #4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 01/09/2025,23:17
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
o zaman 
exit sub
kodunun hemen üstüne 
imeino=""
kodu ekle.


  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
Çözüldü #5
miCRoBe`
Aktif Üye
miCRoBe`
Bul
Aktif Üye
Adı Soyadı:
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2010
Son Oturumu: 15/04/2015,03:20
Yorumları: 88
Konuları: 17
Kayıt Tarihi: 08/10/2011
Teşekkür Puanı: 0
teşekkür ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da