с формы в файл

[st_ws]

Доброго времени суток всем!
Помогите решить следующую задачу.
Есть форма, есть кнопка "сохранить в базе"(первый скрин код кнопки), после нажатия этой кнопки инфа сохраняется в файл, но не так как мне надо:
(Скрины внизу)
как видно на втором из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в отдельной ячейке (в горизонтальном положении)
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добавлялось по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо

[Teslenko_EA]

Здравствуйте st_ws.
2. Open "C:\Data.csv" For Append As #1 ... - открывать для добавления
1. Print #1, TextBox1 & chr(59) & TextBox2 & chr(59) & .... - печать собраной строки с разделителями (;) точка с запятой
3.

On Error Resume Next
...
   Close #1
If Err.Number = 0 Then 'очищение полей ввода если сохранение прошло успешно
   TextBox1 = Empty
   TextBox2 = Empty
    ...
Else ' иначе сообщение о ошибке
   MsgBox "Ошибка - " + Err.Description
End If
...

Евгений.

[litvin44]

Private Sub Command1_Click()
On Error GoTo mErr
Open файл For Append As 1
Print #1, TextBox1.Text & " " & TextBox1.Text
или
Print #1, TextBox1.Text & vbTab & TextBox1.Text
смотря чем потом собираетесь читать
Close
'удача
...
Exit Sub
mErr:
'неудача
...
End Sub

[st_ws]

litvin44, Teslenko_EA
Ребята, огромное спасибо ! Выручили очень !!!

[st_ws]

Сейчас протестил макрос, получается что если текстовые поля не заполнены и нажать кнопку "сохранить в базе" то макрос все равно добавляет пустые ячейки, что нужно дописать, чтобы шла проверка полей (точнее первых трех)и если они не заполнены - выдавалось сообщение о необходимости заполнить поля, и не позволяло сохранить пока это условие не выполнено! Спасибо!

[st_ws]

народ, если кто знает, подскажите что дописать?!

[Teslenko_EA]

Здравствуйте st_ws.
допавьте в начале процедуры подобные строки:

...
Const sMes = "Три обязательно ...."
If Len(TextBox1.Text) * Len(TextBox2.Text) * Len(TextBox3.Text) = 0 Then MsgBox sMes :  Exit Sub
...

Евгений.

[st_ws]

Это то, что нужно!!!!

[st_ws]

Народ подскажите, что нужно вписать в код, чтобы при нажатии кливиши "TAB" на клаве, курсор переходил из одного текстового поля в другое?
Спасибо!

[EducatedFool]

Убедитесь, что для всех текстовых полей свойство TabKeyBehavior имеет значение False