23-03-2016, 22:14
Formda ki Emekli acilan kutuyu metin kutusuna cevirdim demistiniz.
Private Sub Emekli_AfterUpdate()
If Me.NewRecord Then
If DCount("*", "Ana Tablo", "[Emekli Sicil No] =" & Me.Emekli) > 0 Then GoSub ESKI
...
...
Me.Ek_Gösterge.Value = dlookup("[Ek Gösterge]","Personel","[Emekli Sicil No]=" & me.Emekli)
Else
...
End Sub
Diger iliskisiz metin kutu atamalarini dlookup komutunu kopyalayip, yapabilirsiniz.
Private Sub Emekli_AfterUpdate()
If Me.NewRecord Then
If DCount("*", "Ana Tablo", "[Emekli Sicil No] =" & Me.Emekli) > 0 Then GoSub ESKI
...
...
Me.Ek_Gösterge.Value = dlookup("[Ek Gösterge]","Personel","[Emekli Sicil No]=" & me.Emekli)
Else
...
End Sub
Diger iliskisiz metin kutu atamalarini dlookup komutunu kopyalayip, yapabilirsiniz.