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.
https://www.helpmij.nl/forum/showthread.php/968953-HOE-doe-ik-dit?p=6363770#post6363770
https://www.helpmij.nl/forum/showthread.php/969102-Hoe-druk-ik-in-Access-een-pdf-bestand?p=6365229
https://www.helpmij.nl/forum/showthread.php/969214-wat-is-er-mis-met-deze-query?p=6366636#post6366636
Ïk ben daar al vanaf gestapt. Het idee kwam bij op om de volgende reden: De gebruiker de gelegenheid te geven af te zien van het afdrukken/emailen van bijvoorbeeld een betalingsherinneringMaar vooral wil ik antwoord op de vraag, die al talloze keren is gesteld, waarom je een rapport wilt exporteren naar pdf, dán afdrukken, en vervolgens het afgedrukte pdf bestand verwijderen.
Maar dat zijn constanten en ik wil het voor variabelen. dus als "E:\administraties\Infocient.bbs" in de string v08 staat en "E:\administraties\CCC.bbs" in de string v07 dan zou dit als volgend moeten:En het kan zoveel simpeler...
Code:FileCopy "E:\administraties\Infocient.bbs", "E:\administraties\CCC.bbs"
filecopy v08,v07
Nog erger !Nu nog mooier! Nu blijkt dat er, ondanks de foutmelding de opdracht wel wordt uitgevoerd
Name Gadm As v07 & ".bbs"
Shell "delete " & v07 & ".accdb"
Public Function Schrijfdb() As Variant
On Error Resume Next
Gadm = DLookup("locatie", "H_parameters")
gs1 = Gadm
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
With fDialog
.Title = "Toets een naam in voor de administratie"
If .Show = False Then MsgBox c_gb: Exit Function
Else
For Each varFile In .SelectedItems: DBEngine.CompactDatabase strG_Parameter, varFile: v07 = varFile: Next
End If
End With
Name Gadm As v07 & ".bbs"
'On Error Resume Next
Shell "delete " & v07 & ".accdb"
'nodig omdat de vorige NAME deze ongevraagd creeert
MsgBox "Babs heeft deze nieuwe administratie voor jou gecreëerd: " & v07 & ".bbs"
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.