Option Compare Database
satırının altına Public txtDeger As String
kodunu,alt forma aşağıdaki kodu ekleyip
Private Sub DEGER_GotFocus()
Me.Parent.txtDeger = Me.DEGER
End Sub
yenile butonun koduna da "me.refresh" satırından önce Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")
kodunu ekleyip dener misiniz?