Skip to main content

AccessTr.neT


form var olan kaydı tekrar ekliyor

form var olan kaydı tekrar ekliyor

Çözüldü #1
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
imeino açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyebilir misin?

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

"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ü #3
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
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

"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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da