WHERE claus Criteria + Variabele plaatsen

[royvdh65]

Ik zit met het volgende probleempje. Ik heb een query binnen VBA, nu wil ik binnen de WHERE Clausule een variabele meegeven die een waarde meegeeft, alleen ik weet niet hoe ik deze tussen de criteria binnen binnen de WHERE clausule plaats.
Dit is mijn WHERE-Clausule:

WHERE (((dboMasterData.TableCode)="SERV_ORD") AND ((dboMasterData_1.TableCode)="JOB_QZI"));

en nu wil ik dboServiceOrder.No_ = '" & ServOrdNr & "' daartussen plaatsen maar ik weet niet hoe, want VBA geeft iedere keer een compileerfout waar ik niet uitkom. Iemand enig idee?

 

[Tardis]

En wat is je foutmelding precies?

Tardis

 

[royvdh65]

zie bijlage

 

[FHG1969]

Lijkt meer op missende " of ) ergens volgens mij. (denk ik)

Frank.

 

[rebmog]

Ik vermoed dat je het woordje Me vergeten bent:

dboServiceOrder.No_ = '" & Me.ServOrdNr & "'

Als dat niet helpt, dan lijkt het me handig dat je even de complete code-regel post.

Rebmog

 

[royvdh65]

Jullie suggesties hebben nog niet mogen baten, dit is mijn code die ik nu heb:

Dim dbs As Database
Dim recJob As Recordset
Dim strSQL As String


Set dbs = CurrentDb()

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode]" & _
"WHERE((dboMasterData.TableCode)= "SERV_ORD" ) AND ((dboMasterData_1.TableCode)="JOB_QZI")dboServiceOrder = '" & Me.ServOrdNr & "'"

Set recJob = dbs.OpenRecordset(strSQL, dbOpenDynaset)

If Not recJob.EOF Then
Me.Status = recJob.Fields("dboMasterData_1.CODEPOSITION")
Else
MsgBox "Geen records gevonden"
End If

Wanneer ik criteria en variabele mee geef aan de WHERE claus geeft hij een compileerfout bij de criteria SERV_ORD: "Verwacht instructie einde"

 

[Tardis]

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode]" & _
"WHERE dboMasterData.TableCode= "SERV_ORD" AND dboMasterData_1.TableCode="JOB_QZI" AND dboServiceOrder.No= '" & Me.ServOrdNr & "'"

Tardis

 

[royvdh65]

Nee deze code werkt ook al niet, hij geeft weer een foutmelding bij de criteria SERV_ORD daardoor wordt de code ook rood.

 

[Ronaldxx]

Zou je hem kunnen posten ?

 

[royvdh65]

Oke, ik heb nu de aangepaste code van Tardis genomen:

Dim dbs As Database
Dim recJob As Recordset
Dim strSQL As String


Set dbs = CurrentDb()

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode]" & _
"WHERE dboMasterData.TableCode= "SERV_ORD" AND dboMasterData_1.TableCode="JOB_QZI" AND dboServiceOrder.No= '" & Me.ServOrdNr & "'"

Set recJob = dbs.OpenRecordset(strSQL, dbOpenDynaset)

If Not recJob.EOF Then
Me.Status = recJob.Fields("dboMasterData_1.CODEPOSITION")
Else
MsgBox "Geen records gevonden"
End If

En de foutmelding zie bijlage:

 

[Tardis]

Let op het juist toepassen van regeleindes (spaties..):

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode] " & _
"WHERE dboMasterData.TableCode= "SERV_ORD" AND dboMasterData_1.TableCode="JOB_QZI" AND dboServiceOrder.No= '" & Me.ServOrdNr & "'"

Tardis

 

[royvdh65]

Sorry Tardis, dit is ie ook niet. Ik krijg weer precies dezelfde foutmelding, ook weer bij de criteria SERV_ORD. Wanneer ik de sql code (zonder parameters) test in een sql scherm binnen Access werkt de query wel.

 

[Tardis]

Oops, dubbele aanhalingstekens voor de vaste waarden over het hoofd gezien.
Vervang deze door een enkel aanhalingsteken:

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode] " & _
"WHERE dboMasterData.TableCode= 'SERV_ORD' AND dboMasterData_1.TableCode='JOB_QZI' AND dboServiceOrder.No= '" & Me.ServOrdNr & "'"

Sluit anders even een voorbeeldbestand bij.

Tardis

 

[royvdh65]

Visual Basic keurt de code nu in ieder geval goed, dus er is geen compileerfout meer. Ik krijg nu een foutmelding Too few parameters. Expected 1. Bedoel je met een voorbeeldbestand de database met het form?

 

[Tardis]

Foutmelding betekent dat je verwijst naar een niet-bestaande kolom in een tabel of een niet bestaand veld in je formulier.
Loop je code nog eens goed na.

Met een voorbeeldbestand bedoel ik een bestand waar alles in zit om jouw probleem te reproduceren.

Tardis

 

[royvdh65]

Het klopte inderdaad dat ik verwees naar een niet bestaande tabel, ik was een underscore vergeten bij dboServiceOrder.No_. Alleen krijg ik nu een andere foutmelding: "Item not found in this collection". Wat betreft het plaatsen van de bestanden die van belang zijn voor dit probleem, dit zijn best grote tabellen van stage dat zal waarschijnlijk niet gaan.

 

[Tardis]

Zonder voorbeeldbestand kan ik je niet verder helpen.

Tardis

 

[OctaFish]

Als je ServOrdNr een numerieke waarde is, moet je de code aanpassen:

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode] " & _
"WHERE dboMasterData.TableCode= 'SERV_ORD' AND dboMasterData_1.TableCode='JOB_QZI' AND dboServiceOrder.No= " & Me.ServOrdNr

 

[royvdh65]

Sorry voor de nogal late reactie, maar dit onderwerp is al een tijdje opgelost.