[VBA]Record toevoegen in database

[Multensor]

Ik heb in acces 2 dorms gemaakt, 1 met een keuzelijst en een knop toevoegen (met deze knop ga je naar het form toevoegen). Daar heb je de invoerveldjes en een knop toevoegen als je op die knop drukt dan moet hij het ingevulde record toevoegen, maar hij doet niks. Ik heb er de volgende code onder ligeen:

Private Sub btnToevoegen_Click()
If (Me.Kantineartikelnaam = "" Or Me.Artikelsoort = "" Or Me.Verkoopprijs = "" Or _
Me.Vertegenwoordiger = "" Or Me.Bezorgprijs = "") Then
MsgBox "Het formulier is niet volledig ingevuld"
Else
CurrentDb.Execute "INSERT INTO tblKantineartikel VALUES(" & Me.Kantineartikelnaam & ", '" & _
Me.Artikelsoort & "', '" & Me.Verkoopprijs & "', " & Me.Vertegenwoordiger & ", '" & _
Me.Bezorgprijs & ", ')"
End If

End Sub

Als je meer info nidig hebt vraag het maar

[Masch]

Dit zul je moeten gaan 'debuggen'. Loop eens stap voor stap door de code en kijk eens waar wat fout gaat. Ik denk zelf dat het zit in;

currentdb.execute

Ik zou daar iets met runsql uitproberen.

[gorgi_19]

Komt hij uberhaupt wel in die routine terecht?

[Multensor]

hmzzzz geen idee over die routine (noob nog @ programming) ennuhm was de knop voor debug?

[Multensor]

HMZZZ ik heb nu Currentdb.Runsql staan, maar dat werkt ook niet hij geeft als ik debug(volgens mij is het debug ): Kan de methode of gegevenslid niet vinden. Dit zegt hij bij Me.Bezorgprijs
Hij highlight het stukje .Bezorgprijs

[Black Hawk]

Het moet zijn:

DoCmd.RunSQL SQLString

[Masch]

Black Hawk schreef op 04 november 2004 @ 14:36:
Het moet zijn:
DoCmd.RunSQL SQLString

Dat is idd een goede oplossing. Je moet dan wel de SQLString vullen;

code:

Private Sub btnToevoegen_Click()
If (Me.Kantineartikelnaam = "" Or Me.Artikelsoort = "" Or Me.Verkoopprijs = "" Or _
Me.Vertegenwoordiger = "" Or Me.Bezorgprijs = "") Then
MsgBox "Het formulier is niet volledig ingevuld"
Else
SQLString = "INSERT INTO tblKantineartikel VALUES(" & Me.Kantineartikelnaam & " & _
"," & Me.Artikelsoort & "', '" & Me.Verkoopprijs & "', " & Me.Vertegenwoordiger & " & _
"," & Me.Bezorgprijs & ", ')"
DoCmd.Runsql(SQLstring)
End If

End Sub

Zoiets moet het zijn, er kunnen fouten in de syntax zitten, ik heb het niet getest.

[Verwijderd]

en misschien is het ook handig om enkele quotes om tekst parameters te zetten in je insert statement. ik neem aan dat in ieder geval [kantineartikelnaam] een tekst waarde is.