arkadaşlar ekteki proforma formundaki mükerrer kayıtları önlemek için uyarı mesajı verilmesini istiyorum kendim kodu yazmaya çalıştım ve stok numarası alanına aynı stok numarasını yazıp enter tuşuna bastığımda run time error 2450 hatası alıyorum. bunu nasıl düzeltebilirim saygılar

Merhaba,

Kodun aşağıdaki gibi olması gerekiyor.

Dim VarMi As Integer



VarMi = Nz(DLookup("[malzeme_id]", "Malzemeler", "[stok_no]='" & Me.stok_no & "'"), 0)



If VarMi <> 0 Then



    Me.malzeme_adi = Dlookup ("[malzeme_adi]", "Malzemeler", "[stok_no]='" & Me.stok_no & "'")

    

    If Dlookup ("[stok_no]", "Proforma", "[stok_no]='" & Me.stok_no & "'") <> 0 Then

        MsgBox "BU MALZEME SEÇİLMİŞ", vbOKOnly, "HATA"

        Me.malzeme_adi = ""

        Exit Sub

    End If

    

    Me.Birimi = Dlookup ("[Birimi]", "Malzemeler", "[stok_no]='" & Me.stok_no & "'")



End If

Sizin yaptığınız gibi forms![persorma] şeklinde ölçüt belirtecek olursanız form içerisinde altform olduğu için [subform] mevzusuna girmek zorunda kalırsınız.

denedim çalışıyor tşk ederim.

(30/10/2016, 18:21)ozanakkaya yazdı: Sizin yaptığınız gibi forms![persorma] şeklinde ölçüt belirtecek olursanız form içerisinde altform olduğu için [subform] mevzusuna girmek zorunda kalırsınız.

Forumumuzda arama yaparak bu konuyu buldum ve çözüme ulaştım. Konuyu acana ve admine tesekkurler.