Office: (Office 2010) Runtime 2010 Laufzeitfehler

Helfe beim Thema Runtime 2010 Laufzeitfehler in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo gemeinde, Nach langem suchen hab ich nun das Modul ausgemacht welches bei der RT Version zum Laufzeitfehler führt. Allerdings finde ich da... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Diskus123, 31. Januar 2020.

  1. Diskus123 Neuer User

    Runtime 2010 Laufzeitfehler


    Hallo gemeinde,

    Nach langem suchen hab ich nun das Modul ausgemacht welches bei der RT Version zum Laufzeitfehler führt.
    Allerdings finde ich da den Fehler nicht. Im Direktfenster funzt alles so wie es soll. Die runtime schmiert ab.

    Hier mal der verwendete Code

    Code:
    Option Compare Database
    Option Explicit
    
    Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
        "GetVolumeInformationA" (ByVal lpRootPathName As String, _
                                 ByVal pVolumeNameBuffer As String, _
                                 ByVal nVolumeNameSize As Long, _
                                 lpVolumeSerialNumber As Long, _
                                 lpMaximumComponentLength As Long, _
                                 lpFileSystemFlags As Long, _
                                 ByVal lpFileSystemNameBuffer As String, _
                                 ByVal nFileSystemNameSize As Long) As Long
    
    Const MAX_FILENAME_LEN As Long = 256&
    
    Public Function SerNum() As Long
        Dim No As Long, s As String
       
        GetVolumeInformation "c:\", s, MAX_FILENAME_LEN, No, 0&, 0&, s, _
                             MAX_FILENAME_LEN
        SerNum = No
    End Function
    
    
    Im Direkt Fenster Aufruf "?sernum zeigt mir das ergebnis auch korrekt an.

    lg Diskus123
     
    Diskus123, 31. Januar 2020
    #1
  2. Exl121150 Erfahrener User
    Hallo,

    kann es vielleicht an der Stringkonstante "vbNullString" gelegen sein?

    Code:
    Option Compare Database
    Option Explicit
    
    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
                                (ByVal lpRootPathName As String, _
                                 ByVal lpVolumeNameBuffer As String, _
                                 ByVal nVolumeNameSize As Long, _
                                 lpVolumeSerialNumber As Long, _
                                 lpMaximumComponentLength As Long, _
                                 lpFileSystemFlags As Long, _
                                 ByVal lpFileSystemNameBuffer As String, _
                                 ByVal nFileSystemNameSize As Long) As Long
    
    Public Function SerNum() As Long
        Dim No As Long, Ret As Long
       
        Ret = GetVolumeInformation(lpRootPathName:="C:\", _
                             lpVolumeNameBuffer:=[COLOR="#FF0000"]vbNullString[/COLOR], _
                             nVolumeNameSize:=0, _
                             lpVolumeSerialNumber:=No, _
                             lpMaximumComponentLength:=0, _
                             lpFileSystemFlags:=0, _
                             lpFileSystemNameBuffer:=[COLOR="#FF0000"]vbNullString[/COLOR], _
                             nFileSystemNameSize:=0)
       'Debug.Print "Ret="; Ret
        SerNum = No
    End Function
    
    '[COLOR="#FF0000"]vbNullString[/COLOR]:
    'Zeichenfolge mit dem Wert 0
    'Nicht gleichbedeutend mit einer Zeichenfolge der Länge null (""); [COLOR="#0000CD"]wird zum Aufrufen externer Prozeduren verwendet
    [/COLOR]
     
    Exl121150, 5. Februar 2020
    #2
Thema:

Runtime 2010 Laufzeitfehler

Die Seite wird geladen...
  1. Runtime 2010 Laufzeitfehler - Similar Threads - Runtime 2010 Laufzeitfehler

  2. Runtime erstellen und 64bit Versionen

    in Microsoft Access Hilfe
    Runtime erstellen und 64bit Versionen: Hallo Forum, habe eine Anwendung laufen, die aber auch jemand bekommen soll. Meine Frage ist es, wie mache ich es als Runtime? Da die Person Office 64-bit installiert hat. Daher ist meine...
  3. Runtime unterdrückt Logo

    in Microsoft Access Hilfe
    Runtime unterdrückt Logo: Hallo :-) in einer Datenbank habe ich einen Bericht in einem Logo. Die Programm-DB läuft auf zwei Rechnern jeweils lokal. Die Daten liegen in einer zentralen Daten-DB. Wenn ich die DB auf dem...
  4. Fehlermeldung in Runtime

    in Microsoft Access Hilfe
    Fehlermeldung in Runtime: Hallo Forum, folgender Code funktioniert in der Access-Vollversion ohne Probleme, Code: Private Sub cmd_Klone_Click() On Error GoTo Err_cmd_Klone_Click DoCmd.RunCommand acCmdSelectRecord...
  5. Access Runtime mit SQL Server

    in Microsoft Access Hilfe
    Access Runtime mit SQL Server: Hallo, wie verteile ich ein Access-Frontend mit verknüpften SQL Server Tabellen in der Runtime-Version? Ich habe schon viel experimentiert mit DNS-Datei, Computer-DNS ... klappt alles nicht...
  6. Access 2010 Runtime

    in Microsoft Access Hilfe
    Access 2010 Runtime: Hallo, mit Access Runtime 2010 habe ich ein Problem. Eine Access 97-Applikation, jahrelang im Einsatz, nach Erscheinen von Vista konvertiert in Access 2003 wurde jetzt mit der Vollversion Access...
  7. Access 2010 Runtime/32 Bit mit Office 2010/64 Bit

    in Microsoft Access Hilfe
    Access 2010 Runtime/32 Bit mit Office 2010/64 Bit: Hallo zusammen, ein Kunde von mir hat auf seinem 64 Bit-Rechner mit Windows 7 64 Bit die 64 Bit Version von Office 2010 installiert. Da meine Software mit Access 2010 32 Bit erstellt ist lässt,...
  8. Access Runtime 2010 ist da

    in Microsoft Access Hilfe
    Access Runtime 2010 ist da: Hallo zusammen, Office 2010 steht vor der Tür und wird bald im Umlauf sein. Nach meiner Einschätzung wird es ein größerer Erfolg, als damals Office 2007. Zum Einen haben sich viele bereits an die...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden