[Tasos]

Καλησπέρα!

Χρήστο δοκίμασε:

Private Sub Form_Current()
    Dim strCity As String
    Me.xf = Me.ID
    With Me.Recordset.Clone
        If .RecordCount > 1 Then
            If Len(Me.txtSearch) Then
                strCity = !City
                .MoveFirst
                While Not .EOF
                    If !City <> strCity Then
                        Me.cmdFace.Visible = False ' Στο παράδειγμα σου 'cmd'
                        Exit Sub
                    Else
                        If Not Me.cmdFace.Visible Then
                            Me.cmdFace.Visible = True
                        End If
                    End If
                    .MoveNext
                Wend
            End If
        End If
    End With
End Sub

Καλή συνέχεια!

Τάσος