Alttaki gibi Dlookup kullanarak bilgileri çekebilirsin. Girdiğiniz TC kayıtlı ise bilgileri gelir yoksa kaydetmeye devam edersin.
Private Sub adısoyadı_Enter()
If DCount("[tc no]", "dosyaarşiv", "[tc no]=[tcno]") > 0 Then
Cevap = MsgBox("Girdiğiniz TC daha önce girilmiş...Tekrar girmek istiyor musunuz?", vbYesNo)
If Cevap = 6 Then
DoCmd.SetWarnings True
Me.adısoyadı = Dlookup ("[adı soyadı]", "dosyaarşiv", "[tc no]=[tcno]")
Me.işebaşlama = Dlookup ("[işe başlama]", "dosyaarşiv", "[tc no]=[tcno]")
Me.iştenayrılış = Dlookup ("[işten ayrılış]", "dosyaarşiv", "[tc no]=[tcno]")
Me.sigortabaşlagıcı = Dlookup ("[sigorta başlagıcı]", "dosyaarşiv", "[tc no]=[tcno]")
Me.sigortabitişi = Dlookup ("[sigorta bitişi]", "dosyaarşiv", "[tc no]=[tcno]")
Me.Metin16 = Dlookup ("[şirket adı]", "dosyaarşiv", "[tc no]=[tcno]")
Me.Metin24 = Dlookup ("[kapanış tarihi]", "dosyaarşiv", "[tc no]=[tcno]")
DoCmd.SetWarnings True
Else
DoCmd.GoToControl "tcno"
Me.Undo
Exit Sub
End If
End If
End Sub
