AccessTr.neT
form var olan kaydı tekrar ekliyor - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: form var olan kaydı tekrar ekliyor (/konu-form-var-olan-kaydi-tekrar-ekliyor.html)



form var olan kaydı tekrar ekliyor - miCRoBe` - 15/01/2014

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.


Cvp: form var olan kaydı tekrar ekliyor - ozanakkaya - 15/01/2014

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



Cvp: form var olan kaydı tekrar ekliyor - miCRoBe` - 16/01/2014

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.


Cvp: form var olan kaydı tekrar ekliyor - ozanakkaya - 16/01/2014

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



Cvp: form var olan kaydı tekrar ekliyor - miCRoBe` - 16/01/2014

teşekkür ederim.