Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
SELECT KlantGegevensT.KlantID, KlantGegevensT.Firmanaam, KlantGegevensT.Plaats, ProjectGegevensT.Status FROM KlantGegevensT INNER JOIN ProjectGegevensT
ON KlantGegevensT.KlantID = ProjectGegevensT.KlantID WHERE (((IIf([Formulieren]![MainMenu]![ProjectstatusCombo] Is Null,True,
[Status]=[Formulieren]![MainMenu]![ProjectstatusCombo]))<>False));
SELECT ProjectGegevensT.ProjectnummerID, ProjectGegevensT.Omschrijving, ProjectGegevensT.KlantID FROM KlantGegevensT INNER JOIN ProjectGegevensT
ON KlantGegevensT.KlantID = ProjectGegevensT.KlantID WHERE (((IIf([Formulieren]![MainMenu]![MainKlantselectieCombo] Is Null,True,
[ProjectGegevensT].[KlantID]=[Formulieren]![MainMenu]![MainKlantselectieCombo]))<>False));
Wat vind je dan vermoeiend / wat zou je anders doen?ik vind het een erg vermoeiende database om naar te kijken; ik zou hem zelf zo nooit gebouwd hebben,
Ik snap het zelf ook niet meer, Dit is nog steeds mijn eerste ACCESS project, er zullen ongetwijfeld veel zaken in zitten die veel beter kunnen. Hoe zou jij de tabellen aanpassen, de relaties leggen?.Zo heb je in de query [Klanten_Contacten_ProjectQ] een relatie gelegd tussen [KlantGegevensT] en [ContactpersoonGegevensT] op basis van het veld [KlantID] wat prima is, maar de relatie met [ProjectGegevensT] ligt op de tabel [ContactpersoonGegevensT]. En daar snap ik dus helemaal niks van; die relatie hoort m.i. te liggen met de tabel [KlantGegevensT]. Gek genoeg héb je het veld KlantID ook in [ProjectGegevensT] zitten, dus daar snap ik echt niks van.
SELECT KlantGegevensT.Firmanaam, KlantGegevensT.PostcodePostbus, KlantGegevensT.Postbus, KlantGegevensT.Straatnaam, KlantGegevensT.Nummer, KlantGegevensT.Postcode, KlantGegevensT.Plaats, KlantGegevensT.Land, KlantGegevensT.Memo AS KlantGegevensT_Memo, ContactpersoonGegevensT.ContactVNaam, ContactpersoonGegevensT.ContactInit, ContactpersoonGegevensT.ContactANaam, ContactpersoonGegevensT.Functie, ContactpersoonGegevensT.Memo AS ContactpersoonGegevensT_Memo, ProjectGegevensT.ProjectnummerID, ProjectGegevensT.ContactpersoonID AS ProjectGegevensT_ContactpersoonID, ProjectGegevensT.Omschrijving, ProjectGegevensT.Memo AS ProjectGegevensT_Memo, ContactpersoonGegevensT.KlantID, ProjectGegevensT.Status
FROM (KlantGegevensT INNER JOIN ContactpersoonGegevensT ON KlantGegevensT.KlantID = ContactpersoonGegevensT.KlantID) INNER JOIN ProjectGegevensT ON KlantGegevensT.KlantID = ProjectGegevensT.KlantID;
(welke categorien bedoel je hier?) ,Verder heb je zoveel verschillende categorieën
En dan te bedenken dat de query (onaangepast uiteraard) het perfecte resultaat levert. Waarom dan aanpassen zodat-ie dat niet meer doet?Ik heb de bewuste query aangepast:
...
Dit geeft echter nog niet het gewenste resultaat, de output geeft dubbele records
Hoe doe je dit met VBA code?toewijzen aan een bestaande query
Private Sub Wisselknop1876_Click()
Dim strSQL As String
strSQL = "SELECT artcode, oms30, artgrp, voorkeur FROM Artikelen_LeverancierQ "
strSQL = strSQL & "WHERE (artgrp = """ & Me.FabrikaatCombo & """) "
If Me.Wisselknop1876 Then strSQL = strSQL & "And (voorkeur = True) "
strSQL = strSQL & "ORDER BY artcode;"
MsgBox strSQL
End Sub
Private Sub Wisselknop1876_Click()
Dim strSQL As String
strSQL = "SELECT artcode, oms30, artgrp, voorkeur FROM Artikelen_LeverancierQ "
strSQL = strSQL & "WHERE (artgrp = '" & Me.FabrikaatCombo & "') "
If Me.Wisselknop1876 Then strSQL = strSQL & "And (voorkeur = True) "
strSQL = strSQL & "ORDER BY artcode;"
MsgBox strSQL
End Sub
Private Sub Wisselknop1876_Click()
Dim strSQL As String
[B][COLOR="#0000CD"]Dim qTmp As QueryDef
[/COLOR][/B]
strSQL = "SELECT artcode, oms30, artgrp, voorkeur FROM Artikelen_LeverancierQ "
strSQL = strSQL & "WHERE (artgrp = " & Me.FabrikaatCombo & ") "
If Me.Wisselknop1876 Then strSQL = strSQL & "And (voorkeur = True) "
strSQL = strSQL & "ORDER BY artcode;"
[COLOR="#0000CD"][B] Set qTmp = CurrentDb.QueryDefs("QueryNaam")
qTmp.SQL = strSQL[/B][/COLOR]
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.