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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ensar236

Aktif Üye
 46
 17
 68
 22/10/2009
15
 Çorum
 
 Ofis 2007
 16/01/2019,12:03
Çö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

Kurucu
Oz.... Ak....
 39
 477
 11.738
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,20: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.


"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

Kurucu
Oz.... Ak....
 39
 477
 11.738
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,20:46
Çö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
 Belirtilmemiş
 40
 1.717
 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
 46
 17
 68
 22/10/2009
15
 Çorum
 
 Ofis 2007
 16/01/2019,12:03
Çö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ü Farklı Tablolardaki Verileri Tek Raporda Sorgulama av.fatihberber 2 185 11/10/2018, 08:52
Son Yorum: av.fatihberber
Çözüldü Sorgulama Hatası Yunus Bozkurt 2 324 03/04/2018, 14:19
Son Yorum: Yunus Bozkurt
Çözüldü Sorgulama Yapmıyor U.ALTUN 9 595 21/03/2018, 01:40
Son Yorum: ozanakkaya
Çözüldü Personel Sorgulama metin02 6 653 25/10/2017, 18:59
Son Yorum: metin02
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 399 30/09/2017, 11:27
Son Yorum: U.ALTUN

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