Определил, что причиной являются строки:
- Код: Выделить всё
For Each vControl In frmMain.Controls
If TypeOf vControl Is TextBox Then vControl.Text = Replace(vControl.Text, ".", ",")
Next
For Each vControl In frmProfileSetting.Controls
If TypeOf vControl Is TextBox Then vControl.Text = Replace(vControl.Text, ".", ",")
Next
А точнее:
- Код: Выделить всё
For Each vControl In frmProfileSetting.Controls
If TypeOf vControl Is TextBox Then vControl.Text = Replace(vControl.Text, ".", ",")
Next
После закомментирования этих строк - все нормально. Форма frmProfileSetting при этом не запущена. Set frmProfileSetting = Nothing не помогает. Кто-нибудь может подсказать, как исправить ситуацию?