---

Private Sub Form_Current()

    If IsNull(Фамилия) Or IsNull(Имя) Or IsNull(Отчество) Or IsNull(Дата_приема) Then
        Me.Caption = "Задайте все поля"
        Exit Sub
    End If

    Dim стаж As Integer
    Dim текстСтажа As String
    Dim сегодня As Date
    
    сегодня = Date
    стаж = DateDiff("yyyy", Дата_приема, сегодня)

    If DateSerial(Year(сегодня), Month(Дата_приема), Day(Дата_приема)) > сегодня Then
        стаж = стаж - 1
    End If

    If стаж < 1 Then
        текстСтажа = "меньше года"
    ElseIf стаж = 1 Then
        текстСтажа = "1 год"
    ElseIf стаж >= 2 And стаж <= 4 Then
        текстСтажа = стаж & " года"
    Else
        текстСтажа = стаж & " лет"
    End If

    Me.Caption = Фамилия & " " & Left(Имя, 1) & "." & Left(Отчество, 1) & ". стаж " & текстСтажа

End Sub