WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.
Tarih
21/10/2009 23:00
Konu Sahibi
tartini
Yorumlar
14
Okunma
3764
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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:22
Çö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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:22
Çö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.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:22
Çö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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 86 28/11/2016, 23:33 nightashes
  Metin Kutusu Hk. Serkan Çevik 2 61 25/11/2016, 23:40 Serkan Çevik
Çözüldü seçime bağlı metin kutusunu tabloda aktif veya pasif yapma EROLAKSAKAL 13 4.005 12/11/2016, 11:48 atoz112
  Seçime göre Excelle veri aktarma. metbal 5 140 06/11/2016, 12:56 atoz112
  Liste Kutusuna Kayıt ekleme mmert06 6 194 28/10/2016, 22:59 mmert06


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya