Null değere istenilen değeri atama

17/06/2012, 17:19

aktif42

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.
17/06/2012, 18:29

aktif42

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