Всем привет!

с помощью данного кода информация из поля помещается в буфер обмена, но по какой-то причине не всегда корректно работает(копирование не происходит). Где ошибка?


If Me.[Vik1] = -1 Then
If Me.[Kont licho 1] > 0 Then
Me.TextBoxCopy = "Получатель: " + Me.Kont_licho_1
Else
MsgBox "Ошибка копирования!", 64, "Messages"
End If
Else
End If


If Me.[Vik2] = -1 Then
If Me.[Kont licho 2] > 0 Then
Me.TextBoxCopy = "Получатель: " + Me.Kont_licho_2
Else
MsgBox "Ошибка копирования!", 64, "Messages"
End If
Else
End If

Me.[Vik1] = 0
Me.[Vik2] = 0


DoCmd.GoToControl "TextBoxCopy"
SendKeys "^c", True