Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/02/2010 12:47
Konu Sahibi
ensar236
Yorumlar
4
Okunma
1460
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ensar236

Aktif Üye
Aktif Üye
 46
68
22/10/2009
15
Çorum
Ofis 2007
19/06/2018,13:09
Çö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.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.964
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,23:07
Çö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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.964
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,23:07
Çözüldü 
konu açma zamanı = Bugün, 11:47
oturum kapatma zamanı = Bugün, 11:47


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
1.716
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...

Kullanici Avatari

ensar236

Aktif Üye
Aktif Üye
 46
68
22/10/2009
15
Çorum
Ofis 2007
19/06/2018,13:09
Çözüldü 
Sayın sledgeab ilginiz için teşekkür ederim.


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sorgulama Hatası Yunus Bozkurt 2 216 03/04/2018, 14:19
Son Yorum: Yunus Bozkurt
Çözüldü Sorgulama Yapmıyor U.ALTUN 9 387 21/03/2018, 01:40
Son Yorum: ozanakkaya
Çözüldü Personel Sorgulama metin02 6 459 25/10/2017, 18:59
Son Yorum: metin02
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 269 30/09/2017, 11:27
Son Yorum: U.ALTUN
Çözüldü Sorgulama Hatası U.ALTUN 4 281 25/09/2017, 18:24
Son Yorum: U.ALTUN

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.