Ülke İl İlçe Harita

1 2 3 4 5 6 7 8 9
05/06/2009, 23:05

okileturc

Sn dursun

Hızlıca bir rapor ekledim, düzenleyip
geliştirebilirsiniz. Rapora illeri kaynak
gösterdim, il seçimini de aktif formdan yapıyor
Rapor butonu il seçimi yapıldıktan sonra
görünür oluyor

Uygulamayı tekrar indirmeyin ( grafiklere gerek yok )
ekteki mdb yi eskisinin üstüne kopyalamanız
yeterlidir

Kolay gelsin
05/06/2009, 23:16

C*e*l*o*y*c*e

teşekkürler
06/06/2009, 07:36

kadirdursun

teşekkür ederim. elinize sağık.bu uygulamayı kullanacağım gerçekten teşekkür ederim.
06/06/2009, 09:40

kadirdursun

sayın okileturc
biliyorsuuz ben accessde çok eski sayılmam bu yüzden aşağıdaki kodda
Call bilgitemizleilce ne demek anlamadım. form üzerinde yada tablolarda bilgitemizleilce alanına rastlamadım bu nedir?


If Left(Node.Key, 6) = "level1" Then
Call bilgitemizleilce
Call bilgitemizleil
Call bilgitemizleulke
06/06/2009, 12:43

okileturc

Toplu bir komut kümesi gibi düşünün;
Sayfanın altında Call ile çağrılan komut
kümesi gruplarını görebilirsiniz
Kod:
Private Sub bilgitemizleulke()
   Me.ULKE.Visible = False
   Me.PLAKA.Visible = False
   Me.bayrak.Visible = False
   Me.bayrak2.Visible = False
   Me.bayrak.Picture = CurrentProject.Path & "\bayrak\bosresim.bmp"
   Me.bayrak2.Picture = CurrentProject.Path & "\bayrak2\bosresim.bmp"

End Sub

Private Sub bilgitemizleil()
   Me.ILPLAKA = ""
   Me.ILPLAKA.Visible = False
   Me.harita.Visible = False
   Me.harita.Picture = CurrentProject.Path & "\il_harita\bosresim.jpg"
   Me.Komut62.Visible = False
End Sub
Private Sub bilgitemizleilce()
   Me.TELKODU = ""
   Me.TELKODU.Visible = False
   Me.ILCE = ""
   Me.ILCE.Visible = False
End Sub

Her ihtiyaç duyduğunuzda ayni kodları
tekrar yazmak yerine o komut kümesini
Call ile çağırabilirsiniz.

Kolay gelsin
06/06/2009, 15:39

kadirdursun

hım yani bir nevi matematikteki paranteze almak gibi birşey.

bir projeme entegre etmeye çalıştım fakat bir hata verdi. acaba office 2007 olduğundan mı dedim 2003 de denedim ama aynı hatayı verdi. acaba nedir bu?
1 2 3 4 5 6 7 8 9