Neueste Beiträge

#81

Access Programmierung / Access Datenbank speichern

Letzter Beitrag von LehmeMa - März 13, 2026, 09:03:58

Hallo Gemeinde,

ich versuche unter VBA die aktuelle Datenbank mit FileCopy unter einem neuen Namen abzuspeichern.

Dabei erhalte ich immer den Laufzeitfehler 70, Zugriff verweigert.

Gebe ich als Quelle irgendeine andere Datei ein, funktioniert es.

Wie kann ich die  Datenbank per VBA Speichern, bzw. mit neuem Namen speichern?

Besten Dank schon mal vorab

Markus

#82

Access Programmierung / Re: Timeout funktioniert nicht

Letzter Beitrag von Debus - März 12, 2026, 21:43:49

Das war ja auch Teil meiner Einschätzung lass man wissen ob das zieht

Holger

#83

Access Programmierung / Re: Timeout funktioniert nicht

Letzter Beitrag von PhilS - März 12, 2026, 21:39:30

Habe mich im Netz dann schlau gemacht und gefunden, dass man
Code [Auswählen] Erweitern

Code [Auswählen] Erweitern

.SetTimeouts 10000, 10000, 10000, 10000für max 10 Sekunden Wartezeit nutzen kann. Allerdings bekomme ich eine Fehlermeldung ("Objekt unterstützt diese Eigenschaft oder Methode nicht"), ganz egal ob ich es vor oder nach dem. open einsetze.

Soweit ich gerade überblicke, wird die setTimeouts-Methode nur von der ServerXMLHTTP60-Klasse implementiert.
Folglich für die Objekterstellung:

Code [Auswählen] Erweitern

Set objWeb = CreateObject("MSXML2.ServerXMLHTTP60")

#84

Access Programmierung / Re: Timeout funktioniert nicht

Letzter Beitrag von Debus - März 12, 2026, 20:26:14

Einen Fehler habe ich schonmal nämlich einen Tippfehler

Das

Code [Auswählen] Erweitern

.Open "GET", txtURL & txtFilename, Fals
muss

Code [Auswählen] Erweitern

.Open "GET", txtURL & txtFilename, Falseso lauten.

Das 

Code [Auswählen] Erweitern

Set objWeb = CreateObject("Microsoft.XMLHTTP")

würde ich änder in

Code [Auswählen] Erweitern

Set objWeb = CreateObject("MSXML2.XMLHTTP")
' odereventuell wenn vorhanden:
' Set objWeb = CreateObject("MSXML2.XMLHTTP60")

Und 
Falscher Objekt-Typ deklariert
Achte darauf, dass im Code entweder gar nicht typisiert wird (Variant) oder korrekt, z.B.:

Code [Auswählen] Erweitern

Dim objWeb As Object
' oder mit Verweis auf MSXML:
' Dim objWeb As MSXML2.XMLHTTP


also versuch mal so - aber ungetestet

Code [Auswählen] Erweitern

Dim objWeb As Object
Dim objStream As Object

Set objWeb = CreateObject("MSXML2.XMLHTTP") ' oder "MSXML2.XMLHTTP60"

With objWeb
    .Open "GET", txtURL & txtFilename, False
    .send
    If .Status = 200 Then
        Set objStream = CreateObject("ADODB.Stream")
        With objStream
            .Open
            .Type = 1 ' adTypeBinary
            .Write objWeb.responseBody
            .SaveToFile txtLocal & txtFilename, 2 ' adSaveCreateOverWrite
            .Close
        End With
    Else
        MsgBox "No connection to " & txtURL & txtFilename
    End If
End With

Set objWeb = Nothing
Set objStream = Nothing


Falls es immer noch bei .send stehen bleibt, dann versuch es mal mit

Code [Auswählen] Erweitern

Debug.Print TypeName(objWeb)
vor dem . send und  schauen mal was da so angezeigt wird.

Holger

#85

Access Programmierung / Timeout funktioniert nicht

