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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ensar236


 46
 68
 17
 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


OZ.... AK....
 41
 11.386
 466
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çö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


OZ.... AK....
 41
 11.386
 466
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çö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


 Belirtilmemiş
 1.717
 40
 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


 46
 68
 17
 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ü Farklı Tablolardaki Verileri Tek Raporda Sorgulama av.fatihberber 2 109 11/10/2018, 08:52
Son Yorum: av.fatihberber
Çözüldü Sorgulama Hatası Yunus Bozkurt 2 258 03/04/2018, 14:19
Son Yorum: Yunus Bozkurt
Çözüldü Sorgulama Yapmıyor U.ALTUN 9 510 21/03/2018, 01:40
Son Yorum: ozanakkaya
Çözüldü Personel Sorgulama metin02 6 557 25/10/2017, 18:59
Son Yorum: metin02
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 328 30/09/2017, 11:27
Son Yorum: U.ALTUN

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