Araç Sorgulama - Ehliyet Sorgulama

golgeee · 28 Eylül 2007

Arkadaşlar merhaba

http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx bu sitedeki araç sorgulama

ve http://www.trafik.gov.tr/IAS/IAS/wfCezaPuanSorgulama.aspx bu sitedeki ehliyet sorgulama olayını accessde yapabilirmiyim ... yapılabiliyorsa yardımcı olurmusunuz ... olursa yapacağınız bir açıklama bu işe yeni başladım ona göre anlatırsanız sevinirim ...

simendifer · 29 Eylül 2007

PolSoft programını inceleyin

sevgili kardeşim sayın ozanakkaya hocamızın yapmış ve bizimle paylaştıgı prg de sizin isteginiz var inceleyiniz
http://www.excel.web.tr/showthread.php?t=37597

golgeee · 29 Eylül 2007

simendifer' Alıntı:
sevgili kardeşim sayın ozanakkaya hocamızın yapmış ve bizimle paylaştıgı prg de sizin isteginiz var inceleyiniz
http://www.excel.web.tr/showthread.php?t=37597

Arkadaşım bilgi için teşekkür ederim ama ben bu sorgulama olayı nasıl yapılır bunu öğrenmek ve kendim yapmak istiyorum bu konuda bilgi verebilirsen veya bir kaynak önerebilirsen sevinirim ...

simendifer · 29 Eylül 2007

ögrenmek

sevgili kardeşim access ve program yapmak üç beş satır yazmakla ögretilmez seni anlıyorum sana tavsiyem formdaki her programı indir içine girin inceleyin taplolar nasıl yapılıyor formların özelliklerinde neler var bunları inceleyin onlardan çok şey ögreneksiniz ben size benim gibi arkadaşlar ne kadar yardım edecek yazmakla kısa problemi çözeriz siz kendinizi bu yönden geliştirin deneme yapın bol bol takıldıgınız yerde sorularınıza cevap veririz kolay gelsin

golgeee · 29 Eylül 2007

örneklere baktım ama mantığı bilmediğimden bir türlü kavrayamıyorum ... ehliyet, araç, tc no gibi sorgulamalı programlardaki mantık nedir bunu anlatırsan örneklerden de az çok birşey anlayabilirim ...

simendifer · 30 Eylül 2007

bu linklere göz at

http://office.microsoft.com/tr-tr/training/CR061829401055.aspx
http://bilgiteknoloji.net/access/
http://support.microsoft.com/search/default.aspx?query=access&catalog=LCID=1055&spid=&qryWt=&mode=r&cus=False

bu adreslerde açıklayıcı bilgiler var şimdi ben nereden başlıyacagımı bilemiyorum birazda anlatım kabiliyetim yok ordaki bilgilerle kendini geliştirirsiniz benim hocam olmadı buralardan ve excel web tr den ögrendim bolca soru sor forma ama örnek yap ekle ekteki word dosyalarında açıklama var
kolay gelsin

golgeee · 30 Eylül 2007

simendifer' Alıntı:
http://office.microsoft.com/tr-tr/training/CR061829401055.aspx
http://bilgiteknoloji.net/access/
http://support.microsoft.com/search/default.aspx?query=access&catalog=LCID%3D1055&spid=&qryWt=&mode=r&cus=False

bu adreslerde açıklayıcı bilgiler var şimdi ben nereden başlıyacagımı bilemiyorum birazda anlatım kabiliyetim yok ordaki bilgilerle kendini geliştirirsiniz benim hocam olmadı buralardan ve excel web tr den ögrendim bolca soru sor forma ama örnek yap ekle ekteki word dosyalarında açıklama var
kolay gelsin

Arkadaşım yardımın için teşekkür ederim ... access hakkında hiçbirşey bilmiyorum diyemem sadece web den bir sitedeki bilgiyi (örneğin araç sorgulama http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx ) bunu access de nasıl kullanırım ....

"ozanakkaya" arkadaşın yaptığı ve içinde benimde yapmak istediğin araç sorgulama için kodu aşağıda var mesela burda yazan

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

ne demek bu kodu alıyorum gerekli düzenlemeler yapıp kendi programıma entegre ediyorum ama WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value bu kısımlar ilgili bir hata veriyor ... ozanakkaya arkadaşım kodunun tamamı aşağıda

Private Sub Komut22_Click()
Me.txtMarka = Empty
Me.txtModel = Empty
Me.txtTescilTarihi = Empty
Me.txtTescilBirimi = Empty
Me.txtRenk1 = Empty
Me.txtRenk2 = Empty
Me.txtCins = Empty
Me.txtCalinti = Empty

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

'If MsgBox("Bugüne ait gösterge niteliğindeki kurlar saat 15:30 sonrasında güncellenmektedir. Kur gösterilsin mi?", _
'vbYesNo) = vbYes Then
'Cancel = True

Etiket86.Visible = False
ProgressBar1.Visible = True

