Değerli Arkadaşlar,
Formda

Private Sub AnaKNo_AfterUpdate()



Me.YazilanAkno.Requery

Me![AnaAdı] = Me![YazilanAkno].Column(1)

Me![AnaIrkı] = Me![YazilanAkno].Column(2)

'ile AnaAdı ve AnaIrkı değer içeriyorsa AnaAdı ve AnaIrkı alanlarını rahat aldırabiliyorum.
Ama YazilanAkno da bu alanlar değer içermiyorsa

Me.AnaAdı.Requery

If Me.AnaAdı.Value = Null Then

Me.AnaAdı.Value = "AAA"

Else

End If

Me.AnaIrkı.Requery

If Me.AnaIrkı.Value = Null Then

Me.AnaIrkı.Value = "HOLSTEİN"

Else

End If

'ile AnaAdı na "AAA" AnaIrkı na "HOLSTEİN" yazdıramıyorum. Nerede yanlış yapıyorum.

Me.[AnaAdı].Requery
If Nz([AnaAdı], "") = "" Then
[AnaAdı] = "AAA"
Else
End If
Me.[AnaIrkı].Requery
If Nz([AnaIrkı], "") = "" Then
[AnaIrkı] = "HOLSTEİN"
Else
End If

ile sorunumu çözdüm. Teşekkürler