Kod:
strSQL = "SELECT * FROM KEFIL "
Set rsyenile = New ADODB.Recordset
rsyenile.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rsyenile
.Find "[ORTAK_NO]=" & Me.ORTAK_NO
.Update
.Fields("MESLEGI") = Mid([ADSOYAD], InStr(1, [ADSOYAD], "(") + 1)
.Update
End With
Me.Mesleği.Requery