ich habe bei Base das Porblem, das es sich ständig aufhängt.
Meine Vermutung sind die Makros.
Könnte mal jemand folgenden Code prüfen:
Code: Alles auswählen
REM ***** BASIC *****
'Beim Starten der Datenbank soll ein bestimmtes Formular geladen werden (Autostart)
sub open_main_form
oController= ThisDatabaseDocument.CurrentController
If NOT ( oController.isConnected() ) Then oController.connect()
ThisDatabaseDocument.formdocuments.getbyname("Abfrage_Tracking DPD").open
End sub
'Das Makro der Datenbank zuweisen: Datenbankfenster > Extras > Anpassen > Dokument öffnen > FormAutostart
Sub schliessen
'Fehlerfreies schliessen eines Datenbankformulars
'ThisDatabaseDocument.FormDocuments.getbyName( "Abfrage_Tracking DPD" ).close
oDoc = ThisDatabaseDocument
oDoc.store()
oDoc.close(True)
End Sub
SUB Website_Aufruf
REM Aufruf einer Website oder des Mailprogramms mit einer vorgegebenen Mailadresse
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld AS OBJECT
DIM oShell AS OBJECT
DIM stFeld AS STRING
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
REM Lage des Feldes in dem entsprechenden Formular aufsuchen
oForm = oDrawpage.Forms.getByName("MainForm")
oFeld = oForm.getByName("DPD-Link")
REM Den Text aus der Dateiauswahl auslesen
stFeld = oFeld.Text
IF stFeld = "" THEN
EXIT SUB
END IF
IF InStr(stFeld,"@") THEN
stFeld = "mailto:"+stFeld
ELSEIF InStr(stFeld,"http://") THEN
stFeld = convertToUrl(stFeld) 'convertToUrl erkennt, dass mit http:// bereits eine Verbindung vorgegeben ist. file:/// wird nicht gesetzt
ELSE
stFeld = "http://extranet.dpd.de/cgi-bin/delistrack?typ=1&lang=de&pknr="+stFeld
stFeld = convertToUrl(stFeld) 'convertToUrl erkennt, dass mit http:// bereits eine Verbindung vorgegeben ist. file:/// wird nicht gesetzt
END IF
REM Start des Files mit der entsprechenden URL-Verbindung
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
oShell.execute(stFeld,,0)
END SUB
Gruß ROROB
