If Not IsNull(DLookup("ArtSif", "tblArtikli", "ArtSif='" & Me.SIFART & "'")) Or Not IsNull(DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
    If Me.SIFART = (DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
    Me.SIFART = DLookup("ArtSif", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")
    End If