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.