waarom werkt dit niet

[kieken]

Dim stuks As Integer
Dim werkbonID As Integer
Dim vari1 As String
Dim vari2 As Integer
Dim vari3 As String
Dim vari4 As String
Dim vari5 As String
Dim vari6 As Integer
Dim vari7 As String





vari1 = Form_Sub_product_zoeken.Product_id.Value
vari2 = Form_Werkbon.ID.Value
vari3 = Form_Sub_product_zoeken.Merk.Value
vari4 = Form_Sub_product_zoeken.Bestelnr.Value
vari5 = Form_Sub_product_zoeken.Omschrijving_nl.Value
vari6 = InputBox("Geef aantal op van: " & vari5)
vari7 = Form_Sub_product_zoeken.Eenheid.Value


DoCmd.SetWarnings fals
DoCmd.RunSQL "insert into detailsmateriaal (vari1, vari2, vari3, vari4, vari5, vari6, vari7)"
DoCmd.SetWarnings True

 

[gerwag]

hi,
ik heb GEEN verstand van VB, maar wat is fals ??
grtz gerrit

 

[huijb]

Dim stuks As Integer
Dim werkbonID As Integer
Dim vari1 As String
Dim vari2 As Integer
Dim vari3 As String
Dim vari4 As String
Dim vari5 As String
Dim vari6 As Integer
Dim vari7 As String





vari1 = Form_Sub_product_zoeken.Product_id.Value
vari2 = Form_Werkbon.ID.Value
vari3 = Form_Sub_product_zoeken.Merk.Value
vari4 = Form_Sub_product_zoeken.Bestelnr.Value
vari5 = Form_Sub_product_zoeken.Omschrijving_nl.Value
vari6 = InputBox("Geef aantal op van: " & vari5)
vari7 = Form_Sub_product_zoeken.Eenheid.Value


DoCmd.SetWarnings fals
DoCmd.RunSQL "insert into detailsmateriaal (vari1, vari2, vari3, vari4, vari5, vari6, vari7)"
DoCmd.SetWarnings True

Om je te kunnen helpen is het noodzaak dat je zoveel mogelijk informatie geeft. De enige info die jij geeft is je code. Je geeft geen foutmelding, je geeft geen uitleg. Wat denk je dat de helpers van zo'n vraag vinden waar jij zo weinig mogelijk info geeft. Ik zal je op weg helpen, die nemen vaak niet eens de moeite om je verder helpen.

 

[Guus2005]

Dat je programma niet werkt komt waarschijnlijk door de hoeveelheid white-space. Je hebt waarschijnlijk teveel lege regels in je code staan.
Daarbij gebruik je geen Hongaarse variabelen notatie en je moet je leerboek eens naslaan op het maken van queries.

:evil:Een programma doet wat je progammeert en nooit wat je wilt.:evil:

Verder ben ik het met Huijb eens en dat gebeurt niet vaak!