Ввод значений формы в базу.

[NickiBell]

Здравствуйте,

Видимо происходит несовмещение типов в коде, как это можно исправить?
Сами поля в базе трех типов - числовой, дата и текстовый.

Private Sub Command3_Click()
Dim n As String
Dim d As String
Dim t As String
    n = Nz(Me.[num], "Null")
    d = CLng(Me.[data])
    t = Nz(Me.[textt], "Null")
Debug.Print n
Debug.Print d
Debug.Print t
    vivod = "INSERT INTO table1 (n, d, t)"
    vivod = vivod & " Select " & n & ", " & d & ", " & t
Debug.Print vivod
    CurrentDb.Execute vivod
    DoCmd.GoToRecord , , acNewRec
End Sub

[LittleFatCat]

Доброго времени суток!

Ваши данные текстового типа, поэтому при формировании запроса они должны заключаться в кавычки (в примере - одинарные):
vivod & " Select '" & n & "', '" & d & "', '" & t & "'"

Не совсем понятна CLng - что она делает (если преобразует в длинное целое - то потом это число присваивается строковой переменной, зачем?)

[NickiBell]

Спасибо за подсказку об одинарных кавычках.

Private Sub Command3_Click()
Dim n As String
Dim d As Date
Dim t As String
    n = Nz(Me.[num], "Null")
    d = Nz(Me.[data], "Null")
    t = Nz(Me.[textt], "Null")
    vivod = "INSERT INTO table1 (num, data, textt)"
    vivod = vivod & " Select '" & n & "', '" & d & "', '" & t & "'"
    CurrentDb.Execute vivod
    DoCmd.GoToRecord , , acNewRec
End Sub

Кавычки исправила и дате присвоила формат даты. Такой метод использования даты я увидела в одном примере и воспользовалась им, просто как дата не работал почему-то.

Сейчас записи вводятся из формы в таблицу, но они почему-то дублируются. Вроде бы нажатие на кнопку дважды мною не происходил, проверяла. Может быть еще что-то надо было учесть?

[LittleFatCat]

Доброго времени суток!

Здесь все дело в том, что форма при открытии сама становится на новую запись, т.к. в свойствах формы стоит "Ввод данных - Да". После того, как нажата кнопка, происходит переход на новую запись командой

Docmd.GoToRecord , , acNewRec

. При этом значения, введенные в поля, сохраняются. Плюс к этому еще и выполняется запрос на вставку тех же данных. Вот вам и дублирование.
Надо использовать что-то одно - или запрос, или переход к новой записи, т.е. какую-то из частей кода удалить

[Teslenko_EA]

Здравствуйте NickiBell.
предположение и рекомендация LittleFatCat: "..Ваши данные текстового типа, поэтому..они должны заключаться..", не совсем корректно,
Вы писали: "..поля в базе трех типов - числовой, дата и текстовый...".

Да для текстовых полей кавычки обязательны, для полей даты приемлемы, но для числовых полей кавычки недопустимы.
И не только по этому Ваш код нуждается в корректировке,
выражение :
Nz(Me.[textt], "Null") - значению NULL присвоит текст "Null", а далее как Вы понимаете "NULL" (в кавычках) в SQL конструкции работать не будет.

Рекомендую подкорректировать код.
Успехов Вам.
Евгений.

[NickiBell]

Большое спасибо LittleFatCat и Teslenko_EA за разъяснительную информацию.
До этого у меня не было возможности зайти и разобраться с этой задачей по некоторым причинам.

Обнаружила. что текстовые поля оказывается вовсе не надо было связывать с базой, они должны были быть нейтральными, лишь только потому дублировались записи.

Программку я исправила и привожу новый вариант.

[NickiBell]

Private Sub Command3_Click()
Dim n As String
Dim d As String
Dim t As String
    n = Nz(Me.[tnum], "Null")
    d = CLng(Me.[tdata])
    t = Nz(Me.[ttextt])
    vivod = "INSERT INTO table1 (num, data, textt)"
    vivod = vivod & " Select " & n & "," & d & ", '" & t & "'"

    CurrentDb.Execute vivod
    Me.Table1_subform.Requery
    tnum.Value = ""
    tdata.Value = Date
    ttextt.Value = ""
    
End Sub