Dim VarMi As Integer
VarMi = Nz(DLookup("alan2", "Tablo2", "[Kimlik]=" & [Kimlik]), 0)
If VarMi <> 0 Then
Me.Metin8 = VarMi
Else
Me.Metin8 = ""
End If
Formun geçerli olduğunda olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.