ToevoegQuery uitvoeren

Status
Niet open voor verdere reacties.
R

RonaldRoenhorst

Gebruiker
Lid geworden
25 dec 2008
Berichten
188
Ik heb de volgende query die een nieuwe week aanmaakt.

HTML: 
INSERT INTO tblWeekProgram ( WeekNumber, SupplierID, ItemID )
SELECT ([Week]) AS WeekNumber, qryLastWeek.SupplierID, qryLastWeek.ItemID
FROM qryLastWeek;

Kan ik deze ook middels VBA uitvoeren ?
 
Tuurlijk. Ik kopieer de code dan vanuit het SQL venster, en plak hem in een string. Dus in jouw geval:
Code: 
strSQL = “INSERT INTO tblWeekProgram ( WeekNumber, SupplierID, ItemID )
SELECT (Week, SupplierID, ItemID) FROM qryLastWeek”
CurrentDB.Execute strSQL, DbFailOnError
 
Met de
HTML: 
CurrentDB.Execute strSQL, DbFailOnError
krijg ik een error en heb nu
Code: 
DoCmd.RunSQL (strSQL)
gebruikt en het werkt.

Is er ook een mogelijkheid om de SELECT aan te passen en de gegevens uit de Inputbox neemt ?

HTML: 
strInput = InputBox("WeekNumber", , "")
     
     strSQL = "INSERT INTO tblWeekProgram ( WeekNumber, SupplierID, ItemID )" & _
" SELECT ([Week]) AS WeekNumber, qryLastWeek.SupplierID, qryLastWeek.ItemID " & _
"FROM qryLastWeek;"

DoCmd.RunSQL (strSQL)
 
Tuurlijk, is ook mogelijk. Vraag is dan: waar komen de andere gegevens vandaan?
 
Ik haal de gegevens op uit een query en schrijf deze in de basis tabel met het nieuwe ingegeven Week nummer
Nu geeft het SELECT statement het week nummer op wat word ingegeven, mooier is als het middels de inputbox kan
 
Laatst bewerkt:
Ook dat kan.
Code: 
 strSQL = “INSERT INTO tblWeekProgram ( WeekNumber, SupplierID, ItemID )
SELECT (“ & strInput & “, SupplierID, ItemID) FROM qryLastWeek”
Overigens zou CurrentDB.Execute moeten werken, maar ik zal wel een syntax foutje gemaakt hebben. Dat kun je op de iPad nou eenmaal niet controleren :). Zelf geef ik daar dus de voorkeur aan.
 
Super oplossing, loopt als een scheermes, kreeg eerst nog wel een foutmelding 3075 maar die kwam door de (
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan