Private Sub Form_Current()

Me.Caption = [Nazwisko] & " " & [Imie]

If (IsNull(Zdjecie)) Then
Me.Zdjecie.Visible = False
Else: Me.Zdjecie.Visible = True
End If

End Sub

Private Sub Form_Load()

[Clock].[Caption] = Time

End Sub

Private Sub Form_Timer()

[Clock].[Caption] = Time

End Sub