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

Derecelendirme: 5/5 - 1 oy

tartini

Aktif Üye
Kullanici Avatari
Aktif Üye
62
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

resim

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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Çö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


Cevapla

tartini

Aktif Üye
Kullanici Avatari
Aktif Üye
62
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.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Çö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


Cevapla

tartini

Aktif Üye
Kullanici Avatari
Aktif Üye
62
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.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.801
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,18:32
Çözüldü 
Sorgulama formuna metin kutusu ekle ve Denetim kaynağına

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


yaz, ana forma bu metin kutusundaki bilgileri aktar.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
bilgiyi web kutusuna aktarma daki çekilen ten forum metin bir


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Seçili Dönemi Pdf Aktarma paseidon19 6 234 04/09/2017, 11:27 ozanakkaya
Çözüldü Üst Formdan Alt Forma Veri Aktarma teo81a 2 128 21/08/2017, 08:45 teo81a
Çözüldü Metin Dosyasından Otomatik Veri Çekme cazcaz678 8 510 01/08/2017, 16:10 pfilcik
Çözüldü Metin Veya Sayı Birleştirme ufukcem 10 562 22/06/2017, 09:31 ufukcem
Çözüldü Metin Ayırma ufukcem 2 198 16/06/2017, 10:10 ufukcem

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.