Сохраняет в 2 строки

Здравствуйте !
написал скрипт сохранения в базу на VBA но теперь сохраняет в 2 строки.2 строку создает только после закрытия самой формы Добавление мебели.Таблица мебель.
Прикрепил базу суда [url=]http://rghost.ru/35603760[/url].
Я понимаю что сохраняет одни и теже строки и VBA и access.Помогите решить проблему

Эдвард_noob
Я понимаю что сохраняет одни и теже строки и VBA и access.

фразу я оценил, но смысл её не уловил

Кстати только маньяк будет качать 30 мег за "здравствуй"

alvk,

ну я чайник =))) еще только учусь))) так что не судите строго а базу щас перезайлью

Option Compare Database
Option Explicit
Dim dbD As Database, recR As Recordset

Private Sub cmdKey_Import_Click()
Dim strFileName As String, snaim As String, strFullFileName As String, strPath As String, strshema As String, stropisanie As String, streskiz As String, strrazmerd As Integer, strrazmersh As Integer
Dim strrazmerv As Integer, strcvet As String, strcena As Currency, strtipizdeliya As Integer, strkategoriya As String, strzakazartikul As String, strcg As Integer, strkonstruktor As String
Dim strklient As Integer, strkolichestvo As Integer, strnaotchet As Boolean


strFileName = Dir$(Me!txtPathFile + "*.jpg", vbNormal)
Set dbD = CurrentDb
Set recR = dbD.OpenRecordset("Ìåáåëü", dbOpenDynaset)
strFullFileName = Me!txtPathFile + strFileName
recR.AddNew
recR!Ýñêèç = strFullFileName
strFileName = Dir$(Me!txtPathFile + "*.bdf", vbNormal)
strFullFileName = Me!txtPathFile + strFileName
strshema = strFullFileName + Chr(35) + strFullFileName + Chr(35)
recR!Ñõåìà = strshema
snaim = Left(strFileName, Len(strFileName) - 4) 'óäàëåíèå ñèìâîëîâ
recR!Íàèìåíîâàíèå = snaim

'Âíåñåíèå äàííûõ
error_d = "" ' ñòèðàíèå âñåõ çíà÷åíèé ñ ýòîãî ïîëÿ åñëè îíè áûëè äî ýòîãî
If Me!ÐàçìåðÄ <> "" Then ' åñëè Ðàçìåðä íå ïóñòîé ÒÎ
strrazmerd = Me!ÐàçìåðÄ
recR!ÐàçìåðÄ = strrazmerd
Else 'Åñëè ïóñòîé

error_d = "Âû íå âíåñëè äëèíó" 'âûâîäèòñÿ îøèáêà
End If

error_sh = ""
If Me!ÐàçìåðØ <> "" Then
strrazmersh = Me!ÐàçìåðØ ' øèðèíà
recR!ÐàçìåðØ = strrazmersh
Else
error_sh = "Âû íå âíåñëè øèðèíó"
End If

error_v = ""
If Me!Ðàçìåð <> "" Then
strrazmerv = Me!Ðàçìåð ' âûñîòà
recR!Ðàçìåð = strrazmerv
Else
error_v = "Âû íå âíåñëè âûñîòó"
End If


error_cv = ""
If Me!Öâåò <> "" Then
strcvet = Me!Öâåò 'öâåò
recR!Öâåò = strcvet
Else
error_cv = "Âû íå âíåñëè öâåò"
End If

error_op = ""
If Me!Îïèñàíèå <> "" Then
stropisanie = Me!Îïèñàíèå ' âíåñåíèå îïèñàíèÿ
recR!Îïèñàíèå = stropisanie
Else
error_op = "Âû íå âíåñëè îïèñàíèå"
End If

error_cn = ""
If Me!Öåíà <> "" Then
strcena = Me!Öåíà ' âíåñåíèå öåíû
recR!Öåíà = strcena
Else
error_cn = "Âû íå âíåñëè öåíó"
End If


error_tip = ""
If Me!ÒèïÈçäåëèÿ <> "" Then
strtipizdeliya = Me!ÒèïÈçäåëèÿ ' òèï èçäåëèÿ
recR!ÒèïÈçäåëèÿ = strtipizdeliya
Else
error_tip = "Âû íå âíåñëè òèï èçäåëèÿ"
End If

error_kat = ""
If Me!Êàòåãîðèÿ <> "" Then
strkategoriya = Me!Êàòåãîðèÿ ' êàòåãîðèè
recR!Êàòåãîðèÿ = strkategoriya
Else
error_kat = "Âû íå âíåñëè êàòåãîðèþ"
End If

error_zak = ""
If Me!ÇàêàçÀðòèêóë <> "" Then
strzakazartikul = Me!ÇàêàçÀðòèêóë ' àðòèêóë
recR!ÇàêàçÀðòèêóë = strzakazartikul
Else
error_zak = "Âû íå âíåñëè àðòèêóë"
End If

error_cg = ""
If Me!ÖÃ <> "" Then
strcg = Me!ÖÃ 'öåíîâàÿ êàòåãîðèÿ
recR!ÖÃ = strcg
Else
error_cg = "Âû íå âíåñëè öåíîâóþ êàòåãîðèþ"
End If

error_kon = ""
If Me!Êîíñòðóêòîð <> "" Then
strkonstruktor = Me!Êîíñòðóêòîð 'êîíñòðóêòîð
recR!Êîíñòðóêòîð = strkonstruktor
Else
error_kon = "Âû íå âíåñëè êîíñòðóêòîðà"
End If


error_kl = ""
If Me!Êëèåíò <> "" Then
strklient = Me!Êëèåíò 'êëèåíò
recR!Êëèåíò = strklient
Else
error_kl = "Âû íå âíåñëè êëèåíòà"
End If

error_kol = ""
If Me!Êîëè÷åñòâî <> "" Then
strkolichestvo = Me!Êîëè÷åñòâî ' êîëè÷åñòâî
recR!Êîëè÷åñòâî = strkolichestvo
Else
error_kol = "Âû íå âíåñëè êîëè÷åñòâî"
End If


strnaotchet = Me!ÍàÎò÷¸ò '
'recR!Öâåò = strcvet

recR.Update
strFileName = Dir$
recR.Close

End Sub
вот такой код для запуска кнопки, но после закрытия формы создает еще 1 запись

Да забыл сказать что форма выглядит так :

Âû íå âíåñëè öâåò

Спасибо тема закрыта!!!

Решение :

Убрать из всех строк Данные ... и тогда поля будут свободными (Все равно сохраняются данные через Recordset )


Всем спасибо

Эдвард_noob
Убрать из всех строк Данные

Хорошее решение, делайте так всегда

alvk
Эдвард_noob Я понимаю что сохраняет одни и теже строки и VBA и access. фразу я оценил, но смысл её не уловил Кстати только маньяк будет качать 30 мег за "здравствуй"

ты что за мег по 100 рубасов платиш?))))))

NOOBик,

Нет, у меня просто корпоративное ограничение на скачку стоит, пару твоих шняг скачаю и интернета не будет до завтра.