Skip to main content

AccessTr.neT


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

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

Çözüldü #1
(09/02/2009, 01:31)sledgeab yazdı: 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.
Cevapla
Çözüldü #2
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

Cevapla
Çözüldü #3
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
.zip DEMO OTOMASYON.zip (Dosya Boyutu: 324,58 KB | İndirme Sayısı: 45)
tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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.
Misc-smiley-029
Cevapla
Çözüldü #5
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
Çözüldü #6
Sorgulama formuna metin kutusu ekle ve Denetim kaynağına

Kod:
=[adi] & " " & [soyadi]
yaz, ana forma bu metin kutusundaki bilgileri aktar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task