Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/10/2009 23:00
Konu Sahibi
tartini
Yorumlar
14
Okunma
4928
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

tartini

Aktif Üye
 38
 62
 13
 14/06/2009
0
 İstanbul
 
 Ofis 2007
 05/11/2013,19:02
Çözüldü 
(09/02/2009 01:31)sledgeab Adlı Kullanıcıdan Alıntı: Güncellenme Tarihi: 24/04/2009

[Resim: screenhunter02feb090028dc5.gif]

[Resim: screenhunter01feb090028zm8.gif]

Araç plakası sorgulaması yapabileceğiniz bir uygulama.

Sayın sledgeab'ın konusundaki sorgulama sonrası webten çekilen bilgileri,
oluşturduğumuz bir forum içerisinde yer alan bir metin kutusuna aktarabilirmiyiz ?

Konu hakkında bilgi ve yardımlarınızı rica ederim.


tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
Çözüldü 
sn tartini, webden çekilen bilginin forma aktarılması xpolsoftx ta mevcut

TcKimlik Sorgu Formu / Bilgileri aktar butonu. Butondaki kod ile Sorgu formundaki veriyi personel bilgi formu veya şuphelimağdur bilgi formundaki metin kutularına aktarılıyor.

Butondaki Kod

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Komut195_Click()
On Error GoTo Err_Komut195_Click

    Const FRM_A = "ŞÜPHELİMAĞDURBİLGİFORMU"
    Const FRM_B = "PERSONELBİLGİFORMU"
        
    Dim strArgs As String
        
       If isFormLoaded(FRM_A) Then
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!TCKİMLİKNO = Me.Metin147
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!ANAADI = Me.Metin169
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!BABAADI = Me.Metin165
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!CİNSİYETİ = Me.Metin177
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!NÜFKAYOLİL = Me.Metin148
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!NÜFKAYOLİLÇE = Me.Metin149
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!MAHKÖY = Me.Metin163
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!CİLTNO = Me.Metin167
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!AİLESIRANO = Me.Metin175
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!SIRANO = Me.Metin171
    End If
    
        If isFormLoaded(FRM_B) Then
Forms!PERSONELBİLGİFORMU!TCKİMLİKNO = Me.Metin147
Forms!PERSONELBİLGİFORMU!ANAADI = Me.Metin169
Forms!PERSONELBİLGİFORMU!BABAADI = Me.Metin165
Forms!PERSONELBİLGİFORMU!CİNSİYETİ = Me.Metin177
Forms!PERSONELBİLGİFORMU!NÜFKAYOLİL = Me.Metin148
Forms!PERSONELBİLGİFORMU!NÜFKAYOLİLÇE = Me.Metin149
Forms!PERSONELBİLGİFORMU!MAHKÖY = Me.Metin163
Forms!PERSONELBİLGİFORMU!CİLTNO = Me.Metin167
Forms!PERSONELBİLGİFORMU!AİLESIRANO = Me.Metin175
Forms!PERSONELBİLGİFORMU!SIRANO = Me.Metin171
    End If
If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.Close
End If
Exit_Komut195_Click:
    Exit Sub

Err_Komut195_Click:
    MsgBox err.Description
    Resume Exit_Komut195_Click
End Sub


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

Kullanici Avatari

tartini

Aktif Üye
 38
 62
 13
 14/06/2009
0
 İstanbul
 
 Ofis 2007
 05/11/2013,19:02
Çözüldü 
Hocam Bilgi için teşekkürler..

Kodu Aşağıdaki Gibi Uyarlamaya çalıştım :

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Function isFormLoaded(strFormName As String)
    isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End Function
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click
    
    Const FRM_A = "ARAC_BILGILERI"
        
    Dim strArgs As String
       
       If FRM_A Then
Forms!arac_bilgileri!txtPlak = Me.txtPlak
Forms!arac_bilgileri!txtMarka = Me.txtMarka
Forms!arac_bilgileri!txtModel = Me.txtModel
Forms!arac_bilgileri!txtTescilTarihi = Me.txtTescilTarihi
Forms!arac_bilgileri!txtTescilBirimi = Me.txtTescilBirimi
Forms!arac_bilgileri!txtRenk1 = Me.txtRenk1
Forms!arac_bilgileri!txtRenk2 = Me.txtRenk2
Forms!arac_bilgileri!txtCins = Me.txtCins
Forms!arac_bilgileri!txtCalinti = Me.txtCalinti
    End If

