Run-Time error "2450" uyarısı

30/10/2016, 18:09

mmert06

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
30/10/2016, 18:21

ozanakkaya

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.
30/10/2016, 18:34

mmert06

denedim çalışıyor tşk ederim.
01/12/2016, 21:00

access_delisi

(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.