Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/02/2010 12:47
Konu Sahibi
ensar236
Yorumlar
4
Okunma
1425
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
15/04/2018,00:02
Çö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....
10.622
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:05
Çö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....
10.622
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:05
Çözüldü 
konu açma zamanı = Bugün, 11:47
oturum kapatma zamanı = Bugün, 11:47


Cevapla

Puletin

Onursal Üye
Kullanici Avatari
Onursal Üye
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...
Cevapla

ensar236

Aktif Üye
Kullanici Avatari
Aktif Üye
68
22/10/2009
15
Çorum
Ofis 2007
15/04/2018,00:02
Çö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ü Sorgulama Hatası Yunus Bozkurt 2 150 03/04/2018, 14:19 Yunus Bozkurt
Çözüldü Sorgulama Yapmıyor U.ALTUN 9 296 21/03/2018, 01:40 ozanakkaya
Çözüldü Personel Sorgulama metin02 6 376 25/10/2017, 18:59 metin02
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 205 30/09/2017, 11:27 U.ALTUN
Çözüldü Sorgulama Hatası U.ALTUN 4 213 25/09/2017, 18:24 U.ALTUN

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