Skip to main content

AccessTr.neT


Değişmeyen Alanlar Otomatik Gelsin.

Değişmeyen Alanlar Otomatik Gelsin.

Çözüldü #1
Merhaba.

FRMDATA'da olayı girip Şahıs Ekle komutu ile FRMKISILER formu açılıyor.

Uyruğu seçip TCNO girildiği zaman eğer şahıs daha önce başka bir suçla alakalı girildiği için otomatık geliyor(EVET KOMUTU İLE). Önce girilen şahıs otomatık gelirken ŞAHISIN DEĞİŞME İHTİMALİ OLAN BİLGİLERİ boş geliyor (DURUMU-MEDENİ HALİ-MESLEĞİ)

Yapılmak istenen: İlk girilen şahıs bilgilerinde DEĞİŞMEYEN ŞAHSİ bilgilerinde eksiklik var ve bu bilgiler ikinci geldiğinde tarafımızca giriliyorsa...KAYDET komutu ile aynı bilgiler, ilk olayda ki boş alan bilgilerine eklensin...Umarım anlatabil mişimdir.

değişen alanlar= DURUMU-MEDENİ HALİ-MESLEĞİ(Bunların her seferinde tarafımızca girilmesi gerekiyor)
DEĞİŞMEYEN ALANLAR= ADISOYADI-ANABABAADI-D.TARIHI-N.KAYITLI OLDUĞU İL-ilçe-
.rar TCNO.rar (Dosya Boyutu: 721,11 KB | İndirme Sayısı: 20)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #2
Kodda hata vardı. tc yazınca önceki eklenen kayda ait veriyi getirmiyordu.

Tckimlikno yazılan metin kusutusunun çıkıldığında olanıdaki kodu aşağıdaki ile değiştirince çalıştı.
Me.Liste21.Requery
Dim mukerrer As String
mukerrer = Nz(DCount("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO]), 0)
If mukerrer > 0 Then
Select Case MsgBox("Bu Kayıt Daha Önce Girilmiş. Devam Ederek Diğer Bilgilerini Getirebilirsiniz. Devam Edilsin mi?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Ne Yapmak İstiyorsunuz.")

Case vbYes
Me.ADISOYADI.Value = Dlookup ("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.DOGUMYERI.Value = Dlookup ("[DOGUMYERI]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.DOGUMTARIHI.Value = Dlookup ("[DOGUMTARIHI]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.NUFKYTIL.Value = Dlookup ("[NUFKYTIL]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.NUFKYTILCE.Value = Dlookup ("[NUFKYTILCE]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.NUFKYTMAH.Value = Dlookup ("[NUFKYTMAH]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.MEDENIHAL.Value = Dlookup ("[MEDENIHAL]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.EGITIMDURUMU.Value = Dlookup ("[EGITIMDURUMU]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.TELEFON.Value = Dlookup ("[TELEFON]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.EMAİL.Value = Dlookup ("[EMAİL]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.ADRES.Value = Dlookup ("[ADRES]", "TBLKISILER", "[TCNO]=" & [TCNO])
Me.Liste21.Requery

Case vbNo
Undo
Me.Liste21.Requery

Exit Sub
End Select
Else

End If

Kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştirince;

On Error GoTo Err_Komut65_Click

Dim strSQL As String
Set rstkayit = New ADODB.Recordset
strSQL = "SELECT * FROM TBLKISILER "
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[TCNO]=" & "'" & Me![TCNO] & "'"
If Not rstkayit.EOF Then
.Fields("ADISOYADI") = Me.ADISOYADI
.Fields("BABAANAADI") = Me.BABAANAADI
.Fields("DOGUMTARIHI") = Me.DOGUMTARIHI
.Fields("NUFKYTIL") = Me.NUFKYTIL
.Fields("NUFKYTILCE") = Me.NUFKYTILCE
.Fields("NUFKYTMAH") = Me.NUFKYTMAH
.Update
End If
End With
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Liste21.Requery
Exit_Komut65_Click:
Exit Sub

Err_Komut65_Click:
MsgBox Err.Description
Resume Exit_Komut65_Click

12345678916 tc kimlik numarası girilip mesaj kutusuna eveti tıkladığında boş alanların bazılara veriler aktarılıyor. Boş kalan yerleri doldurduğunda 12345678916 tc kimlik numarası girilmiş önceki kayıttaki boşluklar tamamlanıyor.

Ayrıca Microsoft Activex Data Object X.X referansı eklendi.
Cevapla
Çözüldü #3
teeeşekkürler ozanakkaya
@benbendedeilem
Cevapla
Çözüldü #4
Sn.Ozanakkaya ilginize teşekkür ediyorum.

Kodları ekledim, ancak Kaydet, çıkıldığında ve exıt komutlarında direk kod sayfasına atıyor..End If, End Sub'la alakalaı bir sorun var sanırım, çözemedim.
Konu saadete erişmiştir.Teşekkür ediyorum.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task