Skip to main content

AccessTr.neT M.



Sicil Seçilince diğer bilgilerin gelmesi

Sicil Seçilince diğer bilgilerin gelmesi

Çözüldü #1
İ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.

.rar seçilen.rar (Dosya Boyutu: 61,6 KB | İndirme Sayısı: 33)
"Her tercih, bir vazgeçiştir"

Cevapla
Çözüldü #2
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
Çözüldü #3
Son Düzenleme: 03/12/2013, 22:49, Düzenleyen: mehmetdemiral.
Sicili açılan kutu yapman gerek. Bu şekilde yapmak istersen de Dlookup kullanmalısın.

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

İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
Son Düzenleme: 03/12/2013, 23:00, Düzenleyen: yorum70.
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.

"Her tercih, bir vazgeçiştir"

Cevapla
...........
Çözüldü #5
Enterasan bir durum;
End If 'i silince, düzeldi.

"Her tercih, bir vazgeçiştir"

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da