Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Run-Time error "2450" uyarısı

mmert06
mmert06
Access Cevaplanmış Soruları
3
2048

Run-Time error "2450" uyarısı

#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 10/03/2025,22:50
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Run-Time error "2450" uyarısı - Yazar: mmert06 - 30/10/2016, 18:09
Cvp: Run-Time error "2450" uyarısı - Yazar: ozanakkaya - 30/10/2016, 18:21
Cvp: Run-Time error "2450" uyarısı - Yazar: mmert06 - 30/10/2016, 18:34
Task