Sicil Seçilince diğer bilgilerin gelmesi

İyi akşamlar.

Formda Sicil girilince, o sicile ait adı soyadı ve rutbenin gelmesini sağlamak istiyorum.

Sitede İl seçilince ilçelerin gelmesi konusundan gitmeye çalıştım ancak, benim örnekle biraz farklı galiba ki, mantığını tam çözemedim.

Ekte ki örnekten yardımcı olursanız sevinirim.

Tşk.

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

Sicili açılan kutu yapman gerek. Bu şekilde yapmak istersen de Dlookup kullanmalısın.

---

Ozan da aynı anda kodları yazmış zaten)

Sn.Ozanakkaya, seni alanlarda görmek güzel.

İlgine tşk.Ancak, gerçek verili de denedim, örnekte de, END IF hatası veriyor.

---

Sn.MDemiral hocam, örnekte uygulamamışım ama, sicili ve diğer iki alan açılan kutu.

Enterasan bir durum;
End If 'i silince, düzeldi.