form var olan kaydı tekrar ekliyor

15/01/2014, 17:40

miCRoBe`

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.
15/01/2014, 21:59

ozanakkaya

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
16/01/2014, 00:32

miCRoBe`

denedim ozan bey, şöyle uyarı verdi..



ve ardından sekme marka adına geçti ve diğer alanları da doldurunca aynı imei noyu kayıt etti.
16/01/2014, 02:00

ozanakkaya

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
16/01/2014, 02:27

miCRoBe`

teşekkür ederim.