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?

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
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
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
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
Task