AccessTr.neT

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.

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

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.

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

teşekkür ederim.