ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/02/2010 12:47
Konu Sahibi
ensar236
Yorumlar
4
Okunma
1412
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ensar236

Aktif Üye
Kullanici Avatari
Aktif Üye
68
22/10/2009
15
Çorum
Ofis 2007
28/10/2017,12:07
Çözüldü 
Merhaba arkadaşlar.
Ekte ki daha önce form üzerinden indirmiş olduğum kimlik doğrulama formuna tc numarasını girince çalıştığım kurumun ağından girince bilgiler gelmekte. Gelen bilgileri ARSİV formuna aktarmak istiyorum. Form üzerinde bir çok uygulama var ancak bir türlü yapamadım. Yardımcı olursanız sevinirim.Teşekkürler.


ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.963
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:46
Çözüldü 
butonun tıklandığında olayına aşağıdaki kodu yaz.

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
strSQL = "SELECT * FROM ARSİV "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[TC]=" & Me.Metin1
If Not rstkayit.EOF Then
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
Else
.AddNew
.Find "[TC]=" & Me.Metin1
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
End If
End With



Ayrıca, 1. mesajdaki örnek uygulamayı kaldırdım. Bilgilerinize.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.963
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:46
Çözüldü 
konu açma zamanı = Bugün, 11:47
oturum kapatma zamanı = Bugün, 11:47


Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 
Sparişi vermiş nasıl olsa, Hazır olunca bir ara uğrar, alır Img-grin


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

ensar236

Aktif Üye
Kullanici Avatari
Aktif Üye
68
22/10/2009
15
Çorum
Ofis 2007
28/10/2017,12:07
Çözüldü 
Sayın sledgeab ilginiz için teşekkür ederim.


ensar236, 22-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Personel Sorgulama metin02 6 249 25/10/2017, 18:59 metin02
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 138 30/09/2017, 11:27 U.ALTUN
Çözüldü Sorgulama Hatası U.ALTUN 4 147 25/09/2017, 18:24 U.ALTUN
Çözüldü İl İlçe kriter seçimine göre sorgulama Ferhat Çetin 6 609 10/05/2017, 03:51 ozanakkaya
Çözüldü iki tarih arası sorgulama ilgincbiri 13 12.781 16/02/2017, 22:07 ozanakkaya
 
 

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