query - sql y vba

Acceso a VBA: el número de valores de consulta y los campos de destino no son los mismos

Question

Estoy tratando de agregar datos de un formulario de acceso a una tabla. Cuando ejecuté el código sql, recibí un mensaje de error que decía que "el número de valores de consulta y los campos de destino no son los mismos".

este es mi código:

Private Sub CmdAddtoProductionDetails_Click() 
    Dim StrSql As String
    StrSql = "Insert Into test1 (ProductName, [Lot Number], ProductionDate, Quantity, Unit, Client) Values(me! ComboProduct1, me! LotNoProduct1, me! txtDate, me! Product1Quantity! me!ComboProduct1Unit, me! ComboProduct1Client)" 
    CurrentDb.Execute (StrSql) 
End Sub

Answer 1

Su cadena SQL se pasará al motor SQL que no sabe cómo interpretarme me!ComboProduct1 etc. Necesita insertar los valores de esas variables en la cadena:

Private Sub CmdAddtoProductionDetails_Click() 
    Dim StrSql As String StrSql = "Insert Into test1 (ProductName, [Lot Number], ProductionDate, Quantity, Unit, Client)" & _ 
    " Values( ''" & me! ComboProduct1 & "'', ''" & me! LotNoProduct1 & "'', #" & Format(me! txtDate, "yyyy/mm/dd") & "#, " & CStr(me! Product1Quantity) & ", ''" & me!ComboProduct1Unit & "'', ''" & me! ComboProduct1Client & "'' )" 
    CurrentDb.Execute (StrSql) 
End Sub

Ponga comillas simples alrededor de las cadenas, pero no alrededor de los números. Algunos de sus campos no estaba seguro de si eran números o cadenas, lo adiviné. Debe tener cuidado con las fechas: compruebe que el motor SQL esté interpretando las fechas en el formato aaaa / mm / dd correctamente. Convertirá la cadena #2016/06/04# en una fecha automáticamente para usted.

Answer 2

Un método más simple y directo es usar un conjunto de registros:

Private Sub CmdAddtoProductionDetails_Click() 

    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("Select Top 1 * From test1")
    rs.AddNew
        rs!ProductName.Value = Me!ComboProduct1.Value
        rs![Lot Number].Value = Me!LotNoProduct1.Value
        rs!ProductionDate.Value = Me!txtDate.Value
        rs!Quantity.Value = Me!Product1Quantity.Value
        rs!Unit.Value = Me!ComboProduct1Unit.Value
        rs!Client.Value = Me!ComboProduct1Client.Value
    rs.Update
    rs.Close

    Set rs = Nothing

End Sub