Letzter Beitrag von hajott - März 12, 2026, 16:19:59

Hallo Wissende,

mit untenstehendem Code lade ich ein zipfile aus dem Internet herunter und es klappt normalerweise perfekt. Heute gibts wohl ne Störung im Internet und das Programm bleibt beim

Code [Auswählen] Erweitern

.send
hängen. In die dafür vorgesehene Verzweigung mit der Fehlermeldung kommt es gar nicht.

Habe mich im Netz dann schlau gemacht und gefunden, dass man

Code [Auswählen] Erweitern

.SetTimeouts 10000, 10000, 10000, 10000für max 10 Sekunden Wartezeit nutzen kann. Allerdings bekomme ich eine Fehlermeldung ("Objekt unterstützt diese Eigenschaft oder Methode nicht"), ganz egal ob ich es vor oder nach dem. open einsetze.

Was mache ich falsch? Wie könnte ich das ggf. anders lösen?

Vielen Dank im voraus!

Hans-Jürgen

Code [Auswählen] Erweitern

                Set objWeb = CreateObject("Microsoft.XMLHTTP")
                With objWeb
                    .Open "GET", txtURL & txtFilename, Fals
                    .send
                    If .Status = 200 Then
                        Set objStream = CreateObject("ADODB.Stream")
                        With objStream
                            .Open
                            .Type = 1
                            .Write objWeb.responseBody
                            .SaveToFile txtLocal & txtFilename, 2
                            .Close
                        End With
                    Else
                        MsgBox "No connection to " & txtURL & txtFilename
                    End If
                End With
                Set objWeb = Nothing


#86

Access Programmierung / Re: Bericht zoomen

Letzter Beitrag von werner budde - März 11, 2026, 21:52:25

die Möglichkeiten in VBA wie oben beschrieben sind mir jetzt auch neu. Danke für Eure Insider-Tipps.
Nebenbei, vielleicht O.T.:
Wenn im Berichtsentwurf die Eigenschaft Popup auf ja steht, sind die Zoom-Werkzeuge in der Seitenansicht ausgeblendet.

#87

Formular / Re: VLC ActiveX element

Letzter Beitrag von andyfau - März 11, 2026, 19:55:26

Hallo Holger, den Code kannst Du z.B. in das Klickereignis als Ereignisprozedur eines Buttons in einem Formular schreiben.

#88

Access Programmierung / Re: Bericht zoomen

Letzter Beitrag von Knobbi38 - März 11, 2026, 18:56:02

Hallo,

also ich sehe jetzt auch keine Notwendigkeit darin, zumal dir "richtige" Größe immer anders ist, je nachdem wie Groß das Hauptfenster ist.

Wenn du eine Voreinstellung machen möchtest, kannst du unmmittelbar nach dem Öffnen mit

Code [Auswählen] Erweitern

docmd.RunCommand acCmdFitToWindow
   oder
docmd.RunCommand acCmdZoom150
einen Zoomlevel einstellen. Alternativ kannst du auch der versteckten Eigenschaft Report.ZoomControl einen Long-Wert zuweisen.

Knobbi38

#89

Access Programmierung / Re: Bericht zoomen

Letzter Beitrag von alfini - März 11, 2026, 18:19:02

Hallo PhilS,

der Bericht wird mit acViewPreview aufgerufen.
Der Bericht ist aber in der Ansicht verschoben innerhalb der Anzeige.
Der Bericht sollte sofort ganz zu lesen sein.
Gruß alfini

#90

Access Programmierung / Re: Bericht zoomen

Letzter Beitrag von PhilS - März 11, 2026, 16:32:44

ich möchte die Berichte beim anzeigen zum besseren Lesen optimal anzeigen.

Was genau ist "beim Anzeigen"? Berichtsansicht oder Druckvorschau? In der Druckvorschau kannst du mit DoCmd.RunCommand acCmdZoomXXX per VBA-Code eine der Zoom-Stufen auswählen, die auch im UI vorgegeben sind.