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.
strSQL = "SELECT Produkt, Klasse, Dikte, Breedte, Lengte, Category, Stap, Hardheid FROM Produkten"
Set qDef = CurrentDb.QueryDefs(Me.RecordSource)
DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLS, CurrentProject.Path & "\" & "test.xls"
sfilter = " WHERE " & Replace(Me.Filter, "[" & Me.RecordSource & "].", "")
qDef.SQL = strSQL & sfilter
DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, CurrentProject.Path & "\" & "Gefilterd.xlsx"
qDef.SQL = strSQL
DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLS, CurrentProject.Path & "\" & "test.xls"
Set qDef = CurrentDb.QueryDefs("qTemp")
strSQL = "SELECT Produkt, Klasse, Dikte, Breedte, Lengte, Category, Stap, Hardheid FROM Produkten " _
& "WHERE " & Replace(Me.Filter, "[" & Me.RecordSource & "].", "")
qDef.SQL = strSQL
'Tijdelijke query toewijzen
With Me
.RecordSource = "qTemp"
.Requery
.Filter = ""
.FilterOn = False
End With
DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, CurrentProject.Path & "\" & "Gefilterd.xlsx"
'Terugzetten van query
With Me
.RecordSource = "Query1"
.Requery
.Filter = ""
.FilterOn = False
End With
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.