AccessTr.neT
Sicil Seçilince diğer bilgilerin gelmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sicil Seçilince diğer bilgilerin gelmesi (/konu-sicil-secilince-diger-bilgilerin-gelmesi.html)



Sicil Seçilince diğer bilgilerin gelmesi - yorum70 - 03/12/2013

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


Cvp: Sicil Seçilince diğer bilgilerin gelmesi - ozanakkaya - 03/12/2013

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



Cvp: Sicil Seçilince diğer bilgilerin gelmesi - mehmetdemiral - 03/12/2013

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

Ozan da aynı anda kodları yazmış zatenImg-grin)


Cvp: Sicil Seçilince diğer bilgilerin gelmesi - yorum70 - 03/12/2013

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.


Cvp: Sicil Seçilince diğer bilgilerin gelmesi - yorum70 - 03/12/2013

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