If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", vbYesNo) = vbYes Then
Cancel = True
End If

Exit_Komut13_Click:
    Exit Sub

Err_Komut13_Click:
    MsgBox Err.Description
    Resume Exit_Komut13_Click
    
    End Sub


Ancak son if döngüsündeki Cancel=True kodunda nedenle hata veriyor.
if döndüsünü komple kaldırdığım da ise direk hata veriyor. Bunu çözersem aynı forumda bulunan TC kimlik no sorgulamayıda Tc no girerek tek alana isim getir me şeklinde yapmayı deneyeceğim.

Sizce nerede hata yapmış olabilirim? Yardımcı olursanız sevirinim..

Projeyi ekledim. default şifreler 1234 tür.
Uygulama yapmaya çalıştığım forum adı : arac_durum


Ek Dosyalar
.zip   DEMO OTOMASYON.zip(Dosya Boyutu: 324,58 KB / İndirme Sayısı: 45)
tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
Çözüldü 
Uygulamaya çalıştığınız form galiba arac_durum değil ARAC_BILGILERI

Yazdığım kod benim kullandığım formlara göre yazıldı. Veriler hangi form açıksa o forma aktılıyor. Sizin aşağıdaki kodu kullanmanız yeterli.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click

       
Forms!ARAC_BILGILERI!txtPlak = Me.txtPlak
Forms!ARAC_BILGILERI!txtMarka = Me.txtMarka
Forms!ARAC_BILGILERI!txtModel = Me.txtModel
Forms!ARAC_BILGILERI!txtTescilTarihi = Me.txtTescilTarihi
Forms!ARAC_BILGILERI!txtTescilBirimi = Me.txtTescilBirimi
Forms!ARAC_BILGILERI!txtRenk1 = Me.txtRenk1
Forms!ARAC_BILGILERI!txtRenk2 = Me.txtRenk2
Forms!ARAC_BILGILERI!txtCins = Me.txtCins
Forms!ARAC_BILGILERI!txtCalinti = Me.txtCalinti

If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.Close

End If

Exit_Komut13_Click:
    Exit Sub

Err_Komut13_Click:
    MsgBox Err.Description
    Resume Exit_Komut13_Click
    
    End Sub


Ayrıca; isFormLoaded fonksiyonunu silebilirsiniz.


Cancel=True kodunda ki hata ekranı çıktığında Yardım butonunu tıkladığınızda göreceğiniz üzere.

Option compare database kodunun hemen aldındaki option explicit kodunu silerseniz hata vermez.

Birde aşağıdaki linki incelerseniz uygulamanız için iyi olacak.
Misc-smiley-029


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

Kullanici Avatari

tartini

Aktif Üye
 38
 62
 13
 14/06/2009
0
 İstanbul
 
 Ofis 2007
 05/11/2013,19:02
Çözüldü 
Hocam Destek için çok teşekkürler;

sayenizde işlemi gerçekleştirdim.

Son bir sorum olacak aynı forum üzernde tc kimlik sorgulamada kullanmak istiyorum ancak ben adı soyadı olarak 2 ayrı metin kutusu yerine adısoyadı olarak tek metin kutusu kullanıyorum.

web ten sorgulanan bilgi 2 kutu olarak geliyor. Bunu nasıl tek kutu haline düşürebilirim. Eğer bunuda yapabilirsem oradaki sorgulama olayı gayer yerinde ve güzel olacaktır.

Yardımınız için şimdiden teşekkürler..


tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
Çözüldü 
Sorgulama formuna metin kutusu ekle ve Denetim kaynağına

Kod:
=[adi] & " " & [soyadi]


yaz, ana forma bu metin kutusundaki bilgileri aktar.


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Birincil Anahtarın Forum Üzerinde Yeni Olarak Görünmesi untouchable 5 104 30/11/2018, 09:22
Son Yorum: ozanakkaya
Çözüldü Formdaki Metin Kutusundakini Googlede Aramak ates2014 5 106 23/11/2018, 20:10
Son Yorum: ates2014
Çözüldü Metin Kutusu Tıklandığında Olayına Kod İle " X" Yazdırmak İstiyorum alimadam 5 148 21/11/2018, 22:36
Son Yorum: alimadam
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 194 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü From Arayüzündeki Kayıtlar Bir Önceki Kayıttan Farklı İse Metin Kutusu Rengi Değişsin burhanb 11 354 16/11/2018, 08:20
Son Yorum: burhanb

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444