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.