text naar tabel

[jo geuens]

ik heb heb formulier dat onafhankelijk is van de tabellen door middel van volgende code boek ik deze in de tabel de waarde zijn allemaal getallen of ( integer) nu wil ik de tekst
in de textbox vrije locatie in de tabel krijgen maar dit geef telkens foutmelding hoe pak ik dit aan ?

Private Sub Tegoedmagazijn_Click()

Call BoekMut2(Me.KeuzelijstTooling, Me.KeuzelijstLocatieVan, Me.Asset, Me.Stuks * -1, Me.Wisselartikel, "Tegoed magazijn")
Call BoekMut2(Me.KeuzelijstTooling, Me.KeuzelijstLocatieNaar, Me.Asset, Me.Stuks, Me.Wisselartikel, "=Me.vrijelocatie", "Tegoed magazijn")

End Sub

de tweede afbeelding krijg ik bij de tweede regel van de call boekmut2 code dan kan ik de tekst wel ingeven en komt hij wel in de tabel maar dat is niet de juiste oplossing
dit is de foutmelding bij de eerste regel van call boekmut2 :het argument is niet optioneel
en in de module

Sub BoekMut2(Artikel As Long, Asset As Long, Locatie As Long, Stuks As Integer, Wisselartikel As Long, vrijelocatie As String, Oms As String)
    DoCmd.RunSQL "INSERT INTO Toolingmutatie(ToolingID,LocatieID,Asset,Toolingmutatie,wisselartikel,vrijelocatie,Omschrijving) VALUES(" & Artikel & "," & Asset & "," & Locatie & "," & Stuks & "," & Wisselartikel & "," & vrijelocatie & ",'" & Oms & "')"
End Sub

 

[OctaFish]

Je functie is in ieder geval fout als vrijelocatie een string is. Oms pak je wél op als string, vrijelocatie niet. Je weet dus wél hoe het moet...

Sub BoekMut2(Artikel As Long, Asset As Long, Locatie As Long, Stuks As Integer, Wisselartikel As Long, vrijelocatie As String, Oms As String)
    DoCmd.RunSQL "INSERT INTO Toolingmutatie(ToolingID,LocatieID,Asset,Toolingmutatie,wisselartikel,vrijelocatie,Omschrijving)" _
        & "VALUES(" & Artikel & "," & Asset & "," & Locatie & "," & Stuks & "," & Wisselartikel & ",'" & vrijelocatie & "','" & Oms & "')"
End Sub

Ik heb het al eerder gezegd, maar probeer code leesbaar te houden. Ook voor jezelf
En je roept hem ook verkeerd aan.

Call BoekMut2(Me.KeuzelijstTooling, Me.KeuzelijstLocatieNaar, Me.Asset, Me.Stuks, Me.Wisselartikel, Me.vrijelocatie, "Tegoed magazijn")

Ook dat doe je overigens elders in je code wél goed.

 

[jo geuens]

hoi octafish

ja die omschrijving is een vaste tekst en die staat tussen een koppelteken ,die komt ook niet van het formulier .
de tekst van vrijelocatie moet wel van het formulier komen en is dus voor elk record verschillend hiervoor weet ik de oplossing dus niet .

 

[jo geuens]

Hoi heb het na wat zoeken gevonden
Thx