Skip to main content

AccessTr.neT

Kayıt Ol

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

Sicil Seçilince diğer bilgilerin gelmesi

yorum70
yorum70
Access Cevaplanmış Soruları
4
2175

Sicil Seçilince diğer bilgilerin gelmesi

Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,01:23
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
formdaki SICILI metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

Dim varmi As Integer



varmi = DCount([ID], "TBLPERSON", "[SİCİLİ]=" & "'" & [SICILI] & "'")



    If varmi = "0" Then

    

        Exit Sub

    

    Else

    

        Me.ADISOYADI = Dlookup ("[ADİSOYADİ]", "TBLPERSON", "[SİCİLİ]=" & "'" & [SICILI] & "'")

        Me.RUTBESI = Dlookup ("[RUTBE]", "TBLPERSON", "[SİCİLİ]=" & "'" & [SICILI] & "'")

    

    End If
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
Cvp: Sicil Seçilince diğer bilgilerin gelmesi - Yazar: ozanakkaya - 03/12/2013, 22:46
Task