For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 1000000
Next B
Next A
MsgBox "Girdiğiniz Plaka Sorgulansın mı?", 48, "UYARI"

ProgressBar1.Visible = False
txtMarka.Value = WebBrowser1.Document.All("txtMarka").Value
txtModel.Value = WebBrowser1.Document.All("txtModel").Value
txtTescilTarihi.Value = WebBrowser1.Document.All("txtTescilTarihi").Value
txtTescilBirimi.Value = WebBrowser1.Document.All("txtTescilBirimi").Value
txtRenk1.Value = WebBrowser1.Document.All("txtRenk1").Value
txtRenk2.Value = WebBrowser1.Document.All("txtRenk2").Value
txtCins.Value = WebBrowser1.Document.All("txtCins").Value
txtCalinti.Value = WebBrowser1.Document.All("txtCalinti").Value
'End If

End Sub

Bu kodda

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

yukarda yazdığım kısım ne anlama geliyor ben kendi programıma entegre ederken ne yapmalıyım neyi eksik yapıyorum ...

golgeee · 30 Eylül 2007

golgeee' Alıntı:
Arkadaşım yardımın için teşekkür ederim ... access hakkında hiçbirşey bilmiyorum diyemem sadece web den bir sitedeki bilgiyi (örneğin araç sorgulama http://www.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx ) bunu access de nasıl kullanırım ....

"ozanakkaya" arkadaşın yaptığı ve içinde benimde yapmak istediğin araç sorgulama için kodu aşağıda var mesela burda yazan

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

ne demek bu kodu alıyorum gerekli düzenlemeler yapıp kendi programıma entegre ediyorum ama WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value bu kısımlar ilgili bir hata veriyor ... ozanakkaya arkadaşım kodunun tamamı aşağıda

Private Sub Komut22_Click()
Me.txtMarka = Empty
Me.txtModel = Empty
Me.txtTescilTarihi = Empty
Me.txtTescilBirimi = Empty
Me.txtRenk1 = Empty
Me.txtRenk2 = Empty
Me.txtCins = Empty
Me.txtCalinti = Empty

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

'If MsgBox("Bugüne ait gösterge niteliğindeki kurlar saat 15:30 sonrasında güncellenmektedir. Kur gösterilsin mi?", _
'vbYesNo) = vbYes Then
'Cancel = True

Etiket86.Visible = False
ProgressBar1.Visible = True

For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 1000000
Next B
Next A
MsgBox "Girdiğiniz Plaka Sorgulansın mı?", 48, "UYARI"

ProgressBar1.Visible = False
txtMarka.Value = WebBrowser1.Document.All("txtMarka").Value
txtModel.Value = WebBrowser1.Document.All("txtModel").Value
txtTescilTarihi.Value = WebBrowser1.Document.All("txtTescilTarihi").Value
txtTescilBirimi.Value = WebBrowser1.Document.All("txtTescilBirimi").Value
txtRenk1.Value = WebBrowser1.Document.All("txtRenk1").Value
txtRenk2.Value = WebBrowser1.Document.All("txtRenk2").Value
txtCins.Value = WebBrowser1.Document.All("txtCins").Value
txtCalinti.Value = WebBrowser1.Document.All("txtCalinti").Value
'End If

End Sub

Bu kodda

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

yukarda yazdığım kısım ne anlama geliyor ben kendi programıma entegre ederken ne yapmalıyım neyi eksik yapıyorum ...

Arkadaşlar yukarıdaki sorunumada yardım edebilecek olan varsa sevinirim ...

Ersen · 16 Mayıs 2008

WebBrowser1.Document.All("txtPlaka").Value = txtPlaka.Value
WebBrowser1.Document.All("imgSorgula").Click

Evet maalesef bu kısımda bende hata alıyorum, referanslar ve herşeyi kontrol ettim. Bir türlü çözemedim sorunun kaynağını...

Oysa Polsoft önceki versiyonlarında fevkalede güzel çalışıyordu. İşin ilginç yanı plaka sorgulama kodları öncekilerle aynı... Acaba benim gözümden kaçan birşey mi var... Başta ozanakkaya kardeşimiz olmak üzere bu konu ile ilgilenen veya sorunu çözen arkadaşlarını yardımını rica ediyorum.

ozanakkaya · 16 Mayıs 2008

Bilgilerin sorgulandığı sayfa değişmiş.
Formun yüklendiğinde olayına yazılan kodu aşağıdaki ile değiştirin.

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://sorgu.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx"
End Sub

Ersen · 21 Mayıs 2008

ozanakkaya' Alıntı:
Bilgilerin sorgulandığı sayfa değişmiş.
Formun yüklendiğinde olayına yazılan kodu aşağıdaki ile değiştirin.

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://sorgu.trafik.gov.tr/IAS/IAS/wfAracBilgSorgulama.aspx"
End Sub

Çok teşekkür ediyorum. Değişikliği hemen uygulayacağım.