AccessTr.neT

Bul · 21/10/2009, 23:00

(09/02/2009, 01:31)sledgeab yazdı: Güncellenme Tarihi: 24/04/2009

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.

Bul · 22/10/2009, 00:38

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:

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

Bul · 22/10/2009, 01:54

Hocam Bilgi için teşekkürler..

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

Kod:

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

Bul · 22/10/2009, 02:20

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:

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.

Bul · 22/10/2009, 02:48

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

Bul · 22/10/2009, 02:53

Sorgulama formuna metin kutusu ekle ve Denetim kaynağına

Kod:

=[adi] & " " & [soyadi]

yaz, ana forma bu metin kutusundaki bilgileri aktar.

AccessTr.neT

WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.

WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri